home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / misc / volume21 / cloops / part01 / externs.h < prev    next >
Encoding:
C/C++ Source or Header  |  1991-07-25  |  2.0 KB  |  50 lines
  1. /*
  2.  * This file is part of the Livermore Loops transliteration into C.
  3.  * Copyright (C) 1991 by Martin Fouts
  4.  *
  5.  * This program is free software; you can redistribute it and/or modify
  6.  * it under the terms of the GNU General Public License as published by
  7.  * the Free Software Foundation; either version 1, or (at your option)
  8.  * any later version.
  9.  *
  10.  * This program is distributed in the hope that it will be useful,
  11.  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  12.  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  13.  * GNU General Public License for more details.
  14.  *
  15.  * You should have received a copy of the GNU General Public License
  16.  * along with this program; if not, write to the Free Software
  17.  * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  18.  */
  19.  
  20. #define NTESTS 47
  21.  
  22. extern Int in_lp;
  23. extern Int ion, j5, k2, k3, lp, m, kr, n13h, n, n1, n2, n13, n213, n813;
  24. extern Int n16, n416, n21, nt1, nt2;
  25. extern Float a11,a12,a13,a21,a22,a23,a31,a32,a33,ar,br,c0,cr,di,dk;
  26. extern Float dm22,dm23,dm24,dm25,dm26,dm27,dm28,dn,e3,e6,expmax,flx;
  27. extern Float q,qa,r,ri,s,scale,sig,stb5,t,xnc,xnei,xnm;
  28.  
  29. extern Float Time[], csum[],  loops[], nrops[], wt[], skale[],
  30.   bias[];
  31.  
  32. extern Int ispan[], isp2[], isp3[], ipass[];
  33.  
  34. extern Int e[], f[], ix[], ir[], zone[];
  35.  
  36. extern Float u[1001], v[1001], w[1001];
  37. extern Float x[1001], y[1001], z[1001], g[1001];
  38. extern Float du1[101], du2[101], du3[101], grd[1001], dex[1001];
  39. extern Float xi[1001], ex[1001], ex1[1001], dex1[1001];
  40. extern Float vx[1001], xx[1001], rx[1001], rh[1001];
  41. extern Float vsp[101], vstp[101], vxne[101], vxnd[101];
  42. extern Float ve3[101], vlr[101], vlin[101], b5[101];
  43. extern Float plan[300], d[300], sa[101], sb[101];
  44. extern Float p[4][512], px[25][101], cx[25][101];
  45. extern Float vy[101][25], vh[101][7], vf[101][7], vg[101][7], vs[101][7];
  46. extern Float za[101][7]  , zp[101][7], zq[101][7], zr[101][7], zm[101][7];
  47. extern Float zb[101][7]  , zu[101][7], zv[101][7], zz[101][7];
  48. extern Float b[64][64], c[64][64], h[64][64];
  49. extern Float u1[5][101][2],  u2[5][101][2],  u3[5][101][2];
  50.