修正代码中的注释错误
这个提交包含在:
@@ -1,6 +1,6 @@
|
||||
!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
|
||||
!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 SubOpenRecFiles(Flag)
|
||||
use constantparameters
|
||||
@@ -72,7 +72,7 @@ subroutine SubOpenRecFiles(Flag)
|
||||
end select
|
||||
! ------------------------------------end of File name Distribution---------------------------------------------!
|
||||
! --------------------------------------open file code-------------------------------------------!
|
||||
! if the compiler reports the error: 'Too Many Open FIles!', you can come to tdem.org website and find the solutions.
|
||||
! if the compiler reports the error: 'Too Many Open FIles!', you can come to https://git.em3d.cn/ website and find the solutions.
|
||||
! -----------------------------------------------------------------------------------------------------!
|
||||
do ii=1,NumRecHeights+1,1
|
||||
do jj=1,NumRecLines,1
|
||||
|
||||
在新工单中引用
屏蔽一个用户