file_des Ef, Sf, Pf integer El, Sl, Pl, Indent common /intcom/ Ef, Sf, Pf, El, Sl, Pl, Indent