accosin.c

来自「zemax与matlab调用程序」· C语言 代码 · 共 1,620 行 · 第 1/5 页

    _mxarray287_ = mclInitializeString(6, _array288_);
    _mxarray289_ = mclInitializeString(5, _array290_);
    _mxarray291_ = mclInitializeString(5, _array292_);
    _mxarray293_ = mclInitializeString(4, _array294_);
    _mxarray295_ = mclInitializeString(5, _array296_);
    _mxarray297_ = mclInitializeString(5, _array298_);
    _mxarray299_ = mclInitializeString(2, _array300_);
    _mxarray301_ = mclInitializeString(2, _array302_);
    _mxarray303_ = mclInitializeString(6, _array304_);
    _mxarray305_ = mclInitializeString(5, _array306_);
    _mxarray307_ = mclInitializeString(24, _array308_);
    _mxarray309_ = mclInitializeString(18, _array310_);
    _mxarray311_ = mclInitializeString(2, _array312_);
    _mxarray313_ = mclInitializeDouble(.1);
    _mxarray314_ = mclInitializeString(2, _array315_);
    _mxarray316_ = mclInitializeDoubleVector(0, 0, (double *)NULL);
    _mxarray317_ = mclInitializeString(5, _array318_);
    _mxarray319_ = mclInitializeString(2, _array320_);
    _mxarray321_ = mclInitializeString(7, _array322_);
    _mxarray323_ = mclInitializeString(6, _array324_);
    _mxarray325_ = mclInitializeString(3, _array326_);
    _mxarray327_ = mclInitializeString(3, _array328_);
    _mxarray329_ = mclInitializeString(3, _array330_);
    _mxarray331_ = mclInitializeString(3, _array332_);
    _mxarray333_ = mclInitializeString(71, _array334_);
    _mxarray335_ = mclInitializeString(9, _array336_);
    _mxarray337_ = mclInitializeString(34, _array338_);
    _mxarray339_ = mclInitializeDouble(-998.0);
    _mxarray340_ = mclInitializeString(115, _array341_);
    _mxarray342_ = mclInitializeString(30, _array343_);
    _mxarray344_ = mclInitializeString(8, _array345_);
    _mxarray346_ = mclInitializeString(7, _array347_);
    _mxarray348_ = mclInitializeString(1, _array349_);
    _mxarray350_ = mclInitializeString(4, _array351_);
    _mxarray352_ = mclInitializeString(6, _array353_);
    _mxarray354_ = mclInitializeString(20, _array355_);
    _mxarray356_ = mclInitializeString(9, _array357_);
    _mxarray358_ = mclInitializeString(9, _array359_);
    _mxarray360_ = mclInitializeString(1, _array361_);
    _mxarray362_ = mclInitializeString(27, _array363_);
    _mxarray364_ = mclInitializeString(27, _array365_);
}

