SPModel: libCascade/src/cascade.h Source File
VPAC - Computational Software Development
Main | SPModel | StGermain FrameWork |
Main Page | Alphabetical List | Class List | Directories | File List | Class Members | File Members

cascade.h

Go to the documentation of this file.
00001 #if !defined( cascade_h )
00002 #define cascade_h
00003 
00004 #if defined( NEEDS_F77_TRANSLATION )
00005     #if defined( F77EXTERNS_LOWERCASE_TRAILINGBAR )
00006         #define find_neighbours find_neighbours_
00007         #define initialize_nodal_geometry initialize_nodal_geometry_
00008         
00009     #elif defined( F77EXTERNS_NOTRAILINGBAR )
00010         /* No translation necessary */
00011         
00012     #elif defined( F77EXTERNS_EXTRATRAILINGBAR )
00013         #define find_neighbours find_neighbours__
00014         #define initialize_nodal_geometry initialize_nodal_geometry__
00015 
00016     #elif defined( F77EXTERNS_UPPERCASE_NOTRAILINGBAR )
00017         #define find_neighbours FIND_NEIGHBOURS
00018         #define initialize_nodal_geometry INITIALIZE_NODAL_GEOMETRY
00019         
00020     #elif defined( F77EXTERNS_COMPAQ_F90 )
00021         /* Symbols that contain underbars get two underbars at the end */
00022         /* Symbols that do not contain underbars get one underbar at the end */
00023         #define find_neighbours find_neighbours__
00024         #define initialize_nodal_geometry initialize_nodal_geometry__
00025         
00026     #else
00027         #error Unknown translation for FORTRAN external symbols
00028     #endif
00029 #endif /* NEEDS_F77_TRANSLATION */
00030 
00031 void find_neighbours( float*, float*, int*, int*, int*, int*, double*, int*, 
00032         int*, int*, int*, int*, int*, int*, float*, 
00033         float*, double*, float*, float*, float*, float*, float*, float* );
00034 
00035 void initialize_nodal_geometry( int*, int*, int*, int*, float*, float*, float*, float*, float*,
00036                 float*, float*, int*, float* ); 
00037 
00038 #endif /* cascade_h */