/home/uryu/Cocal_svn_checkinout/Cocal/code/Subroutine/printout_error_metric_combined.f90
Go to the documentation of this file.00001 subroutine printout_error_metric_combined(iter_count,ep,ea,ebx,eby,ebz) 00002 implicit none 00003 real(8) :: ep,ea,ebx,eby,ebz 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,5e15.6)') 'Iteration #=', iter_count, ep,ea,ebx,eby,ebz 00007 end subroutine printout_error_metric_combined