void TerminateModule_accosin(void) {
    mxDestroyArray(_mxarray364_);
    mxDestroyArray(_mxarray362_);
    mxDestroyArray(_mxarray360_);
    mxDestroyArray(_mxarray358_);
    mxDestroyArray(_mxarray356_);
    mxDestroyArray(_mxarray354_);
    mxDestroyArray(_mxarray352_);
    mxDestroyArray(_mxarray350_);
    mxDestroyArray(_mxarray348_);
    mxDestroyArray(_mxarray346_);
    mxDestroyArray(_mxarray344_);
    mxDestroyArray(_mxarray342_);
    mxDestroyArray(_mxarray340_);
    mxDestroyArray(_mxarray339_);
    mxDestroyArray(_mxarray337_);
    mxDestroyArray(_mxarray335_);
    mxDestroyArray(_mxarray333_);
    mxDestroyArray(_mxarray331_);
    mxDestroyArray(_mxarray329_);
    mxDestroyArray(_mxarray327_);
    mxDestroyArray(_mxarray325_);
    mxDestroyArray(_mxarray323_);
    mxDestroyArray(_mxarray321_);
    mxDestroyArray(_mxarray319_);
    mxDestroyArray(_mxarray317_);
    mxDestroyArray(_mxarray316_);
    mxDestroyArray(_mxarray314_);
    mxDestroyArray(_mxarray313_);
    mxDestroyArray(_mxarray311_);
    mxDestroyArray(_mxarray309_);
    mxDestroyArray(_mxarray307_);
    mxDestroyArray(_mxarray305_);
    mxDestroyArray(_mxarray303_);
    mxDestroyArray(_mxarray301_);
    mxDestroyArray(_mxarray299_);
    mxDestroyArray(_mxarray297_);
    mxDestroyArray(_mxarray295_);
    mxDestroyArray(_mxarray293_);
    mxDestroyArray(_mxarray291_);
    mxDestroyArray(_mxarray289_);
    mxDestroyArray(_mxarray287_);
    mxDestroyArray(_mxarray285_);
    mxDestroyArray(_mxarray283_);
    mxDestroyArray(_mxarray281_);
    mxDestroyArray(_mxarray279_);
    mxDestroyArray(_mxarray277_);
    mxDestroyArray(_mxarray276_);
    mxDestroyArray(_mxarray274_);
    mxDestroyArray(_mxarray272_);
    mxDestroyArray(_mxarray270_);
    mxDestroyArray(_mxarray268_);
    mxDestroyArray(_mxarray266_);
    mxDestroyArray(_mxarray265_);
    mxDestroyArray(_mxarray263_);
    mxDestroyArray(_mxarray262_);
    mxDestroyArray(_mxarray261_);
    mxDestroyArray(_mxarray260_);
    mxDestroyArray(_mxarray259_);
    mxDestroyArray(_mxarray257_);
    mxDestroyArray(_mxarray255_);
    mxDestroyArray(_mxarray253_);
    mxDestroyArray(_mxarray251_);
    mxDestroyArray(_mxarray249_);
    mxDestroyArray(_mxarray247_);
    mxDestroyArray(_mxarray245_);
    mxDestroyArray(_mxarray244_);
    mxDestroyArray(_mxarray242_);
    mxDestroyArray(_mxarray240_);
    mxDestroyArray(_mxarray238_);
    mxDestroyArray(_mxarray236_);
    mxDestroyArray(_mxarray234_);
    mxDestroyArray(_mxarray232_);
    mxDestroyArray(_mxarray230_);
    mxDestroyArray(_mxarray228_);
    mxDestroyArray(_mxarray226_);
    mxDestroyArray(_mxarray224_);
    mxDestroyArray(_mxarray222_);
    mxDestroyArray(_mxarray221_);
    mxDestroyArray(_mxarray219_);
    mxDestroyArray(_mxarray218_);
    mxDestroyArray(_mxarray217_);
    mxDestroyArray(_mxarray215_);
    mxDestroyArray(_mxarray214_);
    mxDestroyArray(_mxarray212_);
    mxDestroyArray(_mxarray210_);
    mxDestroyArray(_mxarray208_);
    mxDestroyArray(_mxarray206_);
    mxDestroyArray(_mxarray205_);
    mxDestroyArray(_mxarray204_);
    mxDestroyArray(_mxarray154_);
    mxDestroyArray(_mxarray202_);
    mxDestroyArray(_mxarray200_);
    mxDestroyArray(_mxarray198_);
    mxDestroyArray(_mxarray196_);
    mxDestroyArray(_mxarray194_);
    mxDestroyArray(_mxarray192_);
    mxDestroyArray(_mxarray190_);
    mxDestroyArray(_mxarray188_);
    mxDestroyArray(_mxarray186_);
    mxDestroyArray(_mxarray184_);
    mxDestroyArray(_mxarray182_);
    mxDestroyArray(_mxarray180_);
    mxDestroyArray(_mxarray178_);
    mxDestroyArray(_mxarray176_);
    mxDestroyArray(_mxarray174_);
    mxDestroyArray(_mxarray172_);
    mxDestroyArray(_mxarray170_);
    mxDestroyArray(_mxarray168_);
    mxDestroyArray(_mxarray166_);
    mxDestroyArray(_mxarray164_);
    mxDestroyArray(_mxarray162_);
    mxDestroyArray(_mxarray160_);
    mxDestroyArray(_mxarray158_);
    mxDestroyArray(_mxarray156_);
    mxDestroyArray(_mxarray46_);
    mxDestroyArray(_mxarray152_);
    mxDestroyArray(_mxarray150_);
    mxDestroyArray(_mxarray148_);
    mxDestroyArray(_mxarray146_);
    mxDestroyArray(_mxarray144_);
    mxDestroyArray(_mxarray142_);
    mxDestroyArray(_mxarray140_);
    mxDestroyArray(_mxarray138_);
    mxDestroyArray(_mxarray136_);
    mxDestroyArray(_mxarray134_);
    mxDestroyArray(_mxarray132_);
    mxDestroyArray(_mxarray130_);
    mxDestroyArray(_mxarray128_);
    mxDestroyArray(_mxarray126_);
    mxDestroyArray(_mxarray124_);
    mxDestroyArray(_mxarray122_);
    mxDestroyArray(_mxarray120_);
    mxDestroyArray(_mxarray118_);
    mxDestroyArray(_mxarray116_);
    mxDestroyArray(_mxarray114_);
    mxDestroyArray(_mxarray112_);
    mxDestroyArray(_mxarray110_);
    mxDestroyArray(_mxarray108_);
    mxDestroyArray(_mxarray106_);
    mxDestroyArray(_mxarray104_);
    mxDestroyArray(_mxarray102_);
    mxDestroyArray(_mxarray100_);
    mxDestroyArray(_mxarray98_);
    mxDestroyArray(_mxarray96_);
    mxDestroyArray(_mxarray94_);
    mxDestroyArray(_mxarray92_);
    mxDestroyArray(_mxarray90_);
    mxDestroyArray(_mxarray88_);
    mxDestroyArray(_mxarray86_);
    mxDestroyArray(_mxarray84_);
    mxDestroyArray(_mxarray82_);
    mxDestroyArray(_mxarray80_);
    mxDestroyArray(_mxarray78_);
    mxDestroyArray(_mxarray76_);
    mxDestroyArray(_mxarray74_);
    mxDestroyArray(_mxarray72_);
    mxDestroyArray(_mxarray70_);
    mxDestroyArray(_mxarray68_);
    mxDestroyArray(_mxarray66_);
    mxDestroyArray(_mxarray64_);
    mxDestroyArray(_mxarray62_);
    mxDestroyArray(_mxarray60_);
    mxDestroyArray(_mxarray58_);
    mxDestroyArray(_mxarray56_);
    mxDestroyArray(_mxarray54_);
    mxDestroyArray(_mxarray52_);
    mxDestroyArray(_mxarray50_);
    mxDestroyArray(_mxarray48_);
    mxDestroyArray(_mxarray45_);
    mxDestroyArray(_mxarray43_);
    mxDestroyArray(_mxarray29_);
    mxDestroyArray(_mxarray41_);
    mxDestroyArray(_mxarray39_);
    mxDestroyArray(_mxarray37_);
    mxDestroyArray(_mxarray35_);
    mxDestroyArray(_mxarray33_);
    mxDestroyArray(_mxarray31_);
    mxDestroyArray(_mxarray28_);
    mxDestroyArray(_mxarray26_);
    mxDestroyArray(_mxarray24_);
    mxDestroyArray(_mxarray22_);
    mxDestroyArray(_mxarray20_);
    mxDestroyArray(_mxarray18_);
    mxDestroyArray(_mxarray16_);
    mxDestroyArray(_mxarray14_);
    mxDestroyArray(_mxarray12_);
    mxDestroyArray(_mxarray10_);
    mxDestroyArray(_mxarray8_);
    mxDestroyArray(_mxarray7_);
    mxDestroyArray(_mxarray6_);
    mxDestroyArray(_mxarray5_);
    mxDestroyArray(_mxarray4_);
    mxDestroyArray(_mxarray2_);
    mxDestroyArray(_mxarray0_);
}

