program main ! Shared Do Loop Termination do 100 j=1,10 do 100 w=1,10 100 i=j+1 ! siple Do Loop do 110 i = 1,10 110 j=i ! siple Do Loop2 do 120 i = 1,10 USAV(I,K)=UCLIN(I,K) VSAV(I,K)=VCLIN(I,K) UCLIN(I,K)=UP(I,K) VCLIN(I,K)=VP(I,K) 120 continue end program main |
program
main ! Shared Do Loop Termination do j=1,10 do w=1,10 100 i=j+1 END DO END DO ! siple Do Loop do i = 1,10 110 j=i END DO ! siple Do Loop2 do i = 1,10 USAV(I,K)=UCLIN(I,K) VSAV(I,K)=VCLIN(I,K) UCLIN(I,K)=UP(I,K) VCLIN(I,K)=VP(I,K) 120 continue END DO |