Searched refs:hecmw_mat_get_scaling (Results 1 – 5 of 5) sorted by relevance
32 if (hecmw_mat_get_scaling(hecMAT).eq.0) return118 if (hecmw_mat_get_scaling(hecMAT).eq.0) return
32 if (hecmw_mat_get_scaling(hecMAT).eq.0) return129 if (hecmw_mat_get_scaling(hecMAT).eq.0) return
32 if (hecmw_mat_get_scaling(hecMAT).eq.0) return155 if (hecmw_mat_get_scaling(hecMAT).eq.0) return
33 if (hecmw_mat_get_scaling(hecMAT).eq.0) return245 if (hecmw_mat_get_scaling(hecMAT).eq.0) return
33 public :: hecmw_mat_get_scaling398 function hecmw_mat_get_scaling( hecMAT ) function399 integer(kind=kint) :: hecmw_mat_get_scaling local402 hecmw_mat_get_scaling = hecMAT%Iarray(IDX_I_SCALING)403 end function hecmw_mat_get_scaling