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/MonteCarlo4.c

    r834 r997  
    3535        double retVal;                          //return value 
    3636         
    37         long imon; 
     37        SInt64 imon; 
    3838        double r1,r2,xCtr,yCtr,sdd,pixSize,thick,wavelength,sig_incoh,sig_sas; 
    39         long ind,index,n_index; 
     39        IndexInt ind,index,n_index; 
    4040        double qmax,theta_max,q0,zpow; 
    41         long n1,n2,n3; 
     41        CountInt n1,n2,n3; 
    4242        double dth,zz,xx,yy,phi; 
    4343        double theta,ran,ll,rr; 
    44         long done,find_theta,err;               //used as logicals 
    45         long xPixel,yPixel; 
     44        int done,find_theta,err;                //used as logicals 
     45        int xPixel,yPixel; 
    4646        double vx,vy,vz,theta_z; 
    4747        double sig_abs,ratio,sig_total; 
    4848        double testQ,testPhi,left,delta,dummy,pi; 
    4949        double sigabs_0,num_bins; 
    50         long NSingleIncoherent,NSingleCoherent,NScatterEvents,incoherentEvent,coherentEvent; 
    51         long NDoubleCoherent,NMultipleScatter,isOn,xCtr_long,yCtr_long; 
    52         long NMultipleCoherent,NCoherentEvents; 
     50        CountInt NSingleIncoherent,NSingleCoherent,NScatterEvents,incoherentEvent,coherentEvent; 
     51        CountInt NDoubleCoherent,NMultipleScatter,isOn,xCtr_long,yCtr_long; 
     52        CountInt NMultipleCoherent,NCoherentEvents; 
    5353        double deltaLam,v1,v2,currWavelength,rsq,fac;           //for simulating wavelength distribution 
    5454        double ssd, sourAp, souXX, souYY, magn;         //source-to-sample, and source Ap radius for initlal trajectory 
     
    6565        //      long dataOffset; 
    6666        //      long numRows, numColumns; 
    67         long numRows_ran_dev; 
     67        CountInt numRows_ran_dev; 
    6868        //      double *dp0, *dp; 
    6969        double value[2];                                // Pointers used for double data. 
    70         long seed; 
    71         long indices[MAX_DIMENSIONS]; 
     70        SInt32 seed; 
     71        IndexInt indices[MAX_DIMENSIONS]; 
    7272         
    7373        //      char buf[256]; 
     
    122122        results = (double*)WaveData(p->resultsH); 
    123123         
    124         seed = (long)results[0]; 
     124        seed = (SInt32)results[0]; 
    125125         
    126126        //      sprintf(buf, "input seed = %ld\r", seed); 
     
    134134        seed = 12348765;                //non-negative after that does nothing 
    135135         
    136         imon = (int)inputWave[0]; 
     136        imon = (SInt64)inputWave[0]; 
    137137        r1 = inputWave[1]; 
    138138        r2 = inputWave[2]; 
     
    149149        sourAp = inputWave[13];         // radius, in cm, like r1 and r2 
    150150         
    151         xCtr_long = (long)(xCtr+0.5); 
    152         yCtr_long = (long)(yCtr+0.5); 
     151        xCtr_long = (CountInt)(xCtr+0.5); 
     152        yCtr_long = (CountInt)(yCtr+0.5); 
    153153         
    154154        dummy = MDGetWaveScaling(p->ran_devH, 0, &delta, &left);                //0 is the rows 
     
    379379                                                //Choose index for scattering angle array. 
    380380                                                //IND = NINT(THETA_z/DTH + 0.4999999) 
    381                                                 ind = (long)(theta_z/dth + 0.4999999);          //round is eqivalent to nint() 
     381                                                ind = (IndexInt)(theta_z/dth + 0.4999999);              //round is eqivalent to nint() 
    382382                                                nt[ind] += 1;                   //Increment bin for angle. 
    383383                                                //Increment angle array for single scattering events. 
Note: See TracChangeset for help on using the changeset viewer.