UNIVERS  15.3
UNIVERS base processing software API
 All Classes Namespaces Files Functions Variables Typedefs Enumerations Enumerator Friends Macros
lev.h
1 /* lev.h */
2 /* $Id: lev.h,v 1.2 2001/09/11 13:45:26 ibadm Exp $ */
3 #ifndef __lev_h
4 #define __lev_h
5 
6 #include <mix/Types.h>
7 
8 
9 #ifdef __cplusplus
10 extern "C" {
11 #endif /* __cplusplus */
12 
13 
14 void Fortran(alev)(Real4* workBuf, Real4* pfACF, Real4* pfACFneed,
15  Real4* pfLevOut, Int4* nOperLen, Real4* fAlfa,
16  Int4* iErr);
17 
18 void Fortran(alevd)(Real8* workBuf, Real4* pfACF, Real4* pfACFneed,
19  Real8* pfLevOut, Int4* nOperLen, Real4* fAlfa,
20  Int4* iErr);
21 
22 void Fortran(alevdd)(Real8* workBuf, Real8* pfACF, Real8* pfACFneed,
23  Real8* pfLevOut, Int4* nOperLen, Real4* fAlfa,
24  Int4* iErr);
25 
26 
27 #ifdef __cplusplus
28 };
29 #endif /* __cplusplus */
30 
31 
32 #endif /* lev.h */