2
#include "../../routines/machine.h"
4
/*******************************************
5
* simple example with sparse matrix
7
*******************************************/
9
int F2C(ext16ca)(ar,m,n)
14
for ( i=0; i < (*m)*(*n) ; i++) ar[i]= (ar[i]==1)? 0:1;
17
/*******************************************
18
* simple example with sparse matrix
20
*******************************************/
22
int F2C(ext16cb)(ar1,ar2,m,n)
27
for ( i = 0; i < *m*(*n) ; i++) ar2[i] = (ar1[i]==1)? 0:1;
31
/*******************************************
33
*******************************************/
36
int F2C(ext16ce)(ar1,m,n,err)
43
*ar1 = (int *) malloc((unsigned) (*m)*(*n)*sizeof(int));
44
if ( *ar1 == (int*) 0)
47
sciprint("No more space\r\n");
51
for ( i = 0; i < (*n) ; i++)
52
for ( j = 0; j < (*m) ; j++)
53
(*ar1)[i+(*n)*j] = i ;