
	INTEGER FUNCTION IA0_TABNEW (IHR)
	IMPLICIT NONE
	INTEGER IHR
	INCLUDE 'IADR00.INC'
	IA0_TABNEW = IADR00_TABNEW + IHR
	RETURN
	END

	INTEGER FUNCTION IA0_VALTERM (IHR)
	IMPLICIT NONE
	INTEGER IHR
	INCLUDE 'IADR00.INC'
	IA0_VALTERM = IADR00_VALTERM + IHR
	RETURN
	END

	INTEGER FUNCTION IA0_TAB (IHR,J)
	IMPLICIT NONE
	INTEGER IHR,J
	INCLUDE 'IADR00.INC'
	IA0_TAB = IADR00_TAB + (J-1)*NHYDLICOP + IHR
	RETURN
	END

	INTEGER FUNCTION IA0_YTAB (IHR,J)
	IMPLICIT NONE
	INTEGER IHR,J
	INCLUDE 'IADR00.INC'
	IA0_YTAB = IADR00_YTAB + (J-1)*NHYDLICOP + IHR
	RETURN
	END
