Parent Directory | Revision Log | Revision Graph | Patch
revision 1.8 by heimbach, Sun Mar 25 22:33:55 2001 UTC | revision 1.9 by heimbach, Tue Sep 18 20:30:59 2001 UTC | |
---|---|---|
# | Line 674 C break data flow dependence on diff | Line 674 C break data flow dependence on diff |
674 | ||
675 | do ki = 1, Nr | do ki = 1, Nr |
676 | do i = 1, imt | do i = 1, imt |
677 | if (kmtj(i) .EQ. 0 ) then | if (kmtj(i) .LE. 1 ) then |
678 | diffus(i,ki,1) = 0. | diffus(i,ki,1) = 0. |
679 | diffus(i,ki,2) = 0. | diffus(i,ki,2) = 0. |
680 | elseif (ki .GE. kmtj(i)) then | elseif (ki .GE. kmtj(i)) then |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |