aselimov/cacmb
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Working continuum metric calculation code

Browse source
This commit is contained in:
Alex Selimov 2020-10-20 01:03:31 -04:00
parent 95e2ad0b4d
commit 6e08517697
8 changed files with 531 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/io.f90
View file

@ -984,6 +984,7 @@ module io
real(kind=dp) :: newdisplace(3), ra(3), in_lapa, ea, fa(3), va(6), &
ee(1,8), fe(3,1,8), ve(3,1,8), re(3,1,8)
character(len=100) :: textholder, fcc
character(len=1000) :: line
open(unit=11, file=trim(adjustl(file)), action='read',position='rewind')
@ -1033,7 +1034,8 @@ module io
!Read atom header
read(11,*) textholder
do ia = 1, in_atoms
read(11,*) tag, type, ra(:), ea, fa(:), va(:)
read(11,'(a)') line(:)
read(line,*) tag, type, ra(:), ea, fa(:), va(:)
call add_atom(tag, type, sub_box_num, ra)
call add_atom_data(atom_num, ea, fa, va)
end do