Sources Esope | Cast3M

ksig
C KSIG      SOURCE    CHAT      05/01/13    01:07:52     5004
      FUNCTION KSIG(F,EPS)
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8 (A-H,O-Z)
        IF (F.GT.EPS) THEN
          KSIG = 1
          RETURN
        ELSE
          IF (F.LT.-EPS) THEN
            KSIG = -1
            RETURN
          ELSE
            KSIG = 0
            RETURN
          ENDIF
        ENDIF
      END