program overwrite_w_cas
  read_wf = .True.
  TOUCH read_wf
  call extract_ref
end