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