Searched refs:R_SUF_tot (Results 1 – 5 of 5) sorted by relevance
242 write(*,*) 'R_SUF_tot ',h%R_SUF_tot243 if( h%R_SUF_tot /= 0 ) then
1319 fstrHEAT%R_SUF_tot = 03052 old_size = P%HEAT%R_SUF_tot3058 P%HEAT%R_SUF_tot = new_size3140 old_size = P%HEAT%R_SUF_tot3146 P%HEAT%R_SUF_tot = new_size
267 write(ILOG,*) ' R_SUF_tot :', fstrHEAT%R_SUF_tot269 do i = 1, fstrHEAT%R_SUF_tot
34 do k = 1, fstrHEAT%R_SUF_tot
455 integer(kind=kint) :: R_SUF_tot component