= FORTRAN applications =


== F2X ==
One option is to use f2c to convert your FORTRAN program to C. M.F. Somers has created a [http://boinc.gorlaeus.net/F2c.php BOINC-enabled f2c library] that simplifies this process.

== Windows: cygwin ==

Include the file 'boinc_api_fortran.C' in the api/Makefile.am, but comment out the 'zip' calls, to avoid the linking with 'libboinc_zip.a'

To link it is necessary to include the 'winmm.dll' library (-lwinmm).

== Windows: Visual Studio ==

Note: a working example similar to the following (based on outdated BOINC code) is [/TestLibs.zip here]; see also its [/taufer.txt README].

Start by creating a new FORTRAN project. Add all the FORTRAN specific files, then add all the files needed for the BOINC library (e.g. `boinc_api.C`). Make sure that BOINC and the FORTRAN files are compiled using the same type of standard libraries. i.e. if the BOINC is compiled with the debug multithreaded DLL libraries, make sure the FORTRAN files are compiled with the DLL setting.

For every BOINC function you want to call from Fortran you must add an interface and subroutine:

{{{
INTERFACE
  SUBROUTINE boinc_finish(status)
  END SUBROUTINE boinc_finish
END INTERFACE
}}}

Remember to declare the type of arguments. INTEGER status

You must then tell the compiler that the function you are interfacing is a C routine. You do this by adding the statement:

{{{
 !DEC$ ATTRIBUTES C :: boinc_finish
}}}

The interface will end up looking like this:

{{{
INTERFACE
  SUBROUTINE boinc_finish(status)
    !DEC$ ATTRIBUTES C :: boinc_finish
    !DEC$ ATTRIBUTES ALIAS : '?boinc_finish@@YAHH@Z' :: boinc__finish
    INTEGER status
  END SUBROUTINE boinc_finish
END INTERFACE
}}}

You can now call the BOINC function in FORTRAN.

{{{
call boinc_finish(0)
}}}

== Intel FORTRAN compiler ==

`-ax<codes>` generate codes specialized for processors specified by `<codes>` while also generating generic IA-32 code. `<codes>` includes one or more of the following characters:

 K:: Intel Pentium III and compatible Intel processors

 W:: Intel Pentium 4 and compatible Intel processors

 N:: Intel Pentium 4 and compatible Intel processors.  Enables new
       optimizations in addition to Intel processor-specific optimizations

 P:: Intel Core(TM) Duo processors, Intel Core(TM) Solo processors, Intel
       Pentium 4 and compatible Intel processors with Streaming SIMD
       Extensions 3 (SSE3) instruction support

 B:: Intel Pentium M and compatible Intel processors

You should not use the `-x` options!

== Instructions from Martin Korth ==
''(can someone please integrate these with the above?)''

Under Linux:
 1. Compile BOINC libs the standard way (you need `boinc.a`, `boinc_api.a`, and for graphics also `boinc_graphics_lib.a`).
 2. Compile `boinc_api_fortran.o`.
 3. Compile own graphics lib if needed.
 4. Compile app files (for us: `ifort -O2 ...' and 'icc -O2 ...`).
 5. Link application (for us: `ifort -static-libcxa ...`).

Link with: `boinc_api_fortran.o`, `boinc.a`, `boinc_api.a`, `boinc_graphics_lib.a`, `C-(runtime)-libs` (`dl`, `nsl`, `gcc_s`, `stdc++`, `pthread`, `m`, `c`, ... - as they are not default for the Fortran compiler), and own graphics lib.

Under Windows:
 1. Compile BOINC libs the standard way (you need `libboinc.lib`, `libboincapi.lib`).
 2. Compile `boinc_api_fortran.o` (at the moment I still use my old solution with an interface for every Fortran function).
 3. Compile own graphics lib if needed.
 4. Compile app files (for us: `ifort /nologo /MT /O2 ...` and `cl /nologo /MT /O2 ...`) - 'nmake' makes life easier ...
 5. Link application (for us `ifort /nologo /MT ...`).

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`).

== Example from David Braun ==

An example FORTRAN application is attached.
{{{
instructions:

../fortran/configure
'--with-boinc=/usr/people/dbraun/src/boinc/build-5.9.3'
'--with-boinc_src=/usr/people/dbraun/src/boinc/boinc5.9.3' 'FC=gfortran'

make

I have different complie and src directories for boinc. --with-boinc is
the compile dir and --with-boinc_src is the source directory.

the app does nothing.  this is dTASSER without the dTASSER code.  it
does compile link against the boinc libs.
}}}