[h2root] Fix declaration and usage of hropen

According to the `gfortran` argument passing conventions, for any
Fortran procedure, the compiler will automatically define a C prototype.
This is what we use in `h2root`.

However, for procedures like `HROPEN` that takes string arguments, the
signature of the C prototype will have extra arguments for the string
lengths, which we also have to include in our forward declaration and
usage. Otherwise, we get undefined behavor, which causes the `h2root`
test to fail on ARM64 with GCC 14.

[1] https://gcc.gnu.org/onlinedocs/gfortran/Argument-passing-conventions.html

Author: guitargeek

main/src/h2root.cxx

@@ -171,8 +171,8 @@ extern "C" void  type_of_call hlimit(const int&);
 extern "C" void  type_of_call hropen(const int&,DEFCHAR,DEFCHAR,DEFCHAR,
                         const int&,const int&,const int,const int,const int);
 #else
-extern "C" void  type_of_call hropen(const int&,DEFCHAR,DEFCHAR,DEFCHAR,
-                        const int&,const int&);
+extern "C" void  type_of_call hropen(int*,DEFCHAR,DEFCHAR,DEFCHAR,
+                        int*,int*,size_t,size_t,size_t);
 #endif
 
 extern "C" void  type_of_call hrin(const int&,const int&,const int&);
@@ -318,7 +318,8 @@ int main(int argc, char **argv)
    auto opt = PASSCHAR("px ");
    hropen(lun,PASSCHAR("example"),PASSCHAR(file_in),opt,record_size,ier,7,strlen(file_in),2);
 #else
-   hropen(lun,PASSCHAR("example"),PASSCHAR(file_in),PASSCHAR("px"),record_size,ier);
+   hropen(&lun,PASSCHAR("example"),PASSCHAR(file_in),PASSCHAR("px"),&record_size,&ier,
+           strlen("example"), strlen(file_in), strlen("px"));
 #endif
 
    if (ier) printf (" Error on hropen was %d \n", ier);