From mboxrd@z Thu Jan 1 00:00:00 1970 X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on inbox.vuxu.org X-Spam-Level: X-Spam-Status: No, score=-0.0 required=5.0 tests=DKIM_ADSP_CUSTOM_MED, DKIM_INVALID,DKIM_SIGNED,FREEMAIL_FROM,HTML_MESSAGE,MAILING_LIST_MULTI, UPPERCASE_50_75 autolearn=ham autolearn_force=no version=3.4.4 Received: (qmail 24868 invoked from network); 26 Mar 2023 14:01:02 -0000 Received: from minnie.tuhs.org (50.116.15.146) by inbox.vuxu.org with ESMTPUTF8; 26 Mar 2023 14:01:02 -0000 Received: from minnie.tuhs.org (localhost [IPv6:::1]) by minnie.tuhs.org (Postfix) with ESMTP id 6725141231; Mon, 27 Mar 2023 00:00:58 +1000 (AEST) Received: from mail-pj1-x1031.google.com (mail-pj1-x1031.google.com [IPv6:2607:f8b0:4864:20::1031]) by minnie.tuhs.org (Postfix) with ESMTPS id D821541229 for ; Mon, 27 Mar 2023 00:00:45 +1000 (AEST) Received: by mail-pj1-x1031.google.com with SMTP id d13so5452126pjh.0 for ; Sun, 26 Mar 2023 07:00:45 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20210112; t=1679839245; x=1682431245; h=to:subject:message-id:date:from:mime-version:from:to:cc:subject :date:message-id:reply-to; bh=elpIyo9/I1mST4fvLNk/3M50hwiIIO9VtxUukGPGOzg=; b=J+oDjPXG9AMLVtXi67+cyjDRbL31KYT1tDp3MeBak+lCGQ1PhiQR1gThX1mBslfylc OfrF0uH1Wp425W0g9IUMmDWK0QT4aG2jm7nBsPoovY30afh0Eq2IfcjgYsEwtWdeT7IY aGmSpbNT3YvaB2GWWLmBYMVsTqIwSlL8Kaf2NtOlgr4JoKNYL02OyK4SESnoTkVKu5Zh 7NywaXBrdQxCPRFWVzya9jGjB4shBEtINXjw/5TbBa0s6IyeKMWRNNB5QcseYjhtQ+lR MoQJbHuiTmssiFupx4nyzMEk/Za4rRmSsAntwU4nGiZtDYRySUweGFb7zv5OMp6R6q+7 KKZQ== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20210112; t=1679839245; x=1682431245; h=to:subject:message-id:date:from:mime-version:x-gm-message-state :from:to:cc:subject:date:message-id:reply-to; bh=elpIyo9/I1mST4fvLNk/3M50hwiIIO9VtxUukGPGOzg=; b=TZUQuGbPG9xe6qSqHmX59R1Vs/P+VAT49HEUxS3yHrRP6ChotU0e1Lt/wQw5C3RWne UbjkmQ02nublcIkq4HHXYSrLdIBCUOwMObXxh+odkXQX0lCPK/PMLu7xeotnL14WNHBg w0HMdWux5hXghegNJ3qkSwlqt+ZaRYPhgOK9kRcs5xA4p3R67NyvmaCcZcGifJWwhrfv q0XrSj5MlhnrF4/Sr0DnvOyJGHmdNCDzBUPKXkSrFIupEXPGXmc5cMW8oXkiNjOl7ov8 rywokK4/mgmmV5RBx8xkXwvyS77BZwIPj1rsrVE64JseDtdxJ0Lrx1StLkuadS5bFPZv 3XmA== X-Gm-Message-State: AAQBX9ejA22eYA7kpvuaKz5QsOpI8Ccq1eaO/l0NfoSUkkIYHF3ltIbI UPcbsjoPgPbx8sfDIcUgtFyGTIXY9miTRtmcUNnMyLj431E= X-Google-Smtp-Source: AKy350ZjopMosTnNHJTt9Bb33tMj5+hM5DKXewNqHudd5tX6Crmk4OcJs0qQceaETnANfn8+pxDyffjuzovB2q3owdo= X-Received: by 2002:a17:90a:4d8a:b0:23f:6e7:f462 with SMTP id m10-20020a17090a4d8a00b0023f06e7f462mr2498448pjh.2.1679839244830; Sun, 26 Mar 2023 07:00:44 -0700 (PDT) MIME-Version: 1.0 From: KenUnix Date: Sun, 26 Mar 2023 10:00:28 -0400 Message-ID: To: COFF Content-Type: multipart/alternative; boundary="00000000000077ccbd05f7ce0dde" Message-ID-Hash: IBO74NDLQCTQNKDHQ7ZJW7IOW4XYEHJJ X-Message-ID-Hash: IBO74NDLQCTQNKDHQ7ZJW7IOW4XYEHJJ X-MailFrom: ken.unix.guy@gmail.com X-Mailman-Rule-Misses: dmarc-mitigation; no-senders; approved; emergency; loop; banned-address; member-moderation; nonmember-moderation; administrivia; implicit-dest; max-recipients; max-size; news-moderation; no-subject; digests; suspicious-header X-Mailman-Version: 3.3.6b1 Precedence: list Subject: [COFF] Fortran Question for Unix System-V r3 List-Id: Computer Old Farts Forum Archived-At: List-Archive: List-Help: List-Owner: List-Post: List-Subscribe: List-Unsubscribe: --00000000000077ccbd05f7ce0dde Content-Type: text/plain; charset="UTF-8" Content-Transfer-Encoding: quoted-printable Fortran question for Unix System-5 r3. When executing fortran programs requiring input the screen will show a blank screen. After entering input anyway the program completes under Unix System V *r3*. When the same program is compiled under Unix System V *r1* it works as expected. Sounds like on Unix System V *r3* the output buffer is not being flushed. I tried re-compiling F77. No help. Fortran code follows: PROGRAM EASTER INTEGER YEAR,METCYC,CENTRY,ERROR1,ERROR2,DAY INTEGER EPACT,LUNA C A PROGRAM TO CALCULATE THE DATE OF EASTER PRINT '(A)',' INPUT THE YEAR FOR WHICH EASTER' PRINT '(A)',' IS TO BE CALCULATED' PRINT '(A)',' ENTER THE WHOLE YEAR, E.G. 1978 ' READ '(A)',YEAR C CALCULATING THE YEAR IN THE 19 YEAR METONIC CYCLE-METCYC METCYC =3D MOD(YEAR,19)+1 IF(YEAR.LE.1582)THEN DAY =3D (5*YEAR)/4 EPACT =3D MOD(11*METCYC-4,30)+1 ELSE C CALCULATING THE CENTURY-CENTRY CENTRY =3D (YEAR/100)+1 C ACCOUNTING FOR ARITHMETIC INACCURACIES C IGNORES LEAP YEARS ETC. ERROR1 =3D (3*CENTRY/4)-12 ERROR2 =3D ((8*CENTRY+5)/25)-5 C LOCATING SUNDAY DAY =3D (5*YEAR/4)-ERROR1-10 C LOCATING THE EPACT(FULL MOON) EPACT =3D MOD(11*METCYC+20+ERROR2-ERROR1,30) IF(EPACT.LT.0)EPACT=3D30+EPACT IF((EPACT.EQ.25.AND.METCYC.GT.11).OR.EPACT.EQ.24)THEN EPACT=3DEPACT+1 ENDIF ENDIF C FINDING THE FULL MOON LUNA=3D44-EPACT IF(LUNA.LT.21)THEN LUNA=3DLUNA+30 ENDIF C LOCATING EASTER SUNDAY LUNA=3DLUNA+7-(MOD(DAY+LUNA,7)) C LOCATING THE CORRECT MONTH IF(LUNA.GT.31)THEN LUNA =3D LUNA - 31 PRINT '(A)',' FOR THE YEAR ',YEAR PRINT '(A)',' EASTER FALLS ON APRIL ',LUNA ELSE PRINT '(A)',' FOR THE YEAR ',YEAR PRINT '(A)',' EASTER FALLS ON MARCH ',LUNA ENDIF END Any help would be appreciated, Ken --=20 WWL =F0=9F=93=9A --00000000000077ccbd05f7ce0dde Content-Type: text/html; charset="UTF-8" Content-Transfer-Encoding: quoted-printable
Fortran question for Unix System-5 r3.

