TEST OF THE CONTINUED-FRACTION COULOMB & BESSEL PROGRAM - COUL90

             WHEN LAMBDA IS AN INTEGER (L-VALUE) 

          F IS REGULAR AT THE ORIGIN ( X = 0 ) WHILE
          G IS IRREGULAR ( => -INFINITY AT X = 0 )

    L       F(ETA,X,L)       G(ETA,X,L)     D/DX (F)          D/DX (G)

     J,Y Bessels    X =      4.000    XLMIN =    .00    KFN =  2 (CylBess)
    0   -3.9714981D-01   -1.6940739D-02    6.6043328D-02   -3.9792571D-01
    1   -6.6043328D-02    3.9792571D-01   -3.8063898D-01   -1.1642217D-01
     J,Y Bessels    X =      4.000    XLMIN =   1.00    KFN =  2 (CylBess)
    1   -6.6043328D-02    3.9792571D-01   -3.8063898D-01   -1.1642217D-01
  COULFG4 ERROR! IFAI   -1
  SBESJY ERROR! IFAIL   -1
  RICBES ERROR! IFAIL   -1
 ETA =     .000     X =     -1.000    XLMIN =    .00    KFN =  0 (Coulomb)
  COULFG4 ERROR! IFAI   -1
 ETA =     .000     X =       .000    XLMIN =    .00    KFN =  0 (Coulomb)
        The 3 sets of results are COUL90(KFN), SBESJY & (1/X) RICBES         
    0   -3.9714981D-01   -1.6940739D-02    6.6043328D-02   -3.9792571D-01
    0    1.0000000D+00    0.0000000D+00    0.0000000D+00    0.0000000D+00