[Fortran] syntaxhighlighter_viewsource syntaxhighlighter_copycode
Program Watersave
Implicit None
Character *5 Filename
Integer :: I, K, q
Integer :: a(11,19358),b(19385)
real*4 :: c(19385)
open(10, file = "D:\a\preci.txt")
do i = 1 , 83
read(10, *) filename
open(11, file = "D:\a\"//filename//".txt")
do k = 1,19358
read(11, *) a(1:3,k),c(k),a(4:8,k),b(k),a(9:11,k)
end do
open(12,file = "D:\c\"//filename//".txt")
do q = 1, 19358
if (30000<b(q) .and. b(q)<32700) then
b(q) = mod(b(q),1000)
elseif (b(q) == 32700) then
b(q) = 0
else
b(q) = b(q)
end if
write(12,"(3i6,e18.10,5i8,i6,3i3)") a(1:3,q),c(k),a(4:8,k),b(q),a(9:11,q)
end do
close(12)
close(11)
end do
end