anchor.diff:  PUBLIC :: num2date
   PUBLIC :: strptime
   PUBLIC :: tm2date
  +
  +PUBLIC :: int2str
   
   ! Constants:
   INTEGER,PARAMETER :: real_sp = KIND(1e0)
  
positive.code: !======================================================================>
  
    ! ARGUMENTS:
    INTEGER,INTENT(IN)    :: i,length
    CHARACTER(LEN=length) :: int2str
  
    WRITE(UNIT=int2str,FMT='(I0)')i
  
    DO WHILE(LEN_TRIM(ADJUSTL(int2str)) < length)
      int2str = '0'//TRIM(ADJUSTL(int2str))
    ENDDO
  
  ENDFUNCTION int2str
  !======================================================================>
  
negative.code: !
  ! MODULE: datetime
  !
  ! VERSION: 0.3.2
  !
  ! LAST UPDATE: 2014-04-21
  !
  ! AUTHOR: Milan Curcic
  !         University of Miami
  