00001 /*----------------------------------------------------------------------------*/ 00002 /* SCCS Information: %W% %G% */ 00003 /*----------------------------------------------------------------------------*/ 00004 #include <stdlib.h> 00005 #include "stypes.h" 00006 00007 /*------------------------------------------------------------------*/ 00008 /* Computational arrays */ 00009 /*------------------------------------------------------------------*/ 00010 extern real2D p; 00011 extern real2D u, v; 00012 extern real2D S11, S22, S12; 00013 extern real2D cc; 00014 extern real2D sxp, syp, sxu, syu, sxv, syv, ap, au, av; 00015 extern real2D rz1dr, rz2dr, rr1dz, rr2dz; 00016 extern real2D a1, a2, a3, divs; 00017 extern real2D work, work1, xi, yi; 00018 00019 /*------------------------------------------------------------------*/ 00020 /* Physical variables */ 00021 /*------------------------------------------------------------------*/ 00022 extern PhysStruct phys; 00023 00024 /*------------------------------------------------------------------*/ 00025 /* Numerical variables */ 00026 /*------------------------------------------------------------------*/ 00027 extern NumStruct num; 00028 00029 /*------------------------------------------------------------------*/ 00030 /* Output variables */ 00031 /*------------------------------------------------------------------*/ 00032 extern OutStruct out; 00033 00034 /*------------------------------------------------------------------*/ 00035 /* Markers variables */ 00036 /*------------------------------------------------------------------*/ 00037 extern interface *interfaces; 00038 extern int Nint; 00039 extern interface_cut cutp, cutu, cutv; 00040 00041 extern void initglobal(); 00042 00043