subroutine open_file_read(unit_num,*) c c NU PRIME TIME FACILITY V 2.0 c Northeastern University Academic Computer Services c 360 Huntington Avenue c Boston, Mass 02115 c c David Bernardo, Author c c This routine opens one of the permanent data base files readonly. c c****************************** c Change open statements to point c to appropriate places. c***************************** c integer*2 unit_num goto(5,10,15,20,1,1,1,25)unit_num 1 return 5 open(unit=1,file='manager:[ptdata]ptuser.dat', 1 status='old',access='keyed',recl=7,form='unformatted', 2 organization='indexed',shared,readonly,err=6, 3 key=(1:14:character,15:16:integer)) return 6 print*,'PTC-OPEN-FILES Error opening PTUSER.DAT file.' return 1 10 open(unit=2,file='manager:[ptdata]ptterm.dat',readonly, 1 status='old',access='keyed',recl=3,form='unformatted', 2 organization='indexed',shared,key=(1:4:character),err=11) return 11 print*,'PTC-OPEN-FILES Error opening PTTERM.DAT file.' return 1 15 open(unit=3,file='manager:[ptdata]ptcluster.dat',readonly, 1 status='old',access='keyed',recl=7,form='unformatted', 2 organization='indexed',shared,key=(1:2:integer),err=16) return 16 print*,'PTC-OPEN-FILES Error opening PTCLUSTER.DAT file.' return 1 20 open(unit=4,file='manager:[ptdata]ptdefault.dat', 2 status='old',shared,readonly,err=21,form='unformatted') return 21 print*,'PTC-OPEN-FILES Error opening PTDEFAULT.DAT file.' return 1 25 open(unit=8,file='manager:[ptdata]ptcluster.tmp',readonly, 1 status='old',access='keyed',recl=7,form='unformatted', 2 organization='indexed',shared,key=(1:2:integer),err=30) return 30 print*,'PTC-OPEN-FILES Prime Time Monitor is not running.' return 1 end