Unverified Commit 5c393ba1 authored by Kevin Lyda's avatar Kevin Lyda
Browse files

Fix some compiler errors 

Also add some flags.  Need to add coarray library (apt install libcoarrays-dev).
parent 8ccb4469

.gitignore

+1 −0
Original line number Diff line number Diff line
@@ -5,3 +5,4 @@ 
*.exe

*.obj

*.lzh

.*.swp

bulletin/Makefile

+12 −11
Original line number Diff line number Diff line 
# Makefile for BULLETIN

 

GFORTRAN=gfortran

FFLAGS=-fdollar-ok -fdec -std=legacy -fcoarray=single

# TODO: find out what these flags mean for VMS Fortran:

# /Extend /NoList
@@ -20,47 +21,47 @@ bull.a: bulletin.o bulletin0.o bulletin1.o bulletin2.o \ 


bulletin.o: bulletin.for bullfiles.inc bulldir.inc bullfolder.inc \

               bulluser.inc

	$(GFORTRAN) -c bulletin.for

	$(GFORTRAN) $(FFLAGS) -c bulletin.for



bulletin0.o: bulletin0.for bulldir.inc bulluser.inc bullfolder.inc \

	        bullfiles.inc

	$(GFORTRAN) -c bulletin0.for

	$(GFORTRAN) $(FFLAGS) -c bulletin0.for



bulletin1.o: bulletin1.for bulldir.inc bullfolder.inc bulluser.inc \

	        bullfiles.inc

	$(GFORTRAN) -c bulletin1.for

	$(GFORTRAN) $(FFLAGS) -c bulletin1.for



bulletin2.o: bulletin2.for bulldir.inc bulluser.inc bullfolder.inc \

	        bullfiles.inc

	$(GFORTRAN) -c bulletin2.for

	$(GFORTRAN) $(FFLAGS) -c bulletin2.for



bulletin3.o: bulletin3.for bulldir.inc bullfolder.inc bulluser.inc \

	        bullfiles.inc

	$(GFORTRAN) -c bulletin3.for

	$(GFORTRAN) $(FFLAGS) -c bulletin3.for



bulletin4.o: bulletin4.for bullfolder.inc bulluser.inc bullfiles.inc \

	        bulldir.inc

	$(GFORTRAN) -c bulletin4.for

	$(GFORTRAN) $(FFLAGS) -c bulletin4.for



bulletin5.o: bulletin5.for bulldir.inc bulluser.inc bullfolder.inc \

	bullfiles.inc

	$(GFORTRAN) -c bulletin5.for

	$(GFORTRAN) $(FFLAGS) -c bulletin5.for



bulletin6.o: bulletin6.for bulldir.inc bulluser.inc bullfolder.inc \

	     bullfiles.inc

	$(GFORTRAN) -c bulletin6.for

	$(GFORTRAN) $(FFLAGS) -c bulletin6.for



bulletin7.o: bulletin7.for bulldir.inc bulluser.inc bullfolder.inc \

	     bullfiles.inc

	$(GFORTRAN) -c bulletin7.for

	$(GFORTRAN) $(FFLAGS) -c bulletin7.for



bulletin8.o: bulletin8.for bulldir.inc bulluser.inc bullfolder.inc \

	     bullfiles.inc

	$(GFORTRAN) -c bulletin8.for

	$(GFORTRAN) $(FFLAGS) -c bulletin8.for



bulletin9.o: bulletin9.for bulldir.inc bulluser.inc bullfolder.inc \

	     bullfiles.inc

	$(GFORTRAN) -c bulletin9.for

	$(GFORTRAN) $(FFLAGS) -c bulletin9.for



Allmacs.o: Allmacs.mar

	Macro   /NoList Allmacs.Mar

bulletin/README.md

+4 −0
Original line number Diff line number Diff line
@@ -3,3 +3,7 @@ 
This is the port of bulleting to Linux but using Fortran.  It's

based on the decus/vax90b1 version.  This is likely close to what

I used.



## References



  * https://simconglobal.com/vms.html

bulletin/bulletin.for

+15 −15
Original line number Diff line number Diff line
@@ -7,13 +7,13 @@ C Programmer: Mark R. London 
C

	IMPLICIT INTEGER (A - Z)



	INCLUDE 'BULLFILES.INC'

	INCLUDE 'bullfiles.inc'



	INCLUDE 'BULLDIR.INC'

	INCLUDE 'bulldir.inc'



	INCLUDE 'BULLFOLDER.INC'

	INCLUDE 'bullfolder.inc'



	INCLUDE 'BULLUSER.INC'

	INCLUDE 'bulluser.inc'



	INCLUDE '($RMSDEF)'
@@ -666,11 +666,11 @@ C 


	COMMON /LAST_RECORD_WRITTEN/ OCOUNT



	INCLUDE 'BULLDIR.INC'

	INCLUDE 'bulldir.inc'



	INCLUDE 'BULLUSER.INC'

	INCLUDE 'bulluser.inc'



	INCLUDE 'BULLFOLDER.INC'

	INCLUDE 'bullfolder.inc'



	CHARACTER INEXDATE*11,INEXTIME*11

	CHARACTER*(LINE_LENGTH) INDESCRIP
