COMPLEX C0,C1,C2,C3,C4,C5,C6
      LOGICAL F,G,H
      DOUBLE PRECISION D0,D1,D2,D3,D4,D5
      CHARACTER*4 CHR0,CHR1
      CHARACTER*10 C
      I=4
      J=-6
      WRITE(6,2)I,J
    2 FORMAT(' I=',I6,'  J=',I6)
      X=2.4
      XX=0.0
      Y=-5.8
      WRITE(6,3)X,Y,XX
    3 FORMAT(' X=',F6.2,'  Y=',F6.2,' XX=',F6.2)
      D0=1.0123D0+.456789D-4
      D1=D0-2
      WRITE(6,4)D0,D1
   4  FORMAT(' D0=',F13.10,' D1=',F13.10)
      CHR0='4567'
      C='1234567890'
      WRITE(6,5)CHR0,C
    5 FORMAT(' CHRO=',A2,' C=',A10)
      C0=(-0.6,1.1)
      C1=(2.4,-3.6)
      WRITE(6,6)C0,C1
    6 FORMAT(' CO=',2F6.2,'  C1=',2F6.2)
      WRITE(6,1)
    1 FORMAT(' THE FOLLOWING FNS MAY BE PASSED AS PARAMETERS OR CALLED D
     1IRECTLY AS BELOW')
      K=IABS(I)
      L=IABS(J)
      Z=ABS(X)
      W=ABS(Y)
      D2=DABS(D0)
      V=CABS(C0)
      WRITE(6,10) K,L,Z,W,D2,V
   10 FORMAT(' IABS=',2I6/' ABS=',2F6.2/' DABS=',F13.10/' CABS=',F6.2)
      K=MOD(I,J)
      Z=AMOD(Y,X)
      D2=DMOD(D1,D0)
      WRITE(6,20) K,Z,D2
   20 FORMAT(' MOD=',I6/' AMOD=',F6.2,/' DMOD=',F14.10)
      K=ISIGN(I,J)
      L=ISIGN(J,I)
      Z=SIGN(X,Y)
      W=SIGN(Y,X)
      D2=DSIGN(D0,D1)
      D3=DSIGN(D1,D0)
      WRITE(6,30) K,L,Z,W,D2,D3
   30 FORMAT(' ISIGN=',2I6/' SIGN=',2F6.2,/' DSIGN=',2F14.10)
      K=NINT(X)
      L=NINT(Y)
      M=NINT(D0)
      WRITE(6,40) K,L,M
   40 FORMAT(' NINT=',3I6)
      Z=AINT(X)
      W=AINT(Y)
      D2=DINT(D1)
      WRITE(6,50) Z,W,D2
   50 FORMAT(' AINT=',2F6.2,/' DINT=',F14.10)
      Z=ANINT(X)
      W=ANINT(Y)
      D2=DNINT(D0)
      WRITE(6,60) Z,W,D0
   60 FORMAT(' ANINT=',2F6.2,/' DNINT=',F14.10)
      Z=SQRT(X)
      C2=SQRT(C0)
      D2=SQRT(D0)
      WRITE(6,660)Z,C2,D2
      Z=EXP(X)
      C2=CEXP(C0)
      D2=DEXP(D0)
      WRITE(6,670)Z,C2,D2
      Z=ALOG(X)
      C2=CLOG(C0)
      D2=DLOG(D0)
      WRITE(6,680)Z,C2,D2
      Z=ALOG10(X)
      D2=DLOG10(D0)
      WRITE(6,690)Z,D2
      Z=SIN(X)
      C2=CSIN(C0)
      D2=DSIN(D0)
      WRITE(6,700)Z,C2,D2
      Z=COS(X)
      C2=CCOS(C0)
      D2=COS(D0)
      WRITE(6,710)Z,C2,D2
      Z=TAN(X)
      D2=DTAN(D0)
      WRITE(6,720)Z,D2
      Z=ASIN(XX)
      D2=DASIN(D1)
      W=ACOS(XX)
      D3=DACOS(D1)
      U=ATAN(X)
      D4=DATAN(D0)
      T=ATAN2(Z,W)
      D5=DATAN2(D0,D1)
      WRITE(6,730)Z,W
      WRITE(6,735)D2,D3
      WRITE(6,740)U,T
      WRITE(6,745)D4,D5
      Z=SINH(X)
      D2=DSINH(D0)
      W=COSH(X)
      D3=DCOSH(D0)
      T=TANH(X)
      D4=DTANH(D0)
      WRITE(6,750)Z,W,T
      WRITE(6,755)D2,D3,D4
  660 FORMAT(' SQRT=',F6.2,' CSQRT=',2F6.2,' DSQRT=',F14.10)
  670 FORMAT(' EXP=',F6.2,' CEXP=',2F6.2,' DEXP=',F14.10)
  680 FORMAT(' ALOG=',F6.2,' CLOG=',2F6.2,' DLOG=',F14.10)
  690 FORMAT(' ALOG10=',F6.2,' DLOG10=',F14.10)
  700 FORMAT(' SIN=',F6.2,' CSIN=',2F6.2,' DSIN=',F14.10)
  710 FORMAT(' COS=',F6.2,' CCOS=',2F6.2,' DCOS=',F14.10)
  720 FORMAT(' TAN=',F6.2,' DTAN=',F14.10)
  730 FORMAT(' ASIN=',F6.2,' ACOS=',F6.2)
  735 FORMAT(' DASIN=',F14.10,' DACOS=',F14.10)
  740 FORMAT(' ATAN=',F6.2,' ATAN2=',F6.2)
  745 FORMAT(' DATAN=',F14.10,' DATAN2=',F14.10)
  750 FORMAT(' SINH=',F6.2,' COSH=',F6.2,' TANH=',F6.2)
  755 FORMAT(' DSINH=',F14.10,' DCOSH=',F14.10,' DTANH=',F14.10)
      K=IDIM(I,J)
      L=IDIM(J,I)
      Z=DIM(X,Y)
      W=DIM(Y,X)
      D2=DDIM(D0,D1)
      WRITE(6,70) K,L,Z,W,D2
   70 FORMAT(' IDIM=',2I6/' DIM=',2F6.2/' DDIM=',F14.10)
      I=LEN(C)
      J=INDEX(C,CHR0)
      WRITE(6,110) I,J
  110 FORMAT(' LEN=',I6/' INDEX=',I6)
      Z=AIMAG(C1)
      C2=CONJG(C1)
      WRITE(6,120) Z,C2
  120 FORMAT(' AIMAG=',F6.2/' CONJG=',2F6.2)
      STOP 'INTRINS'
      END