Changeset 825


Ignore:
Timestamp:
Jul 25, 2011 4:29:30 PM (12 years ago)
Author:
srkline
Message:

Added new DebyeSphere? functions to the Win.rc file

Changed the MonteCarlo?.c files to do all of the declarations before any assignments. This was generating a heap of errors in VC10, but no problems in Xcode.

XOPs all seem to compile fine on the newly set up sansvm2.

Location:
sans/XOP_Dev/MonteCarlo
Files:
5 edited

Legend:

Unmodified
Added
Removed

  • sans/XOP_Dev/MonteCarlo/MonteCarlo.c

    r812 r825  
    5252        double vz_1,g,yg_d;                             //gravity terms 
    5353         
    54         vz_1 = 3.956e5;         //velocity [cm/s] of 1 A neutron 
    55         g = 981.0;                              //gravity acceleration [cm/s^2] 
     54 
    5655         
    5756        // for accessing the 2D wave data, direct method (see the WaveAccess example XOP) 
    … …  
    7170//      char buf[256]; 
    7271                 
     72        vz_1 = 3.956e5;         //velocity [cm/s] of 1 A neutron 
     73        g = 981.0;                              //gravity acceleration [cm/s^2] 
     74 
    7375        /* check that wave handles are all valid */ 
    7476        if (p->inputWaveH == NIL) { 

  • sans/XOP_Dev/MonteCarlo/MonteCarlo2.c

    r812 r825  
    5555        double vz_1,g,yg_d;                             //gravity terms 
    5656         
    57         vz_1 = 3.956e5;         //velocity [cm/s] of 1 A neutron 
    58         g = 981.0;                              //gravity acceleration [cm/s^2] 
    59          
     57 
    6058 
    6159        // for accessing the 2D wave data, direct method (see the WaveAccess example XOP) 
    … …  
    7472         
    7573//      char buf[256]; 
    76                  
     74 
     75        vz_1 = 3.956e5;         //velocity [cm/s] of 1 A neutron 
     76        g = 981.0;                              //gravity acceleration [cm/s^2] 
     77         
    7778        /* check that wave handles are all valid */ 
    7879        if (p->inputWaveH == NIL) { 

  • sans/XOP_Dev/MonteCarlo/MonteCarlo3.c

    r812 r825  
    5454        double vz_1,g,yg_d;                             //gravity terms 
    5555         
    56         vz_1 = 3.956e5;         //velocity [cm/s] of 1 A neutron 
    57         g = 981.0;                              //gravity acceleration [cm/s^2]  
    58          
     56 
    5957        // for accessing the 2D wave data, direct method (see the WaveAccess example XOP) 
    6058        waveHndl wavH; 
    … …  
    7270         
    7371        //      char buf[256]; 
     72 
     73        vz_1 = 3.956e5;         //velocity [cm/s] of 1 A neutron 
     74        g = 981.0;                              //gravity acceleration [cm/s^2]  
    7475         
    7576        /* check that wave handles are all valid */ 

  • sans/XOP_Dev/MonteCarlo/MonteCarlo4.c

    r812 r825  
    5555        double vz_1,g,yg_d;                             //gravity terms 
    5656         
    57         vz_1 = 3.956e5;         //velocity [cm/s] of 1 A neutron 
    58         g = 981.0;                              //gravity acceleration [cm/s^2]  
    59          
     57 
    6058        // for accessing the 2D wave data, direct method (see the WaveAccess example XOP) 
    6159        waveHndl wavH; 
    … …  
    7371         
    7472        //      char buf[256]; 
     73 
     74        vz_1 = 3.956e5;         //velocity [cm/s] of 1 A neutron 
     75        g = 981.0;                              //gravity acceleration [cm/s^2]  
    7576         
    7677        /* check that wave handles are all valid */ 

  • sans/XOP_Dev/MonteCarlo/SANSMonteCarloWinCustom.rc

    r676 r825  
    108108                        0, 
    109109 
     110 
     111                "maxDistanceX\0",               /* function name */ 
     112                F_UTIL | F_THREADSAFE | F_EXTERNAL,                                     /* function category == UTILITY */ 
     113                NT_FP64,                                                        /* return value type */                  
     114                        NT_FP64 + WAVE_TYPE, 
     115                        NT_FP64 + WAVE_TYPE, 
     116                        NT_FP64 + WAVE_TYPE, 
     117                        NT_FP64,                                                // start index 
     118                        NT_FP64,                                                // stop index 
     119                        0, 
     120                 
     121                "binDistanceX\0",               /* function name */ 
     122                F_UTIL | F_THREADSAFE | F_EXTERNAL,                                     /* function category == UTILITY */ 
     123                NT_FP64,                                                        /* return value type */                  
     124                        NT_FP64 + WAVE_TYPE,                    // XYZ waves 
     125                        NT_FP64 + WAVE_TYPE, 
     126                        NT_FP64 + WAVE_TYPE, 
     127                        NT_FP64 + WAVE_TYPE,                    // distance Bin wave (this is returned) 
     128                        NT_FP64,                                                // grid 
     129                        NT_FP64,                                                // bin width 
     130                        NT_FP64,                                                // start index 
     131                        NT_FP64,                                                // stop index 
     132                        0, 
     133                 
     134                "SobolX\0",             /* function name */ 
     135                F_UTIL | F_EXTERNAL,                                    /* function category == UTILITY */ 
     136                NT_FP64,                                                        /* return value type */                  
     137                        NT_FP64,                                                // requested dimension (this is really an integer) 
     138                        NT_FP64 + WAVE_TYPE,                    // result wave 
     139                        0, 
     140                 
     141                "binSLDDistanceX\0",            /* function name */ 
     142                F_UTIL | F_THREADSAFE | F_EXTERNAL,                                     /* function category == UTILITY */ 
     143                NT_FP64,                                                        /* return value type */                  
     144                        NT_FP64 + WAVE_TYPE,                    // XYZ waves 
     145                        NT_FP64 + WAVE_TYPE, 
     146                        NT_FP64 + WAVE_TYPE, 
     147                        NT_FP64 + WAVE_TYPE,                    // rho wave 
     148                        NT_FP64 + WAVE_TYPE,                    // distance Bin wave, 2D (this is returned) 
     149                        NT_FP64 + WAVE_TYPE,                    // SLD lookup 
     150                        NT_FP64 + WAVE_TYPE,                    // PSF id matrix 
     151                        NT_FP64,                                                // abs(minSLD) for lookup table 
     152                        NT_FP64,                                                // grid 
     153                        NT_FP64,                                                // bin width 
     154                        NT_FP64,                                                // start index 
     155                        NT_FP64,                                                // stop index 
     156                        0, 
     157 
    110158        0, 
    111159END 
Note: See TracChangeset for help on using the changeset viewer.