Parent Directory | Revision Log | Revision Graph | Patch
revision 1.1 by heimbach, Sun Mar 25 22:33:54 2001 UTC | revision 1.2 by heimbach, Tue Apr 10 22:35:26 2001 UTC | |
---|---|---|
# | Line 73 C-- Calculate cost function on tile of | Line 73 C-- Calculate cost function on tile of |
73 | ig = myXGlobalLo-1+(bi-1)*sNx+i | ig = myXGlobalLo-1+(bi-1)*sNx+i |
74 | ||
75 | if ((ig .eq. iLocOut) .and. (jg .eq. jLocOut)) then | if ((ig .eq. iLocOut) .and. (jg .eq. jLocOut)) then |
76 | cph write(0,'(a,3(x,i4),a,4(x,i4))') | write(*,'(a,3(x,i4),a,4(x,i4))') |
77 | cph & 'COST ',ig,jg,kLocOut,' TILE ',i,j,bi,bj | & 'COST ',ig,jg,kLocOut,' TILE ',i,j,bi,bj |
78 | objf_test(bi,bj) = theta(i,j,kLocOut,bi,bj) | objf_test(bi,bj) = theta(i,j,kLocOut,bi,bj) |
79 | endif | endif |
80 |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |