FUNCTION PILGETSTRING(NAME, RESULT) CHARACTER*(*) :: NAME CHARACTER*(*) :: RESULT INTEGER :: PILGETSTRING