introduced a header file which defines default values for fortran symbols mangling.
it shall be used by each C source file defining symbols intended to be used by fortran.
psblas3-type-indexed
Michele Martone 14 years ago
parent 96a9f7ffbc
commit 7e4bcfd6e0

@ -35,8 +35,8 @@ FINCLUDES=$(FMFLAG)$(LIBDIR) $(FMFLAG). $(FIFLAG).
lib: penvmod $(UTIL_MODS) $(OBJS) lib: penvmod $(UTIL_MODS) $(OBJS)
$(AR) $(LIBDIR)/$(LIBNAME) $(MODULES) $(OBJS) $(MPFOBJS) $(AR) $(LIBDIR)/$(LIBNAME) $(MODULES) $(OBJS) $(MPFOBJS)
$(RANLIB) $(LIBDIR)/$(LIBNAME) $(RANLIB) $(LIBDIR)/$(LIBNAME)
/bin/cp -p $(LIBMOD) $(LIBDIR) /bin/cp -p $(CPUPDFLAG) $(LIBMOD) $(LIBDIR)
/bin/cp -p *$(.mod) $(LIBDIR) /bin/cp -p $(CPUPDFLAG) *$(.mod) $(LIBDIR)
psi_comm_buffers_mod.o: psb_const_mod.o psi_comm_buffers_mod.o: psb_const_mod.o

@ -1,6 +1,7 @@
#include <sys/time.h> #include <sys/time.h>
#include <stdio.h> #include <stdio.h>
#include <string.h> #include <string.h>
#include "psb_internals.h"
#ifdef LowerUnderscore #ifdef LowerUnderscore
#define psi_c_diffadd psi_c_diffadd_ #define psi_c_diffadd psi_c_diffadd_

@ -1,21 +1,7 @@
#include <sys/time.h> #include <sys/time.h>
#include <stdio.h> #include <stdio.h>
#include <string.h> #include <string.h>
#include "psb_internals.h"
#ifndef LowerUnderscore
#ifndef LowerDoubleUnderscore
#ifndef LowerCase
#ifndef UpperUnderscore
#ifndef UpperDoubleUnderscore
#ifndef UpperCase
#define LowerUnderscore 1 /* 20110404 the default */
/* #error "should specify a default mangling scheme" */
#endif
#endif
#endif
#endif
#endif
#endif
#ifdef LowerUnderscore #ifdef LowerUnderscore

@ -0,0 +1,20 @@
#ifndef PSB_INTERNALS_H
#define PSB_INTERNALS_H
/* providing a default mangling scheme */
#ifndef LowerUnderscore
#ifndef LowerDoubleUnderscore
#ifndef LowerCase
#ifndef UpperUnderscore
#ifndef UpperDoubleUnderscore
#ifndef UpperCase
#define LowerUnderscore 1 /* 20110404 the default */
/* #error "should specify a default mangling scheme" */
#endif
#endif
#endif
#endif
#endif
#endif
#endif
Loading…
Cancel
Save