PROGRAM SAMPLE
      COMPLEX*16 A,B,Z,conhyp,chf
      INTEGER lnconhyp,IP
      DOUBLE PRECISION AR,AI
*     
*     OPEN (5,FILE='DATA',STATUS='OLD')
      READ (5,*) A
      write (6,*) 'A= ',A
      READ (5,*) B
      WRITE (6,*) ' B= ',B
      READ (5,*) Z
      WRITE (6,*) ' Z= ',Z
      READ (5,*) lnchf
      WRITE (6,*) ' lnchf= ',lnchf
      READ (5,*) IP
      WRITE (6,*) ' IP= ',IP
      chf = conhyp(A,B,Z,LNCHF,IP)
      IF (lnconhyp .EQ. 1) chf=EXP(chf)
      WRITE (6,300) 
      WRITE (6,301) chf
      AR=2.31145634403D-12
      AI=-1.96169649635D-11
      WRITE (6,302) AR,AI
  300 FORMAT (32X,'REAL PART',16X,'IMAG PART')
  301 FORMAT (1X,' RESULT FROM CONHYP=',3X,1P,2D25.11)
  302 FORMAT (1X,' EXPECTED RESULT=',6X,1P,2D25.11)
      STOP
      END