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