version 1.1, 2018/09/19 05:45:06 |
version 1.2, 2018/09/24 22:26:43 |
|
|
/* $OpenXM$ */ |
/* $OpenXM: OpenXM_contrib2/asir2018/builtin/user.c,v 1.1 2018/09/19 05:45:06 noro Exp $ */ |
|
|
/* a sample file for adding builtin functions */ |
/* a sample file for adding builtin functions */ |
|
|
Line 74 void partial_derivative(VL vl,P p,V v,P *r) |
|
Line 74 void partial_derivative(VL vl,P p,V v,P *r) |
|
} |
} |
} |
} |
*/ |
*/ |
|
|
|
void dsave(char *name,Obj a) |
|
{ |
|
extern int ox_file_io; |
|
VL vl; |
|
FILE *fp = fopen(name,"wb"); |
|
ox_file_io = 1; /* network byte order is used */ |
|
get_vars_recursive(a,&vl); |
|
savevl(fp,CO); |
|
saveobj(fp,a); |
|
fclose(fp); |
|
ox_file_io = 0; |
|
} |
|
|