### 18.4.10. Real List Example

          REAL RadiusList(100), VelocityList(100)
          INTEGER NSIZE, LENVEC
          CHARACTER*4 CRESLT
          CHARACTER*1 CZ(*)
          INTEGER ITEM
    C
    C Initialization
          DO ITEM = 1, NSIZE
             RadiusList(ITEM) = 0.0
             VelocityList(ITEM) = 0.0
          END DO
    C
    C Assume VelocityList and RadiusList have same,
    C but arbitrary, number of items, up to a limit of 100.
    C
    C Determine number of items, NSIZE
          CALL USER_PEEK_SIZE(
         & 'RadiusList', NSIZE, LENVEC, 'STOP', CRESLT, CZ )
    C
    C Lookup VelocityList(1:NSIZE) and RadiusList(1:NSIZE)
          DO ITEM = 1, NSIZE
             CALL USER_PEEKR( 'RadiusList',
         &    ITEM, RadiusList(ITEM), 'SKIP', CRESLT, CZ )
             CALL USER_PEEKR( 'VelocityList',
         &    ITEM, VelocityList(ITEM), 'SKIP', CRESLT, CZ )
          END DO

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