FUNCTION PILGETREALVECTOR(NAME, NELEM, RESULT) CHARACTER*(*) :: NAME INTEGER :: NELEM REAL*8 :: RESULT INTEGER :: PILGETREALVECTOR