Symbol Description Uses
wrong_sign 6



File Line number Procedure Code
./pkg/cal/cal_checkdate.F 51 CAL_CHECKDATE
      LOGICAL wrong_sign
./pkg/cal/cal_checkdate.F 59 CAL_CHECKDATE
      wrong_sign = ( (date(1).LT.0) .AND. date(2).GT.0 )
./pkg/cal/cal_checkdate.F 62 CAL_CHECKDATE
      IF ( wrong_sign ) THEN
./pkg/cal/cal_convdate.F 49 CAL_CONVDATE
      LOGICAL wrong_sign
./pkg/cal/cal_convdate.F 65 CAL_CONVDATE
      wrong_sign = ( (date(1).lt.0) .and. date(2).gt.0 )
./pkg/cal/cal_convdate.F 68 CAL_CONVDATE
      if ( wrong_sign ) then