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/MonteCarlo2.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 
     
    6666//      long dataOffset; 
    6767//      long numRows, numColumns; 
    68         long numRows_ran_dev; 
     68        CountInt numRows_ran_dev; 
    6969//      double *dp0, *dp; 
    7070        double value[2];                                // Pointers used for double data. 
    71         long seed; 
    72         long indices[MAX_DIMENSIONS]; 
     71        SInt32 seed; 
     72        IndexInt indices[MAX_DIMENSIONS]; 
    7373         
    7474//      char buf[256]; 
     
    123123        results = (double*)WaveData(p->resultsH); 
    124124         
    125         seed = (long)results[0]; 
     125        seed = (SInt32)results[0]; 
    126126         
    127127//      sprintf(buf, "input seed = %ld\r", seed); 
     
    135135        seed = 12348765;                //non-negative after that does nothing 
    136136 
    137         imon = (int)inputWave[0]; 
     137        imon = (SInt64)inputWave[0]; 
    138138        r1 = inputWave[1]; 
    139139        r2 = inputWave[2]; 
     
    150150        sourAp = inputWave[13];         // radius, in cm, like r1 and r2         
    151151         
    152         xCtr_long = (long)(xCtr+0.5); 
    153         yCtr_long = (long)(yCtr+0.5); 
     152        xCtr_long = (CountInt)(xCtr+0.5); 
     153        yCtr_long = (CountInt)(yCtr+0.5); 
    154154         
    155155        dummy = MDGetWaveScaling(p->ran_devH, 0, &delta, &left);                //0 is the rows 
     
    380380                                                //Choose index for scattering angle array. 
    381381                                                //IND = NINT(THETA_z/DTH + 0.4999999) 
    382                                                 ind = (long)(theta_z/dth + 0.4999999);          //round is eqivalent to nint() 
     382                                                ind = (IndexInt)(theta_z/dth + 0.4999999);              //round is eqivalent to nint() 
    383383                                                nt[ind] += 1;                   //Increment bin for angle. 
    384384                                                //Increment angle array for single scattering events. 
Note: See TracChangeset for help on using the changeset viewer.