F90 重载“+”“-”操作符

FSI · 发表于 2005-10-19 09:03

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？我要加入

x

<DIV class=quote>!! F90 重载“+”“-”操作符 
 module class_vector3 implicit none
 type vector3 integer :: idx real :: x real :: y real :: z end type vector3
 interface operator(+) module procedure vector_add end interface
 interface operator(-) module procedure vector_sub end interface
contains
 function vector_add(v1, v2) result(v3) implicit none type(vector3), intent(in) :: v1, v2 type(vector3) :: v3 v3%idx = v1%idx + v2%idx v3%x = v1%x + v2%x v3%y = v1%y + v2%y v3%z = v1%z + v2%z end function vector_add
 function vector_sub(v1, v2) result(v3) implicit none type(vector3), intent(in) :: v1, v2 type(vector3) :: v3 v3%idx = v1%idx - v2%idx v3%x = v1%x - v2%x v3%y = v1%y - v2%y v3%z = v1%z - v2%z end function vector_sub
end module class_vector3
 program main use class_vector3 implicit none type(vector3) :: x1, x2, x3
 x1 = vector3(1, 5.1, 0.2, -4.2) x2 = vector3(10, -4.1, 3.1003, 5.129)
 x3 = x1 - x2
 print *, x3
 x3 = x1 + x2
 print *, x3
end program main </DIV>

风花雪月 · 发表于 2005-10-19 09:15

昨天就见发了，今天重新发？

FSI · 发表于 2005-10-19 11:16

昨天发错地方了，[em04] 那个删除了

账号		自动登录	找回密码
密码			我要加入

[Fortran] F90 重载“+”“-”操作符

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

回复：（FSI）F90 重载“+”“-”操作符