module f77idiag;

exports

imports filedefs from filedefs;
imports f77init from f77init;

procedure dummyidiag;
procedure qidiag(lp,gp,acb,adiags:fsbit32; ddisp,mode,diag,asize,first:long;
                  var newacb:long);
                  
private
procedure dummyidiag;
begin
end;

procedure qidiag;
begin
writeln(curout^,'entering dummy qidiag');
end.