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