17.01.2014 Views

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

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

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

SHOW MORE
SHOW LESS

Create successful ePaper yourself

Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.

332 APPENDIX VI<br />

C<br />

C<br />

C<br />

C<br />

C<br />

C<br />

REDUCE NON-PIVOT ROWS<br />

380 DO 550 L1=1,N<br />

390 IF(L1-ICOLUM) 400, 550, 400<br />

400 T=A(LI, ICOLUM)<br />

420 A(L1, ICOLUM=O .O<br />

430 DO 450 L=1,N<br />

450 A(LI, L)=A(LI, L)-A(ICOLUM, L,)::T<br />

455 IF(M) 550, 550, 460<br />

460 DO 500 L=1,M<br />

500 B(LI, L)=B(LI, L)-BOCOLUM, LFT<br />

550 CONTINUE<br />

INTERCHANGE COLUMNS<br />

600 DO 710 I=l,N<br />

610 L=N+1-I<br />

620 IF (INDEXCL, I)-IRIDEx(L,~)) 630, 710, 630<br />

630 JROW=INDEX(L, 1)<br />

640 JCOLUM=INDEX(L,2)<br />

650 DO 705 K=1,N<br />

660 SWAP=A(K, JROW)<br />

670 A(K,JROW)=A(K,JCOLUM)<br />

700 A(K, JCOLUM)=SWAP<br />

705 COlVTINUE<br />

710 CONTINUE<br />

740 RETURN<br />

E hlD

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!