UNIVERS  15.3
UNIVERS base processing software API
 All Classes Namespaces Files Functions Variables Typedefs Enumerations Enumerator Friends Macros
mthfort.h
1 /* mthfort.h */
2 /* $Id: mthfort.h,v 1.4 2000/04/13 17:24:12 garry Exp $ */
3 #ifndef __mthfort_h
4 #define __mthfort_h
5 #include <mix/Types.h>
6 #ifdef __cplusplus
7 extern "C" {
8 #endif /* __cplusplus */
9  /*
10  Перевод из глобальной в локальную систему координат с учетом направления координатных осей */ void Fortran(globloc)(double*,double*,double*,double*, double*,double*,double*,double*,double*, double*,double*,double*,int*,int*); /* Векторное произведение */ void Fortran(vekpr)(double*,double*,double*); /* Перевод из глобальной в локальную систему координат без учета направления координатных осей */ void Fortran(d3tod2)(double*,double*,double*,double*,double*,double*,double*, double*,double*,double*,double*,double*,double*,double*, int*,int*); /* Определение, находится ли точка внутри двумерного многоугольника */ void Fortran(inspolyg)(double*,double*,int*,double*,double*,int*, double*,double*,int*); /* SUBROUTINE CHDIM232 (A,B,C,D,X,Y,Z,X1,Y1,X0,Y0,Z0,N,KEY,IERR) */ /* Универсальный перевод из одного изменения в другой*/ void Fortran(chdim232)(double*,double*,double*,double*,double*,double*,double*, double*,double*,double*,double*,double*,int*,int*,int*); /* Определение, находится ли точка внутри блока среды, используемого в 3D модлированиии */ void Fortran(insbody)(double*,int*,int*,double*,double*,double*,double*, double*,double*,double*,double*,double*,int*,int*); #ifdef __cplusplus }; #endif /* __cplusplus */ #endif /* mthfort.h */ /* Melnikov George Yu. 5-Oct-1999 */
11  координатных осей
12  */
13 void Fortran(globloc)(double*,double*,double*,double*,
14  double*,double*,double*,double*,double*,
15  double*,double*,double*,int*,int*);
16  /* Векторное произведение */
17 void Fortran(vekpr)(double*,double*,double*);
18  /*
19  Перевод из глобальной в локальную систему координат без учета направления координатных осей */ void Fortran(d3tod2)(double*,double*,double*,double*,double*,double*,double*, double*,double*,double*,double*,double*,double*,double*, int*,int*); /* Определение, находится ли точка внутри двумерного многоугольника */ void Fortran(inspolyg)(double*,double*,int*,double*,double*,int*, double*,double*,int*); /* SUBROUTINE CHDIM232 (A,B,C,D,X,Y,Z,X1,Y1,X0,Y0,Z0,N,KEY,IERR) */ /* Универсальный перевод из одного изменения в другой*/ void Fortran(chdim232)(double*,double*,double*,double*,double*,double*,double*, double*,double*,double*,double*,double*,int*,int*,int*); /* Определение, находится ли точка внутри блока среды, используемого в 3D модлированиии */ void Fortran(insbody)(double*,int*,int*,double*,double*,double*,double*, double*,double*,double*,double*,double*,int*,int*); #ifdef __cplusplus }; #endif /* __cplusplus */ #endif /* mthfort.h */ /* Melnikov George Yu. 5-Oct-1999 */
20  координатных осей
21  */
22 void Fortran(d3tod2)(double*,double*,double*,double*,double*,double*,double*,
23  double*,double*,double*,double*,double*,double*,double*,
24  int*,int*);
25  /*
26  Определение, находится ли точка внутри двумерного многоугольника
27  */
28 void Fortran(inspolyg)(double*,double*,int*,double*,double*,int*,
29  double*,double*,int*);
30 
31  /* SUBROUTINE CHDIM232 (A,B,C,D,X,Y,Z,X1,Y1,X0,Y0,Z0,N,KEY,IERR) */
32  /* Универсальный перевод из одного изменения в другой/ void Fortran(chdim232)(double*,double*,double*,double*,double*,double*,double*, double*,double*,double*,double*,double*,int*,int*,int*); /* Определение, находится ли точка внутри блока среды, используемого в 3D модлированиии */ void Fortran(insbody)(double*,int*,int*,double*,double*,double*,double*, double*,double*,double*,double*,double*,int*,int*); #ifdef __cplusplus }; #endif /* __cplusplus */ #endif /* mthfort.h */ /* Melnikov George Yu. 5-Oct-1999 */ */
33 void Fortran(chdim232)(double*,double*,double*,double*,double*,double*,double*,
34  double*,double*,double*,double*,double*,int*,int*,int*);
35 
36  /* Определение, находится ли точка внутри блока среды, используемого в 3D модлированиии */ void Fortran(insbody)(double*,int*,int*,double*,double*,double*,double*, double*,double*,double*,double*,double*,int*,int*); #ifdef __cplusplus }; #endif /* __cplusplus */ #endif /* mthfort.h */ /* Melnikov George Yu. 5-Oct-1999 */
37  3D модлированиии */
38 void Fortran(insbody)(double*,int*,int*,double*,double*,double*,double*,
39  double*,double*,double*,double*,double*,int*,int*);
40 
41 #ifdef __cplusplus
42 };
43 #endif /* __cplusplus */
44 
45 #endif /* mthfort.h */
46 
47 /* Melnikov George Yu. 5-Oct-1999 */
Generated by   doxygen 1.8.5