Commits

Satish Balay  committed d5410ed

win32: fix fortran upcase for petscsetcommonblocknumeric_()

libpetsc.lib(zstartf.o) : error LNK2001: unresolved external symbol _petscsetcommonblocknumeric_@32

  • Participants
  • Parent commits 639f5a5

Comments (0)

Files changed (1)

File src/sys/objects/ftn-custom/zstartf.c

 #define petscsetcommonblock_          PETSCSETCOMMONBLOCK
 #define petscsetfortranbasepointers_  PETSCSETFORTRANBASEPOINTERS
 #define petsc_null_function_          PETSC_NULL_FUNCTION
+#define petscsetcommonblocknumeric_   PETSCSETCOMMONBLOCKNUMERIC
 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE)
 #define petscinitializefortran_       petscinitializefortran
 #define petscsetcommonblock_          petscsetcommonblock
 #define petscsetfortranbasepointers_  petscsetfortranbasepointers
 #define petsc_null_function_          petsc_null_function
+#define petscsetcommonblocknumeric_   petscsetcommonblocknumeric
 #endif
 
 #if defined(PETSC_HAVE_FORTRAN_UNDERSCORE_UNDERSCORE)