SUBROUTINE T14P1 RETURN END