Genadyruk
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Всем привет. Скажите почему не робит прога? Вот код: program err_all_ real*8 precision integer*8 k, l ! number of column (k) and string (l) in file real*8, allocatable, dimension (:,:) :: err_all character*2 a 1 write (*,*) 'Are you want input precision? (y/n)' read (*,*) a if (a == 'y') then write (*,*) 'Input precision' read (*,*) precision elseif (a == 'n')then precision = 1. else print*, 'Press y or n' go to 1 endif write (*,*) 'Input number of string' read (*,*) l print*, 'Input number of column' read(*,*) k print*, 'precision =', precision print*, 'Number of string =', l print*, 'Number of column =', k pause allocate (err_all (l, k)) open (1, file = 'err_all_B.txt', status = 'old') open (2, file = 'good.txt', status = 'new') open (3, file = 'bad.txt', status = 'new') do i=1,k do j=1,l read (1,10) err_all (j, i) print*, err_all (j,i) if (err_all (j, 2) .lt. precision) then write (2,10) err_all (j, i) else write (3,10) err_all (j, i) end if end do end do close (1) close (2) 10 format (F6.3, F9.5, F10.4, F9.4, F8.2, 2F12.6) end Она скомпилировалась. Но робить не хочет. Вот, что пишет : "At line 31 of file C:\Users\.....\err_all.f95 (Unit 1 "err_all_B.txt") Traceback: not available, compile with -ftrace=frame or -ftrace=full Fortran runtime error: End of file" |