!	
!	PATCHES FORTRAN LIBRARY MODULES $VRINT AND VIRNP
!	
!	AT PRESENT PLACES VIRTUAL ARRAYS BASE ADDRESS
!	AT 500000 (OCTAL)-:
!	IF THIS DOES NOT SUIT, EDIT THIS COMMAND FILE CHANGING ALL
!	OCCURRENCES OF 5000 TO DESIRED VALUE
!
! 	SEE DOCUMENTATION  FOR VALUE TO BE INSERTED
!	(DEPENDS ON YOUR MEMORY REQUIREMENTS)
!
RU LIBR
SRC:VRINT=SRC:FORLIB/E
$VRINT

!Integer*2
SRC:VIRIN=SRC:FORLIB/E
$VGETI

!Logical*1 (BYTE)
SRC:VIRLN=SRC:FORLIB/E
$VGETL

!Real*4
SRC:VIRFN=SRC:FORLIB/E
$VGETF

!Complex
SRC:VIRQN=SRC:FORLIB/E
$VGETQ

!Double precision
SRC:VIRDN=SRC:FORLIB/E
$VGETD

^C
RU SIPP
SRC:VRINT.OBJ/A

336
103400
^Y
SRC:VIRIN.OBJ/A

550
5000
^Z
403
0
12
^Y
SRC:VIRQN.OBJ/A

550
5000
^Z
403
0
12
^Y
SRC:VIRDN.OBJ/A

576
5000
^Z
403
0
12
^Y
SRC:VIRLN.OBJ/A

562
5000
^Z
403
0
12
^Y
SRC:VIRFN.OBJ/A

560
5000
^Z
403
0
12
^Y
^C
RU LIBR
SRC:FORLIB=SRC:FORLIB,VRINT/R,VIRIN/R,VIRLN/R,VIRFN/R
SRC:FORLIB=SRC:FORLIB,VIRDN/R,VIRQN/R
^C