C     .TITLE ISIGN
C
C   4 AUG 74 - J.A. SMITH
C
      FUNCTION ISIGN (I,J)
      ISIGN = IABS (I)
      IF (J) 1,2,2
   1  ISIGN = -ISIGN
   2  RETURN
      END