SRC: fix implicit function declarations errors

arrowd · arrowd · commit b30bf4d65b15 · 2025-07-05T21:36:06.000+03:00
diff --git a/SRC/pcrot.c b/SRC/pcrot.c
@@ -190,6 +190,7 @@ void pcrot_( Int *n, complex X[], Int *ix, Int *jx, Int desc_X[], Int *incx, com
    F_INTG_FCT  pbctrnv_();
    F_INTG_FCT  crot_();
    F_INTG_FCT  ilcm_();
+   F_INTG_FCT  numroc_();
 /* ..
 *  .. Executable Statements ..
 *
diff --git a/SRC/pzrot.c b/SRC/pzrot.c
@@ -190,6 +190,7 @@ void pzrot_( Int *n, complex16 X[], Int *ix, Int *jx, Int desc_X[], Int *incx, c
    F_INTG_FCT  pbztrnv_();
    F_INTG_FCT  zrot_();
    F_INTG_FCT  ilcm_();
+   F_INTG_FCT  numroc_();
 /* ..
 *  .. Executable Statements ..
 *

Original file line number	Diff line number	Diff line change
`@@ -190,6 +190,7 @@ void pcrot_( Int n, complex X[], Int ix, Int jx, Int desc_X[], Int incx, com`
`190`	`190`	`F_INTG_FCT pbctrnv_();`
`191`	`191`	`F_INTG_FCT crot_();`
`192`	`192`	`F_INTG_FCT ilcm_();`
	`193`	`+ F_INTG_FCT numroc_();`
`193`	`194`	`/* ..`
`194`	`195`	`* .. Executable Statements ..`
`195`	`196`	`*`
Original file line number	Diff line number	Diff line change
`@@ -190,6 +190,7 @@ void pzrot_( Int n, complex16 X[], Int ix, Int jx, Int desc_X[], Int incx, c`
`190`	`190`	`F_INTG_FCT pbztrnv_();`
`191`	`191`	`F_INTG_FCT zrot_();`
`192`	`192`	`F_INTG_FCT ilcm_();`
	`193`	`+ F_INTG_FCT numroc_();`
`193`	`194`	`/* ..`
`194`	`195`	`* .. Executable Statements ..`
`195`	`196`	`*`