/home/uryu/Cocal_svn_checkinout/Cocal/code/Subroutine/printout_error.f90
Go to the documentation of this file.00001 subroutine printout_error(iter_count,error_emd) 00002 implicit none 00003 real(8) :: error_emd 00004 integer :: iter_count 00005 write(6,'(a15,i4)') ' Iteration # = ', iter_count 00006 write(6,'(a15,1p,e14.6)') ' Error = ', error_emd 00007 ! write(6,'(a18,i4)') ' Iteration # = ', iter_count 00008 ! write(6,'(a18,1p,e14.6)') ' Error in p/rho = ', error_emd 00009 end subroutine printout_error
