material_init Subroutine

public subroutine material_init(me, cfg)

Arguments

Type IntentOptional Attributes Name
class(material_t), intent(inout), pointer :: me
class(input_t), intent(in), target :: cfg

Calls

proc~~material_init~~CallsGraph proc~material_init material_init proc~input_str input_t%input_str proc~material_init->proc~input_str proc~input_has_key input_t%input_has_key proc~input_str->proc~input_has_key proc~input_node input_t%input_node proc~input_str->proc~input_node proc~select_scalar select_scalar proc~input_str->proc~select_scalar get get proc~input_has_key->get proc~select_dict select_dict proc~input_has_key->proc~select_dict proc~input_node->get proc~dictionary_traverse dictionary_traverse proc~input_node->proc~dictionary_traverse proc~input_node->proc~select_dict proc~dictionary_traverse->proc~dictionary_traverse get_dictionary get_dictionary proc~dictionary_traverse->get_dictionary proc~abort_if abort_if proc~dictionary_traverse->proc~abort_if

Called by

proc~~material_init~~CalledByGraph proc~material_init material_init proc~mesh2d_init_part1 mesh2D_init_part1 proc~mesh2d_init_part1->proc~material_init proc~solid_init_part1 solid_init_part1 proc~solid_init_part1->proc~material_init proc~sssrclink_init_part2 SSsrcLink_init_part2 proc~sssrclink_init_part2->proc~material_init proc~strand_init_part1 strand_init_part1 proc~strand_init_part1->proc~material_init program~reims_p reims_p program~reims_p->proc~mesh2d_init_part1 program~reims_p->proc~solid_init_part1 program~reims_p->proc~sssrclink_init_part2 program~reims_p->proc~strand_init_part1

Source Code

    subroutine material_init(me,cfg)
        class(material_t), pointer, intent(inout) :: me
        class(input_t), target, intent(in) :: cfg
    
        integer :: i
        character(:), allocatable :: mat   
        
        mat=cfg%str('material')
        do i=1,size(materials)
            if(mat==materials(i)%material) me => materials(i)
        enddo
        if(.NOT.associated(me)) error stop mat//' material does not exist'
    end subroutine material_init