=
When executing fortran programs requiring input the screen will<= /div>
show a blank screen. After entering input anyway the program comp= letes under Unix System V r3.

When the = same program is compiled under Unix System V r1 it
works a= s expected.

Sounds like on Unix System V r3= the output buffer is not being flushed.
I tried re-compiling F77= . No help.

Fortran code follows:
=C2= =A0 =C2=A0 =C2=A0 PROGRAM EASTER
=C2=A0 =C2=A0 =C2=A0 INTEGER YEAR,METCY= C,CENTRY,ERROR1,ERROR2,DAY
=C2=A0 =C2=A0 =C2=A0 INTEGER EPACT,LUNA
C = A PROGRAM TO CALCULATE THE DATE OF EASTER
=C2=A0 =C2=A0 =C2=A0 PRINT = 9;(A)',' INPUT THE YEAR FOR WHICH EASTER'
=C2=A0 =C2=A0 =C2= =A0 PRINT '(A)',' IS TO BE CALCULATED'
=C2=A0 =C2=A0 =C2= =A0 PRINT '(A)',' ENTER THE WHOLE YEAR, E.G. 1978 '
=C2= =A0 =C2=A0 =C2=A0 READ '(A)',YEAR
C CALCULATING THE YEAR IN THE = 19 YEAR METONIC CYCLE-METCYC
=C2=A0 =C2=A0 =C2=A0 METCYC =3D MOD(YEAR,19= )+1
=C2=A0 =C2=A0 =C2=A0 IF(YEAR.LE.1582)THEN
=C2=A0 =C2=A0 =C2=A0 = =C2=A0 DAY =3D (5*YEAR)/4
=C2=A0 =C2=A0 =C2=A0 =C2=A0 EPACT =3D MOD(11*M= ETCYC-4,30)+1
=C2=A0 =C2=A0 =C2=A0 ELSE
C CALCULATING THE CENTURY-CEN= TRY
=C2=A0 =C2=A0 =C2=A0 CENTRY =3D (YEAR/100)+1
C ACCOUNTING FOR ARI= THMETIC INACCURACIES
C IGNORES LEAP YEARS ETC.
=C2=A0 =C2=A0 =C2=A0 = =C2=A0 ERROR1 =3D (3*CENTRY/4)-12
=C2=A0 =C2=A0 =C2=A0 =C2=A0 ERROR2 =3D= ((8*CENTRY+5)/25)-5
C LOCATING SUNDAY
=C2=A0 =C2=A0 =C2=A0 =C2=A0 DA= Y =3D (5*YEAR/4)-ERROR1-10
C LOCATING THE EPACT(FULL MOON)
=C2=A0 =C2= =A0 =C2=A0 =C2=A0 EPACT =3D MOD(11*METCYC+20+ERROR2-ERROR1,30)
=C2=A0 = =C2=A0 =C2=A0 =C2=A0 IF(EPACT.LT.0)EPACT=3D30+EPACT
=C2=A0 =C2=A0 =C2=A0= =C2=A0 IF((EPACT.EQ.25.AND.METCYC.GT.11).OR.EPACT.EQ.24)THEN
=C2=A0 =C2= =A0 =C2=A0 =C2=A0 =C2=A0 EPACT=3DEPACT+1
=C2=A0 =C2=A0 =C2=A0 =C2=A0 END= IF
=C2=A0 =C2=A0 =C2=A0 ENDIF
C FINDING THE FULL MOON
=C2=A0 =C2= =A0 =C2=A0 LUNA=3D44-EPACT
=C2=A0 =C2=A0 =C2=A0 IF(LUNA.LT.21)THEN
= =C2=A0 =C2=A0 =C2=A0 =C2=A0 LUNA=3DLUNA+30
=C2=A0 =C2=A0 =C2=A0 ENDIFC LOCATING EASTER SUNDAY
=C2=A0 =C2=A0 =C2=A0 LUNA=3DLUNA+7-(MOD(DAY+LU= NA,7))
C LOCATING THE CORRECT MONTH
=C2=A0 =C2=A0 =C2=A0 IF(LUNA.GT.3= 1)THEN
=C2=A0 =C2=A0 =C2=A0 =C2=A0 LUNA =3D LUNA - 31
=C2=A0 =C2=A0 = =C2=A0 =C2=A0 PRINT '(A)',' FOR THE YEAR ',YEAR
=C2=A0 = =C2=A0 =C2=A0 =C2=A0 PRINT '(A)',' EASTER FALLS ON APRIL ',= LUNA
=C2=A0 =C2=A0 =C2=A0 ELSE
=C2=A0 =C2=A0 =C2=A0 =C2=A0 PRINT '= ;(A)',' FOR THE YEAR ',YEAR
=C2=A0 =C2=A0 =C2=A0 =C2=A0 PRIN= T '(A)',' EASTER FALLS ON MARCH ',LUNA
=C2=A0 =C2=A0 =C2= =A0 ENDIF
=C2=A0 =C2=A0 =C2=A0 END

Any help= would be appreciated,
Ken

--
WWL =F0=9F=93=9A


--00000000000077ccbd05f7ce0dde--