22 行
586 B
Fortran
22 行
586 B
Fortran
!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
|