LCPQ/quantum_package
10
0
Fork 0
mirror of https://github.com/LCPQ/quantum_package synced 2024-06-21 20:52:18 +02:00
Code Issues Releases Wiki Activity

Bitmasks documentation

Browse Source
This commit is contained in:
Anthony Scemama 2015-03-02 10:36:22 +01:00
parent 7a71170f5f
commit c6886056b3
1 changed files with 18 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
src/Bitmask/bitmasks_routines.irp.f
View File

@ -29,6 +29,10 @@ end
subroutine list_to_bitstring( string, list, n_elements, Nint)
use bitmasks
implicit none
BEGIN_DOC
! Returns the physical string "string(N_int,2)" from the array of
! occupations "list(N_int*bit_kind_size,2)
END_DOC
integer, intent(in) :: Nint
integer(bit_kind), intent(out) :: string(Nint)
integer, intent(in) :: list(Nint*bit_kind_size)
@ -37,10 +41,6 @@ subroutine list_to_bitstring( string, list, n_elements, Nint)
integer :: i, j
integer :: ipos, iint
BEGIN_DOC
! Returnd the physical string "string(N_int,2)" from the array of
! occupations "list(N_int*bit_kind_size,2)
END_DOC
!
! <== ipos ==>
@ -120,26 +120,30 @@ end
subroutine debug_det(string,Nint)
use bitmasks
implicit none
integer, intent(in) :: Nint
integer(bit_kind), intent(in) :: string(Nint,2)
character*(512) :: output(2)
BEGIN_DOC
! Subroutine to print the content of a determinant in '+-' notation and
! hexadecimal representation.
END_DOC
integer, intent(in) :: Nint
integer(bit_kind), intent(in) :: string(Nint,2)
character*(512) :: output(2)
call bitstring_to_hexa( output(1), string(1,1), Nint )
call bitstring_to_hexa( output(2), string(1,2), Nint )
print *, trim(output(1)) , '|', trim(output(2))
call bitstring_to_str( output(1), string(1,1), Nint )
call bitstring_to_str( output(2), string(1,2), Nint )
print *, trim(output(1))
print *, trim(output(2))
call print_det(string,Nint)
end
subroutine print_det(string,Nint)
use bitmasks
implicit none
integer, intent(in) :: Nint
integer(bit_kind), intent(in) :: string(Nint,2)
character*(512) :: output(2)
BEGIN_DOC
! Subroutine to print the content of a determinant using the '+-' notation
END_DOC
integer, intent(in) :: Nint
integer(bit_kind), intent(in) :: string(Nint,2)
character*(512) :: output(2)
call bitstring_to_str( output(1), string(1,1), Nint )
call bitstring_to_str( output(2), string(1,2), Nint )