mirror of
https://github.com/sfilippone/psblas3.git
synced 2026-10-12 17:09:05 +00:00
Michele Martone
7e4bcfd6e0
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.
30 lines
591 B
C
30 lines
591 B
C
#include <sys/time.h>
|
|
#include <stdio.h>
|
|
#include <string.h>
|
|
#include "psb_internals.h"
|
|
|
|
#ifdef LowerUnderscore
|
|
#define psi_c_diffadd psi_c_diffadd_
|
|
#endif
|
|
#ifdef LowerDoubleUnderscore
|
|
#define psi_c_diffadd psi_c_diffadd__
|
|
#endif
|
|
#ifdef LowerCase
|
|
#define psi_c_diffadd psi_c_diffadd
|
|
#endif
|
|
#ifdef UpperUnderscore
|
|
#define psi_c_diffadd PSI_C_DIFFADD_
|
|
#endif
|
|
#ifdef UpperDoubleUnderscore
|
|
#define psi_c_diffadd PSI_C_DIFFADD__
|
|
#endif
|
|
#ifdef UpperCase
|
|
#define psi_c_diffadd PSI_C_DIFFADD
|
|
#endif
|
|
|
|
void psi_c_diffadd(char *p1, char *p2, int *ret)
|
|
{
|
|
*ret = (int)(p2-p1);
|
|
return;
|
|
}
|