C     .TITLE ERRTST
C
C   9 APR 73 - PAUL HENDERSON
C
   1  CALL OPEN ('DATA  SRC')
      READ (1,*) NAME
      DO 2 K=1,5
      A=AMAX1 (5.)
      BE=-4
      B=0**BE
      C=ATAN (0.,0.)
      WRITE (4,*) 'AMAX',A,B,C
   2  CONTINUE
      DO 3 K=1,3
      OFLO=1.23E45*4.56E30
   3  CONTINUE
      STOP 7
      END