mirror of
https://github.com/QuantumPackage/qp2.git
synced 2024-11-05 13:03:39 +01:00
15 lines
336 B
Fortran
15 lines
336 B
Fortran
|
BEGIN_PROVIDER [ integer, nthreads_pt2 ]
|
||
|
implicit none
|
||
|
BEGIN_DOC
|
||
|
! Number of threads for Davidson
|
||
|
END_DOC
|
||
|
nthreads_pt2 = nproc
|
||
|
character*(32) :: env
|
||
|
call getenv('QP_NTHREADS_PT2',env)
|
||
|
if (trim(env) /= '') then
|
||
|
read(env,*) nthreads_pt2
|
||
|
call write_int(6,nthreads_pt2,'Target number of threads for PT2')
|
||
|
endif
|
||
|
END_PROVIDER
|
||
|
|