Esope source files

   1 : C TRJTPT    SOURCE    CHAT      05/01/13    03:51:29     5004           
   2 :       SUBROUTINE TRJTPT(IZVIT,TTEMP,IVPT)
   3 : C*****************************************************************
   4 : C     POSITIONNEMENT DANS LE TABLEAU DES TEMPS
   5 : C     ENTREES:
   6 : C              IZVIT POINTEUR DU SEGMENT DES VITESSES OU FLUX
   7 : C              TTEMP TEMPS CONSIDERE
   8 : C              IVPT NUMERO DU PAS DE TEMPS A PARTIR DUQUEL
   9 : C                     ON VA FAIRE LA RECHERCHE
  10 : C     SORTIES:
  11 : C              IVPT NUMERO DU PAS DE TEMPS DIRECTEMENT SUPERIEUR
  12 : C                     AU TEMPS CONSIDERE ( 1 EN PERMANENT )
  13 : C    LE SEGMENT IZVIT EST SUPPOSE ACTIF
  14 : C *****************************************************************
  15 :       IMPLICIT INTEGER(I-N)
  16 :       IMPLICIT REAL*8 (A-H,O-Z)                                                 
  17 : C                                                                               
  18 : C                                                                               
  19 :       SEGMENT IZVIT 
  20 :            REAL*8 TEMTRA(NVIPT)
  21 :            INTEGER IPUN(NBS),IDUN(NBS),IPVPT(NVIPT),IFORML
  22 :       ENDSEGMENT
  23 : C             IDUN(I) nombre d elements avant le sous maillage I
  24 : C             IPVPT  pointeurs de izvpt pour chaque pas de temps
  25 :       SEGMENT IZVPT
  26 :            INTEGER IPUN1(NBS),IPUMAX
  27 :       ENDSEGMENT
  28 : C
  29 :       NIVPT=TEMTRA(/1)
  30 :       II2=IVPT
  31 :       DO 10 I=II2,NIVPT
  32 :       IVPT=I
  33 :       IF(TTEMP.LE.TEMTRA(I)) GO TO 12
  34 :    10 CONTINUE
  35 :    12 CONTINUE
  36 :       RETURN
  37 :       END
  38 :  
  39 :