$STORAGE: 2
      INTEGER FUNCTION ISGN(IARG)
      INTEGER*2 IARG
      IF(IARG.EQ.0)ISGN=0
      IF(IARG.GT.0)ISGN=1
      IF(IARG.LT.0)ISGN=-1
      RETURN
      END
