COMPLEX C0,C1,C2,C3,C4,C5,C6
      DOUBLE PRECISION D0,D1,D2,D3,D4
      CHARACTER*4 CHR0,CHR1
      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)
C      D0=1.0123+.456789D-4
      D0=1.0123D0+.456789D-4
      D1=D0-2
      WRITE(6,4)D0,D1
    4 FORMAT(' D0=',F13.10,' D1=',F13.10)
      CHR0='456'
      WRITE(6,5)CHR0
    5 FORMAT(' CHR0=',A4)
      C0=(-0.6,1.1)
      C1=(2.4,-3.6)
      WRITE(6,6)C0,C1
    6 FORMAT(' C0=',2F6.2,'  C1=',2F6.2)
      WRITE(6,80)
   80 FORMAT(' THE FOLLOWING INTRINSIC FNS CANNOT BE PASSED AS PARAMETER
     1S')
      K=INT(X)
      L=INT(D0)
      M=INT(C0)
      N=IFIX(Y)
      WRITE(6,7)K,L,M,N
   7  FORMAT(' INT= ',4I6)
      Z=REAL(I)
      V=REAL(D0)
      W=REAL(C0)
      WRITE(6,8)Z,V,W
   8  FORMAT(' REAL=',3F6.2)
      D2=DBLE(I)
      D3=DBLE(X)
C      D4=DBLE(C0)
      WRITE(6,9)D2,D3
   9  FORMAT(' DBLE=',2F6.2)
      C2=CMPLX(I,J)
      C3=CMPLX(X,Y)
      C4=CMPLX(D0)
      C5=CMPLX(C0,C1)
      WRITE(6,10)C2,C3,C4,C5
  10  FORMAT(' CMPLX=',4(2F5.2,2X))
      CHR1=CHAR(33)
      WRITE(6,12)CHR1
  12  FORMAT(' CHAR=',A2)
      K=ICHAR(CHR0)
      WRITE(6,11)K
  11  FORMAT(' ICHAR=',I2)
      K=MAX0(I,J)
      Z=AMAX1(X,Y)
      D2=DMAX1(D0,D1)
      W=AMAX0(J,I)
      L=MAX1(Y,X)
      WRITE(6,90) K,Z,D2,W,L
   90 FORMAT(' MAX0=',I6/' AMAX1=',F6.2/' DMAX1=',F14.10/' AMAX0=',F6.2/
     1' MAX1=',I6)
      K=MIN0(I,J)
      Z=AMIN1(X,Y)
      D2=DMIN1(D0,D1)
      W=AMIN0(J,I)
      L=MIN1(Y,X)
      WRITE(6,100) K,Z,D2,W,L
  100 FORMAT(' MIN0=',I6/' AMIN1=',F6.2/' DMIN1=',F14.10/' AMIN0=',F6.2/
     1' MIN1=',I6)
      STOP
      END