module f77rmess;

exports

imports f77init from f77init;

procedure dummyrmess;
procedure qrmess(i:long;var flag,len:long;var errmess:string);
                  
private
procedure dummyrmess;
begin
end;

procedure qrmess;
begin
writeln(curout^,'calling ssmess',i:4);
end.