[method,ierr,iout,nfail,istdo,iter,err]=duterr(method,ierr,iout,nfail,istdo,iter,err);

function [method,ierr,iout,nfail,istdo,iter,err]=duterr(method,ierr,iout,nfail,istdo,iter,err);

if( ierr~=0 )
nfail = fix(nfail + 1);
end;
if( iout==1 && ierr~=0 )
writef(istdo,[repmat(' ',1,1),'%6s',' : **** FAILURE ****' ' \n'], method);
%format (1X,a6,' : **** FAILURE ****');
end;
if( iout==2 )
if( ierr==0 )
writef(istdo,[repmat(' ',1,1),'%6s',' : **** PASSED  ****' ' \n'], method);
%format (1X,a6,' : **** PASSED  ****');
else;
writef(istdo,[' * WARNING ***', '\n ' ,' **** ','%6s',' Quick Test FAILED: IERR = ','%5i',' ****', '\n ' ,' * WARNING ***', '\n ' ,' Iteration Count = ','%3i',' Stop Test = ',repmat('%f',1,1),'%12.6f' ' \n'], method , ierr , iter , err);
end;
end;
if( iout>=3 )
if( ierr==0 )
writef(istdo,[' ** PASSED ***', '\n ' ,' **** ','%6s',' Quick Test PASSED: IERR = ','%5i',' ****', '\n ' ,' ** PASSED ***', '\n ' ,' Iteration Count = ','%3i',' Stop Test = ',repmat('%f',1,1),'%12.6f' ' \n'], method , ierr , iter , err);
%format (' ** PASSED ***'/' **** ',a6,' Quick Test PASSED: IERR = ',i5,' ****'/' ** PASSED ***'/' Iteration Count = ',i3,' Stop Test = ',1P,d12.6);
else;
writef(istdo,[' * WARNING ***', '\n ' ,' **** ','%6s',' Quick Test FAILED: IERR = ','%5i',' ****', '\n ' ,' * WARNING ***', '\n ' ,' Iteration Count = ','%3i',' Stop Test = ',repmat('%f',1,1),'%12.6f' ' \n'], method , ierr , iter , err);
end;
end;
return;
%format (' * WARNING ***'/' **** ',a6,' Quick Test FAILED: IERR = ',i5,' ****'/' * WARNING ***'/' Iteration Count = ',i3,' Stop Test = ',1P,d12.6);
end %subroutine duterr