57 |
integer date_1 |
integer date_1 |
58 |
integer date_2 |
integer date_2 |
59 |
integer ierr |
integer ierr |
60 |
_RL check_sign |
integer check_sign |
61 |
|
|
62 |
c == end of interface == |
c == end of interface == |
63 |
|
|
65 |
|
|
66 |
c Check the sign of the date. |
c Check the sign of the date. |
67 |
|
|
68 |
check_sign = sign(1,dble(date(1))*dble(date(2))) |
check_sign = 1 |
69 |
|
if ( ( (date(1).lt.0) .and. date(2).gt.0 ) .or. |
70 |
|
& ( (date(1).gt.0) .and. date(2).lt.0 ) ) |
71 |
|
& check_sign = -1 |
72 |
|
|
73 |
if ( check_sign .ge. 0 ) then |
if ( check_sign .ge. 0 ) then |
74 |
if (date(1) .eq. 0) then |
if (date(1) .eq. 0) then |