!Copyright (c) 2013 by https://git.em3d.cn/ under guide of Xiu Li(lixiu@chd.edu.cn)
!written by Huaifeng Sun(sunhuaifeng@email.sdu.edu.cn) and Xushan Lu(luxushan@gmail.com)
!Code distribution @ https://git.em3d.cn/
    
subroutine SubCloseRecFiles(Flag)
  use constantparameters
  implicit none
  character*2 Flag
  integer ii,jj
  select case(Flag)
  case('Hz')
     RecFilePid=RecHzFilePid
  case('HE')
     RecFilePid=RecHEFilePid
  end select
  do ii=1,NumRecHeights,1
     do jj=1,NumRecLines,1
        close(RecFilePid(ii,jj))
     end do
  end do
end subroutine SubCloseRecFiles