static mxArray * mlfAccosin_ReadACCOSFile(mxArray * Filename);
static void mlxAccosin_ReadACCOSFile(int nlhs,
                                     mxArray * plhs[],
                                     int nrhs,
                                     mxArray * prhs[]);
static mxArray * mlfAccosin_NewSurface(mxArray * * ACCOSout,
                                       mxArray * ZEMAXin,
                                       mxArray * ACCOSin);
static void mlxAccosin_NewSurface(int nlhs,
                                  mxArray * plhs[],
                                  int nrhs,
                                  mxArray * prhs[]);
static mxArray * mlfAccosin_CleanFileName(mxArray * DirtyName);
static void mlxAccosin_CleanFileName(int nlhs,
                                     mxArray * plhs[],
                                     int nrhs,
                                     mxArray * prhs[]);
static void mlfAccosin_ReadOldConfigData(mxArray * fID);
static void mlxAccosin_ReadOldConfigData(int nlhs,
                                         mxArray * plhs[],
                                         int nrhs,
                                         mxArray * prhs[]);
static void mlfAccosin_ReadNewConfigData(mxArray * fID,
                                         mxArray * Config,
                                         mxArray * Surface);
static void mlxAccosin_ReadNewConfigData(int nlhs,
                                         mxArray * plhs[],
                                         int nrhs,
                                         mxArray * prhs[]);
static mxArray * Maccosin(int nargout_, mxArray * varargin);
static mxArray * Maccosin_ReadACCOSFile(int nargout_, mxArray * Filename);
static mxArray * Maccosin_NewSurface(mxArray * * ACCOSout,
                                     int nargout_,
                                     mxArray * ZEMAXin,
                                     mxArray * ACCOSin);
static mxArray * Maccosin_CleanFileName(int nargout_, mxArray * DirtyName);
static void Maccosin_ReadOldConfigData(mxArray * fID);
static void Maccosin_ReadNewConfigData(mxArray * fID,
                                       mxArray * Config,
                                       mxArray * Surface);

static mexFunctionTableEntry local_function_table_[5]
  = { { "ReadACCOSFile", mlxAccosin_ReadACCOSFile, 1, 1, NULL },
      { "NewSurface", mlxAccosin_NewSurface, 2, 2, NULL },
      { "CleanFileName", mlxAccosin_CleanFileName, 1, 1, NULL },
      { "ReadOldConfigData", mlxAccosin_ReadOldConfigData, 1, 0, NULL },
      { "ReadNewConfigData", mlxAccosin_ReadNewConfigData, 3, 0, NULL } };

_mexLocalFunctionTable _local_function_table_accosin
  = { 5, local_function_table_ };

/*
 * The function "mlfAccosin" contains the normal interface for the "accosin"
 * M-function from file "c:\projects\mzdde\accosin.m" (lines 1-57). This
 * function processes any input arguments and passes them to the implementation
 * version of the function, appearing above.
 */
mxArray * mlfAccosin(mxArray * synthetic_varargin_argument, ...) {
    mxArray * varargin = NULL;
    int nargout = 1;
    mxArray * Status = NULL;
    mlfVarargin(&varargin, synthetic_varargin_argument, 1);
    mlfEnterNewContext(0, -1, varargin);
    Status = Maccosin(nargout, varargin);
    mlfRestorePreviousContext(0, 0);
    mxDestroyArray(varargin);
    return mlfReturnValue(Status);
}

/*
 * The function "mlxAccosin" contains the feval interface for the "accosin"
 * M-function from file "c:\projects\mzdde\accosin.m" (lines 1-57). The feval
 * function calls the implementation version of accosin through this function.
 * This function processes any input arguments and passes them to the
 * implementation version of the function, appearing above.
 */
void mlxAccosin(int nlhs, mxArray * plhs[], int nrhs, mxArray * prhs[]) {
    mxArray * mprhs[1];
    mxArray * mplhs[1];
    int i;
    if (nlhs > 1) {
        mlfError(
          mxCreateString(
            "Run-time Error: File: accosin Line: 1 Column: "