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