Searched refs:Q_SUF_val (Results 1 – 5 of 5) sorted by relevance
238 write(*,*) 'Q_SUF_val ',h%Q_SUF_val
2705 call fstr_expand_real_array( P%HEAT%Q_SUF_val, old_size, new_size )2724 P%HEAT%Q_SUF_val (id) = value(i)2786 call fstr_expand_real_array( P%HEAT%Q_SUF_val, old_size, new_size )2800 P%HEAT%Q_SUF_val (id) = value(i)
45 val = fstrHEAT%Q_SUF_val (k) * QQ
254 , fstrHEAT%Q_SUF_ampl(i), fstrHEAT%Q_SUF_val (i)
452 real(kind=kreal), pointer :: Q_SUF_val(:) component738 nullify( H%Q_SUF_val )