!  EPLA  : an ILAP routine which will generate a PLA from an equation file
! via a table file, generated by sTABLE. This table is then passed to TPLA
! which generates the required ILAP pla. The table file is then deleted.

%include "ilap:nmos.inc"
%include "vdev_i:plautils.inc"
%external %routine %spec delete (%string(255) file)
%const %string (255) temp file = "$TEMP.TBL"

{#########################################################################}
{#                                                                       #}
{#      This program is part of the ILAP library, and was written in     #}
{#   The Department of Computer Science at the University of Edinburgh   #}
{#       (James Clerk Maxwell Building, Kings Buildings, Edinburgh)      #}
{#                                                                       #}
{#   This software is available free to other educational establisments  #}
{#   but the University of Edinburgh, retains all commercial rights.     #}
{#   It is a condition of having this software is that the sources are   #}
{#   not passed on to any other site, and that Edinburgh University is   #}
{#   given credit in any re-implementations of any of the algorithms     #}
{#   used, or articles published which refer to the software.            #}
{#                                                                       #}
{#   There is no formal support for this software, but any bugs should   #}
{#   be reported to Gordon Hughes or David Rees at the above address,    #}
{#   and these are likely to be fixed in a future release.               #}
{#                                                                       #}
{#########################################################################}

%external %routine sepla %alias "ILAP_SEPLA" (%string (31) symbol name,
   %string (255) file, %integer mode,
   %integer %array %name ispec,%integer %array %name ospec,
   %integer %name phi1y, phi2y,
   %integer %array %name inx,%integer %array %name outx)

   sTABLE( file."/".temp file , false )
   stpla ( symbol name, temp file, mode, ispec, ospec, phi1y, phi2y, inx, outx )
   delete (temp file)
%end

%external %routine epla %alias "ILAP_EPLA" (%string (31) symbol name,
   %string (255) file, %integer %name phi1y, phi2y,
   %integer %array %name inx,%integerarrayname outx)
   %integer %array none (1:1)

   sTABLE( file."/".temp file , false )
   stpla ( symbol name, temp file, 0, none, none, phi1y, phi2y, inx, outx )
   delete (temp file)
%end

%end %of %file