From 75a984e276e85c7e256d5cfba34c79e9b6f29128 Mon Sep 17 00:00:00 2001 From: Marc DeGraef Date: Fri, 15 Mar 2024 20:02:00 -0400 Subject: [PATCH] commented out some debugging code --- Source/EMsoftOOLib/program_mods/mod_EBSD.f90 | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/Source/EMsoftOOLib/program_mods/mod_EBSD.f90 b/Source/EMsoftOOLib/program_mods/mod_EBSD.f90 index c9acbf3..685572c 100644 --- a/Source/EMsoftOOLib/program_mods/mod_EBSD.f90 +++ b/Source/EMsoftOOLib/program_mods/mod_EBSD.f90 @@ -3358,10 +3358,10 @@ 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 @@ -3369,10 +3369,10 @@ recursive subroutine CalcEBSDPatternSingleFull_(self,ipar,qq,accum,mLPNH,mLPSH,r 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