subroutine solver_init_module::set_solver_init_data_global |
( |
real(kind=8), dimension(ntri, 0:isp_max), intent(in), target |
den_in, |
|
|
real(kind=8), dimension(ntri, 0:isp_max), intent(in), target |
t_ev_in, |
|
|
real(kind=8), dimension(ntri, 0:isp_max), intent(in), target |
delta_n_in, |
|
|
real(kind=8), dimension(ntri, 0:isp_max), intent(in), target |
delta_t_in, |
|
|
real(kind=8), dimension(ntri), intent(in), target |
R_tri_in, |
|
|
real(kind=8), dimension(ntri), intent(in), target |
b2_in, |
|
|
real(kind=8), dimension(ntri), intent(in), target |
mni_in, |
|
|
real(kind=8), dimension(ntri), intent(in), target |
mni_pade_in, |
|
|
real(kind=8), dimension(ntri), intent(in), target |
rhoi2_in, |
|
|
real(kind=8), dimension(ntri, 2), intent(in), target |
is_es_in, |
|
|
real(kind=8), dimension(ntri), intent(in), target |
psi_in, |
|
|
real(kind=8), dimension(ntri), intent(in), target |
alpha_fac_in, |
|
|
real(kind=8), dimension(ntri, 6), intent(in), target |
b_factors_in, |
|
|
real(kind=8), dimension(ntri), intent(in), target |
skin_bd_factor_in, |
|
|
integer(c_int), value |
ntri, |
|
|
integer(c_int), value |
isp_max |
|
) |
| |