+--------------------------------------------------------------------+
 |                                                                    |
 |               FINALIZATION EXAMPLE ($PRED AND $INFN)               |
 |                                                                    |
 +--------------------------------------------------------------------+

 This  example  contains  abbreviated  code  which can be inserted in a
 $PRED or $INFN block.  This code outputs  final  parameter  estimates,
 standard  errors,  minimum value of the objective function, and condi-
 tional estimates of etas to various user files.  The return codes from
 Estimation and Covariance steps (zero for normal termination) are also
 output.

  IF (ICALL.EQ.3) THEN                                                  |
    DO WHILE(DATA)                                                      |
    IF (NEWIND.LE.1) WRITE (50,*) ETA                                   |
    ENDDO                                                               |
    WRITE (51,*) OBJECT                                                 |
    WRITE (52,*) THETA                                                  |
    WRITE (52,*) THETAFR                                                |
    WRITE (53,*) SETHET                                                 |
    WRITE (53,*) SETHETR                                                |
    WRITE (54,*) OMEGA(BLOCK)                                           |
    WRITE (55,*) SEOMEG(BLOCK)                                          |
    WRITE (56,*) SIGMA(BLOCK)                                           |
    WRITE (57,*) SESIGM(BLOCK)                                          |
    WRITE (58,*) IERE,IERC                                              |
  ENDIF                                                                 |

REFERENCES: Guide VI Section VI.A


  
Go to main index.
  

    Created by nmhelp2html v. 1.0 written by Niclas Jonsson (Modified by AJB 5/2006,11/2007,10/2012)