github.com/Interlisp.maiko
1
0
Fork 0
mirror of https://github.com/Interlisp/maiko.git synced 2026-01-29 21:21:08 +00:00
Code Issues Projects Releases Wiki Activity

Reformat all C source files with Clang-format in Google style w/ 100 col width.

Browse Source
This commit is contained in:
Nick Briggs
2017-05-28 18:08:18 -07:00
parent 691645d048
commit 156c3292f8
167 changed files with 40520 additions and 48069 deletions
Download Patch File Download Diff File Expand all files Collapse all files

88
src/lptran.c Executable file → Normal file
View File

@@ -1,7 +1,7 @@
/* $Id: lptran.c,v 1.2 1999/01/03 02:07:20 sybalsky Exp $ (C) Copyright Venue, All Rights Reserved */
/* $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. */
@@ -16,83 +16,71 @@ static char *id = "$Id: lptran.c,v 1.2 1999/01/03 02:07:20 sybalsky Exp $ Copyri
#include "version.h"
#include "lpdefs.h"
#include "lpglobl.h"
#ifdef alliant
#pragma global safe (Eta_rownr, Eta_value)
#pragma global safe(Eta_rownr, Eta_value)
#pragma global assoc
#endif
#ifdef OS4
ftran(start, end, pcol)
int start, end; double *pcol;
ftran(start, end, pcol) int start, end;
double *pcol;
#else
void ftran(int start,
int end,
double *pcol)
void ftran(int start, int end, double *pcol)
#endif
{
int i, j;
int k, r;
int i, j;
int k, r;
double theta;
#ifdef alliant
#pragma safe (pcol, Endetacol)
#pragma routine permutation (Eta_rownr)
#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];
}
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;
if (abs(pcol[i]) < EPSEL) pcol[i] = 0;
} /* ftran */
#ifdef OS4
btran(numc, row)
int numc; double *row;
btran(numc, row) int numc;
double *row;
#else
void btran(int numc,
double *row)
void btran(int numc, double *row)
#endif
{
int i, j, k;
int i, j, k;
double f;
#ifdef alliant
#pragma safe (row, Endetacol)
#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;
}
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 */