STRUCTURE /backstrdata/
         INTEGER backpointr(NU_NO)
         INTEGER BACKSTR1(NU_LI)
         INTEGER IDES
         REAL    BACKSTR2(NU_LI)
         END STRUCTURE
      
      STRUCTURE /deque/
         INTEGER StatusInDeque(NU_NO)
         INTEGER FirstDeque
         INTEGER DequeLabel2(NU_NO,K_SP,7)
         INTEGER DequeLabelCounter(NU_NO,7)
         INTEGER LastDeque
         REAL    DequeLabel1(NU_NO,K_SP,7)
         END STRUCTURE
      
      STRUCTURE /desin/
         INTEGER labelforods(10,7,2)
         ENDSTRUCTURE
      
      STRUCTURE /forwardstar/
         INTEGER   npoint(NU_NO+1)
         INTEGER*2 ifwdarc(NU_LI,2)
         END STRUCTURE
      
      STRUCTURE /labeld/
         REAL Label(NU_NO,K_SP,7)
         REAL FirstLabel(NU_NO,7)
         INTEGER*2 Ndummy
         INTEGER*2 LabelPointer(NU_NO,K_SP,7)
         INTEGER*2 Nd2,Nd3
         INTEGER*2 FirstGoodLabel(NU_NO,7)
         INTEGER*2 PathPointer(NU_NO,K_SP,3,7)
         END STRUCTURE
      
      STRUCTURE /networkd/
         INTEGER noofdestinations
         INTEGER noofnodes
         INTEGER nzones
         INTEGER nlinks
         INTEGER Destin
         INTEGER NoOfArcs
         INTEGER Destination(NU_ZN)
         
         INTEGER ides
         END STRUCTURE
      
      STRUCTURE /outputd/
         REAL      labelout(NU_ZN,NU_NO,K_SP,7)
         INTEGER*2 pathpointerout(NU_ZN,NU_NO,K_SP,3,7)
         INTEGER*2 labelpointerout(NU_ZN,NU_NO,K_SP,7)
         END STRUCTURE
      
      STRUCTURE /linkoutputd/
         REAL      labelout(NU_ZN,NU_LI,K_SP)
         INTEGER*2 pathpointerout(NU_ZN,NU_LI,K_SP,2)
         INTEGER*2 labelpointerout(NU_ZN,NU_LI,K_SP)
         END STRUCTURE
      
      STRUCTURE /param/
         INTEGER kay
         END STRUCTURE
      
      STRUCTURE /pen/
         REAL penalty(NU_LI,7)
         END STRUCTURE
      
      STRUCTURE /updatedata/
         LOGICAL update(7,11)
         LOGICAL kcurrent
         END STRUCTURE
         
      STRUCTURE /Sp_Data/
         
         RECORD /backstrdata/ bsd
         RECORD /deque/       dq
         RECORD /desin/       dsn
         RECORD /forwardstar/ fs
         RECORD /labeld/      ld
         RECORD /networkd/    nd
cr       RECORD /outputd/     od
         RECORD /linkoutputd/ lod
         RECORD /param/       p
         RECORD /pen/         pn
         RECORD /updatedata/  ud
         
         END STRUCTURE