Changes between Version 10 and Version 11 of FortranApps

Timestamp:

Oct 31, 2007, 8:09:39 PM (17 years ago)

Author:

chojin

Comment:

--

FortranApps

@@ -40 +40 @@
   SUBROUTINE boinc_finish(status)
     !DEC$ ATTRIBUTES C :: boinc_finish
-    !DEC$ ATTRIBUTES ALIAS : '?boinc_finish@@YAHH@Z' :: boinc__finish
     INTEGER status
   END SUBROUTINE boinc_finish
@@ -92 +91 @@
 Link with: `libboinc.lib`, `libboincapi.lib`, own graphics lib, `gdi32.lib` `user32.lib` `opengl32.lib` `glu32.lib` `advapi32.lib` `delayimp.lib` `freetype.lib` `glut32.lib` (you may need `/link /nodefaultlib:libc.lib`).
 
+== Advice from Scott Kruger ==
+
+Under Linux with ifort:
+
+boinc_api_fortran.C seems work just fine, except that a few modifications were needed to make it work for us.
+
+ 1. Need to include "str_util.h"
+ 2. Comment out '#include "boinc_zip.h"'
+ 3. Comment out these functions: boinc_write_init_data_file, boinc_zip
+ 4. Change the function boincrf_ to the following:
+
+{{{
+void boincrf_(const char* s, char* t, int * s_len, int * t_len) {
+    STRING_FROM_FORTRAN sff(s, *s_len);
+    sff.strip_whitespace();
+    boinc_resolve_filename(sff.c_str(), t, *t_len);
+    string_to_fortran(t, *t_len);
+}
+}}}
+
+Compile and include boinc_api_fortran.o when you link everything together.
+
+Under Windows with ifort:
+
+We were unable to get the either the INTERFACE or boinc_api_fortran.C approaches to work properly, so we settled on a combination of the two. boincrf_ is still useful because you are working with Fortran strings, so you'll still want to use boinc_api_fortran.C (we compiled it with libboincapi.lib). You will still need to change a few things around: 
+ 1. Visual Studio 2005 didn't like strlcpy somewhere in the BOINC API, so that had to be changed to strncpy (you might not have to do this if strlcpy works for you).
+ 2. Make all the aforementioned changes to boinc_api_fortran.C except step 4
+
+Also, you'll want to explicitly include Fortran INTERFACEs to your code. boincrf_ is especially tricky:
+
+{{{
+INTERFACE
+  SUBROUTINE boincrf_(s, t, s_len, t_len)
+    !DEC$ ATTRIBUTES C :: boincrf_
+    CHARACTER* (*) s
+    !DEC$ ATTRIBUTES REFERENCE :: s 
+    CHARACTER* (*) t
+    !DEC$ ATTRIBUTES REFERENCE :: t
+    INTEGER s_len
+    INTEGER t_len
+  END SUBROUTINE boincrf_
+END INTERFACE
+}}}
+
+You'll have to include an interface for every BOINC function you want to call, but it isn't all that difficult for the others.
+
 == Example from David Braun ==