SUBROUTINE EXTRA ( NOPT, PAR, NDV, NIV, IFLAG )
Argument Definitions (+ indicates altered content)
DOUBLE PRECISION  +PAR(*)
INTEGER            IFLAG,      NDV,        NIV,        NOPT
Description
Iflag = 1 : Set the vector PAR used in main program to the initial 
values of the extra parameters read in FCN at the initial step. 
Iflag > 1 : Update the vector of the extra parameters in FCN with the 
current values of PAR computed in main program during the iterations 
or at convergence.
Source file:extra.f
Intrinsic Functions Called
DOUBLE PRECISION   DSQRT
Local Variables (+ indicates altered content)
INTEGER           +IR,        +K,         +L
Referenced Common Block Variables (+ indicates altered content)
EXPAR              INTEGER            NPHI,      NUMGT(10,10)
EXPAR              INTEGER            NUMMU(10)
EXPAR              INTEGER            NUMPHI(10)
EXPAR              INTEGER            NUMST(10)
VALEXPAR           DOUBLE PRECISION  +GTETA(10,10)
VALEXPAR           DOUBLE PRECISION  +PHI(10),  +PMU(10)
VALEXPAR           DOUBLE PRECISION  +STETA(10)