DOUBLE PRECISION AA,BB,ZZ
      A= 2.0
      B= 3.0
      I= 2
      J= 3
      AA= 2.0D0
      BB= 3.0D0
      J= 1
      Z= SQRT(A)
      ZZ= DSQRT(AA)
      WRITE(6,*) J,Z,ZZ
C
      J= 2
      Z= ALOG(A)
      ZZ= DLOG(AA)
      WRITE(6,*) J,Z,ZZ
C
      J= 3
      Z= EXP(A)
      ZZ= DEXP(AA)
      WRITE(6,*) J,Z,ZZ
C
      J= 4
C
      Z= (A)**B
      ZZ= (AA**BB)
      WRITE(6,*) J,Z,ZZ
      Z= A**N
      ZZ= AA**N
      WRITE(6,*) J,Z,ZZ
C
      K= I**J
      WRITE(6,*) J,K
C
      J= 5
      Z= SIN(A)
      ZZ= DSIN(AA)
      WRITE(6,*) J,Z,ZZ
      Z= COS(A)
      ZZ= DCOS(AA)
      WRITE(6,*) J,Z,ZZ
C
      J= 6
      Z= TAN(A)
      ZZ= DTAN(AA)
      WRITE(6,*) J,Z,ZZ
      Z= COTAN(A)
      ZZ= DCOTAN(AA)
      WRITE(6,*) J,Z,ZZ
C
      J= 7
      Z= ASIN(0.25)
      ZZ= DASIN(0.25D0)
      WRITE(6,*) J,Z,ZZ
      Z= ACOS(0.25)
      ZZ= DACOS(0.25D0)
      WRITE(6,*) J,Z,ZZ
C
      J= 8
      Z= ATAN(A)
      ZZ= DATAN(AA)
      WRITE(6,*) J,Z,ZZ
      Z= ATAN2(A,B)
      ZZ= DATAN2(AA,BB)
      WRITE(6,*) J,Z,ZZ
C
      J= 9
      Z= SINH(A)
      ZZ= DSINH(AA)
      WRITE(6,*) J,Z,ZZ
      Z= COSH(A)
      ZZ= DCOSH(AA)
      WRITE(6,*) J,Z,ZZ
C
      J= 10
      Z= TANH(A)
      ZZ= DTANH(AA)
      WRITE(6,*) J,Z,ZZ
C
      J= 111
      Z= GAMMA(A)
      ZZ= DGAMMA(AA)
      WRITE(6,*) J,Z,ZZ
C
      J= 112
      Z= ALGAMA(0.25*A)
      ZZ= DLGAMA(0.25*AA)
      WRITE(6,*) J,Z,ZZ
C
      J= 113
      Z= ERF(A)
      ZZ= DERF(AA)
      WRITE(6,*) J,Z,ZZ
C
      J= 114
      Z= ERFC(A)
      ZZ= DERFC(AA)
      WRITE(6,*) J,Z,ZZ
      STOP
      END