|
|
 |
| found 182 articles for 0.001 sec |
  |
Group: comp.lang.fortran · Group Profile · Search for Summe in comp.lang.fortran
Author: Fatemeh
Date: Sep 13, 2008 04:16
...maxexponent(x)/2 INTEGER(I4B) :: j,jsum,m REAL(SP) :: ax,bj,bjm,bjp,summ,tox call assert(n = 2, 'bessj_s args') ax=abs(x) if (ax*...=2*((n+int(sqrt(real(IACC*n,sp))))/2) bessj_s=0.0 jsum=0 summ=0.0 bjp=0.0 bj=1.0 do j=m,1,-1 bjm=j...
|
| Show full article (2.37Kb) · Show article thread |
|
 |
|
1 ·
2 ·
3 ·
4 ·
5 ·
6 ·
7 ·
8 ·
9 ·
next |
|
|