Fix uninitialized EST in Placon

verssy · verssy · commit aed609a18a94 · 2025-03-22T19:38:38.000+07:00
diff --git a/SRC/pclacon.f b/SRC/pclacon.f
@@ -186,6 +186,7 @@ SUBROUTINE PCLACON( N, V, IV, JV, DESCV, X, IX, JX, DESCX, EST,
 *
 *     Get grid parameters.
 *
+      EST = ZERO
       ICTXT = DESCX( CTXT_ )
       CALL BLACS_GRIDINFO( ICTXT, NPROW, NPCOL, MYROW, MYCOL )
 *
diff --git a/SRC/pdlacon.f b/SRC/pdlacon.f
@@ -184,6 +184,7 @@ SUBROUTINE PDLACON( N, V, IV, JV, DESCV, X, IX, JX, DESCX, ISGN,
 *
 *     Get grid parameters.
 *
+      EST = ZERO
       ESTWORK( 1 ) = EST
       ICTXT = DESCX( CTXT_ )
       CALL BLACS_GRIDINFO( ICTXT, NPROW, NPCOL, MYROW, MYCOL )
diff --git a/SRC/pslacon.f b/SRC/pslacon.f
@@ -186,6 +186,7 @@ SUBROUTINE PSLACON( N, V, IV, JV, DESCV, X, IX, JX, DESCX, ISGN,
 *
 *     Get grid parameters.
 *
+      EST = ZERO
       ESTWORK( 1 ) = EST
       ICTXT = DESCX( CTXT_ )
       CALL BLACS_GRIDINFO( ICTXT, NPROW, NPCOL, MYROW, MYCOL )
diff --git a/SRC/pzlacon.f b/SRC/pzlacon.f
@@ -186,6 +186,7 @@ SUBROUTINE PZLACON( N, V, IV, JV, DESCV, X, IX, JX, DESCX, EST,
 *
 *     Get grid parameters.
 *
+      EST = ZERO
       ICTXT = DESCX( CTXT_ )
       CALL BLACS_GRIDINFO( ICTXT, NPROW, NPCOL, MYROW, MYCOL )
 *

Original file line number	Diff line number	Diff line change
`@@ -186,6 +186,7 @@ SUBROUTINE PCLACON( N, V, IV, JV, DESCV, X, IX, JX, DESCX, EST,`
`186`	`186`	`*`
`187`	`187`	`* Get grid parameters.`
`188`	`188`	`*`
	`189`	`+ EST = ZERO`
`189`	`190`	`ICTXT = DESCX( CTXT_ )`
`190`	`191`	`CALL BLACS_GRIDINFO( ICTXT, NPROW, NPCOL, MYROW, MYCOL )`
`191`	`192`	`*`
Original file line number	Diff line number	Diff line change
`@@ -184,6 +184,7 @@ SUBROUTINE PDLACON( N, V, IV, JV, DESCV, X, IX, JX, DESCX, ISGN,`
`184`	`184`	`*`
`185`	`185`	`* Get grid parameters.`
`186`	`186`	`*`
	`187`	`+ EST = ZERO`
`187`	`188`	`ESTWORK( 1 ) = EST`
`188`	`189`	`ICTXT = DESCX( CTXT_ )`
`189`	`190`	`CALL BLACS_GRIDINFO( ICTXT, NPROW, NPCOL, MYROW, MYCOL )`
Original file line number	Diff line number	Diff line change
`@@ -186,6 +186,7 @@ SUBROUTINE PSLACON( N, V, IV, JV, DESCV, X, IX, JX, DESCX, ISGN,`
`186`	`186`	`*`
`187`	`187`	`* Get grid parameters.`
`188`	`188`	`*`
	`189`	`+ EST = ZERO`
`189`	`190`	`ESTWORK( 1 ) = EST`
`190`	`191`	`ICTXT = DESCX( CTXT_ )`
`191`	`192`	`CALL BLACS_GRIDINFO( ICTXT, NPROW, NPCOL, MYROW, MYCOL )`
Original file line number	Diff line number	Diff line change
`@@ -186,6 +186,7 @@ SUBROUTINE PZLACON( N, V, IV, JV, DESCV, X, IX, JX, DESCX, EST,`
`186`	`186`	`*`
`187`	`187`	`* Get grid parameters.`
`188`	`188`	`*`
	`189`	`+ EST = ZERO`
`189`	`190`	`ICTXT = DESCX( CTXT_ )`
`190`	`191`	`CALL BLACS_GRIDINFO( ICTXT, NPROW, NPCOL, MYROW, MYCOL )`
`191`	`192`	`*`