enddo
call imysort(nfrag(1),2,maxpiece,ifrag(1,1,1),npiece(1,1),&
istruct(1),n_shift(1,1,1),ang_cut(1),ang_cut1(1),frac_min(1),&
nc_fragm(1,1),nc_req_setf(1,1))
write (iout,*) "Fragments after sorting:"
do i=1,nfrag(1)
enddo
call imysort(nfrag(1),2,maxpiece,ifrag(1,1,1),npiece(1,1),&
istruct(1),n_shift(1,1,1),ang_cut(1),ang_cut1(1),frac_min(1),&
nc_fragm(1,1),nc_req_setf(1,1))
write (iout,*) "Fragments after sorting:"
do i=1,nfrag(1)