| File |
Line number |
Procedure |
Code |
|
./pkg/cal/cal_subdates.F |
45 |
CAL_SUBDATES |
integer initialdate(4) |
|
./pkg/cal/cal_subdates.F |
56 |
CAL_SUBDATES |
if ((initialdate(4) .gt. 0) .eqv. |
|
./pkg/cal/cal_subdates.F |
60 |
CAL_SUBDATES |
if (initialdate(4) .eq. -1) then |
|
./pkg/cal/cal_subdates.F |
62 |
CAL_SUBDATES |
workdate(1) = -initialdate(1) |
|
./pkg/cal/cal_subdates.F |
63 |
CAL_SUBDATES |
workdate(2) = -initialdate(2) |
|
./pkg/cal/cal_subdates.F |
70 |
CAL_SUBDATES |
& initialdate, finaldate, diffdate, mythid ) |
|
./pkg/cal/cal_subdates.F |
8 |
CAL_SUBDATES |
I initialdate, |
|
./pkg/cal/cal_timepassed.F |
100 |
CAL_TIMEPASSED |
else if (initialdate(1) .gt. finaldate(1)) then |
|
./pkg/cal/cal_timepassed.F |
110 |
CAL_TIMEPASSED |
call CAL_CONVDATE( initialdate,yf,mf,df,sf,lf,wf,mythid ) |
|
./pkg/cal/cal_timepassed.F |
112 |
CAL_TIMEPASSED |
call CAL_CONVDATE( initialdate,yi,mi,di,si,li,wi,mythid ) |
|
./pkg/cal/cal_timepassed.F |
44 |
CAL_TIMEPASSED |
integer initialdate(4) |
|
./pkg/cal/cal_timepassed.F |
7 |
CAL_TIMEPASSED |
I initialdate, |
|
./pkg/cal/cal_timepassed.F |
85 |
CAL_TIMEPASSED |
if ((initialdate(4) .gt. 0) .eqv. |
|
./pkg/cal/cal_timepassed.F |
88 |
CAL_TIMEPASSED |
caldates = (initialdate(4) .gt. 0) .and. |
|
./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 |