mirror of
https://gitlab.com/scemama/qp_plugins_scemama.git
synced 2024-08-30 15:53:46 +02:00
File name
This commit is contained in:
parent
8eef226634
commit
4d380c9948
@ -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
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user