<div dir="ltr"><div>Fortran question for Unix System-5 r3.</div><div><br></div><div>When executing fortran programs requiring input the screen will</div><div>show a blank screen. After entering input anyway the program <br></div><div>completes under Unix System V <u>r3</u>.<br></div><div><br></div><div>When the same program is compiled under Unix System V <u>r1</u> it</div><div>works as expected.</div><div><br></div><div>Sounds like on Unix System V <u>r3</u> the output buffer is not being flushed.</div><div>I tried re-compiling F77. No help.<br></div><div><br></div><div>Fortran code follows:</div><div>      PROGRAM EASTER<br>      INTEGER YEAR,METCYC,CENTRY,ERROR1,ERROR2,DAY<br>      INTEGER EPACT,LUNA<br>C A PROGRAM TO CALCULATE THE DATE OF EASTER<br>      PRINT '(A)',' INPUT THE YEAR FOR WHICH EASTER'<br>      PRINT '(A)',' IS TO BE CALCULATED'<br>      PRINT '(A)',' ENTER THE WHOLE YEAR, E.G. 1978 '<br>      READ '(A)',YEAR<br>C CALCULATING THE YEAR IN THE 19 YEAR METONIC CYCLE-METCYC<br>      METCYC = MOD(YEAR,19)+1<br>      IF(YEAR.LE.1582)THEN<br>        DAY = (5*YEAR)/4<br>        EPACT = MOD(11*METCYC-4,30)+1<br>      ELSE<br>C CALCULATING THE CENTURY-CENTRY<br>      CENTRY = (YEAR/100)+1<br>C ACCOUNTING FOR ARITHMETIC INACCURACIES<br>C IGNORES LEAP YEARS ETC.<br>        ERROR1 = (3*CENTRY/4)-12<br>        ERROR2 = ((8*CENTRY+5)/25)-5<br>C LOCATING SUNDAY<br>        DAY = (5*YEAR/4)-ERROR1-10<br>C LOCATING THE EPACT(FULL MOON)<br>        EPACT = MOD(11*METCYC+20+ERROR2-ERROR1,30)<br>        IF(EPACT.LT.0)EPACT=30+EPACT<br>        IF((EPACT.EQ.25.AND.METCYC.GT.11).OR.EPACT.EQ.24)THEN<br>          EPACT=EPACT+1<br>        ENDIF<br>      ENDIF<br>C FINDING THE FULL MOON<br>      LUNA=44-EPACT<br>      IF(LUNA.LT.21)THEN<br>        LUNA=LUNA+30<br>      ENDIF<br>C LOCATING EASTER SUNDAY<br>      LUNA=LUNA+7-(MOD(DAY+LUNA,7))<br>C LOCATING THE CORRECT MONTH<br>      IF(LUNA.GT.31)THEN<br>        LUNA = LUNA - 31<br>        PRINT '(A)',' FOR THE YEAR ',YEAR<br>        PRINT '(A)',' EASTER FALLS ON APRIL ',LUNA<br>      ELSE<br>        PRINT '(A)',' FOR THE YEAR ',YEAR<br>        PRINT '(A)',' EASTER FALLS ON MARCH ',LUNA<br>      ENDIF<br>      END<br></div><div><br></div><div>Any help would be appreciated,</div><div>Ken</div><div><br></div><br clear="all"><br><span class="gmail_signature_prefix">-- </span><br><div dir="ltr" class="gmail_signature" data-smartmail="gmail_signature"><div dir="ltr"><div></div><div>WWL 📚</div><div><br></div><div><br></div></div></div></div>