Esope source files

   1 : C KSIG      SOURCE    CHAT      05/01/13    01:07:52     5004           
   2 :       FUNCTION KSIG(F,EPS)
   3 :       IMPLICIT INTEGER(I-N)
   4 :       IMPLICIT REAL*8 (A-H,O-Z)                                                 
   5 :         IF (F.GT.EPS) THEN
   6 :           KSIG = 1
   7 :           RETURN
   8 :         ELSE
   9 :           IF (F.LT.-EPS) THEN
  10 :             KSIG = -1
  11 :             RETURN
  12 :           ELSE
  13 :             KSIG = 0
  14 :             RETURN
  15 :           ENDIF
  16 :         ENDIF
  17 :       END
  18 :