SUBROUTINE ValidateSectionsInput
! SUBROUTINE INFORMATION:
! AUTHOR Linda K. Lawrie
! DATE WRITTEN September 1997
! MODIFIED na
! RE-ENGINEERED na
! PURPOSE OF THIS SUBROUTINE:
! This subroutine uses the data structure that is set up during
! IDF processing and makes sure that record pointers are accurate.
! They could be inaccurate if a 'section' is input without any
! 'objects' following. The invalidity will show itself in the
! values of the FirstRecord and Last Record pointer.
! If FirstRecord>LastRecord, then no records (Objects) have been
! written to the SIDF file for that Section.
! METHODOLOGY EMPLOYED:
! Scan the SectionsonFile data structure and look for invalid
! FirstRecord,LastRecord items. Reset those items to -1.
! REFERENCES:
! na
! USE STATEMENTS:
! na
IMPLICIT NONE ! Enforce explicit typing of all variables in this routine
! SUBROUTINE ARGUMENT DEFINITIONS:
! na
! SUBROUTINE PARAMETER DEFINITIONS:
! na
! INTERFACE BLOCK SPECIFICATIONS
! na
! DERIVED TYPE DEFINITIONS
! na
! SUBROUTINE LOCAL VARIABLE DECLARATIONS:
INTEGER Count
DO Count=1,NumIDFSections
IF (SectionsonFile(Count)%FirstRecord > SectionsonFile(Count)%LastRecord) THEN
WRITE(EchoInputFile,*) ' Section ',Count,' ',TRIM(SectionsonFile(Count)%Name),' had no object records'
SectionsonFile(Count)%FirstRecord=-1
SectionsonFile(Count)%LastRecord=-1
ENDIF
END DO
RETURN
END SUBROUTINE ValidateSectionsInput