#else
read (ibond,*) junk,vbldp0,akp,rjunk,mp,ip,pstok
do i=1,ntyp
+ print *,i
read (ibond,*) nbondterm(i),(vbldsc0(j,i),aksc(j,i),abond0(j,i),
& j=1,nbondterm(i)),msc(i),isc(i),restok(i)
dsc(i) = vbldsc0(1,i)
B1tilde(2,i) =-b(5)
B1tilde(1,-i) =-b(3)
B1tilde(2,-i) =b(5)
-c b1tilde(1,i)=0.0d0
-c b1tilde(2,i)=0.0d0
+ b1tilde(1,i)=0.0d0
+ b1tilde(2,i)=0.0d0
B2(1,i) = b(2)
B2(2,i) = b(4)
B2(1,-i) =b(2)