Ignore:
Timestamp:
Aug 14, 2007 3:40:40 PM (15 years ago)
Author:
srkline
Message:

Changed Gauss Utils to use double precision in quadrature

File:
1 edited

Legend:

Unmodified
Added
Removed
  • sans/Analysis/branches/ajj_23APR07/IGOR_Package_Files/Put in User Procedures/SANS_Models_v3.00/GaussUtils.ipf

    r132 r144  
    6161EndStructure 
    6262 
    63 Function/S getHoldStr() 
    64  
    65         String str="0010" 
    66         return str 
    67 End 
    68  
    6963// utility used in the "PlotSmeared...() macros to get a list of data folders 
    7064// 
     
    8983                index += 1 
    9084        while(1) 
     85         
     86        // remove myGlobals from the folder list 
     87        if(type==4) 
     88                str = RemoveFromList("myGlobals", str , ";" ) 
     89        endif 
    9190         
    9291        return(str) 
     
    653652        // returned from the interpolation (as expected) 
    654653 
    655         Make/O/N=(DimSize(resW, 0)) sigQ,qbar,shad,qvals 
     654        Make/O/D/N=(DimSize(resW, 0)) sigQ,qbar,shad,qvals 
    656655        sigq = resW[p][0]               //std dev of resolution fn 
    657656        qbar = resW[p][1]               //mean q-value 
     
    684683                ii=0                    // loop counter 
    685684                // do the calculation as a single pass w/AAO function 
    686                 Make/O/N=(nord) Resoln,yyy,xGauss 
     685                Make/O/D/N=(nord) Resoln,yyy,xGauss 
    687686                do 
    688687                        // calculate Gauss points on integration interval (q-value for evaluation) 
     
    904903         
    905904        Print "in SANSModelAAO_proto function" 
     905        return(1) 
     906end 
     907 
     908// prototype function for fit wrapper 
     909// it intentionally does nothing 
     910Function SANSModelSTRUCT_proto(s) 
     911        Struct ResSmearAAOStruct &s      
     912 
     913        Print "in SANSModelSTRUCT_proto function" 
    906914        return(1) 
    907915end 
Note: See TracChangeset for help on using the changeset viewer.