(*---------------------------------------------------------------------------
  :Program.    ArpLopt.mod
  :Author.     M2 implementation by Fridtjof Siebert
  :Address.    Nobileweg 67, D-7-Stgt-40
  :Shortcut.   [fbs]
  :Version.    1.0 (ARP version 34)
  :Date.       14-Jan-88
  :Copyright.  PD
  :Language.   Modula-II
  :Translator. M2Amiga v3.2d
  :History.    30-Dec-88 v0.1 created for ARP1.0          [fbs]
  :History.    14-Jan-88 v1.0 implementation for ARP1.1   [fbs]
  :History.    28-Sep-91 v1.1 split in ARPD AND ARPL for M2Amiga v4.0d
  :History.                   by Dieter WILHLEM
  :Contents.   Library Modul for arp.library.
  :Remark.     Contact me if your find errors. I wasn't able to all of it!
  :Remark.     Thanx to Martin Taillefer for his Benchmark ARP-code
---------------------------------------------------------------------------*)

IMPLEMENTATION MODULE ArpLopt;
  (*$ LargeVars:=FALSE *)

  FROM ExecL IMPORT CloseLibrary;

  BEGIN
    optArpLibBase := NIL;

  CLOSE
    IF optArpLibBase # NIL THEN
      CloseLibrary(optArpLibBase);
      optArpLibBase := NIL ;
    END;  (* IF *)

END ArpLopt.