From d60d65b08b1e5f4e1e7f7b7a2149158313129b2c Mon Sep 17 00:00:00 2001
From: Anthony Scemama <scemama@irsamc.ups-tlse.fr>
Date: Wed, 19 Dec 2018 14:50:34 +0100
Subject: [PATCH] Fixed QP_MAXMEM

---
 src/utils/memory.irp.f | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/utils/memory.irp.f b/src/utils/memory.irp.f
index 22625886..3b444f3a 100644
--- a/src/utils/memory.irp.f
+++ b/src/utils/memory.irp.f
@@ -5,12 +5,12 @@ BEGIN_PROVIDER [ integer, qp_max_mem ]
  END_DOC
  character*(128) :: env
 
- qp_max_mem = huge(1)/10
+ qp_max_mem = 2000
  call getenv('QP_MAXMEM',env)
  if (trim(env) /= '') then
     read(env,*) qp_max_mem
-    call write_int(6,qp_max_mem,'Target maximum memory')
  endif
+ call write_int(6,qp_max_mem,'Target maximum memory (GB)')
 
 END_PROVIDER