call mpi_abort(mpi_comm_world,ierror,ierrcode)
endif
do n=1,nconf
+ print*,"n=",n
c pull out external and internal variables for next start
call putx(xin,n,rad)
! write (iout,*) 'XIN from FEEDIN N=',n
if(iw_pdb.gt.0)
& call write_csa_pdb(xout,eout,nft,ind(1),iw_pdb)
endif
+ print *,"koniec petli n=",n
enddo
cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
c no more input