| H A D | intrinsic-unix-bessel.f | 9 double precision dx, da variable 26 da = a 28 call c_d(BESJ0(dx),da,'BESJ0(double)') 29 call c_d(DBESJ0(dx),da,'DBESJ0(double)') 33 da = a 35 call c_d(BESJ1(dx),da,'BESJ1(double)') 36 call c_d(DBESJ1(dx),da,'DBESJ1(double)') 40 da = a 44 call c_d(BESJN(i,dx),da,'BESJN(integer,double)') 45 call c_d(BESJN(j,dx),da,'BESJN(integer*2,double)') [all …]
|