mirror of
https://github.com/LCPQ/quantum_package
synced 2024-10-06 00:06:19 +02:00
11 lines
181 B
Fortran
11 lines
181 B
Fortran
|
program prog_truncate_mo
|
||
|
BEGIN_DOC
|
||
|
! Truncate MO set
|
||
|
END_DOC
|
||
|
implicit none
|
||
|
integer :: n
|
||
|
write(*,*) 'Number of MOs to keep'
|
||
|
read (*,*) n
|
||
|
call save_mos_truncated(n)
|
||
|
end
|