Esope source files

   1 : C TRJCN2    SOURCE    CHAT      05/01/13    03:49:04     5004           
   2 :       SUBROUTINE TRJCN2(MELEME)
   3 :       IMPLICIT INTEGER(I-N)
   4 :       IMPLICIT REAL*8 (A-H,O-Z)
   5 : CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
   6 : C
   7 : C         CONTROLE QUE LE MAILLAGE MELEME CONVIENT A LA DESCRIPTION
   8 : C         DU LACHER POUR LE CALCUL DES TRAJECTOIRES
   9 : C     ON DOIT AVOIR UN MAILLAGE DE POI1
  10 : C
  11 : CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
  12 : -INC SMELEME
  13 : -INC CCOPTIO
  14 : C
  15 :       SEGACT MELEME
  16 :       NBSOUS=LISOUS(/1)
  17 :       IF(NBSOUS.NE.0)THEN
  18 :            INTERR(1)=MELEME
  18 :            CALL ERREUR(793)
  19 :            RETURN
  20 :       ENDIF
  21 :       IF(ITYPEL.NE.1)THEN
  22 :            INTERR(1)=MELEME
  22 :            CALL ERREUR(793)
  23 :            RETURN
  24 :       ENDIF
  25 : C
  26 :       SEGDES MELEME
  27 :       RETURN
  28 :       END
  29 :  
  30 :