!	call j1980tojul(j1980,jd,yr)   !take j1980 date, return jd and yr
	subroutine j1980tojul(j1980,jd,yr)
	implicit none
        integer*4, intent(in)::  j1980
        integer*4, intent(out)::  jd,yr
        integer*4::  mo,day

	call j1980mdy(j1980,mo,day,yr)  !mo,day,yr from days since 0 jan 1980
	call jdold(mo,day,yr,jd)        !day of year for above date
	return
	end