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