
!for i=1 to $saverank
 v$i=!rawmatrix $(v$i)
 error_data=$i
 !if $wims_warn_rawmatrix!=$empty
  error=rawmatrix
  !exit
 !endif
 v=!varlist $(v$i)
 !if $v!=$empty
  error=has_variables
  !exit
 !endif
 idim=!itemnum $(v$i)
 !ifval $idim!=$dim
  error=bad_size
  !exit
 !endif
 base=!append line $(v$i) to $base
!next i
error_data=

