Group: comp.lang.fortran · Group Profile · Search for Res10 in comp.lang.fortran
Author: andrea.m
Date: Oct 2, 2007 09:28
... code, quadpack.f90) 7972 do k = 1, 5 7973 absc = hlgth*x1(k) 7974 fval1 = f(centr+absc) 7975 fval2 = f(centr-absc) 7976 fval = fval1+fval2 7977 res10 = res10+w10(k)*fval ... enddo At some point at the first iteration (k=1), after the execution of line 7975 k becomes equal to 6 (six), and the program stops at 7977 because...
| 
