trunk/minos54/minosl.f

************************************************************************
*
*     File  minosl   fortran.
*
*     MINOSL   funobj (+ dummy entries)
*
*+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

      program            MINOSL

      implicit           double precision (a-h,o-z)

*     ------------------------------------------------------------------
*     MINOSL and this version of funobj are simplified routines
*     for MINOS 5.4 when only linear programs are to be solved.
*     They should be used in conjunction with files
*           mi10mach, mi15blas, mi20amat, mi25bfac, mi30spec,
*           mi35inpt, mi40bfil, mi50lp  .
*     They are substitutes for files
*           mi00main, mi05funs, mi60srch, mi65rmod, mi70nobj, mi80ncon.
*     ------------------------------------------------------------------

      parameter           (nwcore = 100000)
      double precision   z(nwcore)

      call minos1( z, nwcore )

*     end of main program for MINOSL
      end

*+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

      subroutine funobj
      entry funcon
      entry matmod
      entry m6fobj
      entry m6fcon
      entry m6dmmy
      entry m6fun
      entry m6grd
      entry m6rdel
      entry m7chkg
      entry m7fixb
      entry m7rg
      entry m7rgit
      entry m8ajac
      entry m8augl
      entry m8chkj
      entry m8setj
      entry m8viol

*     end of dummy routines for MINOSL
      end
1	************************************************************************
2	*
3	* File minosl fortran.
4	*
5	* MINOSL funobj (+ dummy entries)
6	*
7	*+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
8
9	program MINOSL
10
11	implicit double precision (a-h,o-z)
12
13	* ------------------------------------------------------------------
14	* MINOSL and this version of funobj are simplified routines
15	* for MINOS 5.4 when only linear programs are to be solved.
16	* They should be used in conjunction with files
17	* mi10mach, mi15blas, mi20amat, mi25bfac, mi30spec,
18	* mi35inpt, mi40bfil, mi50lp .
19	* They are substitutes for files
20	* mi00main, mi05funs, mi60srch, mi65rmod, mi70nobj, mi80ncon.
21	* ------------------------------------------------------------------
22
23	parameter (nwcore = 100000)
24	double precision z(nwcore)
25
26	call minos1( z, nwcore )
27
28	* end of main program for MINOSL
29	end
30
31	*+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
32
33	subroutine funobj
34	entry funcon
35	entry matmod
36	entry m6fobj
37	entry m6fcon
38	entry m6dmmy
39	entry m6fun
40	entry m6grd
41	entry m6rdel
42	entry m7chkg
43	entry m7fixb
44	entry m7rg
45	entry m7rgit
46	entry m8ajac
47	entry m8augl
48	entry m8chkj
49	entry m8setj
50	entry m8viol
51
52	* end of dummy routines for MINOSL
53	end