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