Parent Directory | Revision Log | Revision Graph | Patch
revision 1.1 by afe, Thu Jun 24 20:25:44 2004 UTC | revision 1.2 by jmc, Wed Jul 7 18:34:07 2004 UTC | |
---|---|---|
# | Line 46 C i,j :: loop indices | Line 46 C i,j :: loop indices |
46 | INTEGER i,j | INTEGER i,j |
47 | CEOP | CEOP |
48 | ||
49 | DO j=1-Olx,sNy+Oly-1 | DO j=1-Oly,sNy+Oly-1 |
50 | DO i=1-Olx+1,sNx+Olx | DO i=1-Olx+1,sNx+Olx |
51 | if (yC(i,j,bi,bj).GT. 0) then | if (yC(i,j,bi,bj).GT. 0) then |
52 | uMetricTerms(i,j) = | uMetricTerms(i,j) = |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |