& prof_facmod
_RL prof_facmod(NFILESPROFMAX,NVARMAX)
& prof_facmod(num_file,num_var)
& prof_facmod,
prof_facmod(num_file,num_var) = 1. _d 0