CHARACTER*80 FILENAME COMMON /ALPH/FILENAME