LCPQ/quack
4
1
Fork 0
mirror of https://github.com/pfloos/quack synced 2024-12-23 04:43:53 +01:00
Code Releases Activity

remove read/write guess

Browse Source
This commit is contained in:
Pierre-Francois Loos 2023-07-17 13:39:35 +02:00
parent 62b9722256
commit f7623c3ed6
1 changed files with 0 additions and 36 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
src/HF/dump_orbitals.f90
View File

@ -1,36 +0,0 @@
subroutine dump_orbitals(nBas,c)
! Write orbitals in a file
implicit none
include 'parameters.h'
! Input variables
integer,intent(in) :: nBas
! Local variables
integer :: mu,p
! Output variables
double precision,intent(out) :: c(nBas,nBas)
! Open file with orbitals
open(unit=12,file='int/MO.dat')
! Dump orbitals
do mu=1,nBas
do p=1,nBas
if(abs(c(mu,p)) > 1d-15) write(12,'(I6,I6,F20.15)') mu,p,c(mu,p)
enddo
enddo
! Close file
12 close(unit=12)
end subroutine dump_orbitals