Fix two more missed int->Int

hughcars · hughcars · commit bd7bfa91ed5c · 2025-07-10T11:38:34.000-04:00
diff --git a/BLACS/SRC/igsum2d_.c b/BLACS/SRC/igsum2d_.c
@@ -166,13 +166,13 @@ F_VOID_FUNC igsum2d_(Int *ConTxt, F_CHAR scope, F_CHAR top, Int *m, Int *n,
          ierr=MPI_Reduce(bp->Buff, bp2->Buff, bp->N, bp->dtype, MPI_SUM,
                        dest, ctxt->scp->comm);
          if (ctxt->scp->Iam == dest)
-	    BI_ivmcopy(Mpval(m), Mpval(n), A, tlda, (int*)bp2->Buff);
+	    BI_ivmcopy(Mpval(m), Mpval(n), A, tlda, (Int*)bp2->Buff);
       }
       else
       {
          ierr=MPI_Allreduce(bp->Buff, bp2->Buff, bp->N, bp->dtype, MPI_SUM,
 		          ctxt->scp->comm);
-	 BI_ivmcopy(Mpval(m), Mpval(n), A, tlda, (int*)bp2->Buff);
+	 BI_ivmcopy(Mpval(m), Mpval(n), A, tlda, (Int*)bp2->Buff);
       }
       if (BI_ActiveQ) BI_UpdateBuffs(NULL);
       return;

Original file line number	Diff line number	Diff line change
`@@ -166,13 +166,13 @@ F_VOID_FUNC igsum2d_(Int ConTxt, F_CHAR scope, F_CHAR top, Int m, Int *n,`
`166`	`166`	`ierr=MPI_Reduce(bp->Buff, bp2->Buff, bp->N, bp->dtype, MPI_SUM,`
`167`	`167`	`dest, ctxt->scp->comm);`
`168`	`168`	`if (ctxt->scp->Iam == dest)`
`169`		`- BI_ivmcopy(Mpval(m), Mpval(n), A, tlda, (int*)bp2->Buff);`
	`169`	`+ BI_ivmcopy(Mpval(m), Mpval(n), A, tlda, (Int*)bp2->Buff);`
`170`	`170`	`}`
`171`	`171`	`else`
`172`	`172`	`{`
`173`	`173`	`ierr=MPI_Allreduce(bp->Buff, bp2->Buff, bp->N, bp->dtype, MPI_SUM,`
`174`	`174`	`ctxt->scp->comm);`
`175`		`- BI_ivmcopy(Mpval(m), Mpval(n), A, tlda, (int*)bp2->Buff);`
	`175`	`+ BI_ivmcopy(Mpval(m), Mpval(n), A, tlda, (Int*)bp2->Buff);`
`176`	`176`	`}`
`177`	`177`	`if (BI_ActiveQ) BI_UpdateBuffs(NULL);`
`178`	`178`	`return;`