SUBROUTINE SUFFIX ( IFILE, NCHM, ISUFX, NCHS )

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