qp2/src/cipsi/environment.irp.f

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
   call lock_io()
   read(env,*) nthreads_pt2
   call unlock_io()
   call write_int(6,nthreads_pt2,'Target number of threads for PT2')
 endif
END_PROVIDER
Initial commit 2019-01-25 11:39:31 +01:00			`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`
Improve thread-safety 2023-04-17 17:03:16 +02:00			`call lock_io()`
Initial commit 2019-01-25 11:39:31 +01:00			`read(env,*) nthreads_pt2`
Improve thread-safety 2023-04-17 17:03:16 +02:00			`call unlock_io()`
Initial commit 2019-01-25 11:39:31 +01:00			`call write_int(6,nthreads_pt2,'Target number of threads for PT2')`
			`endif`
			`END_PROVIDER`