SUBROUTINE MAIN()
        CALL PHAGEN()
      END SUBROUTINE MAIN