/home/uryu/Cocal_svn_checkinout/Cocal/code/Subroutine/printout_error_metric_combined_B.f90
Go to the documentation of this file.00001 subroutine printout_error_metric_combined_B(iter_count,ep,ea,ebx,eby,ebz,eB) 00002 implicit none 00003 real(8) :: ep,ea,ebx,eby,ebz,eB 00004 integer :: iter_count 00005 ! write(6,'(a12,i4,a10,a17,1p,e14.6)') 'Iteration #=', iter_count, ' ', 'Error in metric= ', error_pot 00006 write(6,'(a12,i3,1p,6e15.6)') 'Iteration #=', iter_count, ep,ea,ebx,eby,ebz,eB 00007 end subroutine printout_error_metric_combined_B
