SUBROUTINE PRIN RETURN END