mirror of
https://github.com/Interlisp/maiko.git
synced 2026-01-20 17:47:48 +00:00
5481a14812
Add some missing default function result types (int). Add some missing void result types where appropriate. modified: src/Cldeetr.c modified: src/atom.c modified: src/bbtsub.c modified: src/bitblt.c modified: src/byteswap.c modified: src/chardev.c modified: src/chatter.c modified: src/colorbltfns.c modified: src/common.c modified: src/dir.c modified: src/dlpi.c modified: src/doskbd.c modified: src/dosmouse.c modified: src/draw.c modified: src/dsk.c modified: src/dspsubrs.c modified: src/ejlisp.c modified: src/ether.c modified: src/imagefile.c modified: src/imagefile2.c modified: src/inet.c modified: src/initdsp.c modified: src/initkbd.c modified: src/kbdsubrs.c modified: src/ldeboot.c modified: src/llcolor.c modified: src/llstk.c modified: src/loader.c modified: src/loopsops.c modified: src/lpdual.c modified: src/lpmain.c modified: src/lpread.c modified: src/lptran.c modified: src/lpwrite.c modified: src/main.c modified: src/misc7.c modified: src/mkatom.c modified: src/mnwevent.c modified: src/mnxmeth.c modified: src/mouseif.c modified: src/ocr.c modified: src/ocrproc.c modified: src/oether.c modified: src/oldeether.c modified: src/osmsg.c modified: src/picture.c modified: src/rawcolor.c modified: src/rawrs232c.c modified: src/rpc.c modified: src/rs232c.c modified: src/socdvr.c modified: src/socket.c modified: src/testdsp.c modified: src/testtool.c modified: src/timeoday.c modified: src/timeofday.c modified: src/timer.c modified: src/truecolor.c modified: src/tty.c modified: src/ufn.c modified: src/ufs.c modified: src/unixcomm.c modified: src/unixfork.c modified: src/unwind.c modified: src/uraid.c modified: src/vesainit.c modified: src/vgainit.c modified: src/vmemsave.c modified: src/xcursor.c modified: src/xinit.c modified: src/xlspwin.c modified: src/xmkicon.c modified: src/xrdopt.c modified: src/xwinman.c
77 lines
1.9 KiB
C
77 lines
1.9 KiB
C
/* $Id: lptran.c,v 1.2 1999/01/03 02:07:20 sybalsky Exp $ (C) Copyright Venue, All Rights Reserved
|
|
*/
|
|
static char *id = "$Id: lptran.c,v 1.2 1999/01/03 02:07:20 sybalsky Exp $ Copyright (C) Venue";
|
|
|
|
/************************************************************************/
|
|
/* */
|
|
/* (C) Copyright 1989-95 Venue. All Rights Reserved. */
|
|
/* Manufactured in the United States of America. */
|
|
/* */
|
|
/* The contents of this file are proprietary information */
|
|
/* belonging to Venue, and are provided to you under license. */
|
|
/* They may not be further distributed or disclosed to third */
|
|
/* parties without the specific permission of Venue. */
|
|
/* */
|
|
/************************************************************************/
|
|
|
|
#include "version.h"
|
|
|
|
#include "lpdefs.h"
|
|
#include "lpglobl.h"
|
|
|
|
#ifdef alliant
|
|
#pragma global safe(Eta_rownr, Eta_value)
|
|
#pragma global assoc
|
|
#endif
|
|
|
|
void ftran(int start, int end, double *pcol)
|
|
{
|
|
int i, j;
|
|
int k, r;
|
|
double theta;
|
|
|
|
#ifdef alliant
|
|
#pragma safe(pcol, Endetacol)
|
|
#pragma routine permutation(Eta_rownr)
|
|
#endif
|
|
|
|
if (Verbose) printf("ftran\n");
|
|
for (i = start; i <= end; i++) {
|
|
k = Endetacol[i] - 1;
|
|
r = Eta_rownr[k];
|
|
theta = pcol[r];
|
|
if (theta != 0)
|
|
for (j = Endetacol[i - 1]; j < k; j++)
|
|
pcol[Eta_rownr[j]] += theta * Eta_value[j]; /* cpu expensive line */
|
|
pcol[r] *= Eta_value[k];
|
|
}
|
|
|
|
#ifdef alliant
|
|
#pragma loop novector
|
|
#endif
|
|
|
|
for (i = 0; i <= Rows; i++)
|
|
if (abs(pcol[i]) < EPSEL) pcol[i] = 0;
|
|
} /* ftran */
|
|
|
|
void btran(int numc, double *row)
|
|
{
|
|
int i, j, k;
|
|
double f;
|
|
|
|
#ifdef alliant
|
|
#pragma safe(row, Endetacol)
|
|
#endif
|
|
|
|
if (Verbose) printf("btran\n");
|
|
for (i = numc; i >= 1; i--) {
|
|
f = 0;
|
|
k = Endetacol[i];
|
|
for (j = Endetacol[i - 1]; j < k; j++) f += row[Eta_rownr[j]] * Eta_value[j];
|
|
if (abs(f) < EPSEL)
|
|
row[Eta_rownr[k - 1]] = 0;
|
|
else
|
|
row[Eta_rownr[k - 1]] = f;
|
|
}
|
|
} /* btran */
|