program main

c*********************************************************************72
c
cc toms707_test() tests toms707().
c
      complex*16 a
      double precision ai
      double precision ar
      complex*16 b
      complex*16 chf
      complex*16 conhyp
      integer ip
      integer lnchf
      complex*16 z

      write ( *, '(a)' ) ''
      write ( *, '(a)' ) 'toms707_test():'
      write ( *, '(a)' ) '  toms707() evaluates the confluent'
      write ( *, '(a)' ) '  hypergeometric function.'
      write ( *, '(a)' ) ''

      a = dcmplx (  -15.0d+00,  55.0d+00 )
      b = dcmplx (   20.0d+00,  25.0d+00 )
      z = dcmplx ( -100.0d+00, 200.0d+00 )
      lnchf = 0
      ip = 10

      write ( *, * ) ' a = ',a
      write ( *, * ) ' b = ',b
      write ( *, * ) ' z = ',z
      write ( *, * ) ' lnchf = ',lnchf
      write ( *, * ) ' ip = ',ip

      chf = conhyp ( a, b, z, lnchf, ip )

      write ( *, 300 ) chf

      ar =  2.31145634403113d-12
      ai = -1.96169649634905d-11
      write ( *, 301 ) ar, ai
  300 format ( '  Result from conhyp=', 1p, 2d25.12 )
  301 format ( '  Expected result=   ', 1p, 2d25.12 )
c
c  Terminate.
c
      write ( *, '(a)' ) ''
      write ( *, '(a)' ) 'toms707_test():'
      write ( *, '(a)' ) '  Normal end of execution.'

      stop
      end