Ignore:
Timestamp:
May 11, 2016 3:39:08 PM (7 years ago)
Author:
srkline
Message:

Updates for Xcode 7, Toolkit 7, and 64-bit version

File:
1 edited

Legend:

Unmodified
Added
Removed
  • sans/XOP_Dev/MonteCarlo/DebyeSpheres.c

    r834 r997  
    1010 
    1111// Prototypes 
    12 HOST_IMPORT int main(IORecHandle ioRecHandle); 
     12HOST_IMPORT int XOPMain(IORecHandle ioRecHandle); 
    1313 
    1414// Custom error codes 
     
    3434        double ival;                            //output intensity value 
    3535        double *xv,*yv,*zv,*rv;         //pointers to input xyz-rho coordinates 
    36         int i,j; 
    37     int npt; 
     36        CountInt i,j; 
     37    CountInt npt; 
    3838        double rval,grid,vol,fQR,dum,dij; 
    3939 
     
    106106 
    107107// 
    108     npt = (int) WavePoints(p->xwavH);   //wavePoints returns long, number of XYZ points 
     108    npt = (CountInt) WavePoints(p->xwavH);      //wavePoints returns long, number of XYZ points 
    109109        xv = (double*)WaveData(p->xwavH);               //xyz locations 
    110110        yv = (double*)WaveData(p->ywavH); 
     
    170170        double dmax,dij;                                //output dmax value, dij 
    171171        double *xv,*yv,*zv;             //pointers to input xyz coordinates 
    172         int i,j; 
    173     int npt; 
    174         int p1,p2; 
     172        CountInt i,j; 
     173    CountInt npt; 
     174        CountInt p1,p2; 
    175175         
    176176        // check for all of the required waves 
     
    203203         
    204204        // 
    205     npt = (int) WavePoints(p->xwavH);   //wavePoints returns long, number of XYZ points 
     205    npt = (CountInt) WavePoints(p->xwavH);      //wavePoints returns long, number of XYZ points 
    206206        xv = (double*)WaveData(p->xwavH);               //xyz locations 
    207207        yv = (double*)WaveData(p->ywavH); 
    208208        zv = (double*)WaveData(p->zwavH); 
    209209         
    210         p1 = (int) p->p1; 
    211         p2 = (int) p->p2; 
     210        p1 = (CountInt) p->p1; 
     211        p2 = (CountInt) p->p2; 
    212212         
    213213        dmax = 0; 
     
    240240{ 
    241241        double *xv,*yv,*zv,*bv;         //pointers to input xyz coordinates 
    242         int i,j; 
    243     int npt,numBins,binIndex; 
     242        CountInt i,j; 
     243    CountInt npt,numBins,binIndex; 
    244244        double grid,binWidth,val; 
    245         int p1,p2; 
     245        CountInt p1,p2; 
    246246         
    247247         
     
    284284         
    285285        // 
    286     npt = (int) WavePoints(p->xwavH);   //wavePoints returns long, number of XYZ points 
    287     numBins = (int) WavePoints(p->bwavH);       //wavePoints returns long, number of points in bin wave 
    288         p1 = (int) p->p1; 
    289         p2 = (int) p->p2; 
     286    npt = (CountInt) WavePoints(p->xwavH);      //wavePoints returns long, number of XYZ points 
     287    numBins = (CountInt) WavePoints(p->bwavH);  //wavePoints returns long, number of points in bin wave 
     288        p1 = (CountInt) p->p1; 
     289        p2 = (CountInt) p->p2; 
    290290         
    291291         
     
    302302                for(j=(i+1);j<npt;j+=1) { 
    303303                        val = XYZDistance(xv[i],xv[j],yv[i],yv[j],zv[i],zv[j])*grid; 
    304                         binIndex = (int)(val/binWidth-0.5); 
     304                        binIndex = (CountInt)(val/binWidth-0.5); 
    305305                        if(binIndex > numBins -1 ) { 
    306306                                //Print "bad index" 
     
    332332        double *xv,*yv,*zv;             //pointers to input xyz coordinates 
    333333        double *rho,*SLDLook,*PSFid;    // rho and the SLD lookup vector 
    334         int i,j; 
    335     int npt,numBins,binIndex; 
     334        CountInt i,j; 
     335    CountInt npt,numBins,binIndex; 
    336336        double grid,binWidth,val,retVal; 
    337         int p1,p2; 
    338         int intSLD; 
     337        CountInt p1,p2; 
     338        CountInt intSLD; 
    339339 
    340340         
     
    344344//      long dimensionSizes[MAX_DIMENSIONS+1]; 
    345345        double value[2];                                // Pointers used for double data. 
    346         long indices[MAX_DIMENSIONS]; 
     346        IndexInt indices[MAX_DIMENSIONS]; 
    347347//       
    348         long rhoi,rhoj,rii,rji,PSFIndex; 
     348        CountInt rhoi,rhoj,rii,rji,PSFIndex; 
    349349         
    350350         
     
    417417        PSFwavH = p->PSFidH; 
    418418         
    419     npt = (int) WavePoints(p->xwavH);   //wavePoints returns long, number of XYZ points 
    420     numBins = (int) WavePoints(p->bwavH);       //wavePoints returns long, number of points in bin wave 
     419    npt = (CountInt) WavePoints(p->xwavH);      //wavePoints returns long, number of XYZ points 
     420    numBins = (CountInt) WavePoints(p->bwavH);  //wavePoints returns long, number of points in bin wave 
    421421         
    422422        xv = (double*)WaveData(p->xwavH);               //xyz locations 
     
    427427        PSFid = (double*)WaveData(p->PSFidH);                   //this one is 2D 
    428428         
    429         p1 = (int) p->p1; 
    430         p2 = (int) p->p2; 
    431          
    432         intSLD = (int) p->minSLD;               //convert to int for use as index 
     429        p1 = (CountInt) p->p1; 
     430        p2 = (CountInt) p->p2; 
     431         
     432        intSLD = (CountInt) p->minSLD;          //convert to int for use as index 
    433433 
    434434        grid = p->grid; 
     
    439439                for(j=(i+1);j<npt;j+=1) { 
    440440                        val = XYZDistance(xv[i],xv[j],yv[i],yv[j],zv[i],zv[j])*grid; 
    441                         binIndex = (int)(val/binWidth-0.5); 
     441                        binIndex = (CountInt)(val/binWidth-0.5); 
    442442                        if(binIndex > numBins -1 ) { 
    443443                                //Print "bad index" 
    444444                        } else { 
    445                                 rhoi = (long) rho[i];                           //get the rho value at i and j 
    446                                 rhoj = (long) rho[j]; 
    447                                 rii = (long) SLDLook[rhoi+intSLD];                      //rho i index 
    448                                 rji = (long) SLDLook[rhoj+intSLD];                      //rho j index 
     445                                rhoi = (CountInt) rho[i];                               //get the rho value at i and j 
     446                                rhoj = (CountInt) rho[j]; 
     447                                rii = (CountInt) SLDLook[rhoi+intSLD];                  //rho i index 
     448                                rji = (CountInt) SLDLook[rhoj+intSLD];                  //rho j index 
    449449                                MemClear(indices, sizeof(indices)); // Must be 0 for unused dimensions. 
    450                                 indices[0] = rii; 
    451                                 indices[1] = rji; 
     450                                indices[0] = (IndexInt)rii; 
     451                                indices[1] = (IndexInt)rji; 
    452452                                if (retVal = MDGetNumericWavePointValue(PSFwavH, indices, value)) 
    453453                                        return retVal; 
    454454                                //PSFIndex = (long) PSFid[rii][rji];            //doesn't work 
    455                                 PSFIndex = (long) value[0]; 
     455                                PSFIndex = (CountInt) value[0]; 
    456456                                 
    457457                                //now do the assignment to the 2D 
     
    459459                                 
    460460                                MemClear(indices, sizeof(indices)); // Must be 0 for unused dimensions. 
    461                                 indices[0] = binIndex; 
    462                                 indices[1] = PSFIndex; 
     461                                indices[0] = (IndexInt)binIndex; 
     462                                indices[1] = (IndexInt)PSFIndex; 
    463463                                if (retVal = MDGetNumericWavePointValue(wavH, indices, value)) 
    464464                                        return retVal; 
Note: See TracChangeset for help on using the changeset viewer.