/home/uryu/Cocal_svn_checkinout/Cocal/code/Subroutine/printout_error_metric.f90
Go to the documentation of this file.00001 subroutine printout_error_metric(iter_count,error_pot) 00002 implicit none 00003 real(8) :: error_pot 00004 integer :: iter_count 00005 write(6,'(a19,i4)') ' Iteration # = ', iter_count 00006 write(6,'(a19,1p,e14.6)') ' Error in metric = ', error_pot 00007 end subroutine printout_error_metric
