home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / misc / volume21 / cloops / part01 / vector.c < prev   
Encoding:
C/C++ Source or Header  |  1991-07-25  |  3.4 KB  |  107 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. #include "params.h"
  21. #include "types.h"
  22. #include "externs.h"
  23.  
  24. Void newbuzz();
  25. Void lsignal0();
  26. Void lsignal1();
  27. Void lsignal2();
  28. Void lsignal3();
  29.  
  30. Void vector(i)
  31. Int i;
  32. {
  33.   /* initialize common/spaces/ */
  34. #ifdef BUZZ
  35.   newbuzz();
  36. #endif
  37.   lsignal0(skale[i], bias[i]);
  38.  
  39.   /* initialize common/space1/ */
  40. #ifdef BUZZ
  41.   newbuzz();
  42. #endif
  43.   lsignal1(u,skale[i],bias[i],l1);
  44.   lsignal1(v,skale[i],bias[i],l1);
  45.   lsignal1(w,skale[i],bias[i],l1);
  46.   lsignal1(x,skale[i],bias[i],l1);
  47.   lsignal1(y,skale[i],bias[i],l1);
  48.   lsignal1(z,skale[i],bias[i],l1);
  49.   lsignal1(g,skale[i],bias[i],l1);
  50.   lsignal1(du1,skale[i],bias[i],l2);
  51.   lsignal1(du2,skale[i],bias[i],l2);
  52.   lsignal1(du3,skale[i],bias[i],l2);
  53.   lsignal1(grd,skale[i],bias[i],l1);
  54.   lsignal1(dex,skale[i],bias[i],l1);
  55.   lsignal1(xi,skale[i],bias[i],l1);
  56.   lsignal1(ex,skale[i],bias[i],l1);
  57.   lsignal1(ex1,skale[i],bias[i],l1);
  58.   lsignal1(dex1,skale[i],bias[i],l1);
  59.   lsignal1(vx,skale[i],bias[i],l1);
  60.   lsignal1(xx,skale[i],bias[i],l1);
  61.   lsignal1(rx,skale[i],bias[i],l1);
  62.   lsignal1(rh,skale[i],bias[i],l1);
  63.   lsignal1(vsp,skale[i],bias[i],l2);
  64.   lsignal1(vstp,skale[i],bias[i],l2);
  65.   lsignal1(vxne,skale[i],bias[i],l2);
  66.   lsignal1(vxnd,skale[i],bias[i],l2);
  67.   lsignal1(ve3,skale[i],bias[i],l2);
  68.   lsignal1(vlr,skale[i],bias[i],l2);
  69.   lsignal1(vlin,skale[i],bias[i],l2);
  70.   lsignal1(b5,skale[i],bias[i],l2);
  71.   lsignal1(plan,skale[i],bias[i],l416);
  72.   lsignal1(d,skale[i],bias[i],l416);
  73.   lsignal1(sa,skale[i],bias[i],l2);
  74.   lsignal1(sb,skale[i],bias[i],l2);
  75.  
  76.   /* initialize common/space2/ */
  77. #ifdef BUZZ
  78.   newbuzz();
  79. #endif
  80.   lsignal2(&p[0][0],skale[i],bias[i],4,l813);
  81.   lsignal2(&px[0][0],skale[i],bias[i],l21,l2);
  82.   lsignal2(&cx[0][0],skale[i],bias[i],l21,l2);
  83.   lsignal2(&vy[0][0],skale[i],bias[i],l2,l21);
  84.   lsignal2(&vh[0][0],skale[i],bias[i],l2,7);
  85.   lsignal2(&vf[0][0],skale[i],bias[i],l2,7);
  86.   lsignal2(&vg[0][0],skale[i],bias[i],l2,7);
  87.   lsignal2(&vs[0][0],skale[i],bias[i],l2,7);
  88.   lsignal2(&za[0][0],skale[i],bias[i],l2,7);
  89.   lsignal2(&zp[0][0],skale[i],bias[i],l2,7);
  90.   lsignal2(&zq[0][0],skale[i],bias[i],l2,7);
  91.   lsignal2(&zr[0][0],skale[i],bias[i],l2,7);
  92.   lsignal2(&zm[0][0],skale[i],bias[i],l2,7);
  93.   lsignal2(&zb[0][0],skale[i],bias[i],l2,7);
  94.   lsignal2(&zu[0][0],skale[i],bias[i],l2,7);
  95.   lsignal2(&zv[0][0],skale[i],bias[i],l2,7);
  96.   lsignal2(&zz[0][0],skale[i],bias[i],l2,7);
  97.   lsignal2(&b[0][0],skale[i],bias[i],l13,l13);
  98.   lsignal2(&c[0][0],skale[i],bias[i],l13,l13);
  99.   lsignal2(&h[0][0],skale[i],bias[i],l13,l13);
  100.   lsignal3(&u1[0][0][0],skale[i],bias[i],5,l2,2);
  101.   lsignal3(&u2[0][0][0],skale[i],bias[i],5,l2,2);
  102.   lsignal3(&u3[0][0][0],skale[i],bias[i],5,l2,2);
  103.  
  104.  
  105.   return;
  106. }
  107.