Fix -Wparentheses

Author: prj-

BLACS/SRC/BI_MringComb.c

@@ -16,7 +16,7 @@ void BI_MringComb(BLACSCONTEXT *ctxt, BLACBUFF *bp, BLACBUFF *bp2,
    if (Np < 2) return;
    Iam = ctxt->scp->Iam;
    msgid = Mscopeid(ctxt);
-   if (REBS = (dest == -1)) dest = 0;
+   if ( ( REBS = (dest == -1) ) ) dest = 0;
 
    if (nrings > 0)
    {

BLACS/SRC/BI_TreeComb.c

@@ -85,7 +85,7 @@ void BI_TreeComb(BLACSCONTEXT *ctxt, BLACBUFF *bp, BLACBUFF *bp2,
    Iam = ctxt->scp->Iam;
    msgid = Mscopeid(ctxt);
    Rmsgid = Mscopeid(ctxt);
-   if (REBS = (dest == -1)) dest = 0;
+   if ( ( REBS = (dest == -1) ) ) dest = 0;
 
    mydist = (Np + Iam - dest) % Np;
    if (REBS)

PBLAS/SRC/PTOOLS/PB_Cpaxpby.c

@@ -654,7 +654,7 @@ void PB_Cpaxpby( TYPE, CONJUG, M, N, ALPHA, A, IA, JA, DESCA, AROC,
                                      BnprocsD );
                   PB_CVMinit( &VM, 0, AnpD, BnpD, Ainb1D, Binb1D, AnbD, BnbD,
                               p, q, AnprocsD, BnprocsD, lcmb );
-                  if( npq = PB_CVMnpq( &VM ) )
+                  if( ( npq = PB_CVMnpq( &VM ) ) )
                   {
                      if( ( RRorCC && ( Aroc == Broc ) &&
                            ( AisR || ( AprocR == BprocR ) ) ) ||

PBLAS/SRC/pcdotc_.c

@@ -526,7 +526,7 @@ void pcdotc_( N, DOT, X, IX, JX, DESCX, INCX, Y, IY, JY, DESCY, INCY )
 *  distributed in the same direction, or there is just one block to be exchanged
 *  or if both operands are similarly distributed in their respective direction.
 */
-         if( ( YmyprocR == YprocR ) )
+         if( YmyprocR == YprocR )
          {
 /*
 *  The processes owning a piece of sub( Y ) send it to the corresponding

PBLAS/SRC/pcdotu_.c

@@ -526,7 +526,7 @@ void pcdotu_( N, DOT, X, IX, JX, DESCX, INCX, Y, IY, JY, DESCY, INCY )
 *  distributed in the same direction, or there is just one block to be exchanged
 *  or if both operands are similarly distributed in their respective direction.
 */
-         if( ( YmyprocR == YprocR ) )
+         if( YmyprocR == YprocR )
          {
 /*
 *  The processes owning a piece of sub( Y ) send it to the corresponding

PBLAS/SRC/pcswap_.c

@@ -658,7 +658,7 @@ void pcswap_( N, X, IX, JX, DESCX, INCX, Y, IY, JY, DESCY, INCY )
                                      YnprocsD );
                   PB_CVMinit( &VM, 0, XnpD, YnpD, Xinb1D, Yinb1D, XnbD, YnbD,
                               p, q, XnprocsD, YnprocsD, lcmb );
-                  if( npq = PB_CVMnpq( &VM ) )
+                  if( ( npq = PB_CVMnpq( &VM ) ) )
                   {
                      if( (    RRorCC   && ( Xroc ==   Yroc ) &&
                            ( XprocR == YprocR ) ) ||

PBLAS/SRC/pddot_.c

@@ -525,7 +525,7 @@ void pddot_( N, DOT, X, IX, JX, DESCX, INCX, Y, IY, JY, DESCY, INCY )
 *  distributed in the same direction, or there is just one block to be exchanged
 *  or if both operands are similarly distributed in their respective direction.
 */
-         if( ( YmyprocR == YprocR ) )
+         if( YmyprocR == YprocR )
          {
 /*
 *  The processes owning a piece of sub( Y ) send it to the corresponding

PBLAS/SRC/pdswap_.c

@@ -658,7 +658,7 @@ void pdswap_( N, X, IX, JX, DESCX, INCX, Y, IY, JY, DESCY, INCY )
                                      YnprocsD );
                   PB_CVMinit( &VM, 0, XnpD, YnpD, Xinb1D, Yinb1D, XnbD, YnbD,
                               p, q, XnprocsD, YnprocsD, lcmb );
-                  if( npq = PB_CVMnpq( &VM ) )
+                  if( ( npq = PB_CVMnpq( &VM ) ) )
                   {
                      if( (    RRorCC   && ( Xroc ==   Yroc ) &&
                            ( XprocR == YprocR ) ) ||

PBLAS/SRC/psdot_.c

@@ -525,7 +525,7 @@ void psdot_( N, DOT, X, IX, JX, DESCX, INCX, Y, IY, JY, DESCY, INCY )
 *  distributed in the same direction, or there is just one block to be exchanged
 *  or if both operands are similarly distributed in their respective direction.
 */
-         if( ( YmyprocR == YprocR ) )
+         if( YmyprocR == YprocR )
          {
 /*
 *  The processes owning a piece of sub( Y ) send it to the corresponding

PBLAS/SRC/psswap_.c

@@ -658,7 +658,7 @@ void psswap_( N, X, IX, JX, DESCX, INCX, Y, IY, JY, DESCY, INCY )
                                      YnprocsD );
                   PB_CVMinit( &VM, 0, XnpD, YnpD, Xinb1D, Yinb1D, XnbD, YnbD,
                               p, q, XnprocsD, YnprocsD, lcmb );
-                  if( npq = PB_CVMnpq( &VM ) )
+                  if( ( npq = PB_CVMnpq( &VM ) ) )
                   {
                      if( (    RRorCC   && ( Xroc ==   Yroc ) &&
                            ( XprocR == YprocR ) ) ||

PBLAS/SRC/pzdotc_.c

@@ -526,7 +526,7 @@ void pzdotc_( N, DOT, X, IX, JX, DESCX, INCX, Y, IY, JY, DESCY, INCY )
 *  distributed in the same direction, or there is just one block to be exchanged
 *  or if both operands are similarly distributed in their respective direction.
 */
-         if( ( YmyprocR == YprocR ) )
+         if( YmyprocR == YprocR )
          {
 /*
 *  The processes owning a piece of sub( Y ) send it to the corresponding

PBLAS/SRC/pzdotu_.c

@@ -526,7 +526,7 @@ void pzdotu_( N, DOT, X, IX, JX, DESCX, INCX, Y, IY, JY, DESCY, INCY )
 *  distributed in the same direction, or there is just one block to be exchanged
 *  or if both operands are similarly distributed in their respective direction.
 */
-         if( ( YmyprocR == YprocR ) )
+         if( YmyprocR == YprocR )
          {
 /*
 *  The processes owning a piece of sub( Y ) send it to the corresponding

PBLAS/SRC/pzswap_.c

@@ -658,7 +658,7 @@ void pzswap_( N, X, IX, JX, DESCX, INCX, Y, IY, JY, DESCY, INCY )
                                      YnprocsD );
                   PB_CVMinit( &VM, 0, XnpD, YnpD, Xinb1D, Yinb1D, XnbD, YnbD,
                               p, q, XnprocsD, YnprocsD, lcmb );
-                  if( npq = PB_CVMnpq( &VM ) )
+                  if( ( npq = PB_CVMnpq( &VM ) ) )
                   {
                      if( (    RRorCC   && ( Xroc ==   Yroc ) &&
                            ( XprocR == YprocR ) ) ||