fortran-iso-c-binding

I want to be able to call networking functions in my Fortran application. My boss wants me to do everything in Fortran instead of using C and Fortran. We have already done a version of the application using PGI's Fortran compiler on Windows. We are moving it to Linux where we will probably use their compiler. Right now, I'm using gfortran. I have created an interface for these networking calls, and everything compiles and links. The code below is something similar to what I'm doing except the interfaces and constants are in a module. PROGRAM MAIN INTEGER,PARAMETER ::AF_INET = 2 INTEGER

I digged on the forum looking for a solution but I failed. My main problem is I am too noob with C language and Fortran-C interoperability in order to understand what I am doing wrong exactly. I want to call a C routine from Fortran but I'm having problem with the declaration of the variables. I made an example. This is the C routine: #include <stdio.h> #include <stdlib.h> #include <math.h> #include <complex.h> #undef I int photon_trace(double x_init[4], double x_final[4]) //*************************************************** { double r,m,t,phi; t = x_init[0]; r = x_init[1]; m = x_init[2]; phi

I have a large existing Fortran95 code. It uses real(dp), dimension(num) :: array to declare arrays. I want to join in some C code and found that I can do this by writing interfaces to the C-functions and declaring arrays as use iso_c_binding real(c_double), allocatable, target :: array(:) I have working fortran functions which call the C-functions as call myfunction(c_loc(array)); What is needed to pass the real(dp) array to myfunction? Apparently, I would need to make a C-pointer from it (how?). Is there any other way than copying the array? Is it possible to ensure that both types indeed

My main question is why arrays do such weird things and whether there is any way at all to do the following in a "clean" way. I currently have a C program foo.c interfacing a Fortran program bar.f90 via dlopen/dlsym , roughly like in the code below: foo.c: #include <dlfcn.h> #include <stdio.h> int main() { int i, k = 4; double arr[k]; char * e; void * bar = dlopen("Code/Test/bar.so", RTLD_NOW | RTLD_LOCAL); void (*allocArray)(int*); *(void **)(&allocArray) = dlsym(bar, "__bar_MOD_allocarray"); void (*fillArray)(double*); *(void **)(&fillArray) = dlsym(bar, "__bar_MOD_fillarray"); void (

For reasons that are not relevant, I need to pass a C/C++ function name into a Fortran subroutine, which, in turn, calls that C function. What I have found is that I can succesfully pass the function name into the Fortran subroutine. In that subroutine I can call the correct C function. However, the arguments of the C function get broken on this call (when called directly from C it works fine). I have used ISO C Binding to try and get this to work, to no avail. Here is a MWE: fortranRoutine.h: extern "C" { void fortranRoutine_(void(int status)); }; calledfromFortran.h: void calledfromFortran

I have a Fortran module that contains some variables that have the attribute parameter and some have the attribute save . The parameter ones are not included in the compiled object, which becomes a problem when trying to assemble a library. For example, consider a file testModule.f90 : module testMOD integer, save :: thisIsSaved = 1 integer, parameter :: thisIsParametered = 2 end module testMOD I compile this with: ifort -c testModule.f90 . When I check what's inside it: >$ nm testModule.o 0000000000000000 T testmod._ 0000000000000000 D testmod_mp_thisissaved_ only the thisIsSaved variable is

I am used to Fortran in which I used the namelist sequential read in to get variables out of a file. This allows me to have a file which looks like this &inputDataList n = 1000.0 ! This is the first variable m = 1e3 ! Second l = -2 ! Last variable / where I can name the variable by it's name and assign a value as well as comment afterwards to state what the variable actually is. The loading is done extremely easy by namelist /inputDataList/ n, m, l open( 100, file = 'input.txt' ) read( unit = 100, nml = inputDataList ) close( 100 ) Now my question is, is there any similar thing in C? Or would