Commit 38a8ee29 authored by Félix Mouhat's avatar Félix Mouhat
Browse files

Now the code compiles and reads a geometry file

parent a9eeb90d
Pipeline #80 skipped
......@@ -64,8 +64,8 @@ CONTAINS
END SUBROUTINE Init_Pot
SUBROUTINE Read_Geometry(R)
real(kind=8), intent(in) :: R
character (len=30) :: dummy
real(kind=8) :: R(:)
open(unit=1,file='geometry.dat',status='old',form='formatted')
read(1,*) dummy,R
......@@ -100,7 +100,7 @@ CONTAINS
integer :: ndim
ndim=1
Q=1.7d0
!Q=1.7d0
!Para_Pot%pot_name = trim(adjustl(pot_name))
open(2,file=trim(Para_Pot%pot_name)//'.pot',form='formatted')
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment