[lun,icnt,itest_v]=pass(lun,icnt,itest_v);

function [lun,icnt,itest_v]=pass(lun,icnt,itest_v);

if( itest_v~=0 )
writef(lun,[ '\n ' ,' TEST NUMBER','%5i',' PASSED' ' \n'], icnt);
%format [' TEST NUMBER',i5,' PASSED');
else;
writef(lun,[ '\n ' ,' TEST NUMBER','%5i',' FAILED' ' \n'], icnt);
%format [' TEST NUMBER',i5,' FAILED');
end;
return;
end %subroutine pass