remove NaN check

missing-user · Dec 12, 2024 · dfff9a6 · dfff9a6
1 parent 389b4b1
commit dfff9a6
Showing 1 changed file with 0 additions and 5 deletions.
diff --git a/src/bnorml.f90 b/src/bnorml.f90
@@ -213,11 +213,6 @@ subroutine bnorml( mn, Ntz, efmn, ofmn )
       enddo
     enddo
 
-    do jk = 1, Ntz
-      if(ijreal(jk).ne.ijreal(jk)) then
-        print *, 'ijreal(jk) contains NAN', jk, ijreal(jk)
-      endif
-    enddo
     deltah4h2 = deltah2h
     deltah2h =  sum(abs(ijimag - ijreal)) ! mean delta between the h and h/2 solutions