--- MITgcm/pkg/cal/cal_convdate.F	2003/09/23 04:34:24	1.2
+++ MITgcm/pkg/cal/cal_convdate.F	2003/10/07 20:46:37	1.3.2.2
@@ -1,6 +1,7 @@
-C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/cal/cal_convdate.F,v 1.2 2003/09/23 04:34:24 dimitri Exp $
+C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/cal/cal_convdate.F,v 1.3.2.2 2003/10/07 20:46:37 adcroft Exp $
+C $Name:  $
 
-#include "CAL_CPPOPTIONS.h"
+#include "CAL_OPTIONS.h"
 
       subroutine cal_ConvDate(
      I                         date,
@@ -57,7 +58,7 @@
       integer date_1
       integer date_2
       integer ierr
-      _RL check_sign
+      integer check_sign
 
 c     == end of interface ==
 
@@ -65,7 +66,10 @@
 
 c     Check the sign of the date.
 
-      check_sign = sign(1,dble(date(1))*dble(date(2)))
+      check_sign = 1
+      if ( ( (date(1).lt.0) .and. date(2).gt.0 ) .or.
+     &     ( (date(1).gt.0) .and. date(2).lt.0 ) )
+     &     check_sign = -1
 
       if ( check_sign .ge. 0 ) then
         if (date(1) .eq. 0) then