Emulating Multiple Inheritance in Fortran 2003/2008

Listing 2

Implementation for object_computation class.

(1)   module object_computation_concrete

(2)    implicit none

(3)    private

(4)    public:: object_computation

(5)    type:: object_computation

(6)     contains

(7)      procedure:: FlopCount

(8)    end type

(9)    contains

(10)   subroutine FlopCount(this)

(11)      class (object_computation), intent(in):: this

(12)      print ,  ‘Countfloatingpointoperations’

(13)   end subroutine

(14)  end module