Sources Esope | Cast3M

gamcaf
C GAMCAF    SOURCE    CHAT      05/01/13    00:15:23     5004
      SUBROUTINE GAMCAF(SI,DSI,GAM)
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)
C
C--------------------------------------------
C     CETTE ROUTINE  PERMET DE CALCULER     |
C     GAMMA POUR ARRIVER SUR LE CRITERE     |
C     DE COMPRESSION                        |
C--------------------------------------------
C
      GAM=0.D0
      IF(DSI.EQ.0.D0) GOTO 10
      GAM=-SI/DSI
   10 CONTINUE
      IF(GAM.LT.0.D0) GAM=0.D0
      IF(GAM.GT.1.D0) GAM=1.D0
      RETURN
      END