Research Article
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 |
|