new XMLD
atom Co

ground_state 2p6 3d7

scaler_coulomb     $elec
scaler_so_coupling $socc

polar_in      0  0.5 0.866
polar_in2     1   0   0

threshold_corr   $thrc 
core_hole_broad  $corc
wming1           $wmic
wdifg1           $wdic
deltag1          $dcoc
emid_xmcd        789

scaler_xtal_field  1.00   ! fixed, would be redundant with qsuc qhbc
begin_xtal
 1.0
  0.000  0.000  -$dsuc  $qsuc    ! substrate
  $disc  $disc   0.000  $qhbc    ! Hbridge Co
 -$disc  $disc   0.000  $qhbc
 -$disc -$disc   0.000  $qhbc
  $disc -$disc   0.000  $qhbc
end_xtal