commented out some debugging code

EMsoft-org · Mar 16, 2024 · 75a984e · 75a984e
1 parent 45f1ee8
commit 75a984e
Showing 1 changed file with 6 additions and 6 deletions.
diff --git a/Source/EMsoftOOLib/program_mods/mod_EBSD.f90 b/Source/EMsoftOOLib/program_mods/mod_EBSD.f90
@@ -3358,21 +3358,21 @@ recursive subroutine CalcEBSDPatternSingleFull_(self,ipar,qq,accum,mLPNH,mLPSH,r
 
         if ((abs(nix).gt.500).or.(abs(niy).gt.500)) then 
           dc = (/ rgx(ii,jj),rgy(ii,jj),rgz(ii,jj) /)
-          write (*,*) '1 dc = ', dc
+          ! write (*,*) '1 dc = ', dc
 ! apply the grain rotation
           dc = sngl( qq%quat_Lp( dble(dc) ) )
-          write (*,*) '2 dc = ', dc
+          ! write (*,*) '2 dc = ', dc
           call qq%quat_print()
 ! apply the deformation if present
           if (present(Fmatrix)) then
             dc = matmul(sngl(Fmatrix), dc)
           end if
 ! and normalize the direction cosines (to remove any rounding errors)
           dc = dc/sqrt(sum(dc**2))
-          write (*,*) '3 dc = ', dc
-          write (*,*) 'PROBLEM: ', ii, jj, scl, ipar, &
-                                   nix, niy, nixp, niyp, dx, dy, dxm, dym
-        end if 
+        !   write (*,*) '3 dc = ', dc
+        !   write (*,*) 'PROBLEM: ', ii, jj, scl, ipar, &
+        !                            nix, niy, nixp, niyp, dx, dy, dxm, dym
+        ! end if 
 
 ! interpolate the intensity
         if (nobg.eqv..TRUE.) then