INTRINSIC AINT,DINT,ANINT,DNINT,NINT,IDNINT,IABS,ABS,DABS
      INTRINSIC CABS,MOD,AMOD,DMOD,ISIGN,SIGN,DSIGN,IDIM,DIM,DDIM,DPROD
      INTRINSIC LEN,INDEX,AIMAG,CONJG
      CALL SUB(AINT,DINT,ANINT,DNINT,NINT,IDNINT,IABS,ABS,DABS,CABS,MOD,
     1 AMOD,DMOD,ISIGN,SIGN,DSIGN,IDIM,DIM,DDIM,DPROD,LEN,
     2 CONJG)
      STOP 'MAIN'
      END
      SUBROUTINE SUB(ZAINT,ZDINT,ZANINT,ZDNINT,MNINT,MIDNINT,MIABS,ZABS,
     1 ZDABS,ZCABS,MMOD,ZAMOD,ZDMOD,MISIGN,ZSIGN,ZDSIGN,MIDIM,ZDIM,
     2 ZDDIM,ZDPROD,MLEN,CCONJG)
      CHARACTER C*10
      COMPLEX C0,C1,C2,C3,C4,C5,C6,CCONJG
      CHARACTER*4 CHAR1,CS
      DOUBLEPRECISION XX,YY,ZZ,ZDINT,ZDNINT,ZDABS,ZDMOD,ZDSIGN,ZDDIM
      DOUBLEPRECISION ZDPROD
      C0=(-0.6,1.1)
      C1=(2.4,-3.6)
      I=4
      J=-6
      X=2.4
      XX=2.4D0
      YY=-5.8D0
      Y=-5.8
      C='1234567890'
      CS='456'
      K=MIABS(I)
      L=MIABS(J)
      Z=ZABS(X)
      W=ZABS(Y)
      V=ZCABS(C1)
      ZZ=ZDABS(XX)
      write(6,10) k,l,z,w,ZZ
   10 format(' iabs=',2i6/' abs=',2f6.2,' DABS=',F6.2)
      WRITE(6,81)V
   81 FORMAT(' CABS=',F6.2)
      k=Mmod(i,j)
      z=Zamod(y,x)
      ZZ=ZDMOD(YY,XX)
      write(6,20) k,z,ZZ
   20 format(' mod=',i6/' amod=',f6.2,' DMOD= ',F6.2)
      k=Misign(i,j)
      l=Misign(j,i)
      z=sign(x,y)
      w=Zsign(y,x)
      ZZ=ZDSIGN(YY,XX)
      write(6,30) k,l,z,w,ZZ
   30 format(' isign=',2i6/' sign=',2f6.2,' DSIGN= ',F6.2)
      k=Mnint(x)
      l=Mnint(y)
      M=MIDNINT(XX)
      write(6,40) k,l,M
   40 format(' nint=',2i6,' IDNINT=',I6)
      z=Zaint(x)
      w=Zaint(y)
      ZZ=ZDINT(XX)
      write(6,50) z,w,ZZ
   50 format(' aint=',2f6.2,' DINT= ',F6.2)
      z=Zanint(x)
      W=Zanint(y)
      ZZ=ZDNINT(XX)
      write(6,60) z,w,ZZ
   60 format(' anint=',2f6.2, ' DNINT=',F6.2)
      k=Midim(i,j)
      l=Midim(j,i)
      z=Zdim(x,y)
      w=Zdim(y,x)
      ZZ=ZDDIM(YY,XX)
      write(6,70) k,l,z,w,ZZ
   70 format(' idim=',2i6/' dim=',2f6.2,'DDIM=',F6.2)
      ZZ=ZDPROD(X,Y)
      WRITE(6,1)ZZ 
    1 FORMAT('DPROD=',F6.2)
      L=MLEN(C)
      WRITE(6,82) L
   82 FORMAT(' LEN=',I2)
      C3=CCONJG(C1)
      WRITE(6,84) C3
   84 FORMAT(' CONJG=',2F6.2)
      RETURN
      End