C******************************************************************************
	SUBROUTINE AK$TRN_TIM(ISTAT)
C******************************************************************************
C AKTRNTIM.FOR
C
C  written by:  M. Serrer
C  date:        March 1984
C
	INCLUDE 'AK.INC/NOLIST'
C
	INCLUDE 'AKCONFIG.INC/LIST'
C
	MORN_HR=PRIME_START_HOUR
	MORN_MIN=PRIME_START_MINUTE
	AFT_HR=PRIME_END_HOUR
	AFT_MIN=PRIME_END_MINUTE
C
C_P1 is number of minutes from midnight to start of PRIME time
C_P2 is number of minutes from midnight to end of PRIME time
C
	P1=PRIME_START_HOUR*60+PRIME_START_MINUTE
	P2=PRIME_END_HOUR*60+PRIME_END_MINUTE
C
	RETURN
	END
