unflag chanana
BoaChanAna.f90
! NAM: flag (sub) ! DES: set flag if data <low or >high ! INP: ! xdata : data array ! xflag : flag array ! flag : flag value to unflag ! OUT: xflag : flag array ! mask_count : number of elements changed ! ! HIS: FB040602 adapted from flag