mirror of
https://gitlab.com/scemama/qp_plugins_scemama.git
synced 2024-12-22 20:34:05 +01:00
9 lines
109 B
FortranFixed
9 lines
109 B
FortranFixed
|
program overwrite_w_cas
|
||
|
|
read_wf = .True.
|
||
|
|
TOUCH read_wf
|
||
|
|
call extract_cas
|
||
|
|
call save_wavefunction
|
||
|
|
end
|
||
|
|
|
||
|
|
|