ufa to txt fortran programı

Geçen gün okula notlarıma bakmaya gittiğimde Sava? hocaya u?rad?m ve bir programa ihtiyac? oldu?undan bahsetti. Program ?unu yapmal?yd?, ufa uzantıl? dosyadaki yanyana olan verileri al?cak ve alt alta yaz?p txt olarak kaydedecekti. Örnek bir veriyi yaz?yorum size,

-1
58
W3921-6760Z2
NONE
08-Ara-01 13:36:57
NONE
NONE
1         0    0         0 NONE               0   3 NONE               0   0
2    286300         1  0.0000E+000  1.0000E-002  0.0000E+000
17    0    0    0 Time                 s
11    0    0    0 Velocity             m/s
0    0    0    0 NONE                 NONE
0    0    0    0 NONE                 NONE
-1.4647E-005 -1.4715E-005 -1.5174E-005 -1.5106E-005 -1.4385E-005 -1.3867E-005
-1.3294E-005 -1.2850E-005 -1.2332E-005 -1.2735E-005 -1.3860E-005 -1.4438E-005
-1.4823E-005 -1.5441E-005 -1.5927E-005 -1.4992E-005 -1.4298E-005 -1.5178E-005
-1.6107E-005 -1.5615E-005 -1.5506E-005 -1.5903E-005 -1.6321E-005 -1.6010E-005
-1.5163E-005 -1.4601E-005 -1.4289E-005 -1.4574E-005 -1.5062E-005 -1.4912E-005

Böyle aşag?ya do?ru uzun uzad?ya giden bir ufa uzantıl? dosya bu.. Burdaki verilerin alt alta yaz?lması gerekiyordu. Bunun için bir fortran program? yazd?m.

program ufa2txt
implicit none
character(len=20)::a,b,c,d,e,f
open(12,file=”veri.ufa”,status=”old”)
open(13,file=”veri.txt”,status=”unknown”)
read(12,50,end=890)a,b,c,d,e,f
23 read(12,50,end=890)a,b,c,d,e,f
write(13,70)a,b,c,d,e,f
goto 23
890 continue
close(12)
close(13)
50 format(6(1x,a12))
70 format(1x,a12,/,1x,a12,/,1x,a12,/,1x,a12,/,1x,a12,/,1x,a12)
end program

bu program tam Sava? hocanın istedişini yap?yordu. Veriyi al?p hepsini okuyup alt alta yaz?yordu. Ancak bir sorun var o da ?u ki, verinin üstündeki bilgi k?sm?, yani header k?sm?. Onunda silinmesi gerekiyordu. Bunu nasıl yaparım diye dü?ünürken bir do döngüsü ile satır atlatay?m dedim. Denedim ve oldu. Yeni kodlar ?öyle

program ufa2txt
implicit none
character(len=20)::a,b,c,d,e,f
integer :: satir
open(12,file=”veri.ufa”,status=”old”)
open(13,file=”veri.txt”,status=”unknown”)
do satir=1,13
read(12,50,end=890)a,b,c,d,e,f
end do
23 read(12,50,end=890)a,b,c,d,e,f
write(13,70)a,b,c,d,e,f
goto 23
890 continue
close(12)
close(13)
50 format(6(1x,a12))

70 format(1x,a12,/,1x,a12,/,1x,a12,/,1x,a12,/,1x,a12,/,1x,a12)

end program

?steyen kullanabilir, ?imdide bir klasör içindeki tüm verilere aynı işlemi nasıl yaptırırım diye dü?ünmekteyim.

Yard?mc? olabilcek varsa dinlerim.