- write (iout,*) 'Ccopy and CREFcopy adasko',iatom
- print '(i5,3f10.5,5x,3f10.5)',(k,(ccopy(j,k),j=1,3),
- & (crefcopy(j,k),j=1,3),k=1,iatom)
- write (iout,'(i5,3f10.5,5x,3f10.5)') (k,(ccopy(j,k),j=1,3),
- & (crefcopy(j,k),j=1,3),k=1,iatom)
+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)