private subroutine CheckClosure(iniDB)
check if section and subsection still opened
Arguments
| Type |
Intent | Optional | Attributes |
|
Name |
|
|
type(IniList),
|
intent(inout) |
|
|
:: |
iniDB |
|
Variables
| Type |
Visibility | Attributes |
|
Name |
| Initial | |
|
integer(kind=long),
|
public |
|
:: |
i |
|
|
|
Source Code
SUBROUTINE CheckClosure &
!
(iniDB)
IMPLICIT NONE
! subroutine arguments
! Arguments with intent (inout):
TYPE (IniList), INTENT (INOUT) :: iniDB
! Local Scalars:
INTEGER (KIND = long) :: i
!------------end of declaration------------------------------------------------
IF (iniDB % nOfSections /= 0) THEN
IF ( iniDB % sectionEnd(iniDB % nOfSections) == 0 ) THEN
iniDB % sectionEnd(iniDB % nOfSections) = iniDB % numKeys
ENDIF
ENDIF
IF (iniDB % nOfSubSections /= 0) THEN
IF ( iniDB % subSectionEnd(iniDB % nOfSubSections) == 0 ) THEN
iniDB % subSectionEnd(iniDB % nOfSubSections) = iniDB % numKeys
ENDIF
ENDIF
RETURN
END SUBROUTINE CheckClosure
