Ignore:
Timestamp:
Apr 9, 2007 3:42:39 PM (15 years ago)
Author:
srkline
Message:

2nd pass of pulling out NCNR calls. Also cleared a lot of deadwood from the code, removing depricated functions that were mostly already commented out.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • sans/SANSReduction/branches/kline_29MAR07/Put in User Procedures/SANS_Reduction_v5.00/WriteQIS.ipf

    r69 r76  
    653653End 
    654654 
    655  
    656 ////***this function is not used - WriteWaves_W_Protocol() is used instead 
    657 //// 
    658 ////for writing out data (q-i-s) from the "type" folder 
    659 ////if fullpath is a complete HD path:filename, no dialog will be presented 
    660 ////if fullpath is just a filename, the save dialog will be presented (forced if dialog =1) 
    661 ////writes ONLY the standard header information (no protocol information) 
    662 //// 
    663 //Function WriteWaves(type,fullpath,dialog) 
    664 //      String type,fullpath 
    665 //      Variable dialog         //=1 will present dialog for name 
    666 //       
    667 //      String destStr="" 
    668 //      destStr = "root:"+type 
    669 //       
    670 //      Variable refNum 
    671 //      String formatStr = "%15.4g %15.4g %15.4g %15.4g %15.4g %15.4g\r\n" 
    672 //      String fname,ave="C",headerFormat = "%10.4g %8.2g %8.2g %8.2g %8.3g %8.3g %8s %5.0g\r\n" 
    673 //      Variable step=1 
    674 //       
    675 //      //*****these waves MUST EXIST, or IGOR Pro will crash, with a type 2 error**** 
    676 //      WAVE intw=$(destStr + ":integersRead") 
    677 //      WAVE rw=$(destStr + ":realsRead") 
    678 //      WAVE/T textw=$(destStr + ":textRead") 
    679 //      WAVE qvals =$(destStr + ":qval") 
    680 //      WAVE inten=$(destStr + ":aveint") 
    681 //      WAVE sig=$(destStr + ":sigave") 
    682 //      WAVE qbar = $(destStr + ":QBar") 
    683 //      WAVE sigmaq = $(destStr + ":SigmaQ") 
    684 //      WAVE fsubs = $(destStr + ":fSubS") 
    685 // 
    686 //      //check each wave 
    687 //      If(!(WaveExists(intw))) 
    688 //              Abort "intw DNExist BinaryWrite()" 
    689 //      Endif 
    690 //      If(!(WaveExists(rw))) 
    691 //              Abort "rw DNExist BinaryWrite()" 
    692 //      Endif 
    693 //      If(!(WaveExists(textw))) 
    694 //              Abort "textw DNExist BinaryWrite()" 
    695 //      Endif 
    696 //      If(!(WaveExists(qvals))) 
    697 //              Abort "qvals DNExist BinaryWrite()" 
    698 //      Endif 
    699 //      If(!(WaveExists(inten))) 
    700 //              Abort "inten DNExist BinaryWrite()" 
    701 //      Endif 
    702 //      If(!(WaveExists(sig))) 
    703 //              Abort "sig DNExist BinaryWrite()" 
    704 //      Endif 
    705 //      If(!(WaveExists(qbar))) 
    706 //              Abort "qbar DNExist BinaryWrite()" 
    707 //      Endif 
    708 //      If(!(WaveExists(sigmaq))) 
    709 //              Abort "sigmaq DNExist BinaryWrite()" 
    710 //      Endif 
    711 //      If(!(WaveExists(fsubs))) 
    712 //              Abort "fsubs DNExist BinaryWrite()" 
    713 //      Endif 
    714 //               
    715 //      if(dialog) 
    716 //              PathInfo/S catPathName 
    717 //              fullPath = DoSaveFileDialog("Save data as") 
    718 //              If(cmpstr(fullPath,"")==0) 
    719 //                      //user cancel, don't write out a file 
    720 //                      Close/A 
    721 //                      Abort "no data file was written" 
    722 //              Endif 
    723 //              //Print "dialog fullpath = ",fullpath 
    724 //      Endif 
    725 //       
    726 //      //actually open the file 
    727 //      Open refNum as fullpath 
    728 //       
    729 //      fprintf refnum,"FILE: %s\t\t CREATED: %s\r\n",textw[0],textw[1] 
    730 //      fprintf refnum,"LABEL: %s\r\n",textw[6] 
    731 //      fprintf refnum,"MON CNT   LAMBDA   DET ANG   DET DIST   TRANS   THICK   AVE   STEP\r\n" 
    732 //      fprintf refnum,headerFormat,rw[0],rw[26],rw[19],rw[18],rw[4],rw[5],ave,step 
    733 //      wfprintf refnum, formatStr, qvals,inten,sig,sigmaq,qbar,fsubs 
    734 //       
    735 //      Close refnum 
    736 //       
    737 //      SetDataFolder root:             //(redundant) 
    738 //       
    739 //      Return(0) 
    740 //End 
Note: See TracChangeset for help on using the changeset viewer.