| 查看: 489 | 回复: 1 | |||
chenshuai000金虫 (正式写手)
|
[求助]
fortran 求助 已有1人参与
|
|
module shiliang implicit none type vector real*8 v(4) endtype end module type(vector) ::W1,W2 我想实现直接W1=W2，即实现两个结构体变量之间的直接赋值操作，请问这个赋值号超载该怎么写？谢谢 发自小木虫Android客户端 |
回复此楼» 猜你喜欢
现代”学阀”该如何界定
已经有9人回复
-
课题组招2027级博士 上海工程技术大学 激光智能制造方向
已经有4人回复
-
上海工程技术大学 激光智能制造课题组 2027级博士研究生招生
已经有3人回复
-
实名举报：华南理工大学物理与光电学院副院长李志远婚内两次出轨女学生（博士）
已经有16人回复
-
上海工程技术大学激光智能制造课题组｜2027级博士研究生招生公告
已经有11人回复
-
上海工程技术大学激光智能制造课题组招收博士研究生
已经有10人回复
-
申博发邮件
已经有11人回复
-
各位大神，目前国内有哪些比较好用的逆合成软件？
已经有12人回复
-
我的奶奶
已经有3人回复
-
国社科系统bug了，是不是要放榜了？
已经有9人回复
【答案】应助回帖
感谢参与，应助指数 +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] |
2楼2016-01-21 19:18:17