! PLAUTILS include file

%external %routine %spec pla %alias "ILAP_PLA" ( %string(31) symbol,
     %integer mode,
     %integer %array %name ispec,
     %integer %array %name ospec,
     %integer ins, outs, feeds, prods,
     %integer %array %name and,
     %integer %array %name or,
     %integer %name phi1y, phi2y,
     %integer %array %name inx,
     %integer %array %name outx )

%external %routine %spec npla %alias "ILAP_NPLA" ( %string(31) name,
     %integer mode,
     %integer %array %name ispec,
     %integer %array %name ospec,
     %integer ins, outs, feeds, prods,
     %integer %array %name and,
     %integer %array %name or,
     %integer %name phi1y, phi2y,
     %integer %array %name inx,
     %integer %array %name outx )

%external %routine %spec sTABLE %alias "ILAP_STABLE" %c
   ( %string(255) spec, %integer diags )

%external %routine %spec parse filespec %alias "ILAP_PARSE_FILESPEC" %c
   ( %string(255) a, b, c, %string(*) %name d, e, %integer %name f, g )


%external %routine %spec read to terminator %alias "ILAP_READ_TO_TERMINATOR" %c
  ( %string(*)%name s, %integer %name t )

%external %routine %spec get ilap table %alias "ILAP_GET_TABLE" %c
   ( %byte %array (2) %name table, %string (*) %array %name names,
     %integer %array %name feedback, %integer %name ins, outs, feeds, prods,
     %string (15) error id )

%external %routine %spec order table %alias "ILAP_ORDER_TABLE" %c
   ( %byte %array (2) %name table, %string(*)%array %name names,
     %integer %array %name feedback, %integer ins, outs, feeds, prods )

! Global constants
%constant %integer max names = 200
%constant %integer max prods = 600
%constant %integer diags = false
%end %of %file