Esope source files

   1 : C TRJCN4    SOURCE    CHAT      05/01/13    03:49:11     5004           
   2 :       SUBROUTINE TRJCN4(TMIN,TMAX,DELTAT)
   3 : CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
   4 : C
   5 : C        CE SOUS PROGRAMME CONTROLE LA COHERENCE ENTRE L'INTERVALLE
   6 : C        DE TEMPS ET LE PAS
   7 : C        TMIN  TEMPS INITIAL
   8 : C        TMAX  TEMPS MAXIMUM POSSIBLE
   9 : C        DELTAT PAS DE TEMPS
  10 : C
  11 : CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
  12 :       IMPLICIT INTEGER(I-N)
  13 :        IMPLICIT REAL*8 (A-H,O-Z)
  14 :       VINT=TMAX-TMIN
  15 :       S1=SIGN(1.D0 ,VINT)
  16 :       S2=SIGN(1.D0 ,DELTAT)
  17 : C     write(6,*)' s1 s2 ' ,s1,s2
  18 :       IF(S1.NE.S2)THEN
  18 :            CALL ERREUR(481)
  19 :            RETURN
  20 :       ENDIF
  21 :       RETURN
  22 :       END
  23 :  
  24 :