anchor.diff:  !
   !======================================================================>
   
  -USE,INTRINSIC :: iso_c_binding
  +USE,INTRINSIC :: iso_c_binding,ONLY:c_char,c_int,c_null_char
   
   IMPLICIT NONE
   
  
positive.code:   INTEGER              :: rc
    CHARACTER(LEN=20)    :: string
  
    rc = c_strftime(string,LEN(string),'%G %V %u'//C_NULL_CHAR,&
                    self % tm())  
  
    READ(UNIT=string(1:4),FMT='(I4)')year
  
negative.code:   INTEGER         :: rc
    TYPE(tm_struct) :: tm
  
    rc = c_strptime(TRIM(str)//c_null_char,TRIM(format)//c_null_char,tm)
    strptime = tm2date(tm)
  
  ENDFUNCTION strptime
  