История изменений

Исправление ~~yvv~~, 20.09.21 22:42 (текущая версия) :

Вижу многочисленные ошибки я. Используй процедуру, а не функцию. Не делай так

type map
     real, dimension(:), allocatable :: xs, hs
end type map

.....

allocate(m%xs(N))
allocate(m%hs(N))

Делай так

type map
     real :: xs, hs
end type map

.....

type(map), allocatable :: m(:)

allocate(m(N))

Исправление ~~yvv~~, 20.09.21 22:41:

Вижу многочисленные ошибки я. Используй процедуру, а не функцию. Не делай так

type map
     real, dimension(:), allocatable :: xs, hs
end type map

.....

allocate(m%xs(N))
allocate(m%hs(N))

Делай так

type map
     real :: xs, hs
end type map

.....

type(map), allocatable :: m

allocate(m(N))

Исправление ~~yvv~~, 20.09.21 22:40:

Вижу многочисленные ошибки я. Используй процедуру, а не функцию. Не делай так

type map
     real, dimension(:), allocatable :: xs, hs
end type map

.....

allocate(m%xs(N))
allocate(m%hs(N))

Делай так

type map
     real, dimension(:) :: xs, hs
end type map

.....

allocate(m(N))

Исходная версия ~~yvv~~, 20.09.21 22:26:

Вижу многочисленные ошибки я. Используй процедуру, а не функцию. Не делай так

type map
     real, dimension(:), allocatable :: xs, hs
end type map

.....

allocate(m%xs(N))
allocate(m%hs(N))

Делай так

type map
     real, dimension(:) :: xs, hs
! А так ещё более читабельней
! real :: xs(:), hs(:)
end type map

.....

allocate(m(N))