
Example 7 Data Output
Relevant portion of the driver used to format the output:
C
C WRITE THE SAMPLE INTO A FILE
C
DO 2000, K = 1, P
IF (INCLUD(K)) WRITE (OUTPT2,9010) STDCDE(K),AFNUM(K),
$ AID(K),AFATHR(K),
$ AMOTHR(K),SEX(K),
$ (GENTYP(I,K),I=1,NUMLOC)
9010 FORMAT (A4,A4,'.',A4,2(1X,A4),1X,A1,3(3X,A2))
2000 CONTINUE
C
Simulated data (annotated):
Stdy Fam Ind Fath Moth Sex Mrk Qual Mrk
ID ID ID ID ID 1 trt 2
HGAR0001.0001 M 22 aa 12
HGAR0001.0002 F 22 Aa 12
HGAR0001.0003 0001 0002 F 22 aa 12
HGAR0001.0004 F 22 aa 22
HGAR0001.0005 M 22 aa 22
HGAR0001.0006 0005 0004 M 22 aa 22
HGAR0001.0007 0006 0003 M 22 aa 12
HGAR0001.0008 0006 0003 F 22 aa 12
HGAR0001.0009 0006 0003 M 22 aa 22
HGAR0002.0001 F 11 AA 22
HGAR0002.0002 M 12 aa 22
HGAR0002.0003 0002 0001 M 11 Aa 22
HGAR0002.0004 F 12 Aa 22
HGAR0002.0005 M 12 aa 22
HGAR0002.0006 0005 0004 F 22 Aa 22
HGAR0002.0007 0003 0006 F 12 Aa 22
HGAR0002.0008 0003 0006 M 12 AA 22
HGAR0002.0009 0003 0006 M 12 Aa 22
HGAR0003.0001 M 12 Aa 22
HGAR0003.0002 F 12 Aa 22
HGAR0003.0003 0001 0002 M 12 AA 22
HGAR0003.0004 F 22 AA 22
HGAR0003.0005 M 12 Aa 22
HGAR0003.0006 0005 0004 F 12 Aa 22
HGAR0003.0007 0003 0006 F 11 Aa 22
HGAR0003.0008 0003 0006 M 12 Aa 22
HGAR0003.0009 0003 0006 M 22 AA 22
.
.
.
HGAR0020.0001 F 11 Aa 12
HGAR0020.0002 M 11 aa 22
HGAR0020.0003 0002 0001 M 11 aa 22
HGAR0020.0004 F 12 Aa 22
HGAR0020.0005 M 12 Aa 12
HGAR0020.0006 0005 0004 F 12 Aa 12
HGAR0020.0007 0003 0006 F 11 Aa 22
HGAR0020.0008 0003 0006 F 11 Aa 22
HGAR0020.0009 0003 0006 F 11 Aa 22
|