#include "CAL_OPTIONS.h" logical function cal_CompDates( I date_a, I date_b, I mythid & ) c ================================================================== c FUNCTION cal_CompDates c ================================================================== c c o Compare two calendar dates or time interval. c c started: Christian Eckert eckert@mit.edu 24-Feb-2000 c c - Introduced to calendar version 0.1.4 c c changed: c c ================================================================== c FUNCTION cal_CompDates c ================================================================== implicit none c == global variables == #include "cal.h" c == routine arguments == integer date_a(4) integer date_b(4) integer mythid c == local variables == c == end of interface == if ( ( date_a(1) .eq. date_b(1) ) .and. & ( date_a(2) .eq. date_b(2) ) .and. & ( date_a(3) .eq. date_b(3) ) .and. & ( date_a(4) .eq. date_b(4) ) ) then cal_CompDates = .true. else cal_CompDates = .false. endif return end