mirror of
https://github.com/LCPQ/quantum_package
synced 2024-08-31 08:33:40 +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
|