read_data_set Subroutine

public subroutine read_data_set(ixImin1, ixImin2, ixImin3, ixImax1, ixImax2, ixImax3, ixOmin1, ixOmin2, ixOmin3, ixOmax1, ixOmax2, ixOmax3, x, val, nval)

Uses

  • proc~~read_data_set~~UsesGraph proc~read_data_set read_data_set module~mod_global_parameters mod_global_parameters proc~read_data_set->module~mod_global_parameters module~mod_basic_types mod_basic_types module~mod_global_parameters->module~mod_basic_types module~mod_connectivity mod_connectivity module~mod_global_parameters->module~mod_connectivity module~mod_constants mod_constants module~mod_global_parameters->module~mod_constants module~mod_physicaldata mod_physicaldata module~mod_global_parameters->module~mod_physicaldata module~mod_variables mod_variables module~mod_global_parameters->module~mod_variables mpi mpi module~mod_global_parameters->mpi module~mod_variables->module~mod_basic_types

Set values according to user data

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: ixImin1
integer, intent(in) :: ixImin2
integer, intent(in) :: ixImin3
integer, intent(in) :: ixImax1
integer, intent(in) :: ixImax2
integer, intent(in) :: ixImax3
integer, intent(in) :: ixOmin1
integer, intent(in) :: ixOmin2
integer, intent(in) :: ixOmin3
integer, intent(in) :: ixOmax1
integer, intent(in) :: ixOmax2
integer, intent(in) :: ixOmax3
double precision, intent(in) :: x(ixImin1:ixImax1,ixImin2:ixImax2,ixImin3:ixImax3,1:ndim)
double precision, intent(out) :: val(ixImin1:ixImax1,ixImin2:ixImax2,ixImin3:ixImax3,1:nval)
integer, intent(in) :: nval

Calls

proc~~read_data_set~~CallsGraph proc~read_data_set read_data_set proc~read_data_get_3d read_data_get_3d proc~read_data_set->proc~read_data_get_3d proc~lt3_get_col LT3_get_col proc~read_data_get_3d->proc~lt3_get_col proc~lt3_get_col_at_loc LT3_get_col_at_loc proc~lt3_get_col->proc~lt3_get_col_at_loc proc~lt3_get_loc LT3_get_loc proc~lt3_get_col->proc~lt3_get_loc

Source Code

  subroutine read_data_set(ixImin1,ixImin2,ixImin3,ixImax1,ixImax2,ixImax3,&
     ixOmin1,ixOmin2,ixOmin3,ixOmax1,ixOmax2,ixOmax3,x,val,nval)
    use mod_global_parameters
    integer, intent(in)             :: ixImin1,ixImin2,ixImin3,ixImax1,ixImax2,&
       ixImax3, ixOmin1,ixOmin2,ixOmin3,ixOmax1,ixOmax2,ixOmax3, nval
    double precision, intent(in)    :: x(ixImin1:ixImax1,ixImin2:ixImax2,&
       ixImin3:ixImax3,1:ndim)
    double precision, intent(out)   :: val(ixImin1:ixImax1,ixImin2:ixImax2,&
       ixImin3:ixImax3,1:nval)
    integer                         :: ival

    
    
    
    do ival=1,nval
       val(ixOmin1:ixOmax1, ixOmin2:ixOmax2, ixOmin3:ixOmax3,&
           ival) = read_data_get_3d(ival, x(ixOmin1:ixOmax1, ixOmin2:ixOmax2,&
           ixOmin3:ixOmax3, 1), x(ixOmin1:ixOmax1, ixOmin2:ixOmax2,&
           ixOmin3:ixOmax3, 2), x(ixOmin1:ixOmax1, ixOmin2:ixOmax2,&
           ixOmin3:ixOmax3, 3))
    enddo
   

  end subroutine read_data_set