如何实现一个数据结构的共享（不同文件中）

vvt

定义在 module 里就可以了。然后两个程序都 use 这个 module

[Fortran] 纯文本查看 复制代码

module typedef
  type  tttt
         integer:: num
         character(len=15) :: name1
     end type tttt
end module typedef

program hello
use typedef
    type(tttt),pointer::ps
     type(tttt),target :: s

     s%num=1
     s%name1="wangwei"
     ps=>s

    !!!我还想对结构体指针利用过程重新赋值，代码如下
   call mod_struct(ps)

 end  program hello

subroutine  mod_struct(struct)
use typedef
         type(tttt),pointer:: struct
         struct%name1="xie"
 end