program newfil
	implicit none
!	update CESR fill number when epn not run,etc
      character,save:: string*6
      integer*4,save:: i1, i2, i3, iy, ij, tries
      logical,save:: ierr
 !   ----------------end_declare---------------------------
	tries=10
1	ierr=.true.
	if(tries.lt.1) goto 3	!give up
	tries=tries-1
	!open(unit=16,file='cesr_online:[machine_data.logging.rec]lognam.dat', &
	!  type='old',err=2)
	call opener(16, '$CESR_LOG/rec/lognam.dat', ierr)
	! ierr=.false.
2	continue
	if(ierr.and.(tries.ge.5)) then
	 call sleep(200)
	 goto 1
	elseif(ierr.and.(tries.lt.5)) then
	 call strout( &
	  ' error opening csr fill# file '// &
	  'cesr_online:[machine_data.logging.rec]lognam.dat ')
	 call strout(' sleeping before retry... ')
	 call sleep(1000)
	 goto 1
	endif
	read(16,1616,err=999) i1,i2,i3 !last year, julian day, and run #
1616	format(/3i)
999	close(unit=16)
3	call julian(iy,ij)
	! open(unit=16,file='cesr_online:[machine_data.logging.rec]lognam.prv', &
	!  carriagecontrol='list',type='new',shared)
	call openwr(16,'$CESR_LOG/rec/lognam.prv',ierr,128)
	write(16,15114) i1,i2,i3,i1,i2,i3  !old vals for runrep
	close(unit=16)
	i1=iy
	i3=i3+1
	if(ij.ne.i2) i3=1
!
!	write new entry
	tries=10
11	ierr=.true.
	if(tries.lt.1)    stop	!give up if open fails too long
	tries=tries-1
	! open(unit=16,file='cesr_online:[machine_data.logging.rec]lognam.dat', &
	! carriagecontrol='list',type='new',shared,err=12)
	call openwr(16,'$CESR_LOG/rec/lognam.dat',ierr,128)
	!ierr=.false.
12	continue
	if(ierr.and.(tries.ge.5)) then
	 call sleep(200)
	 goto 11
	elseif(ierr.and.(tries.lt.5)) then
	 call strout( &
	  ' error opening csr fill# file '// &
	  '$CESR_LOG/rec/lognam.dat ')
	 call strout(' sleeping before retry... ')
	 call csr_sleep(1000)
	 goto 11
	endif
	! commenting out grinnell parts
! 	write(16,15114) i1,ij,i3,i1,ij,i3
! 	write(6,15114)  i1,ij,i3,i1,ij,i3
! change this to only be the filename and not the directory
 15114	format('d',i4.4,i3.3,'.',i2.2,  /3(1x,i4,','))
! 	close(unit=16)
! 	call ginset(14)		!send to scorbd
!         call ginchs('H2W1')
! 	write(string,14114) ij,i3
! 14114	format(i3.3,'.',i2.2)
! 	call gtnctl('BR',57,25,string,6)
! 	call ginflush
	stop
	end