double precision tempfac(2,maxres)
      common /factemp/ tempfac