| File |
Line number |
Procedure |
Code |
|
./pkg/cal/cal_subdates.F |
44 |
CAL_SUBDATES |
integer finaldate(4) |
|
./pkg/cal/cal_subdates.F |
57 |
CAL_SUBDATES |
& ( finaldate(4) .gt. 0)) then |
|
./pkg/cal/cal_subdates.F |
66 |
CAL_SUBDATES |
call CAL_ADDTIME( finaldate, workdate, diffdate, mythid ) |
|
./pkg/cal/cal_subdates.F |
70 |
CAL_SUBDATES |
& initialdate, finaldate, diffdate, mythid ) |
|
./pkg/cal/cal_subdates.F |
7 |
CAL_SUBDATES |
I finaldate, |
|
./pkg/cal/cal_timepassed.F |
100 |
CAL_TIMEPASSED |
else if (initialdate(1) .gt. finaldate(1)) then |
|
./pkg/cal/cal_timepassed.F |
109 |
CAL_TIMEPASSED |
call CAL_CONVDATE( finaldate,yi,mi,di,si,li,wi,mythid ) |
|
./pkg/cal/cal_timepassed.F |
113 |
CAL_TIMEPASSED |
call CAL_CONVDATE( finaldate,yf,mf,df,sf,lf,wf,mythid ) |
|
./pkg/cal/cal_timepassed.F |
45 |
CAL_TIMEPASSED |
integer finaldate(4) |
|
./pkg/cal/cal_timepassed.F |
86 |
CAL_TIMEPASSED |
& ( finaldate(4) .gt. 0)) then |
|
./pkg/cal/cal_timepassed.F |
89 |
CAL_TIMEPASSED |
& ( finaldate(4) .gt. 0) |
|
./pkg/cal/cal_timepassed.F |
8 |
CAL_TIMEPASSED |
I finaldate, |
|
./pkg/cal/cal_timepassed.F |
92 |
CAL_TIMEPASSED |
if (initialdate(1) .eq. finaldate(1)) then |
|
./pkg/cal/cal_timepassed.F |
93 |
CAL_TIMEPASSED |
if (initialdate(2) .eq. finaldate(2)) then |
|
./pkg/cal/cal_timepassed.F |
95 |
CAL_TIMEPASSED |
else if (initialdate(2) .gt. finaldate(2)) then |