FUNCTION PILGETREAL4VARVECTOR(NAME, NELEM, RESULT) CHARACTER*(*) :: NAME INTEGER :: NELEM REAL*4 :: RESULT INTEGER :: PILGETREAL4VARVECTOR