00001 subroutine printout_error_metric_combined_3(iter_count,ebx,eby,ebz)
00002 implicit none
00003 real(8) :: ebx,eby,ebz
00004 integer :: iter_count
00005 write(6,'(a14,i5,1p,3e15.6)') ' Iteration # =', iter_count, ebx, eby, ebz
00006 end subroutine printout_error_metric_combined_3