Parent Directory | Revision Log | Revision Graph | Patch
revision 1.8 by dimitri, Mon Oct 20 06:25:16 2003 UTC | revision 1.9 by heimbach, Thu Feb 26 22:30:27 2004 UTC | |
---|---|---|
# | Line 198 c == end of interface == | Line 198 c == end of interface == |
198 | ||
199 | do bj = mybylo(mythid), mybyhi(mythid) | do bj = mybylo(mythid), mybyhi(mythid) |
200 | do bi = mybxlo(mythid), mybxhi(mythid) | do bi = mybxlo(mythid), mybxhi(mythid) |
201 | do j = 1, sny | do j = 1-oly, sny+oly |
202 | do i = 1, snx | do i = 1-olx, snx+olx |
203 | genfld(i,j,bi,bj) = genconst | genfld(i,j,bi,bj) = genconst |
204 | gen0(i,j,bi,bj) = 0. _d 0 | gen0(i,j,bi,bj) = genconst |
205 | gen1(i,j,bi,bj) = 0. _d 0 | gen1(i,j,bi,bj) = genconst |
206 | enddo | enddo |
207 | enddo | enddo |
208 | enddo | enddo |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |