File 0001-Fix-trlan77-prototype-declaration-in-simplec-example.patch of Package trlan
From b2c05177869b6489216a690485de0245a3bfe23c Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Stefan=20Br=C3=BCns?= <stefan.bruens@rwth-aachen.de>
Date: Thu, 12 Dec 2024 15:58:58 +0100
Subject: [PATCH] Fix trlan77 prototype declaration in simplec example
trlan77 is a Fortran subroutine, i.e. equivalent to a C `void` function.
---
examples/SUN/simplec.c | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/examples/SUN/simplec.c b/examples/SUN/simplec.c
index a5679af..7b6de0a 100644
--- a/examples/SUN/simplec.c
+++ b/examples/SUN/simplec.c
@@ -24,10 +24,10 @@ int my_pe = 0;
/* prototype of operator (matrix-vector multiplication routine */
void diag_op(int*, int*, double*, int*, double*, int*);
-/* prototype of the TRLan77 function (written in FORTRAN)
+/* prototype of the TRLan77 subroutine (written in FORTRAN)
NOTE: the first argument is a function pointer
*/
-extern F_TRLAN(void(*op)(int*, int*, double*, int*, double*, int*),
+extern void F_TRLAN(void(*op)(int*, int*, double*, int*, double*, int*),
int*, int*, int*, double*, double*, int*, double*, int*);
#ifdef __PGI
--
2.47.1