Sources Esope | Cast3M

xinflu
C XINFLU    SOURCE    CHAT      05/01/13    04:13:35     5004
        FUNCTION XINFLU(R,ZI)
      IMPLICIT INTEGER(I-N)
       IMPLICIT REAL*8(A-H,O-Z)
C
C
        REAL*8 R,ZI,RES,INT,INFLUEN
C
        XINT=ZI/2.
        IF (R.LT.XINT) THEN
           RES=20.
        ELSE
             IF (R.GE.zi) THEN
                RES=0.
             ELSE
                RES=-40./ZI*R+40.
             ENDIF
        ENDIF
c        write(6,*)'res',res
        XINFLU=RES
        RETURN
        END