Changeset 968 for sans/Dev/trunk/NCNR_User_Procedures/Analysis/Alpha/Tinker

Timestamp:

Nov 6, 2015 11:19:03 AM (7 years ago)

Author:

srkline

Message:

fixed indexing (bug) in parser that worked fine in Igor 6, but was correctly flagged as an error in Igor 7 beta

File:

• sans/Dev/trunk/NCNR_User_Procedures/Analysis/Alpha/Tinker/FFT_KR_Parser.ipf (modified) (1 diff)

sans/Dev/trunk/NCNR_User_Procedures/Analysis/Alpha/Tinker/FFT_KR_Parser.ipf

@@ -237 +237 @@
                         for(i=-RR;i<RR;i+=1)  //should this have i<RR+1 or in above RR=RR+2????
                                 for(j=-RR;j<RR;J+=1)
-                                        x0=sbp*i+P5
-                                        y0=SBP*j+P5
-                                        z0=SBP*k+p5
+                                        x0=sbp[L]*i+P5
+                                        y0=SBP[L]*j+P5
+                                        z0=SBP[L]*k+p5
                                         if((((y0^2)/(RRI[L]^2))+((x0^2)/(RRI[L]^2)))<=1)
                                                 IX=-1