Parent Directory | Revision Log | Revision Graph | Patch
revision 1.21 by adcroft, Mon Jun 22 15:26:25 1998 UTC | revision 1.22 by adcroft, Tue Jun 23 02:35:59 1998 UTC | |
---|---|---|
# | Line 203 C-- Set up work arrays that need val | Line 203 C-- Set up work arrays that need val |
203 | K13(i,j,1) = 0. _d 0 | K13(i,j,1) = 0. _d 0 |
204 | K23(i,j,1) = 0. _d 0 | K23(i,j,1) = 0. _d 0 |
205 | K33(i,j,1) = 0. _d 0 | K33(i,j,1) = 0. _d 0 |
206 | KapGM(i,j) = 0. _d 0 | KapGM(i,j) = GMkbackground |
207 | ENDDO | ENDDO |
208 | ENDDO | ENDDO |
209 |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |