3. general considerations for the analysis of case-control ... - IARC

302 APPENDIX IV
C UPON CONVERGENCE OF MAXIMUM ITERATIONS WRITE OUT RESULTS
GO TO 1
9 wRITEC~, 108)(B(J>, J=l ,NP)
108 FORMAT(' ESTIMATED PARNETER VECTOR',(/lX,lOF12.6))
WRITE(6,109>(SCORE(J), J=l ,NP)
109 FORMAT(' FIRST DERIVATIVE LOG-LIKELIHOOD', (/1X, 10F12.6))
WRITE(6,llO)
110 FOR~T(' INFORMATION MATRIX')
DO 10 J=l,NP
K=J::( J-1 )/2+1
JJ=J::(J+l)/?
10 WRITE(^, 111) (COVI(I), I=K, JJ)
111 FORMAT(lX, 10F12.6)
C INVERT INFORMATION M4TRIX WID WRITE OUT
C CALL SYM'[NV(COV I, NP, COV, W, NULLTY, I FAULT, NM1)
DO 600 I=l,NMl
COv(I)=CovI(I)
600 CONTINUE
CALL SINV(COV,IVP, EPS, IER)
IF (IER.NE.0) WRITE (6,501 )IER
WRITE(6,112)
112 FORM4T(' ESTIMATED COVARIANCE MATRIX')
DO 11 J=l,NP
K=J::( J- 1 )/ 2+ 1
JJ=J::(J+I )/2
SCORE(J~=B(J~/SQRT(COV(JJ))
11 WRITE(6,ll l)(COV(I), I=K, JJ)
WRITE(~,~~~)(SCORE(J), J=l ,NP)
113 FORMAT(' STANDARDIZED REGRESSION COEFFICIENTS',(/lX,1OOF12.6))
RETURN
END