FortranCPP.hpp File Reference

Detailed Description

Author

Jean-Christophe Fabre jean-.nosp@m.chri.nosp@m.stoph.nosp@m.e.fa.nosp@m.bre@i.nosp@m.nra..nosp@m.fr

See also

http://www-h.eng.cam.ac.uk/help/tpl/languages/mixinglanguages.html

http://www.neurophys.wisc.edu/comp/docs/notes/not017.html

http://www.yolinux.com/TUTORIALS/LinuxTutorialMixingFortranAndC.html

http://arnholm.org/software/cppf77/cppf77.htm

http://www.aei.mpg.de/~jthorn/c2f.html

Below are examples of C++ simulators calling Fortran subroutines.

Fortran source code:

subroutine multrealvalue(value,mult,result)
 
implicit none
real*8 value
real*8 mult
real*8 result
 
result=value*mult
 
return
 
end
 
 
! ==============================================================================
 
 
subroutine multintvalue(value,mult,result)
 
implicit none
integer value
integer mult
integer result
 
result=value*mult
 
return
end
 
 
! ==============================================================================
 
 
subroutine multrealmatrix(matrix,dim1,dim2,mult,result)
 
implicit none
integer dim1
integer dim2
real*8 matrix(dim2,dim1)
integer mult
real*8 result(dim2,dim1)
integer i, j
 
do j=1,dim1
  do i=1,dim2
    result(i,j) = matrix(i,j) * mult
  end do
end do
 
return
end

Declaration of Fortran subroutines to call (In C++ code):

BEGIN_EXTERN_FORTRAN
  EXTERN_FSUBROUTINE(multrealvalue)(FREAL8*,FREAL8*,FREAL8*);
  EXTERN_FSUBROUTINE(multintvalue)(FINT*,FINT*,FINT*);
  EXTERN_FSUBROUTINE(multrealmatrix)(FREAL8*,FINT*,FINT*,FINT*,FREAL8*);
END_EXTERN_FORTRAN

Use of Fortran subroutines tFrom C++ code:

openfluid::base::SchedulingRequest runStep()
{
  int i;
 
 
  // ====== double ======
 
  double DValue, DMult, DResult;
  DValue = 1.5436;
  DMult = 2.5;
  DResult = 0.0;
 
  CALL_FSUBROUTINE(multrealvalue)(&DValue,&DMult,&DResult);
 
  if (abs(DResult - (DValue*DMult)) > 0.0001)
  {
    OPENFLUID_RaiseError("Wrong fortran call (multrealvalue)");
  }
 
 
  // ====== int ======
 
  int IValue, IMult, IResult;
  IValue = 45;
  IMult = 18;
  IResult = 0;
 
  CALL_FSUBROUTINE(multintvalue)(&IValue,&IMult,&IResult);
 
  if (IResult != (IValue*IMult))
  {
    OPENFLUID_RaiseError("Wrong fortran call (multintvalue)");
  }
 
 
  // ====== matrix of double ======
 
  int MMult, MDim1,MDim2;
  double *MValue;
  double *MResult;
  MMult = 3;
  MDim1 = 2;
  MDim2 = 3;
 
  MValue = new double[MDim1*MDim2];
  MResult = new double[MDim1*MDim2];
 
  for (i=0; i < MDim1*MDim2;i++)
  {
     MValue[i] = 1.5;
     MResult[i] = 0.0;
  }
 
  CALL_FSUBROUTINE(multrealmatrix)(MValue,&MDim1,&MDim2,&MMult,MResult);
 
  for (i=0; i < MDim1*MDim2;i++)
  {
    if (abs(MResult[i] - (MValue[i] * MMult)) > 0.0001)
    {
      OPENFLUID_RaiseError("Wrong fortran call (multrealmatrix)");
    }
  }
 
  return DefaultDeltaT();
}

Go to the source code of this file.

Macros
#define	BEGIN_EXTERN_FORTRAN
#define	END_EXTERN_FORTRAN
#define	EXTERN_FFUNCTION(x)
#define	CALL_FFUNCTION(x)
#define	EXTERN_FSUBROUTINE(x)
#define	CALL_FSUBROUTINE(x)
#define	EXTERN_FMODFUNCTION(x, y)
#define	CALL_FMODFUNCTION(x, y)
#define	EXTERN_FMODSUBROUTINE(x, y)
#define	CALL_FMODSUBROUTINE(x, y)
#define	FREAL
#define	FREAL8
#define	FREAL16
#define	FINT
#define	FINT2
#define	FINT8
#define	FLOGICAL
#define	FLOGICAL1
#define	FCHARACTER
#define	FSTRING
#define	FSTRINGLEN
#define	STD2FSTRING(str)
#define	STD2FSTRINGLEN(str)
#define	STD2FSTRINGFULL(str)

Macro Definition Documentation

BEGIN_EXTERN_FORTRAN

#define BEGIN_EXTERN_FORTRAN

CALL_FFUNCTION

#define CALL_FFUNCTION

(

x

)

Macro for calling an external fortran function

Parameters

[in]

x

the name of the function

CALL_FMODFUNCTION

#define CALL_FMODFUNCTION	(		x,
			y
	)

Macro for calling an external fortran90 function in a module

Parameters

[in]	x	the name of the module
[in]	y	the name of the function

CALL_FMODSUBROUTINE

#define CALL_FMODSUBROUTINE	(		x,
			y
	)

Macro for calling an external fortran90 subroutine in a module

Parameters

[in]	x	the name of the module
[in]	y	the name of the subroutine

CALL_FSUBROUTINE

#define CALL_FSUBROUTINE

(

x

)

Macro for calling an external fortran subroutine

Parameters

[in]

x

the name of the subroutine

END_EXTERN_FORTRAN

#define END_EXTERN_FORTRAN

EXTERN_FFUNCTION

#define EXTERN_FFUNCTION

(

x

)

Macro for declaration of an external fortran function

Parameters

[in]

x

the name of the function

EXTERN_FMODFUNCTION

#define EXTERN_FMODFUNCTION	(		x,
			y
	)

Macro for declaration of an external fortran90 function in a module

Parameters

[in]	x	the name of the module
[in]	y	the name of the function

EXTERN_FMODSUBROUTINE

#define EXTERN_FMODSUBROUTINE	(		x,
			y
	)

Macro for declaration of an external fortran90 subroutine in a module

Parameters

[in]	x	the name of the module
[in]	y	the name of the subroutine

EXTERN_FSUBROUTINE

#define EXTERN_FSUBROUTINE

(

x

)

Macro for declaration of an external fortran subroutine

Parameters

[in]

x

the name of the subroutine

FCHARACTER

#define FCHARACTER

FINT

#define FINT

Macro for fortran INT type in C++ (int)

FINT2

#define FINT2

Macro for fortran INT*2 type in C++ (short int)

FINT8

#define FINT8

Macro for fortran INT*8 type in C++ (long int)

FLOGICAL

#define FLOGICAL

FLOGICAL1

#define FLOGICAL1

FREAL

#define FREAL

Macro for fortran REAL type in C++ (float)

FREAL16

#define FREAL16

FREAL8

#define FREAL8

Macro for fortran REAL type in C++ (double)

FSTRING

#define FSTRING

FSTRINGLEN

#define FSTRINGLEN

STD2FSTRING

#define STD2FSTRING

(

str

)

STD2FSTRINGFULL

#define STD2FSTRINGFULL

(

str

)

STD2FSTRINGLEN

#define STD2FSTRINGLEN

(

str

)