Genometric Analysis Simulation Program (GASP)

Example 9 Data Output

Relevant portion of the driver used to format the output:

C  LOCAL DECLARATIONS
C
      CHARACTER*3       AFFSTAT
   .
   .
   .

C
C  WRITE THE SAMPLE INTO A FILE
C
      DO 2000, K = 1, P

        IF (TRAIT(1,K) .GE. 1.64) THEN 
            AFFSTAT = 'AFF'
          ELSE
            AFFSTAT = 'NOR'
        ENDIF

        IF (INCLUD(K)) WRITE (OUTPT2,9010) STDCDE(K),AFNUM(K),
     $                       AID(K),AFATHR(K),
     $                       AMOTHR(K),SEX(K),TRAIT(1,K),AFFSTAT,
     $                       (GENTYP(I,K),I=1,NUMLOC)
 9010   FORMAT (A4,A4,'.',A4,2(1X,A4),1X,A1,2X,F8.4,2X,A3,2(2X,A2))
 2000 CONTINUE
C

Simulated data (annotated):

Stdy Fam Ind  Fath Moth Sex  Liablty Qual Loc Mrk
 ID  ID  ID    ID   ID               trt   1   1

HGAR0001.0001           M    0.9109  NOR  12  22
HGAR0001.0002           F    0.7074  NOR  12  12
HGAR0001.0003 0001 0002 M   -0.0294  NOR  12  12
HGAR0001.0004 0001 0002 F    0.6419  NOR  22  12
HGAR0001.0005 0001 0002 F   -0.3908  NOR  12  12
HGAR0002.0001           M    0.5491  NOR  22  22
HGAR0002.0002           F    0.1806  NOR  12  12
HGAR0002.0003 0001 0002 M    0.7712  NOR  22  22
HGAR0002.0004 0001 0002 M    1.1020  NOR  22  22
HGAR0002.0005 0001 0002 F    2.3403  AFF  22  22
HGAR0003.0001           M    1.9709  AFF  22  12
HGAR0003.0002           F    0.8311  NOR  12  11
HGAR0003.0003 0001 0002 F    1.3048  NOR  22  11
HGAR0003.0004 0001 0002 M    0.5363  NOR  12  12
HGAR0003.0005 0001 0002 M    0.8880  NOR  12  11
       .
       .
       .

HGAR0100.0001           F   -0.3998  NOR  12  22
HGAR0100.0002           M   -0.1357  NOR  12  22
HGAR0100.0003 0002 0001 M    0.2602  NOR  12  22
HGAR0100.0004 0002 0001 M   -1.6299  NOR  11  22
HGAR0100.0005 0002 0001 F   -1.8823  NOR  11  22