Genadyruk
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
program err_all
! This is program take star and separated good star
real*8 precision
integer n
real*8, allocatable, dimension (:) :: mag_inst, delta_inst, alpha_inst
real*8, allocatable, dimension (:) :: error, delta, alpha, mag
!mag_inst, delta_inst, alpha_inst - instumantel magnitude, alpha, delta
! delta, aplha, mag - real
character*2 a
1 write (*,*) 'Are you want input precision?(y/n)'
read (*,*) a
if (a == 'y') then
write (*,*) 'Input precision'
read (*,*) precision
else if (a == 'n') then
precision = 1.
else
print*, 'Press y or n'
go to 1
end if
print*, 'precision = ', precision
write (*,*) 'Input numder of lines in your file'
read (*,*) n
allocate (mag_inst(n), delta_inst(n), alpha_inst(n))
allocate (error(n), delta(n), alpha(n), mag(n))
open (11, file = 'err_all_B.txt', status = 'old')
open (12, file = 'good.txt', status = 'new')
open (13, file = 'bad.txt', status = 'new')
read (1, 10) (mag_inst(i),error(i),alpha_inst(i),delta_inst(i),mag(i),alpha(i),delta(i), i = 1, n)
if (error (i) .gt. precision) then
write (3,10) (mag_inst(i),error(i),alpha_inst(i),delta_inst(i),mag(i),alpha(i),delta(i), i = 1, n)
else
write (2,10) (mag_inst(i),error(i),alpha_inst(i),delta_inst(i),mag(i),alpha(i),delta(i), i = 1, n)
end if
close (11)
close (13)
close (12)
10 format (F6.3, F9.5, F10.4, F9.4, F8.2, 2F12.6)
end program
А вот еще вариант этой же программы, опять таки, если не трудно, объясни, что не так. Ошибки те же выдает программа при работе |
