Removed old write statments

MintonGroup · May 11, 2021 · fb954fe · fb954fe
1 parent 9be844e
commit fb954fe
Showing 1 changed file with 0 additions and 6 deletions.
diff --git a/src/symba/symba_frag_pos.f90 b/src/symba/symba_frag_pos.f90
@@ -315,12 +315,6 @@ subroutine symba_frag_pos_ang_mtm(nfrag, xcom, vcom, L_orb, L_spin, m_frag, rad_
       end do
       b(1:2) = -Gam(:)
       b(3) = L_orb_frag_mag - rho
-      write(*,*) 'A = '
-      do i = 1, 3
-         write(*,*) A(i,:)
-      end do
-      write(*,*) 'b = '
-      write(*,*) b(:)
       v_t_mag(1:3) = solve_wbs(ge_wpp(A, b))
       do i = 1, nfrag
          v_frag(:, i) = v_frag(:, i) + v_t_mag(i) * v_t_unit(:, i)