BEGIN_PROVIDER [ character*(32), DFT_TYPE]
 implicit none
 BEGIN_DOC
! defines the type of DFT applied: LDA, GGA etc ...
 END_DOC
 logical :: is_lda
 if(correlation_functional.eq."None")then
  is_lda             = (index(exchange_functional,"LDA")  .ne. 0)
 else if(exchange_functional.eq."None")then
  is_lda             = (index(correlation_functional,"LDA")  .ne. 0)
 else
  is_lda             = (index(correlation_functional,"LDA")  .ne. 0) .and. (index(exchange_functional,"LDA")  .ne. 0)
 endif
 if(is_lda)then
  DFT_TYPE = "LDA"
 else
  DFT_TYPE = "GGA"
 endif
END_PROVIDER

BEGIN_PROVIDER [ logical, same_xc_func ]
 BEGIN_DOC
! true if the exchange and correlation functionals are the same
 END_DOC
 implicit none
 if(trim(correlation_functional).eq.trim(exchange_functional))then 
  same_xc_func = .True.
 else
  same_xc_func = .False.
 endif


END_PROVIDER