/home/uryu/Cocal_svn_checkinout/Cocal/code/Subroutine/printout_error_metric_v1.f90
Go to the documentation of this file.00001 subroutine printout_error_metric_v1(fnchar, iter_count,error_pot) 00002 implicit none 00003 real(8) :: error_pot 00004 integer :: iter_count 00005 character(len=4) :: fnchar 00006 write(6,'(a11,i4,a18,a4,a3,1p,e14.6)') 'Iteration= ', iter_count, & 00007 & ', Error in metric ', fnchar, ' = ', error_pot 00008 end subroutine printout_error_metric_v1
