19.4.8. Real Value Example

      REAL InletTemperature
      CHARACTER*4 CRESLT
      CHARACTER*1 CZ(*)
C
C Set a default value
      InletTemperature = 298.0
C
C Look up command file parameter InletTemperature
C but continue with default value if none provided.
C Only one value is expected, so specify JADRES=1.
      CALL USER_PEEKR(
     & 'InletTemperature', 1, InletTemperature, 'SKIP', CRESLT, CZ )