CHARACTER*(80) InputFile
      CHARACTER*4    CRESLT
      CHARACTER*1    CZ(*)
C
C Look up command file parameter InputFile
C The run will stop if the data has not been provided.
C
      CALL USER_PEEKCS(
     & 'InputFile', InputFile, 'STOP', CRESLT, CZ )