Argument Definitions (+ indicates altered content)

CHARACTER*(*) +IFILE, ISUFX INTEGER NCHM, NCHS

Description

Append a suffix to the file name Search for 1st blank or '.'

Source file:	suffix.f

Local Variables (+ indicates altered content)

CHARACTER +ICH INTEGER +I