double precision b1,b2,cc,dd,ee,ctilde,dtilde,b2tilde,b1tilde,
& b,bnew1,bnew2,eenew,gtb1,gtb2,eeold,gtee
integer nloctyp,iloctyp(-ntyp1:ntyp1),itype2loc(-ntyp1:ntyp1)
double precision b1,b2,cc,dd,ee,ctilde,dtilde,b2tilde,b1tilde,
& b,bnew1,bnew2,eenew,gtb1,gtb2,eeold,gtee
integer nloctyp,iloctyp(-ntyp1:ntyp1),itype2loc(-ntyp1:ntyp1)