FUNCTION PILPUTFNAME(NAME, VALUE) CHARACTER*(*) :: NAME CHARACTER*(*) :: VALUE INTEGER :: PILPUTFNAME