do i=1,ndist_
if (constr_dist.eq.11) then
read (inp,*) ihpb(nhpb+1),jhpb(nhpb+1),dhpb(i),dhpb1(i),
& ibecarb(i),forcon(nhpb+1),fordepth(nhpb+1)
fordepth(nhpb+1)=fordepth(nhpb+1)/forcon(nhpb+1)
else
do i=1,ndist_
if (constr_dist.eq.11) then
read (inp,*) ihpb(nhpb+1),jhpb(nhpb+1),dhpb(i),dhpb1(i),
& ibecarb(i),forcon(nhpb+1),fordepth(nhpb+1)
fordepth(nhpb+1)=fordepth(nhpb+1)/forcon(nhpb+1)
else