[TEST]UPSTREAM: Pick some source changes from 48080d0a97
* Sync new folder structure
This commit is contained in:
8217
AMSS_NCKU_source/Special_Function/zbesh.for
Normal file
8217
AMSS_NCKU_source/Special_Function/zbesh.for
Normal file
File diff suppressed because it is too large
Load Diff
20
AMSS_NCKU_source/Special_Function/zbesh.h
Normal file
20
AMSS_NCKU_source/Special_Function/zbesh.h
Normal file
@@ -0,0 +1,20 @@
|
||||
|
||||
#ifndef ZBESH_H
|
||||
#define ZBESH_H
|
||||
|
||||
#ifdef fortran1
|
||||
#define f_zbesj zbesj
|
||||
#endif
|
||||
#ifdef fortran2
|
||||
#define f_zbesj ZBESJ
|
||||
#endif
|
||||
#ifdef fortran3
|
||||
#define f_zbesj zbesj_
|
||||
#endif
|
||||
|
||||
extern "C"
|
||||
{
|
||||
int f_zbesj(double &, double &, double &, int &,
|
||||
int &, double &, double &, int &, int &);
|
||||
}
|
||||
#endif /* ZBESH_H */
|
||||
Reference in New Issue
Block a user