你已经派生过 tem3dfdtd-open
镜像自地址
https://gitee.com/sunhf/tem3dfdtd-open.git
已同步 2025-08-04 11:56:53 +08:00
21 行
588 B
Fortran
21 行
588 B
Fortran
!Copyright (c) 2013 by tdem.org under guide of Xiu Li(lixiu@chd.edu.cn)
|
|
!written by Huaifeng Sun(sunhuaifeng@gmail.com) and Xushan Lu(luxushan@gmail.com)
|
|
!Code distribution @ tdem.org or sunhuaifeng.com
|
|
|
|
!function description
|
|
!this suboutine is used to select and call some suboutine to close some
|
|
!selected files.
|
|
!2016-10-30
|
|
|
|
subroutine CloseRecFiles
|
|
use constantparameters
|
|
implicit none
|
|
integer ii,jj
|
|
select case(RecFlag)
|
|
case('Hz')
|
|
call SubCloseRecFiles('Hz')
|
|
case('HE')
|
|
call SubCloseRecFiles('HE')
|
|
end select
|
|
end subroutine CloseRecFiles
|