UILIST returns the wrong value in the first address when used with *VMASK in a *DO loop. A simple example is supplied below. Is this a bug?
Yes, this is a code defect (66209) that has been corrected in CommandField.F at 12.0. The problem occurs when the first value in the mask vector is false. The problem occurs with the lines: *vmask,nmask(1) nds(1:mxnd) = nsel(1:mxnd) *********** Example input *********** fini /clear /prep7 ! Create Model n,,(1:5:1) ! Dimension Arrays mxnd = ndinqr(0,14) *dim,nmask,,mxnd *dim,nds,,mxnd ! Array Masking Vector of Selected/ Unselected Nodes nsel,,,,2,4 *vget,nmask(1),node,1,nsel ! Array Selected Nodes alls *vmask,nmask(1) nds(1:mxnd) = nsel(1:mxnd) ! Writeout Selected Nodes *cfopen,test,dat *vmask,nmask(1) *vwrite,sequ,nds(1) ('Node=',f8.0,TL1,' ',/,'NSEL=',f8.0,TL1,' ',/) *cfclos *uilist,test.dat |
||
|