anchor.diff:          use basis, only: init_model_basis_fns
           use momentum_symmetry, only: init_momentum_symmetry
           use ueg_system, only: init_ueg_proc_pointers
  +        use check_input, only: check_sys
  +        use parallel, only: parent
   
           integer(c_int) :: nreturn
           type(c_ptr), value :: L
  
positive.code:         use point_group_symmetry, only: print_pg_symmetry_info
          use read_in_system, only: read_in_integrals
          use system, only: sys_t, read_in, init_system
  
          integer(c_int) :: nreturn
          type(c_ptr), value :: L
  
negative.code:         use basis, only: init_model_basis_fns
          use momentum_symmetry, only: init_momentum_symmetry
          use ringium_system, only: init_symmetry_ringium
          use check_input, only: check_sys
          use parallel, only: parent
  
          integer(c_int) :: nreturn
          type(c_ptr), value :: L
  