@@ -1131,9 +1131,9 @@ C 


	IMPLICIT INTEGER (A-Z)



	INCLUDE 'BULLUSER.INC'

	INCLUDE 'bulluser.inc'



	INCLUDE 'BULLFOLDER.INC'

	INCLUDE 'bullfolder.inc'



	PARAMETER BRDCST_LIMIT = 82*12 + 2

	CHARACTER*(BRDCST_LIMIT) BMESSAGE
@@ -1221,7 +1221,7 @@ C 
	COMMON /BULLPAR/ BULL_PARAMETER,LEN_P

	CHARACTER*64 BULL_PARAMETER



	INCLUDE 'BULLDIR.INC'

	INCLUDE 'bulldir.inc'



	IF (BULL_POINT.EQ.0) THEN	! If no bulletin has been read

	   WRITE(6,'('' ERROR: You have not read any message.'')')
@@ -1319,9 +1319,9 @@ C 


	INCLUDE '($PRVDEF)'



	INCLUDE 'BULLUSER.INC'

	INCLUDE 'bulluser.inc'



	INCLUDE 'BULLFILES.INC'

	INCLUDE 'bullfiles.inc'



	IF (NEEDPRIV(1).EQ.0.AND.NEEDPRIV(2).EQ.0) THEN

	   CALL OPEN_BULLUSER_SHARED		! Get BULLUSER.DAT file
@@ -1385,7 +1385,7 @@ C 


	IMPLICIT INTEGER (A - Z)



	INCLUDE 'BULLUSER.INC'

	INCLUDE 'bulluser.inc'



	INCLUDE '($UAIDEF)'
@@ -1478,7 +1478,7 @@ C 


	IMPLICIT INTEGER (A-Z)



	INCLUDE 'BULLDIR.INC'

	INCLUDE 'bulldir.inc'



	INCLUDE '($BRKDEF)'
@@ -1569,7 +1569,7 @@ C 


	IMPLICIT INTEGER (A-Z)



	INCLUDE 'BULLFOLDER.INC'

	INCLUDE 'bullfolder.inc'



	EXTERNAL CLI$_ABSENT

bulletin/bulletin0.for

+13 −13
Original line number Diff line number Diff line
@@ -25,11 +25,11 @@ C 
	COMMON /DECNET/ DECNET_PROC,ERROR_UNIT

	LOGICAL DECNET_PROC



	INCLUDE 'BULLDIR.INC'

	INCLUDE 'bulldir.inc'



	INCLUDE 'BULLUSER.INC'

	INCLUDE 'bulluser.inc'



	INCLUDE 'BULLFOLDER.INC'

	INCLUDE 'bullfolder.inc'



	COMMON /REMOTE_FOLDER/ REMOTE_SET,REMOTE_UNIT
@@ -199,7 +199,7 @@ C 


	IMPLICIT INTEGER (A-Z)



	INCLUDE 'BULLDIR.INC'

	INCLUDE 'bulldir.inc'



	COMMON /POINT/ BULL_POINT
@@ -277,7 +277,7 @@ C 


	IMPLICIT INTEGER (A-Z)



	INCLUDE 'BULLFOLDER.INC'

	INCLUDE 'bullfolder.inc'



	COMMON /POINT/ BULL_POINT
@@ -327,11 +327,11 @@ C FUNCTION: Display directory of messages. 
C

	IMPLICIT INTEGER (A - Z)



	INCLUDE 'BULLDIR.INC'

	INCLUDE 'bulldir.inc'



	INCLUDE 'BULLUSER.INC'

	INCLUDE 'bulluser.inc'



	INCLUDE 'BULLFOLDER.INC'

	INCLUDE 'bullfolder.inc'



	COMMON /PAGE/ PAGE_LENGTH,PAGE_WIDTH,PAGING

	LOGICAL PAGING
@@ -836,9 +836,9 @@ C 
	COMMON /BULLPAR/ BULL_PARAMETER,LEN_P

	CHARACTER*64 BULL_PARAMETER



	INCLUDE 'BULLDIR.INC'

	INCLUDE 'bulldir.inc'



	INCLUDE 'BULLFOLDER.INC'

	INCLUDE 'bullfolder.inc'



	EXTERNAL CLI$_ABSENT
@@ -966,11 +966,11 @@ C FUNCTION: Alerts user of new messages upon logging in. 
C

	IMPLICIT INTEGER (A - Z)



	INCLUDE 'BULLDIR.INC'

	INCLUDE 'bulldir.inc'



	INCLUDE 'BULLUSER.INC'

	INCLUDE 'bulluser.inc'



	INCLUDE 'BULLFOLDER.INC'

	INCLUDE 'bullfolder.inc'



	COMMON /READIT/ READIT