;-----------------------------------------------------------------
; rmnanq.pro
;
; written by Andreas Reigber
;------------------------------------------------------------------
; replaces all "nanq" in an array with zeros
; 
;------------------------------------------------------------------
; This software has been released under the terms of the GNU Public
; license. See http://www.gnu.org/copyleft/gpl.html for details.
;------------------------------------------------------------------
pro rmnanq,array
   err=where(finite(array) eq 0,test)
   if test ne 0 then array(err)=0.0
return
end