C***************************************************************************
C             STURCTURE FILE FOR XOR
C
C        AUTHOR
C          JONATHAN C. BAKER
C        DATE
C          12 JUNE 1991
C        PURPOSE
C          TO PROVIDE STRUCTURE DEFINITIONS FOR XOR NUERAL NETWORK
C          AND SET UP RECORDS
C
C        LOCAL GLOSSARY
C          E             : NATURAL LOG
C          DELTA_WEIGHT  : CHANGE IN WEIGHT FROM LAYER TO LAYER
C          LEARN_DEF     : DEFUALT LEARNING COEFFICIENT
C          MAX_CASE      : MAXIMUM ALLOWED TRAINING CASES
C          MAX_NODES     : MAXIMUM ALLOWED NODES FOR ANY LAYER
C          MOMENTUM_DEF  : DEFAULT MOMENTUM
C          VALUE         : A NODE VALUE
C          WEIGHT_LIST   : ARRAY OF WEIGHTS FOR LOWER NODES
C
C***************************************************************************
C
C        PARAMETERS
C
         REAL*16     LEARN_DEF, MOMENTUM_DEF, E
         PARAMETER  (LEARN_DEF = 0.5)
         PARAMETER  (MOMENTUM_DEF = 0.9)
         PARAMETER  (E = 2.718281828459045)
         INTEGER    MAX_NODES, MAX_CASES
         PARAMETER  (MAX_NODES = 10)
         PARAMETER  (MAX_CASES = 100)
C
C        DEFINE STRUCTURES
C
         STRUCTURE /IN_LAYER/
             REAL*16  VALUE, WEIGHT_LIST(MAX_NODES)
         END STRUCTURE

         STRUCTURE /HID_LAYER/
             REAL*16  VALUE, WEIGHT_LIST(MAX_NODES), 
     1                DELTA_WEIGHT(0:MAX_NODES)
         END STRUCTURE

         STRUCTURE /OUT_LAYER/
             REAL*16  VALUE, DELTA_WEIGHT(0:MAX_NODES)
         END STRUCTURE
C
C        DEFINE RECORDS
C
         RECORD /IN_LAYER/   INPUT_NODE(0:MAX_NODES)
         RECORD /HID_LAYER/  HIDDEN_NODE(0:MAX_NODES)
         RECORD /OUT_LAYER/  OUTPUT_NODE(MAX_NODES)
C
C        END OF INCLUDE FILE
C
C***************************************************************************