Kod: Zaznacz cały
0,000000 0,093750 0 ohmA
1,000000 0,000662
2,000000 0,001321
3,000000 0,004160
4,000000 0,008812
5,000000 0,012321
6,000000 0,013504
7,000000 0,030251
8,000000 0,000954
9,000000 0,093750
10,000000 1995,504883
0,000000 15,921875 0 ohmA
1,000000 0,000661
2,000000 0,001320
3,000000 0,000000
4,000000 0,000000
5,000000 0,000000
6,000000 0,000000
7,000000 0,080109
8,000000 0,000954
9,000000 15,921875
10,000000 1997,575317
0,000000 16,000000 0 ohmA
1,000000 0,000661
chce napisać program wczytający wartości z kolejnych kanałów i wyrzucenia go do pliku w postaci kolum dla każdego kanału i z czasem ( kanał 0) jako czynnik sortujący ale w moim programi wczytuje m pierwsząwartośc nie czyta drugirj kolumny po tab.
Kod: Zaznacz cały
program odchyl_stand
implicit none
real:: macierz(11,10000) ! 1-numer macierzy, 2- numer wiersza 3- kolum ny
integer:: i,j,k,l
k=1
open(11,file="dane.txt", status="old")
open(12,file="wynik.txt", status="old")
do i=1,50000,1
do j=1, 11, 1
READ(11,10,END=40) macierz(j,k), macierz(j,k+1)
10 format(F10.6,t,F10.6,/)
end do
k=k+1
end do
40 continue
do l=1, 50000, 1
WRITE(12,*) macierz(1,l), macierz(2,l), macierz(3,l), macierz(4,l), macierz(5,l)
end do
close(11)
close(12)
close(13)
end