版块导航: 正在加载中...

登录注册

应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜

北京石油化工学院2026年研究生招生接收调剂公告

返回列表

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