C     .TITLE ATEST
C
C  28 MAY 73 - PAUL HENDERSON
C
C  PROGRAM TO TEST RESTRUCTURED .ARITH
C
      REAL*8 DLOG,DEXP,D1,D2,DD1,DD2
      REAL*4 A,B,C
C
   1  A=20.
      B=5.
      C=1.25
      D1=B
      D2=C
      XA=ALOG10(A)
      XB=ALOG(B)
      XC=EXP(C)
      DD1=DLOG(D1)
      DD2=DEXP(D2)
      WRITE (4,*) A,XA,B,XB
      WRITE (4,*) C,XC
      WRITE (4,*) D1,DD1,D2,DD2
      STOP 7
      END