anchor.diff:          use calc, only: calc_type, simple_fciqmc_calc, fciqmc_calc
           use system, only: set_spin_polarisation
   
  -        integer :: nresult
  +        integer(c_int) :: nresult
           type(c_ptr), value :: L
   
           type(flu_state) :: lua_state
  
positive.code:         use calc, only: calc_type, ccmc_calc
          use system, only: set_spin_polarisation
  
          integer :: nresult
          type(c_ptr), value :: L
  
          type(flu_state) :: lua_state
  
negative.code:         use calc, only: calc_type, fciqmc_calc
          use system, only: set_spin_polarisation
  
          integer(c_int)  :: nresult
          type(c_ptr), value :: L
  
          type(flu_state) :: lua_state
  