GCC Code Coverage Report


Directory: ./
File: misc/juldate.f
Date: 2022-01-11 19:19:34
Exec Total Coverage
Lines: 0 17 0.0%
Branches: 0 4 0.0%

Line Branch Exec Source
1 !
2 ! $Id: juldate.F 2239 2015-03-23 07:27:30Z emillour $
3 !
4 subroutine juldate(ian,imoi,ijou,oh,om,os,tjd,tjdsec)
5 c Sous-routine de changement de date:
6 c gregorien>>>date julienne
7 c En entree:an,mois,jour,heure,min.,sec.
8 c En sortie:tjd
9 IMPLICIT NONE
10 INTEGER,INTENT(IN) :: ian,imoi,ijou,oh,om,os
11 REAL,INTENT(OUT) :: tjd,tjdsec
12
13 REAL frac,year,rmon,cf,a,b
14 INTEGER ojou
15
16 frac=((os/60.+om)/60.+oh)/24.
17 ojou=dble(ijou)+frac
18 year=dble(ian)
19 rmon=dble(imoi)
20 if (imoi .le. 2) then
21 year=year-1.
22 rmon=rmon+12.
23 endif
24 cf=year+(rmon/100.)+(ojou/10000.)
25 if (cf .ge. 1582.1015) then
26 a=int(year/100)
27 b=2-a+int(a/4)
28 else
29 b=0
30 endif
31 tjd=int(365.25*year)+int(30.6001*(rmon+1))+int(ojou)
32 + +1720994.5+b
33 tjdsec=(ojou-int(ojou))+(tjd-int(tjd))
34 tjd=int(tjd)+int(tjdsec)
35 tjdsec=tjdsec-int(tjdsec)
36 return
37 end
38
39
40