Skip to content

Conversation

junghans
Copy link
Member

@junghans junghans commented Apr 22, 2020

Make use of lanl/bml#372


This change is Reviewable

@junghans junghans requested review from nicolasbock and cnegre April 22, 2020 01:33
@junghans junghans requested a review from suemni as a code owner April 22, 2020 01:33
@@ -1290,7 +1290,8 @@ subroutine prg_KernLin2(gp, xadj, adjncy, partNumber, core_count, CH_count, Halo
!> to different metrics
call random_number(r)
if (r .ge. 0.7) then
call prg_get_largest_Hedge_in_part(gp, xadj, adjncy, partNumber, core_count, CH_count, Halo_count, sumCubes, maxCH, smooth_maxCH, pnorm, i, largest_Hedge)
it = i
call prg_get_largest_Hedge_in_part(gp, xadj, adjncy, partNumber, core_count, CH_count, Halo_count, sumCubes, maxCH, smooth_maxCH, pnorm, it, largest_Hedge)
Copy link
Member Author

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

This is to fix the following compile error with gfortran-9.3.1:

/home/junghans/qmd-progress/src/prg_partition_mod.F90:1294:150:

 1287 |        do i = 1, totalParts
      |                           2
......
 1294 |              call prg_get_largest_Hedge_in_part(gp, xadj, adjncy, partNumber, core_count, CH_count, Halo_count, sumCubes, maxCH, smooth_maxCH, pnorm, i, largest_Hedge)
      |                                                                                                                                                      1
Error: Variable ‘i’ at (1) not definable inside loop beginning at (2) as INTENT(INOUT) argument to subroutine ‘prg_get_largest_hedge_in_part’

@cnegre cnegre merged commit 3957caa into master Apr 22, 2020
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
Labels
None yet
Projects
None yet
Development

Successfully merging this pull request may close these issues.

2 participants