SubscribeWhen Steve Lionel answered on comp.lang.fortran about “how to rename an array”, He told in Fortran 2003 there’s a MOVE_ALLOC intrinsic subroutine/function which has been implemented in Intel Visual Fortran 9.1.028 and later.
Just quote as follows:
This lets you move the “allocation” of one array (with its data) to another, the original array now being unallocated. [...]
Tag: fortran
MOVE_ALLOC in Fortran 2003
Fortran OOP 初探
一直以来都没有认真看过fortran90的文档，对于其中很多新特性都不清楚。以为fortran还能有什么oop？ 不过下面这个例子倒是有点儿oop的味道。
Fortran 2003：完美还是虚幻？
例子是从这本书中找来的 Object-Oriented Programming via Fortran 90/95 at Amazon
! File: Fibonacci_Number.f90
!
! Fortran 90 OOP to print list of Fibonacci Numbers
!
module class_Fibonacci_Number
implicit none
public :: Print ! member access
private :: Add [...]
Fortran90 多态方法实现
Fortran90的多态方法实现。from OOP via Fortran90/95
compute_area函数根据传入参数地不同而自动选择计算函数，并返回不同值。
excited, aha?
module class_Rectangle
implicit none
type Rectangle
real :: base, height
end type Rectangle
contains
function rectangle_area® result (area)
type(Rectangle), intent(in) :: r
real :: area
area = r%base * r%height
end function rectangle_area
end module [...]