История изменений
Исправление
yvv,
(текущая версия)
:
Мнение эксперта по фортрану с 20-ти летним стажем, так ничего в нём и не понимающего:
module two_d
use utility
implicit none
type map
real :: xs, hs
end type map
contains
subroutine get_map(m)
type(map), allocatable, intent(out) :: m(:)
integer :: N, i
character(len=10) :: file_name
file_name = 'field2.txt'
N = get_num_rows(file_name)
allocate(m(N))
open(unit = 1, file = file_name, status = 'old')
do i = 1, N
read (1, *) m(i)%xs, m(i)%hs
end do
end subroutine get_map
end module
Попробуй, должно вроде работать.
Исходная версия
yvv,
:
Мнение эксперта по фортрану с 20-ти летним стажем, так ничего в нём и не понимающего:
module two_d
use utility
implicit none
type map
real :: xs, hs
end type map
contains
subroutine get_map()
type(map), allocatable, intent(out) :: m(:)
integer :: N, i
character(len=10) :: file_name
file_name = 'field2.txt'
N = get_num_rows(file_name)
allocate(m(N))
open(unit = 1, file = file_name, status = 'old')
do i = 1, N
read (1, *) m(i)%xs, m(i)%hs
end do
end subroutine get_map
end module
Попробуй, должно вроде работать.