1 |
|
C $Header$ |
2 |
|
C $Name$ |
3 |
|
|
4 |
#include "CPP_OPTIONS.h" |
#include "CPP_OPTIONS.h" |
5 |
|
|
33 |
DO j=1,sNy |
DO j=1,sNy |
34 |
DO i=1,sNx |
DO i=1,sNx |
35 |
DO k=1,4*Nr |
DO k=1,4*Nr |
36 |
adobjf_state_final(i,j,bi,bj,k) = |
adobjf_state_final(i,j,bi,bj,k) = |
37 |
& g_objf_state_final(i,j,bi,bj,k) |
& g_objf_state_final(i,j,bi,bj,k) |
38 |
END DO |
END DO |
39 |
adobjf_state_final(i,j,bi,bj,4*Nr+1) = |
adobjf_state_final(i,j,bi,bj,4*Nr+1) = |
40 |
& g_objf_state_final(i,j,bi,bj,4*Nr+1) |
& g_objf_state_final(i,j,bi,bj,4*Nr+1) |
41 |
END DO |
END DO |
42 |
END DO |
END DO |
44 |
END DO |
END DO |
45 |
|
|
46 |
#endif |
#endif |
47 |
|
|
48 |
end |
end |