Общие переменные Фортрана, выделяемый массив
Можно ли назначить размер и значения общего массива в подпрограмме, а затем использовать его из других подпрограмм программы?
Следующая программа нене работает, но я хочу сделать что-то вроде этого:
main.f
program main
integer n
integer, allocatable :: co(:)
common n, co
call assign
print *, co(1), co(2)
deallocate(co)
stop
end program main
assign.f
subroutine assign
integer n
integer, allocatable :: co(:)
common n, co
n = 2
allocate(co(n))
co(1) = 1
co(2) = 2
return
end subroutine assign