! Formerly known as ltrans-7.f90 | |
Program FOO | |
IMPLICIT INTEGER (I-N) | |
IMPLICIT REAL*8 (A-H, O-Z) | |
PARAMETER (N1=1335, N2=1335) | |
COMMON U(N1,N2), V(N1,N2), P(N1,N2) | |
PC = 0.0D0 | |
UC = 0.0D0 | |
VC = 0.0D0 | |
do I = 1, M | |
do J = 1, M | |
PC = PC + abs(P(I,J)) | |
UC = UC + abs(U(I,J)) | |
VC = VC + abs(V(I,J)) | |
end do | |
U(I,I) = U(I,I) * ( mod (I, 100) /100.) | |
end do | |
write(6,366) PC, UC, VC | |
366 format(/, ' PC = ',E12.4,/,' UC = ',E12.4,/,' VC = ',E12.4,/) | |
end Program FOO |