Esope source files

   1 : C OTTOFU    SOURCE    CHAT      05/01/13    02:07:39     5004           
   2 :       SUBROUTINE OTTOFU(XINVL,XLTR,WRUPT,BTR,BILIN,SBILI,W,WMAX,
   3 :      &                  SMAX,PENTE,IC)
   4 :       IMPLICIT INTEGER(I-N)
   5 :       IMPLICIT REAL*8(A-H,O-Z)
   6 : -INC CCOPTIO
   7 : *
   8 :       DIMENSION XLTR(3),WRUPT(3),BILIN(3),SBILI(3),WMAX(3)
   9 :       DIMENSION XINVL(3),W(3)
  10 :       DIMENSION SMAX(*),PENTE(*)
  11 : *
  12 :       IF(XINVL(IC).EQ.0.D0) THEN
  13 :          SMAX(IC)=XLTR(IC)
  14 :          PENTE(IC)=0.D0
  15 :          GO TO 10
  16 :       ENDIF
  17 : 
  18 : *ZZZZZZZZ
  19 : *    ATTENTION LE TEST CI DESSOUS EST TRES FIN
  20 : *ZZZZZZZZ
  21 : 
  22 : 
  23 :       IF(WMAX(IC).GE.WRUPT(IC)) THEN
  24 :          SMAX(IC)=0.D0
  25 :          PENTE(IC)=0.D0
  26 :          GO TO 10
  27 :       ELSE
  28 :          IF(BILIN(IC).GT.0.D0.AND.WMAX(IC).LT.BILIN(IC)) THEN
  29 :             SMAX(IC)=XLTR(IC)+WMAX(IC)*(SBILI(IC)-XLTR(IC))/BILIN(IC)
  30 :             PENTE(IC)=(SBILI(IC)-XLTR(IC))/BILIN(IC)
  31 :          ELSE
  32 :             SMAX(IC)=SBILI(IC)*(WRUPT(IC)-WMAX(IC))/
  33 :      &                                    (WRUPT(IC)-BILIN(IC))
  34 :             PENTE(IC)=-SBILI(IC)/(WRUPT(IC)-BILIN(IC))
  35 :          ENDIF
  36 :       ENDIF
  37 :  10   CONTINUE
  38 : *
  39 : 
  40 :       RETURN
  41 :       END
  42 :  
  43 :  
  44 :