Scilab [trunk]: scilab/modules/intersci/examples/ex15c.c Source File

00001 
00002 #include "../../routines/machine.h"
00003 
00004 /*******************************************
00005  * simple example with sparse matrix 
00006  * Display of a 
00007  *******************************************/
00008 
00009 int F2C(ext15ca)(ar,m,n)
00010      double *ar;
00011      int *n,*m;
00012 { 
00013 
00014 }
00015 
00016 /*******************************************
00017  * simple example with sparse matrix 
00018  * 2*a copied into b 
00019  *******************************************/
00020 
00021 int F2C(ext15cb)(ar1,ar2,m,n)
00022      double *ar1,*ar2;
00023      int *m,*n;
00024 {
00025   int i;
00026   for ( i = 0; i < *m*(*n) ; i++) 
00027     ar2[i] = 2*ar1[i];
00028 }
00029 
00030 /*******************************************
00031  * same as ext15ca but ar and ai are integers 
00032  *******************************************/
00033 
00034 int F2C(ext15cc)(ar,m,n)
00035      int *ar,*m,*n;
00036 { 
00037 
00038 }
00039 
00040 
00041 /*******************************************
00042  * same as ext15cb but ar2 and ai2 are integers 
00043  * 
00044  *******************************************/
00045 
00046 
00047 int F2C(ext15cd)(ar1,ar2,m,n)
00048      int  *ar1,*ar2;
00049      int *m,*n;
00050 
00051 {
00052   int i;
00053   for ( i = 0; i < *m*(*n) ; i++) 
00054     ar2[i] = 2*ar1[i];
00055 }
00056 
00057 
00058 
00059 
00060 /*******************************************
00061  * a is an external 
00062  *******************************************/
00063 
00064 
00065 int F2C(ext15ce)(ar1,m,n,err)
00066      int  **ar1;
00067      int *m,*n,*err;
00068 {
00069   int i;
00070   *n=1;
00071   *m=10;
00072   *ar1 = (int *) malloc((unsigned) (*m)*sizeof(int));
00073   if ( *ar1 == (int*) 0) 
00074     {
00075       *err=1;
00076       sciprint("No more space\r\n");
00077       return;
00078     }
00079   *err=0;
00080   for ( i = 0; i < *m*(*n) ; i++) 
00081     (*ar1)[i] = i;
00082 }