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