FUNCTION JDATE(INDATE)
C..
C..	THIS ROUTINE GETS JULIAN DATE FROM 82-JAN-1 = BASE 0
C..
	DIMENSION INDATE(3),MONTHS(12)
	DATA MONTHS/31,29,31,30,31,30,31,31,30,31,30,31/
C..
C..	INITIALIZE AND CHECK
C..
C.. INDATE= 1=YR, 2=MO, 3=DA
C..
	NDAY=0
	IMO=INDATE(2)
	IF(IMO.LE.0.OR.IMO.GT.12) GO TO 99
	IF(INDATE(3).LE.0.OR.INDATE(3).GT.MONTHS(IMO)) GO TO 99
	IF(INDATE(1).LT.82.OR.INDATE(1).GT.99) GO TO 99
C..
C..	GET LEAP YEAR
C..
	LYR=INDATE(1)-(INDATE(1)/4)*4
	NDAY=INDATE(3)+(INDATE(1)-82)*365
	IF(LYR.NE.0.OR.IMO.LE.2) NDAY=NDAY-1
	IF(IMO.EQ.1) GO TO 99
	DO 1 I=2,IMO
	NDAY=NDAY+MONTHS(I-1)
1	CONTINUE
99	JDATE=NDAY
	RETURN
	END