!
!$Author: joelevin $
!$Date: 2011-03-24 11:33:26 -0500 (Thu, 24 Mar 2011) $
!$Revision: 11724 $
!$HeadURL: https://svn.weru.ksu.edu/weru/weps1/trunk/weps.src/src/util/lib_math/test/tstmath.for $
!
c $Header: /weru/cvs/weps/weps.src/util/math/test/tstmath.for,v 1.1.1.1 1999-03-12 17:05:32 wagner Exp $
c
c     program tsttutil2.for

      integer i

      real erf,z

C     -------------------------------------------------------------------------
C
      do 20 i=0, 1500 
         z = z + .001
         print*, z, erf(z)
20    continue

      stop
      end