1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
--- BLACS/SRC/blacs_init_.c.orig 2024-08-06 11:44:11 UTC
+++ BLACS/SRC/blacs_init_.c
@@ -6,7 +6,12 @@ F_VOID_FUNC blacs_gridinit_(Int *ConTxt, F_CHAR order,
F_VOID_FUNC blacs_gridinit_(Int *ConTxt, F_CHAR order, Int *nprow, Int *npcol)
#endif
{
+#if (INTFACE == C_CALL)
void Cblacs_gridmap(Int *, Int *, Int, Int, Int);
+#else
+ F_VOID_FUNC blacs_gridmap_(Int *ConTxt, Int *usermap, Int *ldup, Int *nprow0,
+ Int *npcol0);
+#endif
Int *tmpgrid, *iptr;
Int i, j;
|
