Changeset 401


Ignore:
Timestamp:
Sep 10, 2008 8:21:47 PM (14 years ago)
Author:
ajj
Message:

Fixed bug in GRASP export.

If the result was that the last line of the file would contain only 1 value, then it wasn't written. Array index vs point number issue.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • sans/Dev/trunk/NCNR_User_Procedures/SANS/Reduction/WriteQIS.ipf

    r394 r401  
    517517        Make/O/T/N=(numTextLines) labelWave 
    518518         
    519 //      sprintf tmpStr," '%s'   '%s'   '%s'",textw[0],textw[1],textw[2] 
    520         sprintf tmpStr," '%s'        '%s'        '%s'     'SAn''ABC''A123'",GetFileNameFromPathNoSemi(fullPath),textw[1],textw[2] 
     519        sprintf tmpStr," '%s'   '%s'   '%s'",textw[0],textw[1],textw[2] 
    521520        labelWave[0] = tmpStr 
    522         labelWave[1] = " "+textw[6]             //label 
    523          
    524 //      sprintf tmpStr," %d  %g  %g  %g",intw[2],rw[0],rw[39],rw[2] 
    525         sprintf tmpStr," %6d        %13.5E     %13.5E     %13.5E",intw[2],rw[0],rw[39],rw[2] 
     521        labelWave[1] = textw[6]         //label 
     522         
     523        sprintf tmpStr," %d  %g  %g  %g",intw[2],rw[0],rw[39],rw[2] 
    526524        labelWave[2] = tmpStr 
    527525        labelWave[3] = " Cnt.Time(sec.)    Mon. Cnt.      Trans. Det. Cnt.  Tot. Det. Cnt." 
    528526         
    529 //      sprintf tmpStr," %g  %g  %g '%s' %g '%s' %d  %d  %g",rw[4],rw[5],rw[8],textw[7],rw[9],textw[8],intw[4],intw[5],rw[6] 
    530         sprintf tmpStr,"%10.3g   %9.2g%8.2f '%6s'%8.2f '%6s'%7d%7d%7.2f",rw[4],rw[5],rw[8],textw[7],rw[9],textw[8],intw[4],intw[5],rw[6] 
     527        sprintf tmpStr," %g  %g  %g '%s' %g '%s' %d  %d  %g",rw[4],rw[5],rw[8],textw[7],rw[9],textw[8],intw[4],intw[5],rw[6] 
    531528        labelWave[4] = tmpStr 
    532529        labelWave[5] = " Trans.      Thckns       Temp.           H Field         Table  Holder  Pos" 
    533530         
    534 //      sprintf tmpStr," %g  %g  %d  '%s'  %g",rw[26],rw[27],intw[9],textw[9],rw[7] 
    535         sprintf tmpStr," %8.2f        %5.2f          %2d   '%6s'          %6.2f",rw[26],rw[27],intw[9],textw[9],rw[7] 
     531        sprintf tmpStr," %g  %g  %d  '%s'  %g",rw[26],rw[27],intw[9],textw[9],rw[7] 
    536532        labelWave[6] = tmpStr 
    537533        labelWave[7] = " Wavelength &  Spread(FWHM)    Det.#  Type      Sample Rotation Angle" 
    538534         
    539 //      sprintf tmpStr," %g  %g  %g  %g  %g  %g",rw[18],rw[19],rw[16],rw[17],rw[21],rw[3] 
    540         sprintf tmpStr," %12.2f%12.2f          %6.2f  %6.2f  %10.2f        %4.1f",rw[18],rw[19],rw[16],rw[17],rw[21],rw[3] 
     535        sprintf tmpStr," %g  %g  %g  %g  %g  %g",rw[18],rw[19],rw[16],rw[17],rw[21],rw[3] 
    541536        labelWave[8] = tmpStr 
    542537        labelWave[9] = " Sam-Det Dis.(m)   Det.Ang.(cm.)   Beam Center(x,y)  Beam Stop(mm)  Atten.No." 
    543538         
    544 //      sprintf tmpStr," %g  %g  %g  %g  %g  %g",rw[10],rw[11],rw[12],rw[13],rw[14],rw[15] 
    545         sprintf tmpStr," %8.3f      %10.4E  %10.4E%8.3f      %10.4E  %10.4E",rw[10],rw[11],rw[12],rw[13],rw[14],rw[15] 
     539        sprintf tmpStr," %g  %g  %g  %g  %g  %g",rw[10],rw[11],rw[12],rw[13],rw[14],rw[15] 
    546540        labelWave[10] = tmpStr 
    547541        labelWave[11] = "        Det. Calib Consts. (x)           Det. Calib Consts. (y)" 
    548542         
    549 //      sprintf tmpStr," %g  %g  %g  '%s'  %g  %g",rw[23],rw[24],rw[25],"    F",rw[45],rw[46] 
    550         sprintf tmpStr,"%12.2f%12.2f%12.2f      '%s'%8.2f    %8.2f",rw[23],rw[24],rw[25],"     F",rw[45],rw[46] 
     543        sprintf tmpStr," %g  %g  %g  '%s'  %g  %g",rw[23],rw[24],rw[25],"    F",rw[45],rw[46] 
    551544        labelWave[12] = tmpStr 
    552545        labelWave[13] = " Aperture (A1,A2) Sizes(mm)    Sep.(m)    Flip ON   Horiz. and Vert. Cur.(amps)" 
    553546         
    554 //      sprintf tmpStr," %d  %d  %d  %d  %g  %g  %g",intw[19],intw[20],intw[21],intw[22],rw[47],rw[48],rw[49] 
    555         sprintf tmpStr,"%6d%6d%6d%6d%10.3f%10.6f%10.6f",intw[19],intw[20],intw[21],intw[22],rw[47],rw[48],rw[49] 
     547        sprintf tmpStr," %d  %d  %d  %d  %g  %g  %g",intw[19],intw[20],intw[21],intw[22],rw[47],rw[48],rw[49] 
    556548        labelWave[14] = tmpStr 
    557549        labelWave[15] = "      Rows        Cols       Factor   Qmin      Qmax" 
     
    583575//              Print "at top, ePt = ",ePt 
    584576                sPt=ePt 
    585         while(ePt<len-1) 
     577        while(ePt<len) 
    586578                 
    587579        Open refNum as fullpath 
     
    613605                        // pad to 80 chars 
    614606                        ePt = sPt + numPt 
     607                        //printf "%d : ", strlen(retstr) 
    615608                        if(strlen(retStr) < 80) 
    616609                                do 
     
    618611                                while(strlen(retStr) < 80) 
    619612                        endif 
    620 //                      Print strlen(retStr),sPt,ePt 
     613                        //Print strlen(retStr),sPt,ePt," : ",retstr 
    621614                        break 
    622615                endif 
     
    819812 
    820813// returns the path to the file, or null if the user cancelled 
    821 // fancy use of optional parameters 
    822 Function/S DoSaveFileDialog(msg,[fname,suffix]) 
    823         String msg,fname,suffix 
     814Function/S DoSaveFileDialog(msg) 
     815        String msg 
    824816        Variable refNum 
    825817//      String message = "Save the file as" 
    826  
    827         if(ParamIsDefault(fname)) 
    828 //              Print "fname not supplied" 
    829                 fname = "" 
    830         endif 
    831         if(ParamIsDefault(suffix)) 
    832 //              Print "suffix not supplied" 
    833                 suffix = "" 
    834         endif 
    835          
    836         String outputPath,tmpName 
    837         tmpName = fname + suffix 
    838          
    839         Open/D/M=msg/T="????" refNum as tmpName 
     818        String outputPath 
     819         
     820        Open/D/M=msg/T="????" refNum 
    840821        outputPath = S_fileName 
    841822         
Note: See TracChangeset for help on using the changeset viewer.