-c do kkk=1,nperm
-c write (iout,*) 'Ccopy and CREFcopy'
-c print '(i5,3f10.5,5x,3f10.5)',(k,(ccopy(j,k),j=1,3),
-c & (crefcopy(j,k),j=1,3),k=1,iatom)
-c write (iout,'(i5,3f10.5,5x,3f10.5)') (k,(ccopy(j,k),j=1,3),
-c & (crefcopy(j,k),j=1,3),k=1,iatom)
-c enddo
-c ----- end diagnostics
+C do kkk=1,nperm
+C write (iout,*) 'Ccopy and CREFcopy adasko',iatom
+C print '(i5,3f10.5,5x,3f10.5)',(k,(ccopy(j,k),j=1,3),
+C & (crefcopy(j,k),j=1,3),k=1,iatom)
+C write (iout,'(i5,3f10.5,5x,3f10.5)') (k,(ccopy(j,k),j=1,3),
+C & (crefcopy(j,k),j=1,3),k=1,iatom)
+C enddo
+Cc ----- end diagnostics