anchor.diff:    INTEGER         :: rc
     TYPE(tm_struct) :: tm
   
  -  rc = c_strptime(TRIM(str)//C_NULL_CHAR,TRIM(format)//C_NULL_CHAR,tm)
  +  rc = c_strptime(TRIM(str)//c_null_char,TRIM(format)//c_null_char,tm)
     strptime = tm2date(tm)
   
   ENDFUNCTION strptime
  
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:     IMPORT :: c_char,c_int
      IMPORT :: tm_struct
  
      IMPLICIT NONE
  
      ! ARGUMENTS:
      CHARACTER(KIND=c_char),DIMENSION(*),INTENT(OUT) :: str
      INTEGER(KIND=c_int),VALUE,          INTENT(IN)  :: slen
  