File indexing completed on 2024-11-24 05:05:28 

0001 #include "other.h"
0002 
0003 int cal_c()
0004 {
0005     double a = 1.0;
0006     double b = 1.0;
0007     double c = 1.0;
0008     cal1_(&a, &b, &c);
0009     return c;
0010 }
0011 
0012 // A function that has '_' suffix, but it is implemented in C (not Fortran binding)
0013 void c_func_(); // Declaration (up to now, don't know if there'll be a definition in C code)
0014 void c_func_()
0015 {
0016 } // Definition. Assume there won't be a Fortran version.