c write(iout,*)"jcon,i,j,ishiff",jcon,i,j,-ishiff,
c & " rms",rms," rmscut",rmscutfrag(1,j,1)
if (lprn) write (iout,*) "rms",rmsfrag(j,1)
if (rms.gt.rmscutfrag(1,j,1)) then
c write(iout,*)"jcon,i,j,ishiff",jcon,i,j,-ishiff,
c & " rms",rms," rmscut",rmscutfrag(1,j,1)
if (lprn) write (iout,*) "rms",rmsfrag(j,1)
if (rms.gt.rmscutfrag(1,j,1)) then