1      SUBROUTINE TYPE_TERM(ITYP)
2      INCLUDE 'Parametres.f'
3      IF (HI_PLANE.EQ.0) THEN
4        ITYP = 0
5      ELSE
6        ITYP = 1
7      ENDIF
8      END
9