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

heroinhell · 发表于 2016-9-2 18:02:03

本人刚接触fortran不就，请教大家个问题：!======================================
我自己定义了一个数据结构，比如：

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

然后我希望在主程序中使用该结构，比如：

program hello

!!下面两行会出错，因为tttt没有定义
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)
      type(tttt),pointer:: struct
      struct%name1="xie"
end

!====================================
中间会牵涉到这么几个知识点，我不太明白：

1）如何将定义的结构体，比如保存到头文件里，随时可以使用？即全局变量和共享数据结构的问题。
2）假如第一步成功了，我的mod_struct对不对？
   我曾把结构体的定义放到  program和sunroutine里，这样编译是能过去的，胆汁性会有segment fault。
原因大概是指针没有指到实体，所以报错了。我怎样改才可以？

fcode · 发表于 2016-9-2 18:02:04

传递指针的话，需要用 interface，而书写到 module 里，可以避免手动书写 interface

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

01module typedef
02  Implicit None
03  type  tttt
04    integer:: num
05    character(len=15) :: name1
06  end type tttt
07end module typedef
08 
09module mod_struct_mod
10  use typedef
11  Implicit None
12contains
13  subroutine  mod_struct(struct)
14    type(tttt),pointer:: struct
15    struct%name1="xie"
16  end subroutine mod_struct  
17end module mod_struct_mod
18 
19program hello
20  use mod_struct_mod
21  type(tttt),pointer::ps
22  type(tttt),target :: s
23  s%num=1
24  s%name1="wangwei"
25  ps=>s
26  call mod_struct(ps)
27  write(*,*) ps
28end program hello

vvt · 发表于 2016-9-2 19:34:04

本帖最后由 vvt 于 2016-9-2 19:35 编辑

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

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

01module typedef
02  type  tttt
03         integer:: num
04         character(len=15) :: name1
05     end type tttt
06end module typedef
07 
08program hello
09use typedef
10    type(tttt),pointer::ps
11     type(tttt),target :: s
12 
13     s%num=1
14     s%name1="wangwei"
15     ps=>s
16 
17    !!!我还想对结构体指针利用过程重新赋值，代码如下
18   call mod_struct(ps)
19 
20 end  program hello
21 
22subroutine  mod_struct(struct)
23use typedef
24         type(tttt),pointer:: struct
25         struct%name1="xie"
26 end

heroinhell · 发表于 2016-9-5 08:44:51

vvt 发表于 2016-9-2 19:34
定义在 module 里就可以了。然后两个程序都 use 这个 module

[mw_shl_code=fortran,true]module typedef

谢谢！第一个问题已经解决l了，第二个问题是因为struct在mod_struct里只是声明个指针，没有明确的target，所以在用的时候报The procedure has a dummy argument that has the ALLOCATABLE, ASYNCHRONOUS, OPTIONAL, POINTER, TARGET, VALUE or VOLATILE attribute
警告或错误，其实struct只是实参，当如何修改就会使这个错误消失呢？

heroinhell · 发表于 2016-9-7 19:36:43

fcode 发表于 2016-9-5 09:01
传递指针的话，需要用 interface，而书写到 module 里，可以避免手动书写 interface

[mw_shl_code=fortran ...

谢谢帮助！已经解决!

[派生类型] 如何实现一个数据结构的共享（不同文件中）

最佳答案

美女勋章

热心勋章

星光勋章

新人勋章

贡献勋章

管理勋章

帅哥勋章

爱心勋章

规矩勋章

元老勋章

水王勋章