2020-03-25 12:56:28 +01:00
|
|
|
subroutine read_grid(SGn,radial_precision,nRad,nAng)
|
2019-03-13 11:07:31 +01:00
|
|
|
|
|
|
|
|
! Read grid type
|
|
|
|
|
|
|
|
|
|
implicit none
|
|
|
|
|
|
|
|
|
|
! Input variables
|
|
|
|
|
|
|
|
|
|
integer,intent(in) :: SGn
|
|
|
|
|
|
|
|
|
|
! Output variables
|
|
|
|
|
|
2020-03-25 12:56:28 +01:00
|
|
|
double precision,intent(out) :: radial_precision
|
2019-03-13 11:07:31 +01:00
|
|
|
integer,intent(out) :: nRad
|
|
|
|
|
integer,intent(out) :: nAng
|
|
|
|
|
|
|
|
|
|
write(*,*)'----------------------------------------------------------'
|
|
|
|
|
write(*,'(A22,I1)')' Quadrature grid: SG-',SGn
|
|
|
|
|
write(*,*)'----------------------------------------------------------'
|
|
|
|
|
|
|
|
|
|
select case (SGn)
|
|
|
|
|
|
|
|
|
|
case(0)
|
2020-03-25 12:56:28 +01:00
|
|
|
radial_precision = 1d-5
|
|
|
|
|
nRad = 23
|
|
|
|
|
nAng = 170
|
2019-03-13 11:07:31 +01:00
|
|
|
|
|
|
|
|
case(1)
|
2020-03-25 12:56:28 +01:00
|
|
|
radial_precision = 1d-7
|
2019-03-13 11:07:31 +01:00
|
|
|
nRad = 50
|
|
|
|
|
nAng = 194
|
|
|
|
|
|
|
|
|
|
case(2)
|
2020-03-25 12:56:28 +01:00
|
|
|
radial_precision = 1d-9
|
2019-03-13 11:07:31 +01:00
|
|
|
nRad = 75
|
|
|
|
|
nAng = 302
|
|
|
|
|
|
|
|
|
|
case(3)
|
2020-03-25 12:56:28 +01:00
|
|
|
radial_precision = 1d-11
|
2019-03-13 11:07:31 +01:00
|
|
|
nRad = 99
|
|
|
|
|
nAng = 590
|
|
|
|
|
|
|
|
|
|
case default
|
|
|
|
|
call print_warning('!!! Quadrature grid not available !!!')
|
|
|
|
|
stop
|
|
|
|
|
|
|
|
|
|
end select
|
|
|
|
|
|
|
|
|
|
end subroutine read_grid
|
