[Fortran] Wczytywanie macierzy z danych w pliku

[enigma571]

Mam gorącą prośbę o pomoc mam plik z danymi o cyklicznym zachowaniu

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

i tak dalej ...

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