Ignore:
Timestamp:
Aug 15, 2019 4:39:50 PM (3 years ago)
Author:
krzywon
Message:

Loop over q and dq to populate qx and qy waves.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • sans/Dev/branches/nxcansas_writer/NCNR_User_Procedures/Common/NIST_NXcanSAS_v709.ipf

    r1195 r1196  
    279279                String groupList = S_HDF5ListGroup 
    280280                Variable groupID 
    281                 Variable inc=1,ii=0,isMultiData=0 
     281                Variable inc=1,ii=0,isMultiData=0,i=0,j=0 
    282282                String entryUnformatted = "/sasentry%d/" 
    283283                String dataUnformatted = "sasdata%d/" 
     
    324324                                        // 
    325325                                         
    326                                         Make/O/N=(xdim,ydim) $(baseStr + "_qx") = q[0] 
    327                                         Make/O/N=(xdim,ydim) $(baseStr + "_qy") = q[1] 
     326                                        Make/O/N=(xdim,ydim) $(baseStr + "_qx") 
     327                                        Wave qx = $(baseStr + "_qx") 
     328                                        Make/O/N=(xdim,ydim) $(baseStr + "_qy") 
     329                                        Wave qy = $(baseStr + "_qy") 
    328330                                        if (numpnts(dq)>0) 
    329                                                 Make/O/N=(xdim,ydim) $(baseStr + "_dqx") = dq[0] 
    330                                                 Make/O/N=(xdim,ydim) $(baseStr + "_dqy") = dq[1] 
     331                                                Make/O/N=(xdim,ydim) $(baseStr + "_dqx") 
     332                                                Wave dqx = $(baseStr + "_dqx") 
     333                                                Make/O/N=(xdim,ydim) $(baseStr + "_dqy") 
     334                                                Wave dqy = $(baseStr + "_dqy") 
    331335                                        EndIf 
     336                                        for(i=0; i < xdim; i += 1) 
     337                                                for(j=0; j < ydim; j +=1) 
     338                                                        qx[i][j] = q[0][i][j] 
     339                                                        qy[i][j] = q[1][i][j] 
     340                                                        if (numpnts(dq)>0) 
     341                                                                dqx[i][j] = dq[0][i][j] 
     342                                                                dqy[i][j] = dq[1][i][j] 
     343                                                        EndIf 
     344                                                endFor 
     345                                        endFor 
     346                                         
    332347                                        KillWaves $(baseStr + "_q") 
    333348                                EndIf 
Note: See TracChangeset for help on using the changeset viewer.