MAPL_LocStreamTileWeight Subroutine

public subroutine MAPL_LocStreamTileWeight(LocStream, OUTPUT, INPUT, RC)

Arguments

Type IntentOptional Attributes Name
type(MAPL_LocStream), intent(in) :: LocStream
real, intent(out) :: OUTPUT(:)
real, intent(in) :: INPUT(:,:)
integer, intent(out), optional :: RC

Calls

proc~~mapl_locstreamtileweight~~CallsGraph proc~mapl_locstreamtileweight MAPL_LocStreamTileWeight proc~mapl_return MAPL_Return proc~mapl_locstreamtileweight->proc~mapl_return at at proc~mapl_return->at insert insert proc~mapl_return->insert proc~mapl_throw_exception MAPL_throw_exception proc~mapl_return->proc~mapl_throw_exception

Source Code

subroutine MAPL_LocStreamTileWeight ( LocStream, OUTPUT, INPUT, RC )
  type(MAPL_LocStream),      intent(IN ) :: LocStream
  real,                      intent(OUT) :: OUTPUT(:)
  real,                      intent(IN ) :: INPUT(:,:)
  integer, optional,         intent(OUT) :: RC

! Local variables

  integer                    :: N




! Fill output subject to mask
!----------------------------

     do N = 1, size(OUTPUT)
        OUTPUT(N) = LOCSTREAM%Ptr%LOCAL_INDEXLOCATION(N)%W * &
                    INPUT(LOCSTREAM%Ptr%LOCAL_INDEXLOCATION(N)%I, &
                          LOCSTREAM%Ptr%LOCAL_INDEXLOCATION(N)%J  )
     end do

  _RETURN(ESMF_SUCCESS)

end subroutine MAPL_LocStreamTileWeight