/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 ! 00006 ! write(6,'(a15,1p,e14.6)') ' Error = ', error_emd 00007 ! write(6,'(a15,i4)') ' Iteration # = ', iter_count 00008 write(6,'(a19,1p,e14.6)') ' Error = ', error_emd 00009 write(6,'(a19,i4)') ' Iteration # = ', iter_count 00010 end subroutine printout_error
