anchor.diff:  !         FUNCTION c_strftime
   !         FUNCTION c_strptime
   !         FUNCTION date2num
  +!         FUNCTION datetimeRange
   !         FUNCTION daysInMonth
   !         FUNCTION daysInYear
   !         FUNCTION isLeapYear
  
positive.code: !======================================================================>
  !
  ! datetime-bound procedure. Returns an integer number of 
  ! seconds since the UNIX Epoch, 1970-01-01 00:00:00 +0000 (UTC).
  !
  !======================================================================>
  
  
negative.code:   CHARACTER(LEN=length) :: int2str
    CHARACTER(LEN=2)      :: string
  
    WRITE(UNIT=string,FMT='(I2)')length
    WRITE(UNIT=int2str,FMT='(I'//string//'.'//string//')')i
  
  