Unverified Commit 83d9d261 authored by Kevin Lyda's avatar Kevin Lyda
Browse files

Comment out vax specific include files.

parent 4c18bf80

src/Makefile

+3 −1
Original line number Diff line number Diff line 
GFORTRAN=gfortran



bulletin: bulletin0.for bulletin1.for bulletin2.for bulletin3.for bulletin4.for bulletin5.for bulletin6.for bulletin7.for bulletin8.for bulletin9.for bulletin.for

	gfortran -ffixed-line-length-none -fdefault-real-8 -std=legacy -fd-lines-as-comments $<
 
	$(GFORTRAN) -ffixed-line-length-none -fdefault-real-8 -std=legacy -fd-lines-as-comments $<

src/bulletin.for

+8 −8
Original line number Diff line number Diff line
@@ -15,7 +15,7 @@ C 


	INCLUDE 'bulluser.inc



	INCLUDE '($RMSDEF)'

C       INCLUDE '($RMSDEF)'



	COMMON /BULLPAR/ BULL_PARAMETER,LEN_P

	CHARACTER*64 BULL_PARAMETER
@@ -1271,9 +1271,9 @@ C 
	

	IMPLICIT INTEGER (A-Z)



	INCLUDE '($PSLDEF)'

C       INCLUDE '($PSLDEF)'



	INCLUDE '($LNMDEF)'

C       INCLUDE '($LNMDEF)'



	CHARACTER*(*) INPUT,OUTPUT
@@ -1305,7 +1305,7 @@ C 


	COMMON /REALPROC/ REALPROCPRIV(2)



	INCLUDE '($JPIDEF)'

C       INCLUDE '($JPIDEF)'



	CALL INIT_ITMLST	! Initialize item list

	CALL ADD_2_ITMLST(8,JPI$_PROCPRIV,%LOC(PROCPRIV))
@@ -1328,7 +1328,7 @@ C 
	COMMON /PRIVILEGES/ PROCPRIV(2),NEEDPRIV(2)

	DATA NEEDPRIV/0,0/



	INCLUDE '($PRVDEF)'

C       INCLUDE '($PRVDEF)'



	INCLUDE 'bulluser.inc
@@ -1357,7 +1357,7 @@ C 
	LOGICAL FUNCTION OPER_PRIV

	IMPLICIT INTEGER (A-Z)

	COMMON /PRIVILEGES/ PROCPRIV(2),NEEDPRIV(2)

	INCLUDE '($PRVDEF)'

C       INCLUDE '($PRVDEF)'

	OPER_PRIV = BTEST(PROCPRIV(1),PRV$V_OPER)

	RETURN

	END
@@ -1376,11 +1376,11 @@ C 


	IMPLICIT INTEGER (A-Z)



	INCLUDE '($PRVDEF)'

C       INCLUDE '($PRVDEF)'



	CHARACTER*(*) USERNAME		! Limit is 12 characters



	INCLUDE '($JPIDEF)'

C       INCLUDE '($JPIDEF)'



	CALL INIT_ITMLST	! Initialize item list

	CALL ADD_2_ITMLST(LEN(USERNAME),JPI$_USERNAME,%LOC(USERNAME))

src/bulletin0.for

+2 −2
Original line number Diff line number Diff line
@@ -10,7 +10,7 @@ C 


	INCLUDE 'bulldir.inc



	INCLUDE '($BRKDEF)'

C       INCLUDE '($BRKDEF)'



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


	IMPLICIT INTEGER (A-Z)



	INCLUDE '($SYIDEF)'

C       INCLUDE '($SYIDEF)'



	CHARACTER*(*) NODE_NAME

src/bulletin1.for

+2 −2
Original line number Diff line number Diff line
@@ -175,7 +175,7 @@ C 


	INCLUDE 'bullfiles.inc



	INCLUDE '($SSDEF)'

C       INCLUDE '($SSDEF)'



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


	IMPLICIT INTEGER (A-Z)



	INCLUDE '($SJCDEF)'

C       INCLUDE '($SJCDEF)'



	INCLUDE 'bulldir.inc

src/bulletin2.for

+2 −2
Original line number Diff line number Diff line
@@ -18,7 +18,7 @@ C 


	INCLUDE 'bullfiles.inc



	INCLUDE '($UAIDEF)'

C       INCLUDE '($UAIDEF)'



	EXTERNAL CLI$_ABSENT
@@ -325,7 +325,7 @@ C 


	IMPLICIT INTEGER (A-Z)



	INCLUDE '($SYIDEF)'

C       INCLUDE '($SYIDEF)'



	CALL INIT_ITMLST	! Initialize item list

				! Now add items to list