anchor.diff:  
            ! Copy C strings to Fortran characters, converting C NULL to Fortran space padded strings
            do i = 1, size(dset_c % international_symbol)
  -            if(  dset_c % international_symbol(i) == C_NULL_CHAR ) then
  +            if (dset_c % international_symbol(i) == C_NULL_CHAR) then
                   dset % international_symbol(i:) = ' '
                   exit
               end if
  
positive.code:      end interface
  
       message_ptr = spg_get_error_message_c(spglib_error)
       call c_f_pointer( message_ptr, message, [len(spg_get_error_message)])
  
       spg_get_error_message = ' '
       do i = 1, len(spg_get_error_message)
          if(  message(i) == C_NULL_CHAR ) exit
          spg_get_error_message(i:i) = message(i)
       end do
  
  
negative.code:    end function spgat_get_symmetry_with_collinear_spin
  
  
     function spg_get_multiplicity( lattice, position, types, num_atom, symprec) bind(c)
        import c_int, c_double
        real(c_double), intent(in) :: lattice(3,3), position(3,*)
  