fortran面向对象编程简介

Module complex_class
    implicit none
    type, public  :: complex_ob  !.. 声明一个面向对象的type与对应的procedure
        private
        real      :: re
        real      :: im
    contains
        procedure :: cons => construct_complex
    end type complex_ob
    
    private       :: construct_complex
contains
    subroutine construct_complex( this, x, y, cm )  !.. 注意此处的this
        implicit none
        class( complex_ob )    :: this  !.. this的声明
        real, intent(in)       :: x, y
        complex, intent(inout) :: cm
        
        cm = cmplx(x, y)
    end subroutine construct_complex
    
End module complex_class    
    
Program testOOP
    use complex_class
    implicit none
    type(complex_ob) :: cm1  !.. 面向对象的声明
    real             :: x, y
    complex          :: cm
    
    cm = 0.
    x = 1.; y = 2.;
    call cm1%cons( x, y, cm ) !.. 调用type中的procedure
    print*, cm
    
End program testOOP
初次尝试，如有错误，敬请指正！