Skip to content

Commit

Permalink
add a comment
Browse files Browse the repository at this point in the history
  • Loading branch information
muralidhar-nalabothula committed Jul 25, 2024
1 parent b173720 commit 7456c06
Showing 1 changed file with 2 additions and 1 deletion.
3 changes: 2 additions & 1 deletion src/io/io_BSS_diago.F
Original file line number Diff line number Diff line change
Expand Up @@ -223,7 +223,7 @@ subroutine write_bs_ev_par(iq, i_BS_mat, BS_VR, BS_VL)
dim_names(3) = 'neigs'
!
if ( BSS_n_eig < chunksize(3)) chunksize(2:3) = 0

! NM : FIX ME : I used some random values. Check this !
varid = 100
if (present(BS_VR) .and. allocated(BS_VR)) then
call def_variable_bulk(ID,'BS_EIGENSTATES', varid,&
Expand All @@ -232,6 +232,7 @@ subroutine write_bs_ev_par(iq, i_BS_mat, BS_VR, BS_VL)
call io_variable_bulk(ID,varid,C2=BS_VR,IPOS=(/1,1,neig_shift+1/))
endif

! NM : FIX ME : I used some random values. Check this !
varid = 101
if (present(BS_VL) .and. allocated(BS_VL) ) then
call def_variable_bulk(ID,'BS_EIGENSTATES_LEFT', varid,&
Expand Down

0 comments on commit 7456c06

Please sign in to comment.