Scilab [trunk]: scilab/modules/intersci/examples/ex14c.c File Reference

int F2C() ext14ca	(	int*	it,
		int*	m,
		int *	n,
		int*	nel,
		int*	mnel,
		int*	icol,
		double *	ar,
		double*	ai
	)

Definition at line 9 of file ex14c.c.

References ai, ar, i, icol, it, j, m, mnel, and sciprint().

00012 { 
00013   int i,iof = 0, j;
00014   for ( i = 0; i < *m ; i++) 
00015     {
00016       sciprint("Row %d, %d non zero elements\r\n",i+1,mnel[i]);
00017       for ( j = 0; j < mnel[i]; j++) 
00018         {
00019           if (*it == 1) 
00020               sciprint("(%d,%d) -> %f +i%f\r\n",i+1,icol[iof+j],
00021                        ar[iof+j],ai[iof+j]);
00022           else 
00023               sciprint("(%d,%d) -> %f \r\n",i+1,icol[iof+j],
00024                        ar[iof+j]);
00025         }
00026       iof += mnel[i];
00027     }
00028   return(0);
00029 }

Here is the call graph for this function:

int F2C() ext14cb	(	int*	it1,
		int*	m1,
		int *	n1,
		int*	nel1,
		int*	mnel1,
		int*	icol1,
		double *	ar1,
		double*	ai1,
		int *	it2,
		int*	m2,
		int*	n2,
		int*	nel2,
		int*	mnel2,
		int*	icol2,
		double *	ar2,
		double*	ai2
	)

Definition at line 36 of file ex14c.c.

References i, it1, j, and m1.

00042 {
00043   int i,iof = 0, j;
00044   for ( i = 0; i < *m1 ; i++) 
00045     {
00046       for ( j = 0; j < mnel1[i]; j++) 
00047         {
00048           if (*it1 == 1) 
00049             {
00050               ai2[iof+j] = 2*ai1[iof+j];
00051             }
00052           ar2[iof+j] = 2*ar1[iof+j];
00053         }
00054       iof += mnel1[i];
00055     }
00056   for ( i = 0 ; i < *m1 ; i++ ) 
00057     mnel2[i]= mnel1[i];
00058   for ( i = 0 ; i < *nel1 ; i++) 
00059     icol2[i] = icol1[i] ;
00060   return(0);
00061 }

int F2C() ext14cc	(	int*	it,
		int*	m,
		int *	n,
		int*	nel,
		int*	mnel,
		int*	icol,
		int *	ar,
		int*	ai
	)

Definition at line 67 of file ex14c.c.

References ai, ar, i, icol, it, j, m, mnel, and sciprint().

00070 { 
00071   int i,iof = 0, j;
00072   for ( i = 0; i < *m ; i++) 
00073     {
00074       sciprint("Row %d, %d non zero elements\r\n",i+1,mnel[i]);
00075       for ( j = 0; j < mnel[i]; j++) 
00076         {
00077           if (*it == 1) 
00078               sciprint("(%d,%d) -> %d +i%d\r\n",i+1,icol[iof+j],
00079                        ar[iof+j],ai[iof+j]);
00080           else 
00081               sciprint("(%d,%d) -> %d \r\n",i+1,icol[iof+j],
00082                        ar[iof+j]);
00083         }
00084       iof += mnel[i];
00085     }
00086   return(0);
00087 }

Here is the call graph for this function:

int F2C() ext14cd	(	int*	it1,
		int*	m1,
		int *	n1,
		int*	nel1,
		int*	mnel1,
		int*	icol1,
		double *	ar1,
		double*	ai1,
		int *	it2,
		int*	m2,
		int*	n2,
		int*	nel2,
		int*	mnel2,
		int*	icol2,
		int *	ar2,
		int*	ai2
	)

Definition at line 96 of file ex14c.c.

References i, it1, j, and m1.

00102 {
00103   int i,iof = 0, j;
00104   for ( i = 0; i < *m1 ; i++) 
00105     {
00106       for ( j = 0; j < mnel1[i]; j++) 
00107         {
00108           if (*it1 == 1) 
00109             {
00110               ai2[iof+j] = 2*ai1[iof+j];
00111             }
00112           ar2[iof+j] = 2*ar1[iof+j];
00113         }
00114       iof += mnel1[i];
00115     }
00116   for ( i = 0 ; i < *m1 ; i++ ) 
00117     mnel2[i]= mnel1[i];
00118   for ( i = 0 ; i < *nel1 ; i++) 
00119     icol2[i] = icol1[i] ;
00120   return(0);
00121 }

int F2C() ext14ce	(	int*	it,
		int*	m,
		int *	n,
		int*	nel,
		int*	mnel,
		int*	icol,
		double *	ar,
		double*	ai,
		SciSparse **	x,
		int *	mx,
		int*	nx,
		int*	nelx,
		int*	itx,
		int *	err
	)

Definition at line 162 of file ex14c.c.

References ai, ar, err, i, icol, it, j, m, mnel, n, nel, NewSparse(), sciprint(), and x.

00168 { 
00169   int i,iof = 0, j;
00170   *x = NewSparse(it,m,n,nel);
00171   if ( *x == (SciSparse *) 0) 
00172     {
00173       sciprint("No more space\r\n");
00174       *err = 1;return;
00175     }
00176   *mx = *m ;
00177   *nx = *n ; 
00178   *nelx = *nel;
00179   *itx = *it;
00180   *err=0;
00181   for ( i = 0; i < *m ; i++) 
00182     {
00183       for ( j = 0; j < mnel[i]; j++) 
00184         {
00185           if (*it == 1) 
00186             {
00187               (*x)->I[iof+j] = 2*ai[iof+j];
00188             }
00189           (*x)->R[iof+j] = 2*ar[iof+j];
00190         }
00191       iof += mnel[i];
00192     }
00193   for ( i = 0 ; i < *m ; i++ ) 
00194     (*x)->mnel[i]= mnel[i];
00195   for ( i = 0 ; i < *nel ; i++) 
00196     (*x)->icol[i] = icol[i] ;
00197   return(0);
00198 }

Here is the call graph for this function:


Functions
int F2C()	ext14ca (int it, int m, int n, int nel, int mnel, int icol, double ar, double ai)
int F2C()	ext14cb (int it1, int m1, int n1, int nel1, int mnel1, int icol1, double ar1, double ai1, int it2, int m2, int n2, int nel2, int mnel2, int icol2, double ar2, double ai2)
int F2C()	ext14cc (int it, int m, int n, int nel, int mnel, int icol, int ar, int ai)
int F2C()	ext14cd (int it1, int m1, int n1, int nel1, int mnel1, int icol1, double ar1, double ai1, int it2, int m2, int n2, int nel2, int mnel2, int icol2, int ar2, int ai2)
int F2C()	ext14ce (int it, int m, int n, int nel, int mnel, int icol, double ar, double ai, SciSparse *x, int mx, int nx, int nelx, int itx, int err)

ex14c.c File Reference

Functions

Function Documentation