subroutine openf(UNIT,FNAME) c c Associate a file specified by FNAME with a Fortran UNIT number. c FNAME is an Aldes token. c integer UNIT, FNAME character*50 value, astofs value = astofs(FNAME, .TRUE.) open(UNIT, file = value ) rewind UNIT return end