Lines Matching refs:BY1
1184 BY1=A0*(PX*DSIN(XK)+QX*DCOS(XK))
1187 BY0=BY1
1202 TTY=2.0D0*G1*BY0/(X*X)-G0*BY1/X
3470 SUBROUTINE JY01A(X,BJ0,DJ0,BJ1,DJ1,BY0,DY0,BY1,DY1) argument
3497 BY1=-1.0D+300
3540 40 BY1=RP2*(EC*BJ1-1.0D0/X-0.25D0*X*CS1)
3586 BY1=CU*(P1*DSIN(T2)+Q1*DCOS(T2))
3590 DY0=-BY1
3591 DY1=BY0-BY1/X
4081 BY1=R2P*((EC-1.0D0)*BJ1-BJ0/X-4.0D0*SV/S0)
4083 IF (1.GE.NMIN) BY(1-NMIN)=BY1
4113 BY1=CU*(P1*DSIN(T2)+Q1*DCOS(T2))
4115 IF (1.GE.NMIN) BY(1-NMIN)=BY1
4125 BYK=2.0D0*(K-1.0D0)*BY1/X-BY0
4127 BY0=BY1
4128 45 BY1=BYK
4286 CALL JY01B(X,BJ0,DJ0,BJ1,DJ1,BY0,DY0,BY1,DY1)
4290 BY(1)=BY1
11139 SUBROUTINE JY01B(X,BJ0,DJ0,BJ1,DJ1,BY0,DY0,BY1,DY1) argument
11163 BY1=-1.0D+300
11184 BY1=((((((((.6535773D-3*T2-.0108175626D0)*T2
11189 BY1=2.0D0/PI*DLOG(X/2.0D0)*BJ1+BY1
11207 BY1=A0*(P1*DSIN(TA1)+Q1*DCOS(TA1))
11211 DY0=-BY1
11212 DY1=BY0-BY1/X
11903 & BY1(0:251),DY1(0:251),BY2(0:251),DY2(0:251)
11930 CALL JYNB(KM+1,U1,NM,BJ1,DJ1,BY1,DY1)