# XI                    HANKEL_TRANSFORM(XI)
  0.500000000E+01       0.208245531E-01
OUTINE TO   H A N K E L.

 AS AN EXAMPLE, WE WILL NUMERICALLY HANKEL TRANSFORM
 FUN(X) = X**(NU+1/2) FOR X < 1 AND = 0 ELSEWHERE
 AT POSITION XI FOR TRANSFORMATION ORDER NU.
 THE ANALYTICAL SOLUTION IS
 HT(FUN(X),NU,XI) = XI**(-1/2)*J(NU+1,XI)
 (J(NU,X) IS THE BESSEL FUNCTION OF THE FIRST KIND.)

 MESSAGE DRIVER: GIVE NAME FOR PROTOCOL FILE
 (E.G. hankel.err):
 MESSAGE DRIVER: ERROR LOG FILE =res.err                                                                         

 MESSAGE DRIVER: GIVE NAME FOR OUTPUT FILE
 (E.G. hankel.out):
 MESSAGE DRIVER: RESULT FILE =res                                                                             

 FUNCTION *** FUN(X) *** IS EITHER CODED WITHIN
   FUNCTION *** DHFUNC *** = 1
 OR
 TABULATED IN A FILE = 2 (VERY SLOW!)
 OR
 PASSED AS TABLE VIA CALL TO HANKEL = 3 (SLOW!)
 OR 
 STOP = 0
 GIVE CHOICE (1 OR 2 OR 3 OR 0):


 GIVE THE ORDER *** NU ***:
 (E.G. 1.0):


 GIVE THE ARGUMENT *** XI ***:
 (E.G. 5.0):



 ####################################
 MESSAGE HANKEL: BEGIN OF CALCULATION
 ####################################

 *** PROGRAM HANKEL *** 
 WRITTEN BY THOMAS WIEDER
 E-MAIL: WIEDER@HRZ.UNI-KASSEL.DE
 DATE OF FIRST VERSION: A.D. 1998
 DATE OF LAST CHANGE: FEBRUARY 1999                          

 MESSAGE HANKEL:
 WILL TRY TO TRANSFORM *** FUNCTION FUNC ***!

 MESSAGE HANKEL: WILL TRY NUMERICAL HANKEL TRANSFORM...PLEASE WAIT!

 MESSAGE HANKEL:
     ARGUMENT XI              ORDER NU            NUMERICAL HANKEL TRANSFORM HT:
   0.500000000D+01          0.100000000D+01          0.208245531D-01

 MESSAGE HANKEL: FOR ERROR MESSAGES LOOK INTO FILE:
res.err                                                                         
 MESSAGE HANKEL: FOR RESULTS LOOK INTO FILE:
res                                                                             
 IERR1 =     0

 MESSAGE HANKEL: SUCCESSFUL END OF CALCULATION!
 NO ERRORS HAVE BEEN DETECTED DURING CALCULATION! GOOD BYE!

 DO YOU WANT ANOTHER CALCULATION = 1
                            STOP = 2
 GIVE 1 OR 2:


 A PROTOCOL HAS BEEN WRITTEN INTO A FILE,
 RESULTS HAVE BEEN WRITTEN INTO A FILE.

 GOODBYE!
