24小时热门版块排行榜

>论坛更新日志 (2545)
>虫友互识 (486)
>休闲灌水 (112)
>导师招生 (102)
>考博 (101)
>文献求助 (96)
>教师之家 (61)
>找工作 (60)
>博后之家 (57)
>硕博家园 (57)
>论文道贺祈福 (55)
>论文投稿 (55)
>基金申请 (51)
>考研 (43)
>公派出国 (39)
>招聘信息布告栏 (29)

返回列表

chenshuai000

金虫 (正式写手)

应助: 0 (幼儿园)
金币: 377.6
散金: 31
红花: 2
帖子: 397
在线: 174.7小时
虫号: 3644225
注册: 2015-01-14
性别: GG
专业: 控制理论与方法

[求助] fortran 求助已有1人参与

module shiliang
implicit none
type vector
real*8 v(4)
endtype
end module

type(vector) ::W1,W2
我想实现直接W1=W2，即实现两个结构体变量之间的直接赋值操作，请问这个赋值号超载该怎么写？谢谢

发自小木虫Android客户端

回复此楼

» 猜你喜欢

1楼 2016-01-21 16:33:21

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

绿遍山原

铜虫 (小有名气)

应助: 64 (初中生)
金币: 707.7
红花: 5
帖子: 159
在线: 201.2小时
虫号: 1128371
注册: 2010-10-21
性别: GG
专业: 凝聚态物性I:结构、力学和

【答案】应助回帖

感谢参与，应助指数 +1

[code]
module m_test
  implicit none

  private

  public :: t_test

  type t_test
   real(8) :: v(4)
contains
   procedure :: assign
   generic :: assignment(=) => assign
  end type t_test

contains

  subroutine assign(lhs, rhs)
implicit none
class(t_test), intent(inout) :: lhs
class(t_test), intent(in) :: rhs
lhs%v = rhs%v
return
  end subroutine assign
end module m_test

program test
  use m_test
  implicit none
  type(t_test) :: a, b

  a%v = 4
  a%v(2) = 2

  b = a

  write(*, *) b%v(2)
end program test
[\code]

赞一下(1人)

回复此楼

要夢遊，不要催眠。

2楼2016-01-21 19:18:17