trunk/minos54/mi00main.f

************************************************************************
*
*     File  mi00main fortran
*
************************************************************************
*                                                                      *
*                            M I N O S                                 *
*                                                                      *
*          A Modular In-core Nonlinear Optimization System             *
*                                                                      *
*               Version 5.4            10 Jul 1992                     *
*                                                                      *
*          Bruce A. Murtagh            Michael A. Saunders             *
*                                                                      *
*----------------------------------------------------------------------*
*                                                                      *
*                 Copyright  1992  Stanford University.                *
*                                                                      *
*     MINOS is distributed by OTL, Stanford University.  Enquiries     *
*     should be directed to one of the following addresses:            *
*                                                                      *
*     Office of Technology Licensing    Michael Saunders               *
*     857 Serra Street                  Dept of Operations Research    *
*     Stanford University               Stanford University            *
*     Stanford, CA 94305-6225           Stanford, CA 94305-4022        *
*                                                                      *
*     (415) 723-0651                    (415) 723-1875                 *
*                                                                      *
************************************************************************
*
*  MINOS Fortran source files:
*
*  1. mi00main   Main program
*  2. mi05funs   User routines
*  3. mi10mach   Machine-dependent routines
*  4. mi15blas   Basic Linear Algebra Subprograms (a subset)
*  5. mi20amat   Core allocation and manipulation of the ( A  I )
*  6. mi25bfac   Basis factorization routines
*  7. mi30spec   SPECS file routines
*  8. mi35inpt   MPS file routines
*  9. mi40bfil   Basis file and solution output routines
* 10. mi50lp     Routines for the primal simplex method
* 11. mi60srch   Routines for the linesearch and subproblem obj
* 12. mi65rmod   For maintaining R, the approximate reduced Hessian
* 13. mi70nobj   For handling a nonlinear objective function
*                via the reduced-gradient algorithm
* 14. mi80ncon   To handle nonlinear constraints
*                via the projected augmented Lagrangian algorithm
*+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

      program            MINOS

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

*     ------------------------------------------------------------------
*     This is the default main program for MINOS.
*     It provides all of the necessary workspace.
*     If your compiler wants all common blocks to be in the main program
*     (e.g. MACFORTRAN), grab them from subroutine misolv in file mi10..
*     ------------------------------------------------------------------

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

      call minos1( z, nwcore )

*     end of main program for stand-alone MINOS.
      end
1	************************************************************************
2	*
3	* File mi00main fortran
4	*
5	************************************************************************
6	* *
7	* M I N O S *
8	* *
9	* A Modular In-core Nonlinear Optimization System *
10	* *
11	* Version 5.4 10 Jul 1992 *
12	* *
13	* Bruce A. Murtagh Michael A. Saunders *
14	* *
15	----------------------------------------------------------------------
16	* *
17	* Copyright 1992 Stanford University. *
18	* *
19	* MINOS is distributed by OTL, Stanford University. Enquiries *
20	* should be directed to one of the following addresses: *
21	* *
22	* Office of Technology Licensing Michael Saunders *
23	* 857 Serra Street Dept of Operations Research *
24	* Stanford University Stanford University *
25	* Stanford, CA 94305-6225 Stanford, CA 94305-4022 *
26	* *
27	* (415) 723-0651 (415) 723-1875 *
28	* *
29	************************************************************************
30	*
31	* MINOS Fortran source files:
32	*
33	* 1. mi00main Main program
34	* 2. mi05funs User routines
35	* 3. mi10mach Machine-dependent routines
36	* 4. mi15blas Basic Linear Algebra Subprograms (a subset)
37	* 5. mi20amat Core allocation and manipulation of the ( A I )
38	* 6. mi25bfac Basis factorization routines
39	* 7. mi30spec SPECS file routines
40	* 8. mi35inpt MPS file routines
41	* 9. mi40bfil Basis file and solution output routines
42	* 10. mi50lp Routines for the primal simplex method
43	* 11. mi60srch Routines for the linesearch and subproblem obj
44	* 12. mi65rmod For maintaining R, the approximate reduced Hessian
45	* 13. mi70nobj For handling a nonlinear objective function
46	* via the reduced-gradient algorithm
47	* 14. mi80ncon To handle nonlinear constraints
48	* via the projected augmented Lagrangian algorithm
49	*+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
50
51	program MINOS
52
53	implicit double precision (a-h,o-z)
54
55	* ------------------------------------------------------------------
56	* This is the default main program for MINOS.
57	* It provides all of the necessary workspace.
58	* If your compiler wants all common blocks to be in the main program
59	* (e.g. MACFORTRAN), grab them from subroutine misolv in file mi10..
60	* ------------------------------------------------------------------
61
62	parameter (nwcore = 50000)
63	double precision z(nwcore)
64
65	call minos1( z, nwcore )
66
67	* end of main program for stand-alone MINOS.
68	end