mirror of
https://gitlab.com/scemama/qp_plugins_scemama.git
synced 2024-08-31 00:03:50 +02: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
|
||
|
|
||
|
|