mirror of
https://github.com/pfloos/quack
synced 2024-06-21 12:42:15 +02:00
48 lines
834 B
Fortran
48 lines
834 B
Fortran
subroutine read_grid(SGn,nRad,nAng,nGrid)
|
|
|
|
! Read grid type
|
|
|
|
implicit none
|
|
|
|
! Input variables
|
|
|
|
integer,intent(in) :: SGn
|
|
|
|
! Output variables
|
|
|
|
integer,intent(out) :: nRad
|
|
integer,intent(out) :: nAng
|
|
integer,intent(out) :: nGrid
|
|
|
|
write(*,*)'----------------------------------------------------------'
|
|
write(*,'(A22,I1)')' Quadrature grid: SG-',SGn
|
|
write(*,*)'----------------------------------------------------------'
|
|
|
|
select case (SGn)
|
|
|
|
case(0)
|
|
nRad = 23
|
|
nAng = 170
|
|
|
|
case(1)
|
|
nRad = 50
|
|
nAng = 194
|
|
|
|
case(2)
|
|
nRad = 75
|
|
nAng = 302
|
|
|
|
case(3)
|
|
nRad = 99
|
|
nAng = 590
|
|
|
|
case default
|
|
call print_warning('!!! Quadrature grid not available !!!')
|
|
stop
|
|
|
|
end select
|
|
|
|
nGrid = nRad*nAng
|
|
|
|
end subroutine read_grid
|