00001 subroutine printout_error_metric_combined_2(iter_count,ep,ea)
00002 implicit none
00003 real(8) :: ep,ea
00004 integer :: iter_count
00005 write(6,'(a14,i5,1p,2e15.6)') ' Iteration # =', iter_count, ep, ea
00006 end subroutine printout_error_metric_combined_2