use MOLCAS_MEM and OMP_NUM_THREADS env variables in Molcas interface

sanshar · Oct 22, 2019 · fc7f7c4 · fc7f7c4
1 parent ec06ff5
commit fc7f7c4
Showing 1 changed file with 13 additions and 0 deletions.
diff --git a/molcas/block_calldmrg.C b/molcas/block_calldmrg.C
@@ -220,6 +220,19 @@ void block_calldmrg (
     }
 
 //  fcon << "outputlevel 2" << endl;
+    char* pMem;
+    pMem = getenv ("MOLCAS_MEM");
+    if (pMem!=NULL)
+      fcon << "memory " << pMem << " m" << endl;
+    else
+      fcon << "memory 2000 m" << endl;
+
+    char* pONT;
+    pONT = getenv ("OMP_NUM_THREADS");
+    if (pONT!=NULL)
+      fcon << "num_thrds " << pONT << endl;
+    else
+      fcon << "num_thrds 1" << endl;
 
     fcon.close();
   }