anchor.diff:        & spg_get_international, spgat_get_international, &
         & spg_get_schoenflies, spgat_get_schoenflies, &
         & spg_get_pointgroup, spg_refine_cell, spgat_refine_cell, &
  -      & spg_get_ir_kpoints, spg_get_ir_reciprocal_mesh, &
  +      & spg_get_ir_reciprocal_mesh, &
         & spg_get_stabilized_reciprocal_mesh, &
  -      & spg_get_triplets_reciprocal_mesh_at_q, &
  -      & spg_extract_triplets_reciprocal_mesh_at_q, &
  -      & spg_get_error_code, spg_get_error_message 
  +      & spg_get_error_code, spg_get_error_message
   
   
      contains
  +
   
      function spg_get_error_message(spglib_error)
        integer(kind(SPGLIB_SUCCESS)) :: spglib_error
  
positive.code:          end do
  
           do i = 1, size(dset_c % choice)
              if(  dset_c % choice(i) == C_NULL_CHAR ) then
                  dset % choice(i:) = ' '
                  exit
              end if
              dset % choice(i:i) = dset_c % choice(i)
           end do
  
           n_operations = dset_c % n_operations
  
negative.code:       real(c_double), intent(in), value :: symprec, angle_tolerance
        integer(c_int) :: spgat_get_schoenflies ! the number corresponding to 'symbol'. 0 on failure
     end function spgat_get_schoenflies
  
  
     function spg_get_pointgroup( symbol, trans_mat, rotations, num_rotations) bind(c)
  