High-Performance Design Patterns for Modern Fortran

Listing 5

type, extends(object):: local_tensor

   real:: f(local_grid_size)

  contains

  !…

  procedure:: add

  procedure:: assign_local

  procedure:: state

  procedure:: subtract

  generic:: operator(+)   => add

  generic:: operator(−)   => subtract

  generic:: assignment(=) => assign_local

  !…

end type