integer ns,nss,nfree,iss,ihpb,jhpb,nhpb,link_start,link_end
      double precision ebr,dbr,fbr,dhpb,forcon,weidis
      common /sbridge/ ebr,dbr,fbr,ns,nss,nfree,iss(maxss)
      common /links/ dhpb(maxss),forcon(maxss),ihpb(maxss),
     & jhpb(maxss),nhpb
      common /restraints/ weidis
      common /links_split/ link_start,link_end