get_power_law_parameters_nb3sn Subroutine

public subroutine get_power_law_parameters_nb3sn(c_pt, E0, nPow)

Arguments

Type IntentOptional Attributes Name
type(c_ptr), intent(in) :: c_pt
real(kind=dp), intent(out) :: E0
integer, intent(out) :: nPow

Called by

proc~~get_power_law_parameters_nb3sn~~CalledByGraph proc~get_power_law_parameters_nb3sn get_power_law_parameters_nb3sn proc~set_material set_material proc~set_material->proc~get_power_law_parameters_nb3sn proc~load_materials load_materials proc~load_materials->proc~set_material program~reims_p reims_p program~reims_p->proc~load_materials

Source Code

  subroutine get_power_law_parameters_nb3sn(c_pt,E0,nPow) 
      type(c_ptr), intent(in) :: c_pt
      real(dp), intent(out) :: E0
      integer, intent(out) :: nPow

      type(nb3sn_cfg_t), pointer :: nb3sn_ptr
      call c_f_pointer(c_pt,nb3sn_ptr)
      E0 = nb3sn_ptr%E0
      nPow = nb3sn_ptr%nPow
  end subroutine get_power_law_parameters_nb3sn