C C H E A D N G C C PRINT LISTING HEADING C C THIS ROUTINE SPACES TO THE TOP OF A NEW PAGE AND OUTPUTS THE TWO C HEADING LINES. THE LINE COUNT IS RESET TO ZERO AND THE PAGE COUNT C IS INCREMENTED BY 1 (BEFORE HEADING OUTPUT). THERE ARE NO ARGUMENTS C TO THE SUBROUTINE, ALL DATA IS PASSED VIA LABELLED COMMON. IF THE C LISTING OUTPUT DEVICE NUMBER IS LESS THAN OR EQUAL TO ZERO THE C HEADING OUTPUT IS BYPASSED ( TO HANDLE THE CASE WHERE NO LISTING IS C DESIRED ). C SUBROUTINE HEADNG INCLUDE 'IODEVS.CMN' INCLUDE 'LSTHDG.CMN' PAGCNT = 0 PAGNUM = PAGNUM+1 IF (LSTUNT.LE.0) RETURN WRITE (LSTUNT,10) TITLE, VERSIN, PRGNAM, ADATE, ATIME, PAGNUM, $ SUBTTL 10 FORMAT (1H1,30A1,2X,4A8,2X,32A1,2X,4A2,A1,1X,4A2,2X, $ 'PAGE ',I3,/,' ',60A1,/) RETURN END