Scientific Programming / 2015 / Article / Lst 7

Research Article

High-Performance Design Patterns for Modern Fortran

Listing 7

type, extends(co_object):: tensor
  private
  real, allocatable:: global_f(:)[:]
contains
  !
  procedure:: assign_local_to_global
  procedure:: multiply_by_local
  procedure:: add_to_local
  procedure:: x     => df_dx
  generic:: operator()    => &
      multiply_by_local
  generic:: assignment(=)  => &
      assign_local_to_global
  !
end type

We are committed to sharing findings related to COVID-19 as quickly as possible. We will be providing unlimited waivers of publication charges for accepted research articles as well as case reports and case series related to COVID-19. Review articles are excluded from this waiver policy. Sign up here as a reviewer to help fast-track new submissions.