Using Modules in Mixed-Language Programming

Modules are the simplest way to exchange large groups of variables with C, because Intel Fortran modules are directly accessible from C/C++. The following example declares a module in Fortran, then accesses its data from C.

The Fortran code:

 ! F90 Module definition     MODULE EXAMP        REAL A(3)        INTEGER I1, I2        CHARACTER(80) LINE        TYPE MYDATA           SEQUENCE           INTEGER N           CHARACTER(30) INFO        END TYPE MYDATA     END MODULE EXAMP

The C code:

  \* C code accessing module data *\  extern float EXAMP_mp_A[3];  extern int EXAMP_mp_I1, EXAMP_mp_I2;  extern char EXAMP_mp_LINE[80];  extern struct {             int N;             char INFO[30];  } EXAMP_mp_MYDATA;

When the C++ code resides in a .cpp file, C++ semantics are applied to external names, often resulting in linker errors. In this case, use the extern "C" syntax (see C/C++ Naming Conventions):

  \* C code accessing module data in .cpp file*\  extern "C" float EXAMP_mp_A[3];  extern "C" int EXAMP_mp_I1, EXAMP_mp_I2;  extern "C" char EXAMP_mp_LINE[80];  extern "C" struct {             int N;             char INFO[30];  } EXAMP_mp_MYDATA;

You can define an interface to a C routine in a module, then use it like you would an interface to a Fortran routine. The C code is:

The C code:

   // C procedure  void pythagoras (float a, float b, float *c)  {      *c = (float) sqrt(a*a + b*b);  }

When the C++ code resides in a .cpp file, use the extern "C" syntax (see C/C++ Naming Conventions):

  // C procedure  extern "C" void pythagoras (float a, float b, float *c)  {      *c = (float) sqrt(a*a + b*b);  }

The following Fortran code defines the module CPROC:

   ! Fortran 95/90 Module including procedure      MODULE CPROC         INTERFACE            SUBROUTINE PYTHAGORAS (a, b, res)             !DEC$ ATTRIBUTES C :: PYTHAGORAS             !DEC$ ATTRIBUTES REFERENCE :: res  ! res is passed by REFERENCE because its individual attribute  ! overrides the subroutine's C attribute               REAL a, b, res  ! a and b have the VALUE attribute by default because  ! the subroutine has the C attribute            END SUBROUTINE         END INTERFACE      END MODULE

The following Fortran code calls this routine using the module CPROC:

   ! Fortran 95/90 Module including procedure      USE CPROC         CALL PYTHAGORAS (3.0, 4.0, X)         TYPE *,X      END