Skip to content

Commit

Permalink
change a print condition
Browse files Browse the repository at this point in the history
  • Loading branch information
yasuto-masuda committed Dec 19, 2023
1 parent fc0f2b7 commit 1f3a89d
Showing 1 changed file with 12 additions and 4 deletions.
16 changes: 12 additions & 4 deletions src/create_E_type_DM.f90
View file
Original file line number Diff line number Diff line change
Expand Up @@ -1084,12 +1084,20 @@ subroutine create_E_type_4DM
! print *, 'after - S_2DM act_i, act_j, act_k, act_l,E_type2DM(act_i, act_j, act_k, act_l)'
! print *, act_i, act_j, act_k, act_l, E_type2DM(act_i, act_j, act_k, act_l)
! print *, act_i, act_j, act_k, act_l, E_type2DM(act_i, act_j, act_k, act_l)
if (ABS_E_4DM(act_i, act_j, act_k, act_l, act_m, act_n, act_o, act_p) /= 0) then
if (ABS_E_4DM(act_i, act_j, act_k, act_l, act_m, act_n, act_o, act_p) > 1.0d-10) then
! if (ABS_E_4DM(act_i, act_j, act_k, act_l, act_m, act_n, act_o, act_p) /= 0) then
!

write (abs_E_4dm_num, '(2e20.10,8I4)') E_4DM_from_CIcoef(act_i, act_j, act_k, act_l, act_m, act_n, act_o, act_p)
write (abs_E_4dm_num, '(2e20.10,8I4)') E_type4DM(act_i, act_j, act_k, act_l, act_m, act_n, act_o, act_p)
! write (abs_E_4dm_num, '(2e20.10,8I4)') E_4DM_from_CIcoef(act_i, act_j, act_k, act_l, act_m, act_n, act_o, act_p)
! write (abs_E_4dm_num, '(2e20.10,8I4)') E_type4DM(act_i, act_j, act_k, act_l, act_m, act_n, act_o, act_p)

write (abs_E_4dm_num, '(e20.10,8I4)') ABS_E_4DM(act_i, act_j, act_k, act_l, act_m, act_n, act_o, act_p), &
! write (abs_E_4dm_num, '(e20.10,8I4)') ABS_E_4DM(act_i, act_j, act_k, act_l, act_m, act_n, act_o, act_p), &
! act_i, act_j, act_k, act_l, act_m, act_n, act_o, act_p

write (abs_E_4dm_num, '(3e20.10,8I4)') &
ABS_E_4DM(act_i, act_j, act_k, act_l, act_m, act_n, act_o, act_p), &
real(E_4DM_from_CIcoef(act_i, act_j, act_k, act_l, act_m, act_n, act_o, act_p)), &
real(E_type4DM(act_i, act_j, act_k, act_l, act_m, act_n, act_o, act_p)), &
act_i, act_j, act_k, act_l, act_m, act_n, act_o, act_p

end if
Expand Down

0 comments on commit 1f3a89d

Please sign in to comment.