C       A sample subprogram to illustrate how to use the MAKE utility
        SUBROUTINE B
        WRITE (6,*) 'B'
        RETURN
        END