IF(profiles_mean_indsamples(num_var).GT. 0. _d 0) THEN
& profiles_mean_indsamples(num_var)
integer profiles_mean_indsamples(NVARMAX)
&,profiles_mean_indsamples
profiles_mean_indsamples(num_var) = 1
& profiles_mean_indsamples,