Esope source files

   1 : C TRJCN7    SOURCE    CHAT      05/01/13    03:49:20     5004           
   2 :       SUBROUTINE TRJCN7(TTC,IZVIT)
   3 : CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
   4 : C
   5 : C        CE SOUS PROGRAMME CONTROLE LA COHERENCE ENTRE LE TEMPS
   6 : C        ETUDIE ET LES TEMPS AUQUELS LES VITESSES SONT DONNEES
   7 : C        TTC   TEMPS ETUDIE
   8 : C        IZVIT POINTEUR DU SEGMENT  DES VITESSES OU FLUX
   9 : C
  10 : CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
  11 :       IMPLICIT INTEGER(I-N)
  12 :        IMPLICIT REAL*8 (A-H,O-Z)
  13 :       SEGMENT IZVIT 
  14 :            REAL*8 TEMTRA(NVIPT)
  15 :            INTEGER IPUN(NBS),IDUN(NBS),IPVPT(NVIPT),IFORML
  16 :       ENDSEGMENT
  17 : C             IDUN(I) nombre d elements avant le sous maillage I
  18 : C             IPVPT  pointeurs de izvpt pour chaque pas de temps
  19 :       SEGMENT IZVPT
  20 :            INTEGER IPUN1(NBS),IPUMAX
  21 :       ENDSEGMENT
  22 : C
  23 :       SEGACT IZVIT
  24 :       NVIPT= TEMTRA(/1)
  25 :       IF(NVIPT.NE.1)THEN
  26 : C                CAS  TRANSITOIRE
  27 :             IF(TTC.LT.TEMTRA(1))THEN
  27 :                  CALL ERREUR(-270)
  27 :                  CALL ERREUR(21)
  28 :                  RETURN
  29 :             ENDIF
  30 :             IF(TTC.GT.TEMTRA(NVIPT))THEN
  30 :                  CALL ERREUR(-270)
  30 :                  CALL ERREUR(21)
  31 :                  RETURN
  32 :             ENDIF
  33 :       ENDIF
  34 :       SEGDES IZVIT
  35 :       RETURN
  36 :       END
  37 :  
  38 :