00001 00006 #include "ilsi.h" 00007 00008 ILSI_Comm::~ILSI_Comm() {} 00009 00010 00011 CLINKAGE void ILSI_Param_new(ILSI_Param *param) 00012 { 00013 param->maxResidual=1.0e-6; 00014 param->maxIterations=0; 00015 int i; 00016 for (i=0;i<8;i++) param->solverIn[i]=0; 00017 param->residual=-1; 00018 param->iterations=-1; 00019 for (i=0;i<8;i++) param->solverOut[i]=0; 00020 } 00021 FORTRAN_AS_C(ILSI_PARAM_NEW,ILSI_Param_new,ilsi_param_new, 00022 (int *param),((ILSI_Param *)param)) 00023 00024
1.5.5