High-Performance Design Patterns for Modern Fortran

Listing 10

subroutine assign_local_to_global(lhs, rhs)

  class(tensor), intent(inout):: lhs

  class(local_tensor), intent(in):: rhs

  lhs%global_f(:) = rhs%state()

  sync all

end subroutine