Parent Directory | Revision Log | Revision Graph | Patch
revision 1.37 by edhill, Fri Mar 10 16:09:31 2006 UTC | revision 1.38 by edhill, Fri Aug 4 14:57:36 2006 UTC | |
---|---|---|
# | Line 174 C Check that the Variable Type exist | Line 174 C Check that the Variable Type exist |
174 | C Set the bi,bj indicies | C Set the bi,bj indicies |
175 | bis = bi | bis = bi |
176 | bie = bi | bie = bi |
177 | IF (bi .LT. 1) THEN | IF (bi .EQ. 0) THEN |
178 | bis = 1 | bis = 1 |
179 | bie = nSx | bie = nSx |
180 | ELSEIF (bi .LT. 0) THEN | |
181 | bis = -bi | |
182 | bie = -bi | |
183 | ENDIF | ENDIF |
184 | bjs = bj | bjs = bj |
185 | bje = bj | bje = bj |
186 | IF (bj .LT. 1) THEN | IF (bj .EQ. 0) THEN |
187 | bjs = 1 | bjs = 1 |
188 | bje = nSy | bje = nSy |
189 | ELSEIF (bj .LT. 0) THEN | |
190 | bjs = -bj | |
191 | bje = -bj | |
192 | ENDIF | ENDIF |
193 | ||
194 | DO lbj = bjs,bje | DO lbj = bjs,bje |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |