00001 subroutine printout_error_all_metric(iter_count,error_psi,ire_psi,ite_psi,ipe_psi, &
00002 & error_alph,ire_alph,ite_alph,ipe_alph )
00003 implicit none
00004 real(8) :: error_psi,error_alph
00005 integer :: iter_count, ire_psi,ite_psi,ipe_psi, ire_alph,ite_alph,ipe_alph
00006 write(6,'(a1,i2,a15,1p,e14.6,a1,i3,a1,i3,a1,i3,a1,a15,1p,e14.6,a1,i3,a1,i3,a1,i3,a1)') '#', iter_count, &
00007 & ' Error psi=', error_psi, '(',ire_psi,',',ite_psi,',',ipe_psi,')', &
00008 & ' Error alph=', error_alph, '(',ire_alph,',',ite_alph,',',ipe_alph,')'
00009 end subroutine printout_error_all_metric
