MACRO PRMDRV MACRO BITS ! R RAT STRLIB=STRLIB PROM=PROM PROM1=PROM1 PROM2=PROM2/R PROMIS=PROMIS/R PROM3=PROM3/R HEXMAT=HEXMAT ^C ! FORTRA /NOLINE/NOSWAP PROM FORTRA /NOLINE STRLIB FORTRA /NOLINE PROM1 FORTRA /NOLINE PROM2 FORTRA /NOLINE PROMIS FORTRA /NOLINE PROM3 FORTRA /NOLINE HEXMAT ! LIBR/CREATE/PROMPT PRMLIB PRMDRV,PROM1 PROM2,PROMIS,PROM3,HEXMAT,BITS,STRLIB // ! LINK PROM,PRMLIB