### 18.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 )

Release 18.2 - © ANSYS, Inc. All rights reserved.