if (profilesfile_equi_type.EQ.1) then
integer profilesfile_equi_type
& prof_num_var_tot, prof_num_var_cur, profilesfile_equi_type
profilesfile_equi_type=2