 
      SUBROUTINE CJYHBS(Z,KODE,CJ0,CJ1,CY0,CY1,CH0,CH1)
C
C     WRITTEN BY D.E. AMOS AND S.L. DANIEL
C
C     REFERENCES
C         SLA-73-0262
C
C         NBS HANDBOOK OF MATHEMATICAL FUNCTIONS, AMS 55, BY
C         M. ABRAMOWITZ AND I.A. STEGUN, DECEMBER, 1955, PP. 364, 497.
C
C     ABSTRACT
C         CJYHBS COMPUTES BESSEL FUNCTIONS J/SUB(NU)/(Z), Y/SUB(NU)/(Z),
C         AND STRUVE FUNCTIONS H/SUB(NU)/(Z), FOR COMPLEX Z AND NU=0 OR
C         1. BACKWARD RECURSION IS USED FOR THE J BESSEL FUNCTIONS OF
C         INTEGER ORDER TO SUM THE NEUMANN SERIES FOR THE Y AND H
C         FUNCTIONS FOR 0.LT.CABS(Z).LT.30. FOR CABS(Z).GT.30 THE
C         ASYMPTOTIC EXPANSIONS ARE USED. FOR Z, CABS(Z).GT.0.
C         AND -PI.LT.ARG(Z).LE.PI
C
C     DESCRIPTION OF ARGUMENTS
C
C         INPUT
C           KODE   - A PARAMETER TO SELECT THE PROPER FUNCTION PAIRS
C                    KODE=1 RETURNS J0,J1,Y0,Y1 FUNCTIONS
C                    KODE=2 RETURNS J0,J1,H0,H1 FUNCTIONS
C                    KODE=3 RETURNS J0,J1,Y0,Y1,H0,H1 FUNCTIONS
C           Z      - COMPLEX ARGUMENT, Z.NE.CMPLX(0.,0.)
C                    AND -PI.LT.ARG(Z).LE.PI
C
C         OUTPUT
C           CJ0    - BESSEL FUNCTION J/SUB(0)/(Z), A COMPLEX NUMBER
C           CJ1    - BESSEL FUNCTION J/SUB(1)/(Z), A COMPLEX NUMBER
C           CY0    - BESSEL FUNCTION Y/SUB(0)/(Z), A COMPLEX NUMBER
C           CY1    - BESSEL FUNCTION Y/SUB(1)/(Z), A COMPLEX NUMBER
C           CH0    - STRUVE FUNCTION H/SUB(0)/(Z), A COMPLEX NUMBER
C           CH1    - STRUVE FUNCTION H/SUB(1)/(Z), A COMPLEX NUMBER
C
C     ERROR CONDITIONS
C         ERROR #1, Z=0  ON INPUT, A FATAL ERROR
C         ERROR #2, KODE NOT 1 OR 2 OR 3 ON INPUT, A FATAL ERROR
C
C
C
C     OTHER ROUTINES CALLED: (NONE)
C
 
 
