Function PointOfFrameworkSite(Iselect)
Integer, Intent(In) :: Iselect
Type(Type_Sites), Dimension(:), Pointer :: PointOfFrameworkSite
Select Case(Iselect)
Case(1)
PointOfFrameworkSite => Framework%Site
Case(2)
PointOfFrameworkSite => Framework%OpenMetalSite
Case Default
Write(*,*) "Unknown SBU Type"
End select
Return
End Function PointOfFrameworkSite
A => PointOfFrameworkSite(I)
A = PointOfFrameworkSite(I)
vvt 发表于 2014-5-17 06:44
问题1:
1. Nullify 只是设置指针的状态为空,并不释放allocate分配的内存。你应该在退出子程序时使用 Deal ...
欢迎光临 Fortran Coder (http://bbs.fcode.cn/) | Powered by Discuz! X3.2 |