anchor.diff:    CHARACTER(LEN=length) :: int2str
     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
   
  
positive.code: 
  
  
  PURE ELEMENTAL INTEGER FUNCTION daysInMonth(month,year)
  !======================================================================>
  !
  
negative.code: !======================================================================>
  !
  ! Converts an integer i into a character string of requested length, 
  ! pre-pending zeros if necessary.
  !
  !======================================================================>
  
  