64 |
calerr = 0 |
calerr = 0 |
65 |
fac = 1 |
fac = 1 |
66 |
|
|
67 |
|
check_sign = 1 |
68 |
|
if ( ( (date(1).lt.0) .and. date(2).gt.0 ) .or. |
69 |
|
& ( (date(1).gt.0) .and. date(2).lt.0 ) ) |
70 |
|
& check_sign = -1 |
71 |
|
|
72 |
if (date(4) .le. 0) then |
if (date(4) .le. 0) then |
73 |
if (date(4) .ne. -1) then |
if (date(4) .ne. -1) then |
74 |
calerr = 1801 |
calerr = 1801 |
76 |
if (date(3) .ne. 0) then |
if (date(3) .ne. 0) then |
77 |
calerr = 1802 |
calerr = 1802 |
78 |
else |
else |
|
check_sign = sign(1,dble(date(1))*dble(date(2))) |
|
79 |
if (check_sign .lt. 0) then |
if (check_sign .lt. 0) then |
80 |
calerr = 1803 |
calerr = 1803 |
81 |
else |
else |
100 |
& (date(3) .ne. 2)) then |
& (date(3) .ne. 2)) then |
101 |
calerr = 1806 |
calerr = 1806 |
102 |
else |
else |
|
check_sign = sign(1,dble(date(1))*dble(date(2))) |
|
103 |
if (check_sign .lt. 0) then |
if (check_sign .lt. 0) then |
104 |
calerr = 1803 |
calerr = 1803 |
105 |
else |
else |