!   returns days since (and including) jan 1 1980 to present
        subroutine j80now(jnow)
        implicit none
        integer*4 v(8),jnow
        call gitime(v)   !4=day 5=month 6=yyyy
        call j1980(v(5),v(4),v(6),jnow)
        return
        end