SUBROUTINE GETLMT(IFIRST,ILAST) INTEGER BEGDAY,BEGMON,ENDDAY,ENDMON INTEGER*2 DAYFYR LOGICAL*1 LANS ! FOR Y/N ANSWER IFIRST=1 ! ASSUME WHOLE YEAR ILAST=365 ! CALL IDATE(IMON,IDAY,IYEAR) ! GET TODAY'S DATE WRITE(5,10) ! 10 FORMAT(' Limit the report to a date interval (Y/N): ',$) READ(5,20,END=999)LANS 20 FORMAT(1A1) ! IF(LANS.NE.'Y') GOTO 100! JUST RETURN WRITE(5,25) ! 25 FORMAT(' Date should be entered as TWO integers, M,D', - /,' with M = 1-12, D = 1-31') ! 27 WRITE(5,30) ! 30 FORMAT(' Enter Starting Month, Starting Day (M,D): ',$) READ(5,40,END=999,ERR=27)BEGMON,BEGDAY ! 40 FORMAT(2I2) ! IF(BEGMON.LT.1 .OR. ! CHECK VALIDITY - BEGMON.GT.12 .OR. ! - BEGDAY.LT.1 .OR. ! - BEGDAY.GT.31) GOTO 27 ! REPROMPT 45 WRITE(5,50) 50 FORMAT(' Enter Ending Month, Ending Day (M,D): ',$) READ(5,40,END=999,ERR=45)ENDMON,ENDDAY ! IF(ENDMON.LT.1 .OR. !CHECK VALIDITY - ENDMON.GT.12 .OR. ! - BEGDAY.LT.1 .OR. ! - BEGDAY.GT.31) GOTO 45 ! REPROMPT IFIRST=DAYFYR(IYEAR,BEGMON,BEGDAY) ! CALC DAY OF YEAR ILAST =DAYFYR(IYEAR,ENDMON,ENDDAY) ! FOR 1ST AND LAST IF(ILAST.LT.IFIRST) GOTO 27 ! IF NOT>, REPROMPT 100 RETURN 999 CALL EXIT ! TRAP ^Z