arrays - Fortran 共通変数、割付け配列

Question

サブルーチンで共通配列のサイズと値を割り当てて、それをプログラムの他のサブルーチンから使用することは可能ですか?

次のプログラムは機能しませんが、次のようなことをしたいと考えています。

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