You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
40 lines
672 B
C
40 lines
672 B
C
#include <stdlib.h>
|
|
#include "psb_c_zbase.h"
|
|
|
|
psb_c_zvector* psb_c_new_zvector()
|
|
{
|
|
psb_c_zvector* temp;
|
|
|
|
temp=(psb_c_zvector *) malloc(sizeof(psb_c_zvector));
|
|
temp->zvector=NULL;
|
|
return(temp);
|
|
}
|
|
|
|
psb_z_t* psb_c_zvect_get_cpy(psb_c_zvector *xh)
|
|
{
|
|
psb_z_t *temp=NULL;
|
|
psb_i_t vsize=0;
|
|
|
|
if ((vsize=psb_c_zvect_get_nrows(xh))<0)
|
|
return(temp);
|
|
|
|
if (vsize==0)
|
|
vsize=1;
|
|
|
|
if ((temp=(psb_z_t *)malloc(vsize*sizeof(psb_z_t)))!=NULL)
|
|
psb_c_zvect_f_get_cpy(temp,xh);
|
|
|
|
return(temp);
|
|
|
|
}
|
|
|
|
|
|
psb_c_zspmat* psb_c_new_zspmat()
|
|
{
|
|
psb_c_zspmat* temp;
|
|
|
|
temp=(psb_c_zspmat *) malloc(sizeof(psb_c_zspmat));
|
|
temp->zspmat=NULL;
|
|
return(temp);
|
|
}
|