mirror of
https://github.com/LCPQ/quantum_package
synced 2024-10-20 06:48:20 +02:00
Fixed QP_MAXMEM
This commit is contained in:
parent
17ec0f5f75
commit
d60d65b08b
@ -5,12 +5,12 @@ BEGIN_PROVIDER [ integer, qp_max_mem ]
|
|||||||
END_DOC
|
END_DOC
|
||||||
character*(128) :: env
|
character*(128) :: env
|
||||||
|
|
||||||
qp_max_mem = huge(1)/10
|
qp_max_mem = 2000
|
||||||
call getenv('QP_MAXMEM',env)
|
call getenv('QP_MAXMEM',env)
|
||||||
if (trim(env) /= '') then
|
if (trim(env) /= '') then
|
||||||
read(env,*) qp_max_mem
|
read(env,*) qp_max_mem
|
||||||
call write_int(6,qp_max_mem,'Target maximum memory')
|
|
||||||
endif
|
endif
|
||||||
|
call write_int(6,qp_max_mem,'Target maximum memory (GB)')
|
||||||
|
|
||||||
END_PROVIDER
|
END_PROVIDER
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user