Télécharger la plaquette Cast3M


fr en

Télécharger trjcn7.eso

Retour à la liste

Numérotation des lignes : 

trjcn7

  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
  28.                  CALL ERREUR(-270)
  29.                  CALL ERREUR(21)
  30.                  RETURN
  31.             ENDIF
  32.             IF(TTC.GT.TEMTRA(NVIPT))THEN
  33.                  CALL ERREUR(-270)
  34.                  CALL ERREUR(21)
  35.                  RETURN
  36.             ENDIF
  37.       ENDIF
  38.       SEGDES IZVIT
  39.       RETURN
  40.       END
  41.  
  42.  
  43.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales