Changeset 4711


Ignore:
Timestamp:
07/21/10 18:45:20 (15 years ago)
Author:
Eric.Larour
Message:

Changed THISFUNCTION to FUNCT
took out free statements, which the memory manager will take care of.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • issm/trunk/src/mex/Scotch/Scotch.cpp

    r4656 r4711  
    6161                strcpy(argvm[isi],"gmap");
    6262                mexPrintf("%s -- Using \"%s\" entry point.\n",
    63                                   THISFUNCTION,argvm[isi]);
     63                                  __FUNCT__,argvm[isi]);
    6464                isi++;
    6565        }
    … …  
    6868                strcpy(argvm[isi],"gpart");
    6969                mexPrintf("%s -- Using \"%s\" entry point.\n",
    70                                   THISFUNCTION,argvm[isi]);
     70                                  __FUNCT__,argvm[isi]);
    7171                isi++;
    7272
    … …  
    7474                sprintf(argvm[isi],"%d",(int)mxGetScalar(prhs[imi]));
    7575                mexPrintf("%s -- Number of parts is %s.\n",
    76                                   THISFUNCTION,argvm[isi]);
     76                                  __FUNCT__,argvm[isi]);
    7777                isi++;
    7878                imi++;
    … …  
    8080
    8181        if (!mxIsNumeric(prhs[imi]) || (!mxIsEmpty(prhs[imi]) && !mxIsSparse(prhs[imi]))) {
    82                 mexPrintf("%s -- Adjacency matrix must be numeric and sparse.\n",THISFUNCTION);
     82                mexPrintf("%s -- Adjacency matrix must be numeric and sparse.\n",__FUNCT__);
    8383                mexErrMsgTxt(" ");
    8484        }
    … …  
    9999                }
    100100                mexPrintf("%s -- Adjacency matrix is of size %d by %d with %d non-zeroes.\n",
    101                                   THISFUNCTION,mxGetM(prhs[imi]),mxGetN(prhs[imi]),mxGetNzmax(prhs[imi]));
     101                                  __FUNCT__,mxGetM(prhs[imi]),mxGetN(prhs[imi]),mxGetNzmax(prhs[imi]));
    102102        }
    103103        imi++;
    104104
    105105        if (!mxIsNumeric(prhs[imi])) {
    106                 mexPrintf("%s -- Vertex label vector must be numeric.\n",THISFUNCTION);
     106                mexPrintf("%s -- Vertex label vector must be numeric.\n",__FUNCT__);
    107107                mexErrMsgTxt(" ");
    108108        }
    … …  
    115115                }
    116116                mexPrintf("%s -- Vertex label vector is of size %d by %d.\n",
    117                                   THISFUNCTION,mxGetM(prhs[imi]),mxGetN(prhs[imi]));
     117                                  __FUNCT__,mxGetM(prhs[imi]),mxGetN(prhs[imi]));
    118118        }
    119119        imi++;
    120120
    121121        if (!mxIsNumeric(prhs[imi])) {
    122                 mexPrintf("%s -- Vertex weight vector must be numeric.\n",THISFUNCTION);
     122                mexPrintf("%s -- Vertex weight vector must be numeric.\n",__FUNCT__);
    123123                mexErrMsgTxt(" ");
    124124        }
    … …  
    131131                }
    132132                mexPrintf("%s -- Vertex weight vector is of size %d by %d.\n",
    133                                   THISFUNCTION,mxGetM(prhs[imi]),mxGetN(prhs[imi]));
     133                                  __FUNCT__,mxGetM(prhs[imi]),mxGetN(prhs[imi]));
    134134        }
    135135        imi++;
    136136
    137137        if (!mxIsNumeric(prhs[imi]) || (!mxIsEmpty(prhs[imi]) && !mxIsSparse(prhs[imi]))) {
    138                 mexPrintf("%s -- Edge weight matrix must be numeric and sparse.\n",THISFUNCTION);
     138                mexPrintf("%s -- Edge weight matrix must be numeric and sparse.\n",__FUNCT__);
    139139                mexErrMsgTxt(" ");
    140140        }
    … …  
    147147                }
    148148                mexPrintf("%s -- Edge weight matrix is of size %d by %d with %d non-zeroes.\n",
    149                                   THISFUNCTION,mxGetM(prhs[imi]),mxGetN(prhs[imi]),mxGetNzmax(prhs[imi]));
     149                                  __FUNCT__,mxGetM(prhs[imi]),mxGetN(prhs[imi]),mxGetNzmax(prhs[imi]));
    150150        }
    151151        imi++;
    … …  
    154154                  (strncmp (argvm[0] + strlen (argvm[0]) - 5, "gpart", 5) == 0))) {
    155155                if (!mxIsChar(prhs[imi])) {
    156                         mexPrintf("%s -- Architecture type must be character.\n",THISFUNCTION);
     156                        mexPrintf("%s -- Architecture type must be character.\n",__FUNCT__);
    157157                        mexErrMsgTxt(" ");
    158158                }
    … …  
    163163                        }
    164164                        mexPrintf("%s -- Architecture type is \"%s\".\n",
    165                                           THISFUNCTION,archtyp);
     165                                          __FUNCT__,archtyp);
    166166                }
    167167                imi++;
    168168
    169169                if (!mxIsNumeric(prhs[imi])) {
    170                         mexPrintf("%s -- Architecture parameter vector must be numeric.\n",THISFUNCTION);
     170                        mexPrintf("%s -- Architecture parameter vector must be numeric.\n",__FUNCT__);
    171171                        mexErrMsgTxt(" ");
    172172                }
    … …  
    180180                        }
    181181                        mexPrintf("%s -- Architecture parameter vector is of size %d by %d.\n",
    182                                           THISFUNCTION,mxGetM(prhs[imi]),mxGetN(prhs[imi]));
     182                                          __FUNCT__,mxGetM(prhs[imi]),mxGetN(prhs[imi]));
    183183                }
    184184                imi++;
    … …  
    187187        while (imi < nrhs) {
    188188                if (!mxIsChar(prhs[imi])) {
    189                         mexPrintf("%s -- prhs[%d] must be character.\n",THISFUNCTION,imi);
     189                        mexPrintf("%s -- prhs[%d] must be character.\n",__FUNCT__,imi);
    190190                        mexErrMsgTxt(" ");
    191191                }
    … …  
    218218                           napar,
    219219                           api);
    220         mexPrintf("%s -- Error %d from Gmapx.\n",THISFUNCTION,ierr);
     220        mexPrintf("%s -- Error %d from Gmapx.\n",__FUNCT__,ierr);
    221221
    222222/*  for (i=0; i<nvert; i++)
    … …  
    233233                        for (i=0; i<nvert; i++)
    234234                                maptabd[k++]=(double)maptabi[i][j];
    235                 free(maptabi);
     235                //free(maptabi);
    236236        }
    237237        else {
    … …  
    240240        imo++;
    241241
    242         if (argvm)
     242        /*if (argvm)
    243243                for (i=argcm-1; i>=0; i--)
    244244                        free(argvm[i]);
    … …  
    249249        if (vli)     free(vli);
    250250        if (adjjc)   free(adjjc);
    251         if (adjir)   free(adjir);
     251        if (adjir)   free(adjir);*/
    252252
    253253        return;
Note: See TracChangeset for help on using the changeset viewer.