Parent Directory | Revision Log | Revision Graph | Patch
revision 1.3 by jmc, Mon Dec 20 19:07:12 2004 UTC | revision 1.4 by jmc, Mon Jan 3 02:29:34 2005 UTC | |
---|---|---|
# | Line 270 C !LOCAL VARIABLES: | Line 270 C !LOCAL VARIABLES: |
270 | C i,j :: loop indices | C i,j :: loop indices |
271 | INTEGER i, j | INTEGER i, j |
272 | ||
273 | c DO j = 1,jRun | DO j = 1,jRun |
274 | c DO i = 1,iRun | DO i = 1,iRun |
275 | C- jmc: try with fixed ranges, that are known at compiling stage | C- jmc: try with fixed ranges, that are known at compiling stage |
276 | C (might produce a better cash optimisation ?) | C (might produce a better cash optimisation ?) |
277 | DO j = 1,sNy | c DO j = 1,sNy |
278 | DO i = 1,sNx | c DO i = 1,sNx |
279 | cumFld(i,j) = cumFld(i,j) + inpFld(i,j,k,bi,bj) | cumFld(i,j) = cumFld(i,j) + inpFld(i,j,k,bi,bj) |
280 | ENDDO | ENDDO |
281 | ENDDO | ENDDO |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |