Itry to use /Qdyncom to dynamic allocate array in common block in some of subroutines for example
subroutine a1
integer m=10
real, dimension (0:m)::a,b,c
common /abc/a,b,c
....
return
end
subroutine a2
real, dimension (0:m)::x,y,z
common /abc/x,y,z
....
return
end
ifor /Qdyncom "abc" -o try try.f
My question is: before the program back to main routine, how to deallocate array in common /abc/ to release the momory?
