+
+ if(tm_score) then
+ nft=nft+ind(3)
+ movernx(irecv)=iabs(ind(5))
+ call getx(ind,xout,eout,cout,rad,iw_pdb,irecv)
+ if(vdisulf) then
+ nss_out(irecv)=nss
+ do i=1,nss
+ iss_out(i,irecv)=ihpb(i)
+ jss_out(i,irecv)=jhpb(i)
+ enddo
+ endif
+ if(iw_pdb.gt.0)
+ & call write_csa_pdb(xout,eout,nft,irecv,iw_pdb)
+ endif
+
+ if(tm_score.and.eout(1).lt.ebmax) then
+ if(iref.eq.0 .or.
+ & (rmsn(irecv).le.rmscut.and.pncn(irecv).ge.pnccut))
+ & call refresh_bank_master_tmscore(ifrom,eout(1),irecv)
+ endif