anchor.diff:   vx,vc,vxup,vxdn,vcup,vcdn,dxdg2,dxdgu2,dxdgd2,dxdgud,dcdg2,dcdgu2,dcdgd2, &
    dcdgud)
   
  -#ifdef LIBXC
  +
   
   ! !INPUT/OUTPUT PARAMETERS:
   !   xctype : type of exchange-correlation functional (in,integer(3))
  
positive.code: character(512), intent(out) :: xcdescr
  integer, intent(out) :: xcspin
  integer, intent(out) :: xcgrad
  ! local variables
  integer xcf,id,k
  character(256) name
  
negative.code:   end if
  end do
  xcdescr=trim(xcdescr)//' (see libxc for references)'
  
  return
  #endif
  
  #ifndef LIBXC
   write(*,'("Error(xcdata_libxc): LIBXC not acivated : ",&
         &I8)')
        write(*,*)
        stop
  #endif
  end subroutine
  !EOC
  
  
  end module
  