file_des Ef, Sf, Pf
   integer El, Sl, Pl, Indent

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