Working shift command for merge

2020-01-15 16:44:13 -05:00 · 2020-01-15 16:44:13 -05:00 · cde96402e2
commit cde96402e2
parent 14dd8ad755
3 changed files with 94 additions and 2 deletions
--- a/src/io.f90
+++ b/src/io.f90
@ -194,6 +194,7 @@ module io
            select case(trim(adjustl(type_ele(i))))
            case('fcc')
                do iatom = 1, basisnum(lat_ele(i))*size_ele(i)**3
+                    call apply_periodic(r_interp(:,iatom))
                    write(11, '(2i16, 3f23.15)') atom_num+iatom, type_interp(iatom), r_interp(:,iatom)
                end do
            end select