lowered default SPIENVs

Author: Bruno02468

Source/Modules/PARAMS.f90

@@ -504,9 +504,9 @@ MODULE PARAMS
       INTEGER(LONG)            :: F06_COL_START  =     0     ! 1st col in F06 file for output data to begin. If it is not > 2, then
 !                                                              output will be written with each main header centered on one another
 
-      INTEGER(LONG)            :: SPIENV6        =   100     ! Memory growth factor for SuperLU_MT -- corresponds to -sp_ienv(6)
-      INTEGER(LONG)            :: SPIENV7        =   100     ! Memory growth factor for SuperLU_MT -- corresponds to -sp_ienv(7)
-      INTEGER(LONG)            :: SPIENV8        =    50     ! Memory growth factor for SuperLU_MT -- corresponds to -sp_ienv(8)
+      INTEGER(LONG)            :: SPIENV6        =   50     ! Memory growth factor for SuperLU_MT -- corresponds to -sp_ienv(6)
+      INTEGER(LONG)            :: SPIENV7        =   50     ! Memory growth factor for SuperLU_MT -- corresponds to -sp_ienv(7)
+      INTEGER(LONG)            :: SPIENV8        =   30     ! Memory growth factor for SuperLU_MT -- corresponds to -sp_ienv(8)
 
       INTEGER(LONG)            :: SLU_NTHR        =    0     ! Number of threads for SuperLU_MT.
                                                              ! Using 0 will use as many threads as the system has.

superlu_mt_patches/SRC/sp_ienv.c

@@ -12,9 +12,9 @@ at the top-level directory.
 #include "slu_mt_ddefs.h"
 
 /* these can be set from Fortran, allowing MYSTRAN to control them at runtime */
-int_t param_spienv6 = 100;
-int_t param_spienv7 = 100;
-int_t param_spienv8 = 50;
+int_t param_spienv6 = 50;
+int_t param_spienv7 = 50;
+int_t param_spienv8 = 30;
 
 /* this subroutine can be called from Fortran!
  * if the passed growth factor is non-zero, we set it.