--- MITgcm/pkg/cal/cal_convdate.F 2005/08/25 16:06:07 1.1.18.1 +++ MITgcm/pkg/cal/cal_convdate.F 2003/09/23 04:34:24 1.2 @@ -1,7 +1,6 @@ -C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/cal/cal_convdate.F,v 1.1.18.1 2005/08/25 16:06:07 dimitri Exp $ -C $Name: $ +C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/cal/cal_convdate.F,v 1.2 2003/09/23 04:34:24 dimitri Exp $ -#include "CAL_OPTIONS.h" +#include "CAL_CPPOPTIONS.h" subroutine cal_ConvDate( I date, @@ -58,7 +57,7 @@ integer date_1 integer date_2 integer ierr - integer check_sign + _RL check_sign c == end of interface == @@ -66,10 +65,7 @@ c Check the sign of the date. - 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 + check_sign = sign(1,dble(date(1))*dble(date(2))) if ( check_sign .ge. 0 ) then if (date(1) .eq. 0) then