Commits

Satish Balay committed fc62b7e

use extern_c for fortran kernels

Hg-commit: 30f20350e1dcbc1a8f90d63ba553086609a4dd87

  • Participants
  • Parent commits a5ffc9a

Comments (0)

Files changed (8)

File src/mat/impls/aij/seq/crl/ftn-kernels/fmultcrl.h

 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE)
 #define fortranmultcrl_      fortranmultcrl
 #endif
+EXTERN_C_BEGIN
 EXTERN void fortranmultcrl_(PetscInt*,PetscInt*,PetscScalar*,PetscScalar*,PetscInt*,PetscScalar*);
+EXTERN_C_END
 #endif
 #endif
 

File src/mat/impls/aij/seq/ftn-kernels/fmult.h

 #define fortranmultaij_                fortranmultaij
 #define fortranmulttransposeaddaij_    fortranmulttransposeaddaij
 #endif
+EXTERN_C_BEGIN
 EXTERN void fortranmultaij_(PetscInt*,const PetscScalar*,const PetscInt*,const PetscInt*,const MatScalar*,PetscScalar*);
 EXTERN void fortranmulttransposeaddaij_(PetscInt*,void*,PetscInt*,PetscInt*,void*,void*);
+EXTERN_C_END
 #endif
 #endif
 

File src/mat/impls/aij/seq/ftn-kernels/fmultadd.h

 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE)
 #define fortranmultaddaij_ fortranmultaddaij
 #endif
+EXTERN_C_BEGIN
 EXTERN void fortranmultaddaij_(PetscInt*,void*,PetscInt*,PetscInt*,const MatScalar*,void*,void*);
+EXTERN_C_END
 #endif
 #endif
 

File src/mat/impls/aij/seq/ftn-kernels/frelax.h

 #define fortranrelaxaijforwardzero_   fortranrelaxaijforwardzero
 #define fortranrelaxaijbackwardzero_   fortranrelaxaijbackwardzero
 #endif
+EXTERN_C_BEGIN
 EXTERN void fortranrelaxaijforward_(PetscInt*,PetscReal*,void*,PetscInt*,PetscInt*,const PetscInt*,void*,void*);
 EXTERN void fortranrelaxaijbackward_(PetscInt*,PetscReal*,void*,PetscInt*,PetscInt*,const PetscInt*,void*,void*);
 EXTERN void fortranrelaxaijforwardzero_(PetscInt*,PetscReal*,void*,PetscInt*,PetscInt*,const PetscInt*,const void*,void*,void*);
 EXTERN void fortranrelaxaijbackwardzero_(PetscInt*,PetscReal*,void*,PetscInt*,PetscInt*,const PetscInt*,const void*,void*,void*);
+EXTERN_C_END
 #endif
 #endif
 

File src/mat/impls/aij/seq/ftn-kernels/fsolve.h

 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE)
 #define fortransolveaij_   fortransolveaij
 #endif
+EXTERN_C_BEGIN
 EXTERN void fortransolveaij_(const PetscInt*,void*,const PetscInt*,const PetscInt*,const PetscInt*,const void*,const void*);
+EXTERN_C_END
 #endif
 #endif
 

File src/mat/impls/baij/seq/ftn-kernels/fsolvebaij.h

 #define fortransolvebaij4unroll_    fortransolvebaij4unroll
 #define fortransolvebaij4blas_      fortransolvebaij4blas
 #endif
+EXTERN_C_BEGIN
 EXTERN void fortransolvebaij4_(const PetscInt*,void*,const PetscInt*,const PetscInt*,const PetscInt*,const void*,const void*,const void*);
 EXTERN void fortransolvebaij4unroll_(const PetscInt*,void*,const PetscInt*,const PetscInt*,const PetscInt*,const void*,const void*);
 EXTERN void fortransolvebaij4blas_(const PetscInt*,void*,const PetscInt*,const PetscInt*,const PetscInt*,const void*,const void*,const void*);
+EXTERN_C_END
 #endif
 #endif
 

File src/vec/vec/impls/seq/ftn-kernels/fmdot.h

 #define fortranmdot2_      fortranmdot2
 #define fortranmdot1_      fortranmdot1
 #endif
+EXTERN_C_BEGIN
 EXTERN void fortranmdot4_(const void*,const void*,const void*,const void*,const void*,PetscInt*,void*,void*,void*,void*);
 EXTERN void fortranmdot3_(const void*,const void*,const void*,const void*,PetscInt*,void*,void*,void*);
 EXTERN void fortranmdot2_(const void*,const void*,const void*,PetscInt*,void*,void*);
 EXTERN void fortranmdot1_(const void*,const void*,PetscInt*,void*);
+EXTERN_C_END
 #endif
 #endif
 

File src/vec/vec/impls/seq/ftn-kernels/fnorm.h

 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE)
 #define fortrannormsqr_    fortrannormsqr
 #endif
+EXTERN_C_BEGIN
 EXTERN void fortrannormsqr_(void*,PetscInt*,void*);
+EXTERN_C_END
 #endif
 #endif