C 
C 
C     INTEGER FUNCTION ADMOD(DIVID,DIVIS)
C 
C     IMPLICIT INTEGER*4 (A-Z)
C 
C     MOD=DIVID-((DIVID/DIVIS)*DIVIS)
C     RETURN
C     END
C 
C 
C     INTEGER FUNCTION ADMIN(MINA,MINB)
C 
C     IMPLICIT INTEGER*4 (A-Z)
C 
C     ADMIN=MINA
C     IF(MINB.LT.ADMIN) ADMIN=MINB
C     RETURN
C     END
C 
C 
C     INTEGER FUNCTION ADMAX(MAXA,MAXB)
C 
C     IMPLICIT INTEGER*4 (A-Z)
C 
C     ADMAX=MAXA
C     IF(MAXB.GT.ADMAX) ADMAX=MAXB
C     RETURN
C     END
C 
C 
C     INTEGER FUNCTION ABVAL(VAL)
C 
C     IMPLICIT INTEGER*4 (A-Z)
C 
C     IF(VAL.LT.0) VAL=-VAL
C     ABVAL=VAL
C     RETURN
C     END
C 
C 
      FUNCTION ISHFT(N,I)
C 
      IMPLICIT INTEGER*4 (A-Z)
      NN=N
      IF(I) 10,20,30
C 
 10   DO 15 II=1,-I
      NN=NN/2
15    CONTINUE
      ISHFT=NN
      RETURN
 20    ISHFT=NN
      RETURN
 30   DO 35 II=1,I
      NN=NN+NN
35    CONTINUE
      ISHFT=NN
      RETURN
      END