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