fugo_calc.c
Go to the documentation of this file.
1 #include "arith.h"
2 
3 REAL fugo_calc(f,linetab,i,en,r)
4 MATRIX f;
5 LINE linetab[MAXEDGE];
6 int i,en,r;
7 {
8  REAL fugo;
9  register int j;
10 
11  fugo=0.0;
12  for(j=0; j<r; j++)
13  fugo += f[i][j] * linetab[en].s[j];
14 
15  return(fugo);
16 }
s
short s
Definition: structsize.c:2
arith.h
MAXEDGE
#define MAXEDGE
Definition: arith.h:14
line
Definition: arith.h:33
f
f
REAL
double REAL
Definition: arith.h:25
MATRIX
VECTOR MATRIX[MAX]
Definition: arith.h:27
fugo_calc
REAL fugo_calc(MATRIX f, linetab, int i, int en, int r)
Definition: fugo_calc.c:3

euslisp
Author(s): Toshihiro Matsui
autogenerated on Thu Jun 15 2023 02:06:43