If the queue names file is not found, subroutine job_data_update will return
prematurely, and JOB_DATA parameter screen will be mostly blank. This may
confuse first-time users. In the template file for cps_config.dat,
cps_queues_path =/apps/cpseis/etc/queue_names
But in the etc subdirectory, the queue name file is cps_queues.dat, so if
a user runs cfe before setting up all the files, the above problem results.
So it would be helpful if a default queue is inserted whenever the queue
file is not opened, and a warning issued.
The code near end of job_data_update which reads the queue name file should be
modified something like this:
if (lun .le. 0) then
call pc_info('Error opening file '//trim(obj%cps_queues_path))
call pc_info(' so queue name reset to batch')
! remove return statement
endif
if (obj%ncps_queues .gt. 0) then
if (associated(obj%cps_queues)) deallocate(obj%cps_queues)
if (associated(obj%queue_menu)) deallocate(obj%queue_menu)
allocate(obj%cps_queues(1))
obj%ncps_queues = 0
else
allocate(obj%cps_queues(1))
obj%ncps_queues = 0
endif
if (lun .le. 0) then
call job_data_append_array_element (obj%cps_queues, &
obj%ncps_queues, &
'batch')
else ! existing code to read file
do
istat = cio_fgetline(ctemp1,32,lun)
if (istat .lt. 0) exit
call job_data_append_array_element (obj%cps_queues, &
obj%ncps_queues, &
ctemp1)
print*,trim(ctemp1),' ncps_queues=',obj%ncps_queues
enddo
istat = cio_fclose(lun)
end if
