Scientific Programming / 2015 / Article / Lst 14

Research Article

High-Performance Design Patterns for Modern Fortran

Listing 14

subroutine assign_local_to_global(lhs, rhs)
class(tensor), intent(inout):: lhs
class(local_tensor), intent(in):: rhs
 ! Requires
call assert(rhs%user_defined())
 ! update global field
lhs%global_f(:) = rhs%state()
 ! Ensures
call lhs%mark_as_defined
sync all
end subroutine

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.