























      INTEGER     MAXNDT, MAXNEU, MAXLAY, IPS1,IPS2,IPS3,IPS4,IPS5
      PARAMETER   (MAXNDT=10000)
      PARAMETER   (MAXNEU=25)
      PARAMETER   (MAXLAY=10)
      PARAMETER   (IPS1=MAXNEU*MAXLAY)
      PARAMETER   (IPS2=MAXNEU*MAXNDT)
      PARAMETER   (IPS3=MAXNEU*MAXNEU)
      PARAMETER   (IPS4=MAXNEU*MAXNEU*MAXLAY)
      PARAMETER   (IPS5=MAXNEU+MAXNDT)
      LOGICAL     SHORT_CUT, NEURAL_FLAG(10)
      INTEGER     TESTSETLENGTH, DEBUG, LAYERS, LAWDTH, INWDTH
      REAL        STEPSIZE, SOFT_LIMIT, HARD_LIMIT, BEST_ERROR, 
     +            TEMP_ERROR
      REAL        INPUT_LAYER(MAXNEU),          
     +            NODES(MAXNEU,MAXLAY),
     +            TEST_DATA(MAXNEU,MAXNDT),     
     +            TEST_ANSWERS(MAXNDT),
     +            TOP_NEURONS(MAXNEU,MAXNEU),   
     +            NEURONS(MAXNEU,MAXNEU,MAXLAY),
     +            BOTTOM_NEURONS(MAXNEU),
     +            LINEAR_NEURONS(MAXNEU),
     +            DATA_WEIGHT(MAXNDT),
     +            ERRORHERE(MAXNDT)
      EQUIVALENCE (INPUT_LAYER(1),ESPACE(100001))
      EQUIVALENCE (NODES(1,1),ESPACE(100001+MAXNEU))
      EQUIVALENCE (TEST_DATA(1,1),ESPACE(100001+MAXNEU+IPS1))
      EQUIVALENCE (TEST_ANSWERS(1),ESPACE(100001+MAXNEU+IPS1+IPS2))
      EQUIVALENCE (TOP_NEURONS(1,1),ESPACE(100001+IPS1+IPS2+IPS5))
      EQUIVALENCE (NEURONS(1,1,1),ESPACE(100001+IPS1+IPS2+IPS3+IPS5))
      EQUIVALENCE (BOTTOM_NEURONS(1),ESPACE(100001+IPS1+IPS2+IPS3+
     +             IPS4+IPS5))
      EQUIVALENCE (DATA_WEIGHT(1),ESPACE(100001+IPS1+IPS2+IPS3+
     +             IPS4+IPS5+MAXNDT))
      EQUIVALENCE (LINEAR_NEURONS(1),ESPACE(100001+IPS1+IPS2+IPS3+
     +             IPS4+IPS5+2*MAXNDT))
      EQUIVALENCE (ERRORHERE(1),ESPACE(100001+IPS1+IPS2+IPS3+
     +             IPS4+IPS5+3*MAXNDT))

      COMMON /NEURONI/ DEBUG, INWDTH, LAWDTH, LAYERS

      COMMON /NEURONR/ STEPSIZE, TESTSETLENGTH, SOFT_LIMIT,
     +            HARD_LIMIT, BEST_ERROR, TEMP_ERROR

      COMMON /NEURONB/ SHORT_CUT, NEURAL_FLAG
