*
* $Id: mnexin.fdoc,v 1.1 2002/05/14 15:32:56 mf Exp $
*
* $Log: mnexin.fdoc,v $
* Revision 1.1  2002/05/14 15:32:56  mf
* Added Minuit source, plus other stuff from a year ago.
*
* Revision 1.1.1.1  1996/03/07 14:31:29  mclareni
* Minuit
*
*
#include "minuit/pilot.h"
      SUBROUTINE MNEXIN(PINT)
#include "minuit/d506dp.inc"
CC        Transforms the external parameter values U to internal
CC        values in the dense array PINT. Subroutine MNPINT is used.
CC
#include "minuit/d506cm.inc"
      DIMENSION PINT(*)
      LIMSET = .FALSE.
      DO 100  IINT= 1, NPAR
		NPAR is the number of internal parameters
      IEXT = NEXOFI(IINT)
		An array lookup
      CALL MNPINT(U(IEXT),IEXT,PINTI)
		Figure out from U(iext), the external value of this 
		parameter, the internal value (PINTI) 
      PINT(IINT) = PINTI
  100 CONTINUE
		So now PINT is the array of internal values of each 
		internal variable, indexed by internal parameter number.
      RETURN
      END