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 24897 invoked from network); 26 Mar 2023 14:01:08 -0000 Received: from minnie.tuhs.org (50.116.15.146) by inbox.vuxu.org with ESMTPUTF8; 26 Mar 2023 14:01:08 -0000 Received: from minnie.tuhs.org (localhost [IPv6:::1]) by minnie.tuhs.org (Postfix) with ESMTP id 0BDF84123D; Mon, 27 Mar 2023 00:01:02 +1000 (AEST) Received: from mail-pg1-x535.google.com (mail-pg1-x535.google.com [IPv6:2607:f8b0:4864:20::535]) by minnie.tuhs.org (Postfix) with ESMTPS id A1D7141231 for ; Mon, 27 Mar 2023 00:00:47 +1000 (AEST) Received: by mail-pg1-x535.google.com with SMTP id z10so3622978pgr.8 for ; Sun, 26 Mar 2023 07:00:47 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20210112; t=1679839246; x=1682431246; h=to:subject:message-id:date:from:mime-version:from:to:cc:subject :date:message-id:reply-to; bh=ksjJHP/6ILF35f2r4lXxAZa27RB/93pfhDv+TqL+JaY=; b=Sop7qvhpvE/YOHMQ6pIqqf22CBKBtVgMNFDUQ23Q+29eICQ5FHFyeukrZjC76Jcb9z pb2EiO6dcFE1Bn/pWnCSCGQ0dUWG+IX7gYdEfu4d1Ba9kiOihiTXYFjnz1yFkJcocYWX PjniSiMck144i3U1gLOFcis6R+mmkldF2zR/vW7yM3pYHvwe0i/xwYq7DDBMs74wCepD 6cgwhMwpApDupb10sn/5dOXKhSWwBwTjY/BnpZ0PXOTD1GJn8wvg8WR1y9mNE1vHtUEh xMpyR6dkWPkl1j7sYzdn+Py3TksPkIWF6DYcTe0KCxXz4M/RYfdvzLyaGTnpYt7m7NEq qRjA== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20210112; t=1679839246; x=1682431246; h=to:subject:message-id:date:from:mime-version:x-gm-message-state :from:to:cc:subject:date:message-id:reply-to; bh=ksjJHP/6ILF35f2r4lXxAZa27RB/93pfhDv+TqL+JaY=; b=Z5QG10RjZSMkgTZw25a94t8WaY/XISIrLqIpsVHf8oJwyHpc/eLEMJREm01k1WGlr+ 99W0xUIu5Gh2MZsXOt9Ojfg6IzuO4/LVhiVyiTpkaKuBlK2uB8Pe9BbIBiBOkXcrgLiJ kAawp2Xkt3hdjx0bu3llsa95gPRWGL8+2eou9pgmSiKijuxKvAsfzt54wINjswkXf8Pi Mxq1YILhAbOwZATAahaTFOj+66QPcg7sEqTTBO2c0PA9YwiGhjYrDZYY3s9iTfkhEtj1 7fKwgkvBb65xcTZQgDtItcB/nuJhsprbGd7meUdvlHlm4kLh9WlQYXuLh1utWng2SKfe oc0g== X-Gm-Message-State: AAQBX9fAjmksl604bo8xmGzh1slTscu0rwm+BKJfg9j2CtcuhLBiIWMG nY8a4pLI77YY3AzwoSlpeCeVQhMnFFU0oeS8IudTYz85XQc= X-Google-Smtp-Source: AKy350Y8Zys6+4wiJFAIRvVyIZQpdHZbmENAtucFthzSM+74iIsZzgR4NDaB6Z7FOGKwHmIRi3r+x/58OY9B+7OtGBw= X-Received: by 2002:a05:6a00:a09:b0:625:dc5b:9d1d with SMTP id p9-20020a056a000a0900b00625dc5b9d1dmr4660310pfh.0.1679839246551; Sun, 26 Mar 2023 07:00:46 -0700 (PDT) MIME-Version: 1.0 From: KenUnix Date: Sun, 26 Mar 2023 10:00:30 -0400 Message-ID: To: UNIX TUHS Group Content-Type: multipart/alternative; boundary="00000000000092132405f7ce0d8e" Message-ID-Hash: 5UV2QK7ZEYIVS264LITGLHC4V6KPUFJX X-Message-ID-Hash: 5UV2QK7ZEYIVS264LITGLHC4V6KPUFJX 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: [TUHS] Fortran question for Unix System-5 r3 List-Id: The Unix Heritage Society mailing list Archived-At: List-Archive: List-Help: List-Owner: List-Post: List-Subscribe: List-Unsubscribe: --00000000000092132405f7ce0d8e 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 --00000000000092132405f7ce0d8e 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
=
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 Sys= tem V r3 the output buffer is not being flushed.
I tried r= e-compiling F77. No help.

Fortran code follows= :
=C2=A0 =C2=A0 =C2=A0 PROGRAM EASTER
=C2=A0 =C2=A0 =C2=A0 INT= EGER YEAR,METCYC,CENTRY,ERROR1,ERROR2,DAY
=C2=A0 =C2=A0 =C2=A0 INTEGER E= PACT,LUNA
C A PROGRAM TO CALCULATE THE DATE OF EASTER
=C2=A0 =C2=A0 = =C2=A0 PRINT '(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. 1= 978 '
=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 EPAC= T =3D MOD(11*METCYC-4,30)+1
=C2=A0 =C2=A0 =C2=A0 ELSE
C CALCULATING T= HE CENTURY-CENTRY
=C2=A0 =C2=A0 =C2=A0 CENTRY =3D (YEAR/100)+1
C ACCO= UNTING FOR ARITHMETIC 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 DAY =3D (5*YEAR/4)-ERROR1-10
C LOCATING THE EPACT(FULL MOO= N)
=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 ENDIF
=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.2= 1)THEN
=C2=A0 =C2=A0 =C2=A0 =C2=A0 LUNA=3DLUNA+30
=C2=A0 =C2=A0 =C2= =A0 ENDIF
C LOCATING EASTER SUNDAY
=C2=A0 =C2=A0 =C2=A0 LUNA=3DLUNA+7= -(MOD(DAY+LUNA,7))
C LOCATING THE CORRECT MONTH
=C2=A0 =C2=A0 =C2=A0 = IF(LUNA.GT.31)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<= br>=C2=A0 =C2=A0 =C2=A0 =C2=A0 PRINT '(A)',' EASTER FALLS ON AP= RIL ',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 PRINT '(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


=
--00000000000092132405f7ce0d8e--