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