reductionlocation_operator_mod Module Reference

Functions/Subroutines
subroutine, public	perform_reductionlocation_operator (io_configuration, field_values, action_attributes, source_monc_location, source_monc, operator_result_values)
type(list_type) function, public	reductionlocation_operator_get_required_fields (action_attributes)
subroutine	extract_tripplet_variables (field_str, location_local, val, val_local)

Function/Subroutine Documentation

extract_tripplet_variables()

subroutine reductionlocation_operator_mod::extract_tripplet_variables ( character(len=*), intent(in)  field_str, character(len=*), intent(out)  location_local, character(len=*), intent(out)  val, character(len=*), intent(out)  val_local  )

private

Definition at line 55 of file reductionlocation-operator.F90.

    character(len=*), intent(in) :: field_str
    character(len=*), intent(out) :: location_local, val, val_local
 
    character :: c
    character(len=STRING_LENGTH) :: artefacts(3)
    integer :: i, field_length, start_point, index_loc
 
    field_length=len(trim(field_str))
 
    start_point=1
    index_loc=1
    do i=1, field_length
      c=field_str(i:i)
      if (c .eq. ",") then
        artefacts(index_loc)=trim(adjustl(field_str(start_point: i-1)))
        start_point=i+1
        index_loc=index_loc+1
      end if
    end do
    if (start_point .lt. i) artefacts(index_loc)=trim(adjustl(field_str(start_point: i-1)))
    location_local=artefacts(1)
    val=artefacts(2)
    val_local=artefacts(3)

Here is the caller graph for this function:

perform_reductionlocation_operator()

subroutine, public reductionlocation_operator_mod::perform_reductionlocation_operator	(	type(io_configuration_type), intent(inout)	io_configuration,
		type(hashmap_type), intent(inout)	field_values,
		type(map_type), intent(inout)	action_attributes,
		integer, intent(in)	source_monc_location,
		integer, intent(in)	source_monc,
		real(kind=default_precision), dimension(:), intent(inout), allocatable	operator_result_values
	)

Definition at line 15 of file reductionlocation-operator.F90.

    type(io_configuration_type), intent(inout) :: io_configuration
    type(hashmap_type), intent(inout) :: field_values
    type(map_type), intent(inout) :: action_attributes
    integer, intent(in) :: source_monc_location, source_monc
    real(kind=default_precision), dimension(:), allocatable, intent(inout) :: operator_result_values
 
    character(len=STRING_LENGTH) :: location_local, val, val_local
    type(data_values_type), pointer :: val_local_values, val_values, location_local_values
    integer :: i
 
    call extract_tripplet_variables(get_action_attribute_string(action_attributes, "input"), location_local, val, val_local)
 
    val_local_values=>get_data_value_by_field_name(field_values, val_local)
    val_values=>get_data_value_by_field_name(field_values, val)
    location_local_values=>get_data_value_by_field_name(field_values, location_local)
 
    allocate(operator_result_values(size(location_local_values%values)))
    do i=1, size(val_local_values%values)
      if (val_local_values%values(i) .eq. val_values%values(i)) then
        operator_result_values(i)=location_local_values%values(i)
      else
        operator_result_values(i)=-1.0_default_precision
      end if
    end do

Here is the call graph for this function:

reductionlocation_operator_get_required_fields()

type(list_type) function, public reductionlocation_operator_mod::reductionlocation_operator_get_required_fields

(

type(map_type), intent(inout)

action_attributes

)

Definition at line 43 of file reductionlocation-operator.F90.

    type(map_type), intent(inout) :: action_attributes
 
    character(len=STRING_LENGTH) :: location_local, val, val_local
 
    call extract_tripplet_variables(get_action_attribute_string(action_attributes, "input"), location_local, val, val_local)
 
    call c_add_string(reductionlocation_operator_get_required_fields, location_local)
    call c_add_string(reductionlocation_operator_get_required_fields, val)
    call c_add_string(reductionlocation_operator_get_required_fields, val_local)

Here is the call graph for this function: