From 7456c06ea5140a217fba82556037d844ee867d44 Mon Sep 17 00:00:00 2001 From: muralidhar-nalabothula Date: Fri, 26 Jul 2024 01:32:00 +0530 Subject: [PATCH] add a comment --- src/io/io_BSS_diago.F | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/io/io_BSS_diago.F b/src/io/io_BSS_diago.F index 64fd6f67a7..c00599d313 100644 --- a/src/io/io_BSS_diago.F +++ b/src/io/io_BSS_diago.F @@ -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,& @@ -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,&