type node
real(8) :: InletCoor(2)
real(8) :: ExitCoor(2)
integer :: BlockNo(2)
type(node),pointer :: afore
type(node),pointer :: next
end type node
type(node),pointer :: p,q
p.blockno=Injector !执行代码:
欢迎光临 Fortran Coder (http://bbs.fcode.cn/) | Powered by Discuz! X3.2 |