SUBROUTINE RSTLOG(IER)
C
C*****************************************************************************
C
C	PURPOSE: TO RESET ALL START DATE/TIMES TO THE CURRENT ONE AND TO SAVE
C		 THE OLD ONES.
C
C*****************************************************************************
C
	INTEGER TIM(8)
	INCLUDE 'LOGHDR.ADM'
	INCLUDE 'LOGVBL.ADM'
	INCLUDE 'LOGPR1.ADM'
	INCLUDE 'LOGPR2.ADM'
C
C
C
C*****************************************************************************
C
C	PRESET THE ERROR CODE AND GET THE CURRENT TIME.
C
C*****************************************************************************
C
	IER=-1
	CALL GETTIM(TIM)
C
C*****************************************************************************
C
C	MAIN DO LOOP.
C
C	K = "VBN" BLOCK NUMBER.
C	L = RECORD NUMBER IN "VBN" BLOCK.
C	M = INDEX IN PROJECT VIRTUAL BLOCK NUMBER RECORD.
C
C	COPY THE OLD TOTALS AND THE START DATE/TIME OF THAT ONE INTO THE 2ND
C	PROJECT BLOCK (RECORD NUMBER "ICURPN").
C
C	CLEAR THE NEW TOTALS AND STORE THE CURRENT DATE/TIME.
C
C	INCREMENT "ICURPN". IF > 32, MAKE IT 1.
C
C	IF ANY READ ERROR, EXIT WITH ERROR CODE -1.
C
C*****************************************************************************
C
	DO 200 K=2,5
	READ(1'K,ERR=1000,END=1000) IBFVBL
	DO 200 L=1,8
	DO 200 M=1,32
	LVBN=IRCVBL(M,L)
	IF(LVBN.LE.0) GO TO 200
	READ(1'LVBN,END=1000,ERR=1000) IBFPR1
	READ(1'LVBN+1,END=1000,ERR=1000) IBFPR2
	DO 100 IM=1,3
100	IRCPR2(IM,ICURPN)=TOTLOG(IM)
	DO 110 IM=1,5
110	IRCPR2(IM+3,ICURPN)=TOTSNC(IM)
	DO 120 IM=1,8
120	TOTSNC(IM)=TIM(IM)
	DO 130 IM=1,3
130	TOTLOG(IM)=0
	ICURPN=ICURPN+1
	IF(ICURPN.GT.32) ICURPN=1
	WRITE(1'LVBN,ERR=1000) IBFPR1
	WRITE(1'LVBN+1,ERR=1000) IBFPR2
200	CONTINUE
	IER=1
C
C
1000	RETURN
	END