
Example 8 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),TRAIT(1,K),
$ (GENTYP(I,K),I=1,NUMLOC)
9010 FORMAT (A4,A4,'.',A4,2(1X,A4),1X,A1,2X,F8.4,2(2X,A2))
2000 CONTINUE
C
Simulated data (annotated):
Stdy Fam Ind Fath Moth Sex Trait1 Loc Loc
ID ID ID ID ID 1 2
HGAR0001.0003 0002 0001 F -0.3452 11 22
HGAR0001.0004 0002 0001 F -1.0439 12 12
HGAR0001.0005 0002 0001 M -1.7702 11 12
HGAR0001.0006 0002 0001 F 0.2152 11 12
HGAR0001.0007 0002 0001 M -1.8323 12 11
HGAR0002.0003 0002 0001 M 1.3952 22 22
HGAR0002.0004 0002 0001 F 1.0232 22 22
HGAR0003.0003 0002 0001 F 2.1337 22 22
HGAR0004.0003 0002 0001 M 0.7013 22 12
HGAR0005.0003 0001 0002 M -3.1718 11 11
HGAR0006.0003 0001 0002 M 1.3672 22 12
HGAR0006.0004 0001 0002 M -0.5096 12 12
HGAR0006.0005 0001 0002 M -0.1851 22 12
HGAR0007.0003 0001 0002 M 0.5323 12 12
HGAR0007.0004 0001 0002 F -0.2258 12 12
.
.
.
HGAR0099.0003 0001 0002 F -0.0481 11 12
HGAR0099.0004 0001 0002 F -2.1032 11 11
HGAR0099.0005 0001 0002 F -1.9879 11 11
HGAR0100.0003 0002 0001 M 0.6616 11 22
HGAR0100.0004 0002 0001 F -0.1041 12 12
|