scemama/qp_plugins_scemama
1
0
Fork 0
mirror of https://gitlab.com/scemama/qp_plugins_scemama.git synced 2025-01-03 01:55:52 +01:00
Code Issues Releases Wiki Activity

File name

Browse Source
This commit is contained in:
Anthony Scemama 2021-12-03 15:20:59 +01:00
parent 8eef226634
commit 4d380c9948
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
stable/champ/write_champ_csf.irp.f
View File

@ -1,16 +1,17 @@
subroutine write_champ_csf subroutine write_champ_csf
implicit none implicit none
integer, parameter :: iunit=12, istate=1 integer, parameter :: istate=1
character*(2048) :: format character*(2048) :: format
integer :: i, n_elements, j, k integer :: i, n_elements, j, k
integer, allocatable :: list(:,:) integer, allocatable :: list(:,:)
integer :: startdet, enddet integer :: startdet, enddet, iunit
integer :: ndetI, bfIcfg, s integer :: ndetI, bfIcfg, s
double precision :: phasedet double precision :: phasedet
integer :: idx integer :: idx
open(newunit=iunit, file='det.'//ezfio_filename)
write(iunit, '(A, X, I4, X, A, X, I4)') '&electrons nelec', elec_num, 'nup', elec_alpha_num write(iunit, '(A, X, I4, X, A, X, I4)') '&electrons nelec', elec_num, 'nup', elec_alpha_num