mirror of
https://github.com/QuantumPackage/qp2.git
synced 2024-11-07 14:43:50 +01:00
10 lines
202 B
Fortran
10 lines
202 B
Fortran
|
BEGIN_PROVIDER [ integer, grid_atomic_number, (nucl_num) ]
|
||
|
|
implicit none
|
||
|
|
BEGIN_DOC
|
||
|
|
! Atomic number used to adjust the grid
|
||
|
|
END_DOC
|
||
|
|
grid_atomic_number(:) = max(1,int(nucl_charge(:)))
|
||
|
|
|
||
|
|
END_PROVIDER
|
||
|
|
|