some tuning
authorRenegade <Renegate@Renegates-MacBook-Pro.local>
Fri, 11 Nov 2016 14:57:51 +0000 (09:57 -0500)
committerRenegade <Renegate@Renegates-MacBook-Pro.local>
Fri, 11 Nov 2016 14:57:51 +0000 (09:57 -0500)
SRC/iparam2stage.F

index ca09906..6443f16 100644 (file)
 *     Could be also dependent from N but for now it
 *     depend only on sequential or parallel
 *
-      IF( NTHREADS.GT.1 ) THEN
+      IF( NTHREADS.GT.4 ) THEN
           IF( CPREC ) THEN
               KD = 128
               IB = 32
               KD = 160
               IB = 40
           ENDIF
+      ELSE IF( NTHREADS.GT.1 ) THEN
+          IF( CPREC ) THEN
+              KD = 64
+              IB = 32
+          ELSE
+              KD = 64
+              IB = 32
+          ENDIF
       ELSE
           IF( CPREC ) THEN
               KD = 16