program progl1
implicit none
integer idate
real r,deet,jjulien
integer nberr,npas
external jjulien
idate=051799000
deet=3600.0
npas=40
r = jjulien(deet,npas,idate)
print *,'julian day in real format =',r
stop
end