Проблема считыванием данных из файла(fortran 90)

[ivan.tiran]

Доброго времени суток. Прошу прощения, что создал тему не в том разделе, но темы про fortran нет. Написал программку по считыванию данных из столбцов столбцов
Y1-1,Z-1,My-1,Mz-1,Y1-2,Z-2,My-2,Mz-2 из 3M9.dat файла:

	program read_file
	integer*4 zap,b
	real y1(1:9),z1(1:9),my1(1:9),mz1(1:9),
	& y2(1:9),z2(1:9),my2(1:9),mz2(1:9) 
	character(4) proverka

	proverka="My-1"
	call massivi(my1)
	proverka="Mz-1"
	call massivi(mz1)

	proverka="Mz-2"
	call massivi(mz2)
	do b=1,9
	write(*,*)my2(b)
	enddo

	contains

	

	subroutine massivi(falcon)
	real falcon(1:9)
	integer*4 :: t,r=1
	character(1000) str
	character(20) chislo
	falcon=0
	call poziciya()

	open(6,file="3M9.dat",status="old")
	do t=1,b
	read(6,*)
	enddo
	do while(.NOT.EOF(6))
	str=" "
	read(6,"(A)")str
	str=str(zap:len(str))
	chislo=" "
	chislo=str(1:index(str,",")-1)
	read(chislo,*)falcon(r)
	r=r+1
	enddo ! do while 
	close(6)
	write(*,*)		
	end subroutine massivi


		subroutine poziciya()
		character(1000) stroka
		integer*4 g
		b=1
		open(5,file="3M9.dat",status="old")
		do while(.NOT.EOF(5))
		if (stroka=="@1")exit
		stroka=" "
		read(5,"(A)")stroka
		b=b+1
		enddo !do while
		stroka=" "
		read(5,"(A)")stroka
		do g=1,996
		if (stroka(g:g+3)==proverka)exit
		enddo
		stroka=" "
		read(5,"(A)")stroka
		do zap=g,1,-1
		if (stroka(zap:zap)==",")exit
		enddo
		close(5)
		zap=zap+1 !Позиция, с которой необходимо
		!считывать число
		end subroutine poziciya

		end program read_file

Суть такова, в переменную proverka заносится название столбца, процедура massivi считывает эти данные, и переводит в числовой формат. Проблема такая, при вызове процедуры massivi один раз программа прекрасно начинает выводить на экран данные. А если я несколько раз вызываю процедуру (меняя при этом значение proverka), выводятся правильные данные массива только после первого вызова процедуры. А при следующих вызовах данные неправильные. Почему я не могу вызывать процедуру massivi несколько раз?

Файл прилагается.