integer prof_itracer(NFILESPROFMAX,NVARMAX)
& prof_num_var_tot, prof_num_var_cur, prof_itracer
& prof_itracer(num_file,k)
& prof_itracer(num_file,num_var),
& prof_itracer,
prof_itracer(num_file,num_var)=1