Changeset 6258 for branches/2015/dev_r5803_UKMO_AGRIF_Vert_interp

Timestamp:

2016-01-15T13:11:56+01:00 (8 years ago)

Author:

timgraham

Message:

First inclusion of Laurent Debreu's modified code for vertical refinement.
Still a lot of outstanding issues:
1) conv preprocessor fails for limrhg.F90 at the moment (for now I've run without ice model)
2) conv preprocessor fails for STO code - removed this code from testing for now
3) conv preprocessor fails for cpl_oasis.F90 - can work round this by modifying code but the preprocessor should be fixed to deal with this.

After that code compiles and can be run for horizontal grid refinement. Not yet working for vertical refinement.

Location:

branches/2015/dev_r5803_UKMO_AGRIF_Vert_interp/NEMOGCM

Files:

• EXTERNAL/AGRIF/AGRIF_FILES/modarrays.F90 (modified) (8 diffs)
• EXTERNAL/AGRIF/AGRIF_FILES/modbc.F90 (modified) (3 diffs)
• EXTERNAL/AGRIF/AGRIF_FILES/modbcfunction.F90 (modified) (17 diffs)
• EXTERNAL/AGRIF/AGRIF_FILES/modcluster.F90 (modified) (1 diff)
• EXTERNAL/AGRIF/AGRIF_FILES/modcurgridfunctions.F90 (modified) (3 diffs)
• EXTERNAL/AGRIF/AGRIF_FILES/modinitvars.F90 (modified) (1 diff)
• EXTERNAL/AGRIF/AGRIF_FILES/modinterp.F90 (modified) (8 diffs)
• EXTERNAL/AGRIF/AGRIF_FILES/modinterpbasic.F90 (modified) (1 diff)
• EXTERNAL/AGRIF/AGRIF_FILES/modlinktomodel.F90 (modified) (3 diffs)
• EXTERNAL/AGRIF/AGRIF_FILES/modmask.F90 (modified) (1 diff)
• EXTERNAL/AGRIF/AGRIF_FILES/modmpp.F90 (modified) (7 diffs)
• EXTERNAL/AGRIF/AGRIF_FILES/modsauv.F90 (modified) (1 diff)
• EXTERNAL/AGRIF/AGRIF_FILES/modtypes.F90 (modified) (4 diffs)
• EXTERNAL/AGRIF/AGRIF_FILES/modupdate.F90 (modified) (4 diffs)
• EXTERNAL/AGRIF/AGRIF_FILES/modupdatebasic.F90 (modified) (1 diff)
• EXTERNAL/AGRIF/AGRIF_FILES/modutil.F90 (modified) (5 diffs)
• EXTERNAL/AGRIF/AGRIF_FILES/modvariables.F90 (modified) (1 diff)
• EXTERNAL/AGRIF/LIB/DiversListe.c (modified) (3 diffs)
• EXTERNAL/AGRIF/LIB/Makefile (modified) (1 diff)
• EXTERNAL/AGRIF/LIB/SubLoopCreation.c (modified) (21 diffs)
• EXTERNAL/AGRIF/LIB/UtilAgrif.c (modified) (1 diff)
• EXTERNAL/AGRIF/LIB/UtilFortran.c (modified) (5 diffs)
• EXTERNAL/AGRIF/LIB/UtilListe.c (modified) (10 diffs)
• EXTERNAL/AGRIF/LIB/WorkWithlistdatavariable.c (modified) (5 diffs)
• EXTERNAL/AGRIF/LIB/WorkWithlistvarindoloop.c (modified) (16 diffs)
• EXTERNAL/AGRIF/LIB/WriteInFile.c (modified) (1 diff)
• EXTERNAL/AGRIF/LIB/Writedeclarations.c (modified) (25 diffs)
• EXTERNAL/AGRIF/LIB/decl.h (modified) (12 diffs)
• EXTERNAL/AGRIF/LIB/fortran.c (modified) (53 diffs)
• EXTERNAL/AGRIF/LIB/main.c (modified) (59 diffs)
• EXTERNAL/AGRIF/LIB/toamr.c (modified) (17 diffs)
• NEMO/NST_SRC/agrif_oce.F90 (modified) (5 diffs)
• NEMO/NST_SRC/agrif_opa_interp.F90 (modified) (13 diffs)
• NEMO/NST_SRC/agrif_opa_update.F90 (modified) (12 diffs)
• NEMO/NST_SRC/agrif_user.F90 (modified) (12 diffs)
• NEMO/OPA_SRC/DIA/diawri.F90 (modified) (2 diffs)
• NEMO/OPA_SRC/DOM/domain.F90 (modified) (1 diff)
• NEMO/OPA_SRC/DOM/domvvl.F90 (modified) (3 diffs)
• NEMO/OPA_SRC/DOM/domzgr.F90 (modified) (5 diffs)
• NEMO/OPA_SRC/DYN/dynhpg.F90 (modified) (1 diff)
• NEMO/OPA_SRC/DYN/dynspg_flt.F90 (modified) (1 diff)
• NEMO/OPA_SRC/SOL/solmat.F90 (modified) (1 diff)
• NEMO/OPA_SRC/TRA/trazdf_imp.F90 (modified) (1 diff)
• NEMO/OPA_SRC/TRD/trdglo.F90 (modified) (3 diffs)
• NEMO/OPA_SRC/TRD/trdmxl.F90 (modified) (2 diffs)
• NEMO/OPA_SRC/nemogcm.F90 (modified) (1 diff)

branches/2015/dev_r5803_UKMO_AGRIF_Vert_interp/NEMOGCM/EXTERNAL/AGRIF/AGRIF_FILES/modarrays.F90

@@ -1 +1 @@
 !
-! $Id$
+! $Id: modarrays.F 662 2007-05-25 15:58:52Z opalod $
 !
 !     AGRIF (Adaptive Grid Refinement In Fortran)
@@ -55 +55 @@
                                proc_id,         &
                                coords,          &
-                               lb_tab_true, ub_tab_true, memberin )
+                               lb_tab_true, ub_tab_true, memberin,  &
+                               indminglob3,indmaxglob3)
 !---------------------------------------------------------------------------------------------------
     integer,                   intent(in)  :: nbdim         !< Number of dimensions
@@ -61 +62 @@
     integer, dimension(nbdim), intent(in)  :: ub_var        !< Local upper boundary on the current processor
     integer, dimension(nbdim), intent(in)  :: lb_tab        !< Global lower boundary of the variable
+    integer, dimension(nbdim),OPTIONAL     :: indminglob3,indmaxglob3 !< True bounds for MPI USE
     integer, dimension(nbdim), intent(in)  :: ub_tab        !< Global upper boundary of the variable
     integer,                   intent(in)  :: proc_id       !< Current processor
@@ -78 +80 @@
         call Agrif_InvLoc( lb_var(i), proc_id, coord_i, lb_glob_index )
         call Agrif_InvLoc( ub_var(i), proc_id, coord_i, ub_glob_index )
+        if (present(indminglob3)) then
+          indminglob3(i)=lb_glob_index
+          indmaxglob3(i)=ub_glob_index
+        endif
 #else
         lb_glob_index = lb_var(i)
@@ -84 +90 @@
         lb_tab_true(i) = max(lb_tab(i), lb_glob_index)
         ub_tab_true(i) = min(ub_tab(i), ub_glob_index)
+
     enddo
 !
@@ -123 +130 @@
 !
     iminmaxg(1:nbdim,2) = - iminmaxg(1:nbdim,2)
-    call MPI_ALLREDUCE(iminmaxg, lubglob, 2*nbdim, MPI_INTEGER, MPI_MIN, Agrif_mpi_comm, code)
+    call MPI_ALLREDUCE(iminmaxg, lubglob, 2*nbdim, MPI_INTEGER, MPI_MIN, &
+                       Agrif_mpi_comm, code)
     lubglob(1:nbdim,2)  = - lubglob(1:nbdim,2)
 #endif
@@ -803 +811 @@
     do i = 1,nbdim
 !
+     if (coords(i) == 0) then
+       nbloc(i) = 1
+       locbounds(i,1,1) = lb_glob(i)
+       locbounds(i,2,1) = ub_glob(i)
+       locbounds(i,1,2) = lb_glob(i)
+       locbounds(i,2,2) = ub_glob(i)
+     else
         call Agrif_InvLoc(lb_var(i), rank, coords(i), i1)
 !
@@ -816 +831 @@
             endif
         enddo
+     endif
     enddo
 

branches/2015/dev_r5803_UKMO_AGRIF_Vert_interp/NEMOGCM/EXTERNAL/AGRIF/AGRIF_FILES/modbc.F90

@@ -1 +1 @@
 !
-! $Id$
+! $Id: modbc.F 779 2007-12-22 17:04:17Z rblod $
 !
 !     AGRIF (Adaptive Grid Refinement In Fortran)
@@ -148 +148 @@
     REAL   , DIMENSION(nbdim)   :: ds_Child, ds_Parent  !< Space steps of the parent and child grids
     INTEGER                             :: nbdim        !< Number of dimensions of the grid variable
-    procedure()                         :: procname     !< Data recovery procedure
+    procedure()                           :: procname     !< Data recovery procedure
 !
     INTEGER,DIMENSION(6)                :: type_interp     ! Type of interpolation (linear, spline,...)
@@ -171 +171 @@
 #endif
 !
+
     type_interp_bc = child % root_var % type_interp_bc
     coords         = child % root_var % coords

branches/2015/dev_r5803_UKMO_AGRIF_Vert_interp/NEMOGCM/EXTERNAL/AGRIF/AGRIF_FILES/modbcfunction.F90

@@ -1 +1 @@
 !
-! $Id$
+! $Id: modbcfunction.F 779 2007-12-22 17:04:17Z rblod $
 !
 !     AGRIF (Adaptive Grid Refinement In Fortran)
@@ -53 +53 @@
 !> To set the TYPE of the variable
 !---------------------------------------------------------------------------------------------------
-subroutine Agrif_Set_parent_int(tabvarsindic,value)
-!---------------------------------------------------------------------------------------------------
-    integer, intent(in)     :: tabvarsindic !< indice of the variable in tabvars
+subroutine Agrif_Set_parent_int(integer_variable,value)
+!---------------------------------------------------------------------------------------------------
+    integer, intent(in)     :: integer_variable !< indice of the variable in tabvars
     integer, intent(in)     :: value        !< input value
 !
-    Agrif_Curgrid % parent % tabvars_i(tabvarsindic) % iarray0 = value
+
+integer :: i
+logical :: i_found
+
+i_found = .FALSE.
+
+do i=1,Agrif_NbVariables(4)
+  if (LOC(integer_variable) == LOC(agrif_curgrid%tabvars_i(i)%iarray0)) then
+     agrif_curgrid%tabvars_i(i)%parent_var%iarray0 = value
+     i_found = .TRUE.
+     EXIT
+  endif
+enddo
+
+if (.NOT.i_found) STOP 'Agrif_Set_Integer : Variable not found'
+
 !---------------------------------------------------------------------------------------------------
 end subroutine Agrif_Set_parent_int
@@ -66 +81 @@
 !  subroutine Agrif_Set_parent_real4
 !---------------------------------------------------------------------------------------------------
-!> To set the TYPE of the variable
-!---------------------------------------------------------------------------------------------------
-subroutine Agrif_Set_parent_real4 ( tabvarsindic, value )
-!---------------------------------------------------------------------------------------------------
-    integer, intent(in)     :: tabvarsindic !< indice of the variable in tabvars
-    real(kind=4),intent(in) :: value        !< input value
-!
-    Agrif_Curgrid % parent % tabvars_r(tabvarsindic) % array0 = value
-    Agrif_Curgrid % parent % tabvars_r(tabvarsindic) % sarray0 = value
+!> To set the parent value of a real variable
+!---------------------------------------------------------------------------------------------------
+subroutine Agrif_Set_parent_real4 ( real_variable, value )
+!---------------------------------------------------------------------------------------------------
+    real(kind=4), intent(in)     :: real_variable !< input variable
+    real(kind=4),intent(in) :: value        !< input value for the parent grid
+
+integer :: i
+logical :: i_found
+
+i_found = .FALSE.
+
+do i=1,Agrif_NbVariables(2)
+  if (LOC(real_variable) == LOC(agrif_curgrid%tabvars_r(i)%array0)) then
+     agrif_curgrid%tabvars_r(i)%parent_var%array0 = value
+     agrif_curgrid%tabvars_r(i)%parent_var%sarray0 = value
+     i_found = .TRUE.
+     EXIT
+  endif
+enddo
+
+IF (.NOT.i_found) THEN
+do i=1,Agrif_NbVariables(2)
+  if (LOC(real_variable) == LOC(agrif_curgrid%tabvars_r(i)%sarray0)) then
+     agrif_curgrid%tabvars_r(i)%parent_var%array0 = value
+     agrif_curgrid%tabvars_r(i)%parent_var%sarray0 = value
+     i_found = .TRUE.
+     EXIT
+  endif
+enddo
+ENDIF
+
+if (.NOT.i_found) STOP 'Agrif_Set_parent_real4 : Variable not found'
 !---------------------------------------------------------------------------------------------------
 end subroutine Agrif_Set_parent_real4
@@ -82 +121 @@
 !  subroutine Agrif_Set_parent_real8
 !---------------------------------------------------------------------------------------------------
-!> To set the TYPE of the variable
-!---------------------------------------------------------------------------------------------------
-subroutine Agrif_Set_parent_real8 ( tabvarsindic, value )
-!---------------------------------------------------------------------------------------------------
-    integer, intent(in)     :: tabvarsindic !< indice of the variable in tabvars
-    real(kind=8),intent(in) :: value        !< input value
-!
-    Agrif_Curgrid % parent % tabvars_r(tabvarsindic) % darray0 = value
+!> To set the parent value of a real variable
+!---------------------------------------------------------------------------------------------------
+subroutine Agrif_Set_parent_real8 ( real_variable, value )
+!---------------------------------------------------------------------------------------------------
+    real(kind=8), intent(in)     :: real_variable !< input variable
+    real(kind=8),intent(in) :: value        !< input value for the parent grid
+
+integer :: i
+logical :: i_found
+
+i_found = .FALSE.
+
+do i=1,Agrif_NbVariables(2)
+  if (LOC(real_variable) == LOC(agrif_curgrid%tabvars_r(i)%array0)) then
+     agrif_curgrid%tabvars_r(i)%parent_var%darray0 = value
+     agrif_curgrid%tabvars_r(i)%parent_var%array0 = value
+     i_found = .TRUE.
+     EXIT
+  endif
+enddo
+
+IF (.NOT.i_found) THEN
+do i=1,Agrif_NbVariables(2)
+  if (LOC(real_variable) == LOC(agrif_curgrid%tabvars_r(i)%darray0)) then
+     agrif_curgrid%tabvars_r(i)%parent_var%darray0 = value
+     agrif_curgrid%tabvars_r(i)%parent_var%array0 = value
+     i_found = .TRUE.
+     EXIT
+  endif
+enddo
+ENDIF
+
+if (.NOT.i_found) STOP 'Agrif_Set_parent_real8 : Variable not found'
+
 !---------------------------------------------------------------------------------------------------
 end subroutine Agrif_Set_parent_real8
@@ -106 +171 @@
     type(Agrif_Variable),  pointer  :: var
 !
-    indic = Agrif_Curgrid % tabvars_i(tabvarsindic) % iarray0
-!
-    if (indic <= 0) then
-        var => Agrif_Search_Variable(Agrif_Curgrid,-indic)
-    else
-        print*,"Agrif_Set_bc : warning indic >= 0 !!!"
-        var => Agrif_Curgrid % tabvars(indic)
-    endif
-
+    var => Agrif_Search_Variable(Agrif_Curgrid,tabvarsindic)
     if (.not.associated(var)) return ! Grand mother grid case
 !
@@ -145 +202 @@
     type(Agrif_Variable), pointer   :: var
 !
-    indic = Agrif_Curgrid % tabvars_i(tabvarsindic) % iarray0
-!
-    if (indic <= 0) then
-        var => Agrif_Search_Variable(Agrif_Mygrid,-indic)
-    else
-        print*,"Agrif_Set_interp : warning indic >= 0 !!!"
-        var => Agrif_Mygrid % tabvars(indic)
-    endif
+    var => Agrif_Search_Variable(Agrif_Curgrid,tabvarsindic)
+    if (.not.associated(var)) return ! Grand mother grid case
 !
     var % type_interp = Agrif_Constant
@@ -178 +229 @@
     TYPE(Agrif_Variable), pointer   :: var
 !
-    indic = Agrif_Curgrid%tabvars_i(tabvarsindic)%iarray0
-!
-    if (indic <= 0) then
-        var => Agrif_Search_Variable(Agrif_Mygrid,-indic)
-    else
-        print*,"Agrif_Set_bcinterp : warning indic >= 0 !!!"
-        var => Agrif_Mygrid % tabvars(indic)
-    endif
+    var => Agrif_Search_Variable(Agrif_Curgrid,tabvarsindic)
 !
     var % type_interp_bc = Agrif_Constant
@@ -214 +258 @@
     type(Agrif_Variable),  pointer  :: root_var
 !
-    indic = Agrif_Curgrid%tabvars_i(tabvarsindic)%iarray0
-!
-    if (indic <= 0) then
-        root_var => Agrif_Search_Variable(Agrif_Mygrid,-indic)
-    else
-        print*,"Agrif_Set_UpdateType : warning indic >= 0 !!!"
-        root_var => Agrif_Mygrid % tabvars(indic)
-    endif
+
+        root_var => Agrif_Search_Variable(Agrif_Mygrid,tabvarsindic)
+
 !
     root_var % type_update = Agrif_Update_Copy
@@ -243 +282 @@
     INTEGER :: indic  !  indice of the variable in tabvars
 !
+print *,'CURRENTLY BROKEN'
+STOP
+
     indic = Agrif_Curgrid%tabvars_i(tabvarsindic)%iarray0
 !
@@ -283 +325 @@
     type(Agrif_Variable), pointer :: child_var
     type(Agrif_Variable), pointer :: child_tmp      ! Temporary variable on the child grid
+    integer :: i
+    integer,dimension(7) :: lb, ub
 !
     if ( Agrif_Curgrid%level <= 0 ) return
 !
-    indic = Agrif_Curgrid%tabvars_i(tabvarsindic)%iarray0
 !
     if ( present(calledweight) ) then
@@ -296 +339 @@
     endif
 !
-    if (indic <= 0) then
-        child_var  => Agrif_Search_Variable(Agrif_Curgrid,-indic)
+        child_var  => Agrif_Search_Variable(Agrif_Curgrid,tabvarsindic)
         parent_var => child_var % parent_var
         root_var   => child_var % root_var
-    else
-        print*,"Agrif_Bc_variable : warning indic >= 0 !!!"
-        child_var  => Agrif_Curgrid % tabvars(indic)
-        parent_var => Agrif_Curgrid % parent % tabvars(indic)
-        root_var   => Agrif_Mygrid % tabvars(indic)
-    endif
 !
     nbdim = root_var % nbdim
 !
+    do i=1,nbdim
+      if (root_var%coords(i) == 0) then
+        lb(i) = parent_var%lb(i)
+        ub(i) = parent_var%ub(i)
+      else
+        lb(i) = child_var%lb(i)
+        ub(i) = child_var%ub(i)
+      endif
+    enddo
+
     select case( nbdim )
     case(1)
-        allocate(parray1(child_var%lb(1):child_var%ub(1)))
+        allocate(parray1(lb(1):ub(1)))
     case(2)
-        allocate(parray2(child_var%lb(1):child_var%ub(1), &
-                         child_var%lb(2):child_var%ub(2) ))
+        allocate(parray2(lb(1):ub(1), &
+                         lb(2):ub(2) ))
     case(3)
-        allocate(parray3(child_var%lb(1):child_var%ub(1), &
-                         child_var%lb(2):child_var%ub(2), &
-                         child_var%lb(3):child_var%ub(3) ))
+        allocate(parray3(lb(1):ub(1), &
+                         lb(2):ub(2), &
+                         lb(3):ub(3) ))
     case(4)
-        allocate(parray4(child_var%lb(1):child_var%ub(1), &
-                         child_var%lb(2):child_var%ub(2), &
-                         child_var%lb(3):child_var%ub(3), &
-                         child_var%lb(4):child_var%ub(4) ))
+        allocate(parray4(lb(1):ub(1), &
+                         lb(2):ub(2), &
+                         lb(3):ub(3), &
+                         lb(4):ub(4) ))
     case(5)
-        allocate(parray5(child_var%lb(1):child_var%ub(1), &
-                         child_var%lb(2):child_var%ub(2), &
-                         child_var%lb(3):child_var%ub(3), &
-                         child_var%lb(4):child_var%ub(4), &
-                         child_var%lb(5):child_var%ub(5) ))
+        allocate(parray5(lb(1):ub(1), &
+                         lb(2):ub(2), &
+                         lb(3):ub(3), &
+                         lb(4):ub(4), &
+                         lb(5):ub(5) ))
     case(6)
-        allocate(parray6(child_var%lb(1):child_var%ub(1), &
-                         child_var%lb(2):child_var%ub(2), &
-                         child_var%lb(3):child_var%ub(3), &
-                         child_var%lb(4):child_var%ub(4), &
-                         child_var%lb(5):child_var%ub(5), &
-                         child_var%lb(6):child_var%ub(6) ))
+        allocate(parray6(lb(1):ub(1), &
+                         lb(2):ub(2), &
+                         lb(3):ub(3), &
+                         lb(4):ub(4), &
+                         lb(5):ub(5), &
+                         lb(6):ub(6) ))
     end select
 !
@@ -402 +448 @@
     if ( Agrif_Curgrid%level <= 0 ) return
 !
-    indic = Agrif_Curgrid%tabvars_i(tabvarsindic)%iarray0
-!
-    if (indic <= 0) then
-        child_var  => Agrif_Search_Variable(Agrif_Curgrid,-indic)
+
+        child_var  => Agrif_Search_Variable(Agrif_Curgrid,tabvarsindic)
         parent_var => child_var % parent_var
         root_var   => child_var % root_var
-    else
-        print*,"Agrif_Interp_variable : warning indic >= 0 !!!"
-        child_var  => Agrif_Curgrid % tabvars(indic)
-        parent_var => Agrif_Curgrid % parent % tabvars(indic)
-        root_var   => Agrif_Mygrid % tabvars(indic)
-    endif
+
 !
     nbdim     = root_var % nbdim
@@ -486 +525 @@
     if (agrif_curgrid%grand_mother_grid) return
 !
-    indic = Agrif_Curgrid%tabvars_i(tabvarsindic)%iarray0
-!
-    if (indic <= 0) then
-        child_var  => Agrif_Search_Variable(Agrif_Curgrid, -indic)
+
+        child_var  => Agrif_Search_Variable(Agrif_Curgrid, tabvarsindic)
         parent_var => child_var % parent_var
 
         if (.not.associated(parent_var)) then
           ! can occur during the first update of Agrif_Coarsegrid (if any)
-          parent_var => Agrif_Search_Variable(Agrif_Curgrid % parent, -indic)
+          parent_var => Agrif_Search_Variable(Agrif_Curgrid % parent, tabvarsindic)
           child_var % parent_var => parent_var
         endif
 
         root_var   => child_var % root_var
-    else
-        print*,"Agrif_Update_Variable : warning indic >= 0 !!!"
-        root_var   => Agrif_Mygrid  % tabvars(indic)
-        child_var  => Agrif_Curgrid % tabvars(indic)
-        parent_var => Agrif_Curgrid % parent % tabvars(indic)
-    endif
+
 !
     nbdim = root_var % nbdim
@@ -551 +583 @@
     integer :: nbdim
 !
+print *,'CURRENTLY BROKEN'
+STOP
     root_var => Agrif_Mygrid % tabvars(tabvarsindic0)
     save_var => Agrif_Curgrid % tabvars(tabvarsindic0)
@@ -575 +609 @@
     integer                         :: indic
 !
+print *,'CURRENTLY BROKEN'
+STOP
     indic = tabvarsindic
     if (tabvarsindic >= 0) then
@@ -612 +648 @@
     integer                         :: indic
 !
+print *,'CURRENTLY BROKEN'
+STOP
+
     indic = tabvarsindic
     if (tabvarsindic >= 0) then
@@ -650 +689 @@
     integer                         :: indic
 !
+print *,'CURRENTLY BROKEN'
+STOP
     indic = tabvarsindic
     if (tabvarsindic >= 0) then

branches/2015/dev_r5803_UKMO_AGRIF_Vert_interp/NEMOGCM/EXTERNAL/AGRIF/AGRIF_FILES/modcluster.F90

@@ -1 +1 @@
 !
-! $Id$
+! $Id: modcluster.F 662 2007-05-25 15:58:52Z opalod $
 !
 !     AGRIF (Adaptive Grid Refinement In Fortran)

branches/2015/dev_r5803_UKMO_AGRIF_Vert_interp/NEMOGCM/EXTERNAL/AGRIF/AGRIF_FILES/modcurgridfunctions.F90

@@ -1 +1 @@
 !
-! $Id$
+! $Id: modcurgridfunctions.F 774 2007-12-18 16:45:53Z rblod $
 !
 !     AGRIF (Adaptive Grid Refinement In Fortran)
@@ -29 +29 @@
     implicit none
 !
+
+    interface Agrif_Parent
+        module procedure Agrif_Parent_Real_4,   &
+                         Agrif_Parent_Real_8,   &
+                         Agrif_Parent_Integer, &
+                         Agrif_Parent_Character, &
+                         Agrif_Parent_Logical
+    end interface
+    
 contains
 !
@@ -763 +772 @@
 !===================================================================================================
 !
+
+function Agrif_Parent_Real_4(real_variable) result(real_variable_parent)
+real(KIND=4) :: real_variable
+real(KIND=4) :: real_variable_parent
+
+integer :: i
+logical :: i_found
+
+i_found = .FALSE.
+
+do i=1,Agrif_NbVariables(2)
+  if (LOC(real_variable) == LOC(agrif_curgrid%tabvars_r(i)%array0)) then
+     real_variable_parent = agrif_curgrid%tabvars_r(i)%parent_var%array0
+     i_found = .TRUE.
+     EXIT
+  endif
+enddo
+
+IF (.NOT.i_found) THEN
+do i=1,Agrif_NbVariables(2)
+  if (LOC(real_variable) == LOC(agrif_curgrid%tabvars_r(i)%sarray0)) then
+     real_variable_parent = agrif_curgrid%tabvars_r(i)%parent_var%sarray0
+     i_found = .TRUE.
+     EXIT
+  endif
+enddo
+ENDIF
+
+if (.NOT.i_found) STOP 'Agrif_Parent_Real_4 : Variable not found'
+
+end function Agrif_Parent_Real_4
+
+function Agrif_Parent_Real_8(real_variable) result(real_variable_parent)
+real(KIND=8) :: real_variable
+real(KIND=8) :: real_variable_parent
+
+integer :: i
+logical :: i_found
+
+i_found = .FALSE.
+
+do i=1,Agrif_NbVariables(2)
+  if (LOC(real_variable) == LOC(agrif_curgrid%tabvars_r(i)%array0)) then
+     real_variable_parent = agrif_curgrid%tabvars_r(i)%parent_var%array0
+     i_found = .TRUE.
+     EXIT
+  endif
+enddo
+
+IF (.NOT.i_found) THEN
+do i=1,Agrif_NbVariables(2)
+  if (LOC(real_variable) == LOC(agrif_curgrid%tabvars_r(i)%darray0)) then
+     real_variable_parent = agrif_curgrid%tabvars_r(i)%parent_var%darray0
+     i_found = .TRUE.
+     EXIT
+  endif
+enddo
+ENDIF
+
+if (.NOT.i_found) STOP 'Agrif_Parent_Real_8 : Variable not found'
+
+end function Agrif_Parent_Real_8
+
+function Agrif_Parent_Integer(integer_variable) result(integer_variable_parent)
+integer :: integer_variable
+integer :: integer_variable_parent
+
+integer :: i
+logical :: i_found
+
+i_found = .FALSE.
+
+do i=1,Agrif_NbVariables(4)
+  if (LOC(integer_variable) == LOC(agrif_curgrid%tabvars_i(i)%iarray0)) then
+     integer_variable_parent = agrif_curgrid%tabvars_i(i)%parent_var%iarray0
+     i_found = .TRUE.
+     EXIT
+  endif
+enddo
+
+if (.NOT.i_found) STOP 'Agrif_Parent : Variable not found'
+
+end function Agrif_Parent_Integer
+
+function Agrif_Parent_Character(character_variable) result(character_variable_parent)
+character(*) :: character_variable
+character(len(character_variable)) :: character_variable_parent
+
+integer :: i
+logical :: i_found
+
+i_found = .FALSE.
+
+do i=1,Agrif_NbVariables(1)
+  if (LOC(character_variable) == LOC(agrif_curgrid%tabvars_c(i)%carray0)) then
+     character_variable_parent = agrif_curgrid%tabvars_c(i)%parent_var%carray0
+     i_found = .TRUE.
+     EXIT
+  endif
+enddo
+
+if (.NOT.i_found) STOP 'Agrif_Parent : Variable not found'
+
+end function Agrif_Parent_Character
+
+function Agrif_Parent_Logical(logical_variable) result(logical_variable_parent)
+logical :: logical_variable
+logical :: logical_variable_parent
+
+integer :: i
+logical :: i_found
+
+i_found = .FALSE.
+
+do i=1,Agrif_NbVariables(3)
+  if (LOC(logical_variable) == LOC(agrif_curgrid%tabvars_l(i)%larray0)) then
+     logical_variable_parent = agrif_curgrid%tabvars_l(i)%parent_var%larray0
+     i_found = .TRUE.
+     EXIT
+  endif
+enddo
+
+if (.NOT.i_found) STOP 'Agrif_Parent : Variable not found'
+
+end function Agrif_Parent_Logical
+
+function Agrif_Irhox() result(i_val)
+integer :: i_val
+i_val = agrif_curgrid%spaceref(1)
+end function Agrif_Irhox
+
+function Agrif_Irhoy() result(i_val)
+integer :: i_val
+i_val = agrif_curgrid%spaceref(2)
+end function Agrif_Irhoy
+
+function Agrif_Irhoz() result(i_val)
+integer :: i_val
+i_val = agrif_curgrid%spaceref(3)
+end function Agrif_Irhoz
+
+function Agrif_NearCommonBorderX() result(l_val)
+logical :: l_val
+l_val = agrif_curgrid%nearRootBorder(1)
+end function Agrif_NearCommonBorderX
+
+function Agrif_NearCommonBorderY() result(l_val)
+logical :: l_val
+l_val = agrif_curgrid%nearRootBorder(2)
+end function Agrif_NearCommonBorderY
+
+function Agrif_NearCommonBorderZ() result(l_val)
+logical :: l_val
+l_val = agrif_curgrid%nearRootBorder(3)
+end function Agrif_NearCommonBorderZ
+
+function Agrif_DistantCommonBorderX() result(l_val)
+logical :: l_val
+l_val = agrif_curgrid%DistantRootBorder(1)
+end function Agrif_DistantCommonBorderX
+
+function Agrif_DistantCommonBorderY() result(l_val)
+logical :: l_val
+l_val = agrif_curgrid%DistantRootBorder(2)
+end function Agrif_DistantCommonBorderY
+
+function Agrif_DistantCommonBorderZ() result(l_val)
+logical :: l_val
+l_val = agrif_curgrid%DistantRootBorder(3)
+end function Agrif_DistantCommonBorderZ
+
+function Agrif_Ix() result(i_val)
+integer :: i_val
+i_val = agrif_curgrid%ix(1)
+end function Agrif_Ix
+
+function Agrif_Iy() result(i_val)
+integer :: i_val
+i_val = agrif_curgrid%ix(2)
+end function Agrif_Iy
+
+function Agrif_Iz() result(i_val)
+integer :: i_val
+i_val = agrif_curgrid%ix(3)
+end function Agrif_Iz
+
+function Agrif_Get_grid_id() result(i_val)
+integer :: i_val
+i_val = agrif_curgrid % grid_id
+end function Agrif_Get_grid_id
+
+function Agrif_Get_parent_id() result(i_val)
+integer :: i_val
+i_val = agrif_curgrid % parent % grid_id
+end function Agrif_Get_parent_id
+
+function Agrif_rhox() result(r_val)
+real :: r_val
+r_val = real(agrif_curgrid%spaceref(1))
+end function Agrif_rhox
+
+function Agrif_rhoy() result(r_val)
+real :: r_val
+r_val = real(agrif_curgrid%spaceref(2))
+end function Agrif_rhoy
+
+function Agrif_rhoz() result(r_val)
+real :: r_val
+r_val = real(agrif_curgrid%spaceref(3))
+end function Agrif_rhoz
+
+function Agrif_Nb_Step() result(i_val)
+integer :: i_val
+i_val = agrif_curgrid%ngridstep
+end function Agrif_Nb_Step
+
+function Agrif_Nb_Fine_Grids() result(i_val)
+integer :: i_val
+i_val = Agrif_nbfixedgrids
+end function Agrif_Nb_Fine_Grids
+
 end module Agrif_CurgridFunctions

branches/2015/dev_r5803_UKMO_AGRIF_Vert_interp/NEMOGCM/EXTERNAL/AGRIF/AGRIF_FILES/modinitvars.F90

@@ -1 +1 @@
 !
-! $Id$
+! $Id: modinitvars.F 662 2007-05-25 15:58:52Z opalod $
 !
 !     Agrif (Adaptive Grid Refinement In Fortran)

branches/2015/dev_r5803_UKMO_AGRIF_Vert_interp/NEMOGCM/EXTERNAL/AGRIF/AGRIF_FILES/modinterp.F90

@@ -1 +1 @@
 !
-! $Id$
+! $Id: modinterp.F 779 2007-12-22 17:04:17Z rblod $
 !
 !     AGRIF (Adaptive Grid Refinement In Fortran)
@@ -132 +132 @@
 #if defined AGRIF_MPI
     INTEGER, DIMENSION(nbdim)     :: indminglob2,indmaxglob2
+    INTEGER, DIMENSION(nbdim)     :: indminglob3,indmaxglob3
 #endif
     LOGICAL, DIMENSION(nbdim)     :: noraftab
@@ -148 +149 @@
     INTEGER, DIMENSION(nbdim,4,0:Agrif_Nbprocs-1)   :: tab4
     INTEGER, DIMENSION(nbdim,0:Agrif_Nbprocs-1,8)   :: tab4t
+    INTEGER,DIMENSION(nbdim,2) :: tab5
+    INTEGER,DIMENSION(nbdim,2,0:Agrif_Nbprocs-1) :: tab6
+    INTEGER,DIMENSION(nbdim,0:Agrif_Nbprocs-1,2) :: tab5t
     LOGICAL, DIMENSION(0:Agrif_Nbprocs-1)           :: memberinall
     LOGICAL, DIMENSION(0:Agrif_Nbprocs-1)           :: sendtoproc1, recvfromproc1
@@ -205 +209 @@
         call Agrif_Childbounds(nbdim,lowerbound,upperbound,                 &
                                indminglob,indmaxglob, local_proc, coords,   &
-                               indminglob2,indmaxglob2,member)
+                               indminglob2,indmaxglob2,member,              &
+                               indminglob3,indmaxglob3)
 !
         if (member) then
@@ -224 +229 @@
         member = .TRUE.
 #endif
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+! Correct for non refined directions
+!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+        do i=1,nbdim
+          if (coords(i) == 0) then
+             indmin(i) = indminglob(i)
+             indmax(i) = indmaxglob(i)
+             pttruetab(i) = indminglob(i)
+             cetruetab(i) = indmaxglob(i)
+          endif
+        enddo
 
     else
@@ -298 +314 @@
         tab3(:,3) = indmin(:)
         tab3(:,4) = indmax(:)
+        tab5(:,1) = indminglob3(:)
+        tab5(:,2) = indmaxglob3(:)
 !
         call MPI_ALLGATHER(tab3,4*nbdim,MPI_INTEGER,tab4,4*nbdim,MPI_INTEGER,Agrif_mpi_comm,code)
-
+        call MPI_ALLGATHER(tab5,2*nbdim,MPI_INTEGER,tab6,2*nbdim,MPI_INTEGER,Agrif_mpi_comm,code)
         if (.not.associated(tempPextend))   allocate(tempPextend)
 
@@ -311 +329 @@
         enddo
 
+        do k=0,Agrif_Nbprocs-1
+          do j=1,2
+            do i=1,nbdim
+               tab5t(i,k,j) = tab6(i,j,k)
+            enddo
+          enddo
+        enddo
+      
         memberin1(1) = memberin
         call MPI_ALLGATHER(memberin1,1,MPI_LOGICAL,memberinall,1,MPI_LOGICAL,Agrif_mpi_comm,code)
@@ -319 +345 @@
                                      sendtoproc1,recvfromproc1,         &
                                      tab4t(:,:,5),tab4t(:,:,6),         &
-                                     tab4t(:,:,7),tab4t(:,:,8) )
+                                     tab4t(:,:,7),tab4t(:,:,8),         &
+                                     tab5t(:,:,1),tab5t(:,:,2))
     endif
 

branches/2015/dev_r5803_UKMO_AGRIF_Vert_interp/NEMOGCM/EXTERNAL/AGRIF/AGRIF_FILES/modinterpbasic.F90

@@ -1 +1 @@
 !
-! $Id$
+! $Id: modinterpbasic.F 779 2007-12-22 17:04:17Z rblod $
 !
 !     AGRIF (Adaptive Grid Refinement In Fortran)

branches/2015/dev_r5803_UKMO_AGRIF_Vert_interp/NEMOGCM/EXTERNAL/AGRIF/AGRIF_FILES/modlinktomodel.F90

@@ -80 +80 @@
 !                    Agrif_Curgrid % spaceref(1)
 !===================================================================================================
-!  function Agrif_Parent_Irhox
-!        modify by conv. To use : var = Agrif_Parent_IRhox()
-!                    Agrif_Curgrid % parent % spaceref(1)
-!===================================================================================================
 !  function Agrif_Rhoy
 !        modify by conv. To use : var = Agrif_Rhoy()
@@ -96 +92 @@
 !                    Agrif_Curgrid % spaceref(2)
 !===================================================================================================
-!  function Agrif_Parent_Irhoy
-!        modify by conv. To use : var = Agrif_Parent_IRhoy()
-!                    Agrif_Curgrid % parent % spaceref(2)
+
+
 !===================================================================================================
 !  function Agrif_Rhoz
@@ -111 +106 @@
 !        modify by conv. To use : var = Agrif_Parent_IRhoz()
 !                    Agrif_Curgrid % spaceref(3)
-!===================================================================================================
-!  function Agrif_Parent_Irhoz
-!        modify by conv. To use : var = Agrif_Parent_IRhoz()
-!                    Agrif_Curgrid % parent % spaceref(3)
+
 !===================================================================================================
 !  function Agrif_NearCommonBorderX

branches/2015/dev_r5803_UKMO_AGRIF_Vert_interp/NEMOGCM/EXTERNAL/AGRIF/AGRIF_FILES/modmask.F90

@@ -1 +1 @@
 !
-! $Id$
+! $Id: modmask.F 779 2007-12-22 17:04:17Z rblod $
 !
 !     AGRIF (Adaptive Grid Refinement In Fortran)

branches/2015/dev_r5803_UKMO_AGRIF_Vert_interp/NEMOGCM/EXTERNAL/AGRIF/AGRIF_FILES/modmpp.F90

@@ -1 +1 @@
 !
-! $Id$
+! $Id: modmpp.F 779 2007-12-22 17:04:17Z rblod $
 !
 !     AGRIF (Adaptive Grid Refinement In Fortran)
@@ -166 +166 @@
 subroutine Get_External_Data_first ( pttruetab, cetruetab, pttruetabwhole, cetruetabwhole,  &
                                      nbdim, memberoutall, coords, sendtoproc, recvfromproc, &
-                                     imin, imax, imin_recv, imax_recv )
+                                     imin, imax, imin_recv, imax_recv, bornesmin, bornesmax )
 !---------------------------------------------------------------------------------------------------
     include 'mpif.h'
@@ -179 +179 @@
     integer, dimension(nbdim,0:Agrif_NbProcs-1), intent(out) :: imin,imax
     integer, dimension(nbdim,0:Agrif_NbProcs-1), intent(out) :: imin_recv,imax_recv
+    integer, dimension(nbdim,0:Agrif_NbProcs-1), intent(in) :: bornesmin, bornesmax
 !
     integer :: imintmp, imaxtmp, i, j, k, i1
@@ -211 +212 @@
             IF (cetruetab(i,Agrif_Procrank) > cetruetab(i,k)) THEN
                 DO j=imin1,imax1
-                    IF ((cetruetab(i,k)-j) > (j-pttruetab(i,Agrif_Procrank))) THEN
+                    IF ((bornesmax(i,k)-j) > (j-bornesmin(i,Agrif_Procrank))) THEN
                         imintmp = j+1
                         tochange = .TRUE.
@@ -228 +229 @@
             IF (pttruetab(i,Agrif_Procrank) < pttruetab(i,k)) THEN
                 DO j=imax1,imin1,-1
-                    IF ((j-pttruetab(i,k)) > (cetruetab(i,Agrif_Procrank)-j)) THEN
+                    IF ((j-bornesmin(i,k)) > (bornesmax(i,Agrif_Procrank)-j)) THEN
                         imaxtmp = j-1
                         tochange = .TRUE.
@@ -248 +249 @@
         sendtoproc(k) = .true.
 !
+        IF ( .not. memberoutall(k) ) THEN
+            sendtoproc(k) = .false.
+        ELSE
 !CDIR SHORTLOOP
         do i = 1,nbdim
@@ -257 +261 @@
             endif
         enddo
-        IF ( .not. memberoutall(k) ) THEN
-            sendtoproc(k) = .false.
         ENDIF
     enddo

branches/2015/dev_r5803_UKMO_AGRIF_Vert_interp/NEMOGCM/EXTERNAL/AGRIF/AGRIF_FILES/modsauv.F90

@@ -1 +1 @@
 !
-! $Id$
+! $Id: modsauv.F 662 2007-05-25 15:58:52Z opalod $
 !
 !     AGRIF (Adaptive Grid Refinement In Fortran)

branches/2015/dev_r5803_UKMO_AGRIF_Vert_interp/NEMOGCM/EXTERNAL/AGRIF/AGRIF_FILES/modtypes.F90

@@ -109 +109 @@
     real(4), dimension(:,:,:,:,:,:), allocatable :: sarray6
 !> @}
+!> \name Arrays containing the values of the grid variables (real)
+!> @{
+    real,    dimension(:)          , pointer :: parray1
+    real,    dimension(:,:)        , pointer :: parray2
+    real,    dimension(:,:,:)      , pointer :: parray3
+    real,    dimension(:,:,:,:)    , pointer :: parray4
+    real,    dimension(:,:,:,:,:)  , pointer :: parray5
+    real,    dimension(:,:,:,:,:,:), pointer :: parray6
+!> @}
+!> \name Arrays containing the values of the grid variables (real*8)
+!> @{
+    real(8), dimension(:)          , pointer :: pdarray1
+    real(8), dimension(:,:)        , pointer :: pdarray2
+    real(8), dimension(:,:,:)      , pointer :: pdarray3
+    real(8), dimension(:,:,:,:)    , pointer :: pdarray4
+    real(8), dimension(:,:,:,:,:)  , pointer :: pdarray5
+    real(8), dimension(:,:,:,:,:,:), pointer :: pdarray6
+!> @}
+!> \name Arrays containing the values of the grid variables (real*4)
+!> @{
+    real(4), dimension(:)          , pointer :: psarray1
+    real(4), dimension(:,:)        , pointer :: psarray2
+    real(4), dimension(:,:,:)      , pointer :: psarray3
+    real(4), dimension(:,:,:,:)    , pointer :: psarray4
+    real(4), dimension(:,:,:,:,:)  , pointer :: psarray5
+    real(4), dimension(:,:,:,:,:,:), pointer :: psarray6
+!> @}
 !> \name Arrays used to restore the values
 !> @{
@@ -153 +180 @@
 !> \name Arrays containing the values of the grid variables (character)
 !> @{
-    character(2400)                             :: carray0
-    character(200), dimension(:)  , allocatable :: carray1
-    character(200), dimension(:,:), allocatable :: carray2
+    character(4000)                             :: carray0
+    character(400), dimension(:)  , allocatable :: carray1
+    character(400), dimension(:,:), allocatable :: carray2
 !> @}
 !---------------------------------------------------------------------------------------------------
@@ -218 +245 @@
 !> \name Arrays containing the values of the grid variables (logical)
 !> @{
-    logical                                      :: larray0
+    logical                                      :: larray0 = .FALSE.
     logical, dimension(:)          , allocatable :: larray1
     logical, dimension(:,:)        , allocatable :: larray2
@@ -242 +269 @@
 !> \name Arrays containing the values of the grid variables (integer)
 !> @{
-    integer                                      :: iarray0
+    integer                                      :: iarray0 = 0
     integer, dimension(:)          , allocatable :: iarray1
     integer, dimension(:,:)        , allocatable :: iarray2

branches/2015/dev_r5803_UKMO_AGRIF_Vert_interp/NEMOGCM/EXTERNAL/AGRIF/AGRIF_FILES/modupdate.F90

@@ -1 +1 @@
 !
-! $Id$
+! $Id: modupdate.F 779 2007-12-22 17:04:17Z rblod $
 !
 !     AGRIF (Adaptive Grid Refinement In Fortran)
@@ -390 +390 @@
 #endif
 !
-    integer, dimension(6),     intent(in)   :: type_update  !< Type of update (copy or average)
     type(Agrif_Variable), pointer           :: parent       !< Variable of the parent grid
     type(Agrif_Variable), pointer           :: child        !< Variable of the child grid
     integer,                   intent(in)   :: nbdim
+    integer, dimension(nbdim), intent(in)   :: type_update  !< Type of update (copy or average)
     integer, dimension(nbdim), intent(in)   :: pttab        !< Index of the first point inside the domain
     integer, dimension(nbdim), intent(in)   :: petab        !< Index of the first point inside the domain
@@ -582 +582 @@
                                      nbdim, memberinall, coords,                            &
                                      sendtoproc1,recvfromproc1,                             &
-                                     tab4t(:,:,5),tab4t(:,:,6),tab4t(:,:,7),tab4t(:,:,8))
+                                     tab4t(:,:,5),tab4t(:,:,6),tab4t(:,:,7),tab4t(:,:,8),   &
+                                     tab4t(:,:,1),tab4t(:,:,2))
     endif
 
@@ -1154 +1155 @@
                                      nbdim, memberinall2, coords,                           &
                                      sendtoproc2, recvfromproc2,                            &
-                                     tab5t(:,:,5),tab5t(:,:,6),tab5t(:,:,7),tab5t(:,:,8))
+                                     tab5t(:,:,5),tab5t(:,:,6),tab5t(:,:,7),tab5t(:,:,8),   &
+                                     tab5t(:,:,1),tab5t(:,:,2))
 
         call Agrif_Addto_list_update(child%list_update,pttab,petab,lb_child,lb_parent,      &

branches/2015/dev_r5803_UKMO_AGRIF_Vert_interp/NEMOGCM/EXTERNAL/AGRIF/AGRIF_FILES/modupdatebasic.F90

@@ -1 +1 @@
 !
-! $Id$
+! $Id: modupdatebasic.F 779 2007-12-22 17:04:17Z rblod $
 !
 !     AGRIF (Adaptive Grid Refinement In Fortran)

branches/2015/dev_r5803_UKMO_AGRIF_Vert_interp/NEMOGCM/EXTERNAL/AGRIF/AGRIF_FILES/modutil.F90

@@ -1 +1 @@
 !
-! $Id$
+! $Id: modutil.F 662 2007-05-25 15:58:52Z opalod $
 !
 !     Agrif (Adaptive Grid Refinement In Fortran)
@@ -108 +108 @@
 !---------------------------------------------------------------------------------------------------
 end subroutine Agrif_Step_Child
+!===================================================================================================
+!
+!===================================================================================================
+!  subroutine Agrif_Step_Childs
+!
+!> Apply 'procname' to each child grids of the current grid
+!---------------------------------------------------------------------------------------------------
+!     **************************************************************************
+!!!   Subroutine Agrif_Step_Childs
+!     **************************************************************************
+!
+      Subroutine Agrif_Step_Childs(procname)
+!
+    procedure(step_proc)    :: procname     !< subroutine to call on each grid
+!     Pointer argument
+      Type(Agrif_Grid),pointer   :: g        ! Pointer on the current grid
+!
+
+!
+!     Local pointer
+      Type(Agrif_pgrid),pointer  :: parcours ! Pointer for the recursive
+                                             ! procedure
+!
+      g => Agrif_Curgrid
+      
+      parcours => g % child_list % first
+!
+!     Recursive procedure for the time integration of the grid hierarchy      
+      Do while (associated(parcours))
+!
+!       Instanciation of the variables of the current grid
+        Call Agrif_Instance(parcours % gr)
+
+!     One step on the current grid
+
+         Call procname ()
+        parcours => parcours % next
+      enddo
+   
+      If (associated(g % child_list % first)) Call Agrif_Instance (g)
+      Return
+      End Subroutine Agrif_Step_Childs
 !===================================================================================================
 !
@@ -538 +580 @@
 !===================================================================================================
 !
+!===================================================================================================
+!
 !
 !===================================================================================================
@@ -587 +631 @@
 #ifdef AGRIF_MPI
     else
-#endif    
 ! Continue only if the grid has defined sequences of child integrations.
     if ( .not. associated(save_grid % child_seq) ) return
@@ -610 +653 @@
 !
     enddo
-#ifdef AGRIF_MPI
     endif
 #endif 

branches/2015/dev_r5803_UKMO_AGRIF_Vert_interp/NEMOGCM/EXTERNAL/AGRIF/AGRIF_FILES/modvariables.F90

@@ -99 +99 @@
     Agrif_Curgrid % Nbvariables = Agrif_Curgrid % Nbvariables + 1
 
-    varid = -Agrif_Curgrid % Nbvariables
+    varid = Agrif_Curgrid % Nbvariables
 
     var % parent_var => Agrif_Search_Variable(Agrif_Curgrid % parent, Agrif_Curgrid % nbvariables)

branches/2015/dev_r5803_UKMO_AGRIF_Vert_interp/NEMOGCM/EXTERNAL/AGRIF/LIB/DiversListe.c

@@ -479 +479 @@
         strcpy(newvar->var->v_nomvar,name);
         strcpy(newvar->var->v_modulename,curmodulename);
+        if (strcasecmp(curmodulename,""))
+        {
+        newvar->var->v_module=1;
+        }
         strcpy(newvar->var->v_subroutinename,subroutinename);
         strcpy(newvar->var->v_commoninfile,cur_filename);
@@ -522 +526 @@
 
             Init_Variable(newvar->var);
-
             newvar->var->v_save = 1;
             strcpy(newvar->var->v_nomvar,parcours->var->v_nomvar);
+            strcpy(newvar->var->v_dimchar,parcours->var->v_dimchar);
             strcpy(newvar->var->v_modulename,curmodulename);
             strcpy(newvar->var->v_subroutinename,subroutinename);
@@ -531 +535 @@
 
             newvar->var->v_nbdim = parcours->var->v_nbdim;
+            strcpy(newvar->var->v_typevar,parcours->var->v_typevar);
+            strcpy(newvar->var->v_precision,parcours->var->v_precision);
             newvar->var->v_catvar = parcours->var->v_catvar;
             newvar->var->v_dimension = parcours->var->v_dimension;
             newvar->var->v_dimensiongiven=parcours->var->v_dimensiongiven;
+            newvar->var->v_allocatable = parcours->var->v_allocatable;
+            newvar->var->v_initialvalue = parcours->var->v_initialvalue;
+            newvar->var->v_initialvalue_array = parcours->var->v_initialvalue_array;
             newvar->suiv = List_Save_Var;
             List_Save_Var = newvar;

branches/2015/dev_r5803_UKMO_AGRIF_Vert_interp/NEMOGCM/EXTERNAL/AGRIF/LIB/Makefile

@@ -62 +62 @@
 
 clean:
-#  $(MAKE) -f Makefile.lex clean
    $(RM) *.o conv
    
+clean-all: clean

branches/2015/dev_r5803_UKMO_AGRIF_Vert_interp/NEMOGCM/EXTERNAL/AGRIF/LIB/SubLoopCreation.c

@@ -58 +58 @@
       if ( todebug == 1 ) printf("> enter in WriteBeginof_SubLoop : IsTabvarsUseInArgument_0() == 1\n");
       /* we should add the use agrif_uti l if it is necessary                 */
+      if (todebug == 1) fprintf(fortran_out,"\n      !DEBUG: Avant WriteHeadofSubroutineLoop\n");
       WriteHeadofSubroutineLoop();
+      if (todebug == 1) fprintf(fortran_out,"      !DEBUG: Apres WriteHeadofSubroutineLoop\n");
+      fflush(fortran_out);
+      if (todebug == 1) {
+      fprintf(fortran_out,"      !DEBUG: Avant WriteUsemoduleDeclaration\n");
+      }
+      
       WriteUsemoduleDeclaration(subroutinename);
       if ( ImplicitNoneInSubroutine() == 1 ) fprintf(fortran_out, "      implicit none\n");
       WriteIncludeDeclaration(fortran_out);
+      if (todebug == 1) fprintf(fortran_out,"      !DEBUG: Avant WriteIncludeDeclaration\n");
       /*                                                                      */
       /* We should write once the declaration of tables (extract              */
@@ -77 +85 @@
       AddUseAgrifUtil_0(fortran_out);
       WriteUsemoduleDeclaration(subroutinename);
+      if ( ImplicitNoneInSubroutine() == 1 ) fprintf(fortran_out, "      implicit none\n");
       WriteIncludeDeclaration(fortran_out);
-      if ( ImplicitNoneInSubroutine() == 1 ) fprintf(fortran_out, "      implicit none\n");
       WriteLocalParamDeclaration(fortran_out);
       WriteArgumentDeclaration_beforecall();
+      if (todebug == 1) fprintf(fortran_out,"      !DEBUG: Avant WriteFunctionDeclaration\n");
       if ( functiondeclarationisdone == 0 ) WriteFunctionDeclaration(fortran_out, 1);
 /*    writesub_loopdeclaration_scalar(List_SubroutineArgument_Var,fortran_out);
@@ -102 +111 @@
 /*                                                                            */
 /******************************************************************************/
-void WriteVariablelist_subloop(char *ligne)
+void WriteVariablelist_subloop(char **ligne, size_t *line_length)
 {
    listvar *parcours;
@@ -117 +126 @@
       if ( !strcasecmp(parcours->var->v_subroutinename,subroutinename) )
       {
-         if ( didvariableadded == 1 )   strcat(ligne,",");
-         strcat(ligne,parcours->var->v_nomvar);
+         if ( didvariableadded == 1 )   strcat(*ligne,",");
+         if ( (strlen(*ligne)+strlen(parcours->var->v_nomvar)+100) > *line_length )
+         {
+            *line_length += LONG_M;
+            *ligne = realloc( *ligne, *line_length*sizeof(char) );
+         }
+         strcat(*ligne,parcours->var->v_nomvar);
          didvariableadded = 1;
       }
@@ -128 +142 @@
       if ( !strcasecmp(parcours->var->v_subroutinename,subroutinename) )
       {
-         if ( didvariableadded == 1 )   strcat(ligne,",");
-         strcat(ligne,parcours->var->v_nomvar);
+         if ( didvariableadded == 1 )   strcat(*ligne,",");
+         if ( (strlen(*ligne)+strlen(parcours->var->v_nomvar)+100) > *line_length )
+         {
+            *line_length += LONG_M;
+            *ligne = realloc( *ligne, *line_length*sizeof(char) );
+         }
+         strcat(*ligne,parcours->var->v_nomvar);
          didvariableadded = 1;
       }
@@ -152 +171 @@
 /*                                                                            */
 /******************************************************************************/
-void WriteVariablelist_subloop_Call(char **ligne, size_t line_length)
+void WriteVariablelist_subloop_Call(char **ligne, size_t *line_length)
 {
    listvar *parcours;
    char ligne2[LONG_M];
    int i;
-   size_t cur_length;
-
-   cur_length = line_length;
 
    if ( todebug == 1 ) printf("> enter in WriteVariablelist_subloop_Call\n");
@@ -170 +186 @@
       /*    in the output file                                                */
       if ( !strcasecmp(parcours->var->v_subroutinename,subroutinename)  &&
-           (parcours->var->v_pointerdeclare == 0 || !strcasecmp(parcours->var->v_typevar,"type"))
+           (parcours->var->v_pointerdeclare >= 0 || !strcasecmp(parcours->var->v_typevar,"type"))
          )
       {
          if ( didvariableadded == 1 )   strcat(*ligne,",");
          const char *vres = vargridcurgridtabvars(parcours->var, 0);
-         if ( (strlen(*ligne)+strlen(vres)+100) > cur_length )
+         if ( (strlen(*ligne)+strlen(parcours->var->v_nomvar)+100) > *line_length )
          {
-            cur_length += LONG_M;
-            *ligne = realloc( *ligne, cur_length*sizeof(char) );
+            *line_length += LONG_M;
+            *ligne = realloc( *ligne, *line_length*sizeof(char) );
          }
          strcat(*ligne, vres);
@@ -186 +202 @@
          if (  SubloopScalar != 0 &&
                (
-               (parcours->var->v_pointerdeclare == 0 || !strcasecmp(parcours->var->v_typevar,"type"))) &&
+               (parcours->var->v_pointerdeclare >= 0 || !strcasecmp(parcours->var->v_typevar,"type"))) &&
                parcours->var->v_nbdim != 0 )
          {
@@ -231 +247 @@
 /*                                                                            */
 /******************************************************************************/
-void WriteVariablelist_subloop_Def(char *ligne)
+void WriteVariablelist_subloop_Def(char **ligne, size_t *line_length)
 {
    listvar *parcours;
@@ -244 +260 @@
       /*    in the output file                                                */
       if ( !strcasecmp(parcours->var->v_subroutinename,subroutinename)  &&
-           (parcours->var->v_pointerdeclare == 0 || !strcasecmp(parcours->var->v_typevar,"type")) )
+           (parcours->var->v_pointerdeclare >= 0 || !strcasecmp(parcours->var->v_typevar,"type")) )
       {
-         if ( didvariableadded == 1 )   strcat(ligne,",");
-         strcat(ligne,parcours->var->v_nomvar);
+         if ( didvariableadded == 1 )   strcat(*ligne,",");
+         if ( (strlen(*ligne)+strlen(parcours->var->v_nomvar)+100) > *line_length )
+         {
+            *line_length += LONG_M;
+            *ligne = realloc( *ligne, *line_length*sizeof(char) );
+         }
+         strcat(*ligne,parcours->var->v_nomvar);
          didvariableadded = 1;
       }
       parcours = parcours -> suiv;
    }
-   Save_Length(ligne,41);
+
    if ( todebug == 1 ) printf("<   out of WriteVariablelist_subloop_Def\n");
 }
@@ -272 +293 @@
 void WriteHeadofSubroutineLoop()
 {
-   char ligne[LONG_M];
+   char *ligne;
    FILE * subloop;
-
-   if ( todebug == 1 ) printf("> enter in WriteHeadofSubroutineLoop\n");
+   size_t line_length;
+
+   ligne = (char*) calloc(LONG_M, sizeof(char));
+   line_length = LONG_M;
+
+   if ( todebug == 1 ) printf("> enter in WriteHeadofSubroutineLoop subroutine %s\n",subroutinename);
    tofich(fortran_out,"\n",1);
+
    /* Open this newfile                                                       */
    sprintf(ligne,"Sub_Loop_%s.h",subroutinename);
@@ -283 +309 @@
    if (isrecursive) sprintf(ligne,"recursive subroutine Sub_Loop_%s(",subroutinename);
    else             sprintf(ligne,"subroutine Sub_Loop_%s(",subroutinename);
+
    /*                                                                         */
-   WriteVariablelist_subloop(ligne);
-   WriteVariablelist_subloop_Def(ligne);
+   if (todebug == 1) fprintf(subloop,"      !DEBUG: Avant WriteVariablelist_subloop\n");
+   WriteVariablelist_subloop(&ligne,&line_length);
+   WriteVariablelist_subloop_Def(&ligne,&line_length);
    /*                                                                         */
    strcat(ligne,")");
    tofich(subloop,ligne,1);
+
    /* if USE agrif_Uti l should be add                                        */
+   if (todebug == 1) fprintf(subloop,"      !DEBUG: Avant AddUseAgrifUtil_0\n");
    AddUseAgrifUtil_0(subloop);
+
    /*                                                                         */
+   if (todebug == 1) fprintf(subloop,"      !DEBUG: Apres AddUseAgrifUtil_0\n");
    oldfortran_out = fortran_out;
    fortran_out = subloop;
+   
    if ( todebug == 1 ) printf("<   out of WriteHeadofSubroutineLoop\n");
+   
+   free(ligne);
 }
 
@@ -313 +348 @@
 {
    char *ligne;
+   size_t line_length;
 
    if ( firstpass == 1 )    return;
@@ -318 +354 @@
 
    ligne = (char*) calloc(LONG_M, sizeof(char));
+   line_length = LONG_M;
 
    if ( IsTabvarsUseInArgument_0() == 1 )
@@ -331 +368 @@
 
       AddUseAgrifUtilBeforeCall_0(fortran_out);
+           
       WriteArgumentDeclaration_beforecall();
+      if (todebug == 1) fprintf(fortran_out,"      !DEBUG: Avant WriteFunctionDeclaration\n");
+
       if ( functiondeclarationisdone == 0 ) WriteFunctionDeclaration(fortran_out, 0);
       if ( !strcasecmp(subofagrifinitgrids,subroutinename) )
@@ -339 +379 @@
       sprintf(ligne,"  call Sub_Loop_%s(",subroutinename);
       /* Write the list of the local variables used in this new subroutine    */
-      WriteVariablelist_subloop(ligne);
+      WriteVariablelist_subloop(&ligne,&line_length);
       /* Write the list of the global tables used in this new subroutine      */
       /*    in doloop                                                         */
-      WriteVariablelist_subloop_Call(&ligne, LONG_M);
+      WriteVariablelist_subloop_Call(&ligne, &line_length);
       /* Close the parenthesis of the new subroutine called                   */
       strcat(ligne,")\n");
@@ -358 +398 @@
     oldfortran_out = (FILE *)NULL;
     if ( todebug == 1 ) printf("<   out of closeandcallsubloopandincludeit_0\n");
+    
+    free(ligne);
 }
 
@@ -363 +405 @@
 {
    char *ligne;
+   size_t line_length;
 
    if ( todebug == 1 ) printf("> enter in closeandcallsubloop_contains_0\n");
@@ -368 +411 @@
    {
       ligne = (char*) calloc(LONG_M, sizeof(char));
+      line_length = LONG_M;
       RemoveWordCUR_0(fortran_out,9);   // Remove word 'contains'
       tofich(fortran_out,"\n",1);
@@ -376 +420 @@
 
       AddUseAgrifUtilBeforeCall_0(fortran_out);
-
       if ( ImplicitNoneInSubroutine() == 1 ) fprintf(fortran_out, "      implicit none\n");
       WriteLocalParamDeclaration(fortran_out);
+            printf("ICI3\n");
       WriteArgumentDeclaration_beforecall();
+      if (todebug == 1) fprintf(fortran_out,"      !DEBUG: Avant WriteFunctionDeclaration\n");
       if ( functiondeclarationisdone == 0 ) WriteFunctionDeclaration(fortran_out, 0);
 /*      WriteSubroutineDeclaration(0);*/
@@ -388 +433 @@
       sprintf(ligne,"  call Sub_Loop_%s(",subroutinename);
       /* Write the list of the local variables used in this new subroutine    */
-      WriteVariablelist_subloop(ligne);
+      WriteVariablelist_subloop(&ligne,&line_length);
       /* Write the list of the global tables used in this new subroutine      */
       /*    in doloop                                                         */
-      WriteVariablelist_subloop_Call(&ligne, LONG_M);
+      WriteVariablelist_subloop_Call(&ligne, &line_length);
       /* Close the parenthesis of the new subroutine called                   */
       strcat(ligne,")\n");

branches/2015/dev_r5803_UKMO_AGRIF_Vert_interp/NEMOGCM/EXTERNAL/AGRIF/LIB/UtilAgrif.c

@@ -150 +150 @@
     {
         // remove the variable
-        RemoveWordCUR_0(fortran_out,lengthname);
+ //       RemoveWordCUR_0(fortran_out,lengthname);
         // then write the new name
-        if ( inagrifcallargument == 1 && agrif_parentcall == 0 )
-            fprintf(fortran_out,"%d",newvar->var->v_indicetabvars);
-        else
-        {
-            if ( retour77 == 0 )
-                fprintf(fortran_out,"Agrif_%s & \n      ", tabvarsname(newvar->var));
-            else
-            {
-               fprintf(fortran_out,"Agrif_%s", tabvarsname(newvar->var));
-               fprintf(fortran_out," \n     & ");
-            }
-            fprintf(fortran_out,"%s",vargridcurgridtabvarswithoutAgrif_Gr(newvar->var));
-        }
+ //        if ( inagrifcallargument == 1 && agrif_parentcall == 0 )
+//             fprintf(fortran_out,"%d",newvar->var->v_indicetabvars);
+//         else
+//         {
+//             if ( retour77 == 0 )
+//                 fprintf(fortran_out,"Agrif_%s & \n      ", tabvarsname(newvar->var));
+//             else
+//             {
+//                fprintf(fortran_out,"Agrif_%s", tabvarsname(newvar->var));
+//                fprintf(fortran_out," \n     & ");
+//             }
+//             fprintf(fortran_out,"%s",vargridcurgridtabvarswithoutAgrif_Gr(newvar->var));
+//         }
     }
     else

branches/2015/dev_r5803_UKMO_AGRIF_Vert_interp/NEMOGCM/EXTERNAL/AGRIF/LIB/UtilFortran.c

@@ -423 +423 @@
                                                                   doloopout = 1;
          else parcours = parcours->suiv;
+        
       }
       if (  doloopout == 0 ) out = 0;
@@ -591 +592 @@
     out = 0;
 
+    return (out == 0);
+    
     if ( !strcasecmp(ident,"size") ||
          !strcasecmp(ident,"if")   ||
@@ -596 +599 @@
          !strcasecmp(ident,"min")  )
     {
+    printf("ident = %s\n",ident);
         newvar = List_SubroutineDeclaration_Var;
         while ( newvar && out == 0 )
@@ -611 +615 @@
             while ( newvar && out == 0 )
             {
+            printf("llll = %s\n",newvar->var->v_nomvar);
                 if ( !strcasecmp(ident, newvar->var->v_nomvar) ) out = 1;
                 newvar = newvar -> suiv ;
@@ -617 +622 @@
     }
     return (out == 0);
+}
+
+/* removenewline */
+/* REMOVE UNWANTED character */
+/* from a NAME{NEWLINE77]NAME flex match */
+
+void removenewline(char *nom)
+{
+char temp_nom[LONG_VNAME];
+int size_nom,i,j;
+
+size_nom=strlen(nom);
+
+j=0;
+for (i=0;i<size_nom;)
+{
+if (nom[i]=='\n')
+{
+/* REMOVE RETURN - blank and column 6 character */
+i=i+7;
+}
+else if (nom[i]==' ' || nom[i]=='\t')
+{
+i=i+1;
+}
+else
+{
+temp_nom[j]=nom[i];
+j++;
+i++;
+}
+}
+temp_nom[j]='\0';
+
+strcpy(nom,temp_nom);
 }
 

branches/2015/dev_r5803_UKMO_AGRIF_Vert_interp/NEMOGCM/EXTERNAL/AGRIF/LIB/UtilListe.c

@@ -52 +52 @@
    strcpy(var->v_subroutinename     , "");
    strcpy(var->v_precision          , "");
-   strcpy(var->v_initialvalue       , "");
+   var->v_initialvalue = (listname *)NULL;
+   var->v_initialvalue_array = (listname *)NULL;
+   var->v_do_loop = NULL;
    strcpy(var->v_IntentSpec         , "");
    strcpy(var->v_readedlistdimension, "");
@@ -103 +105 @@
             newvar->suiv = l;
         }
+        newvar=glob;
+        while (newvar)
+        {
+        newvar=newvar->suiv;
+        }
     }
     return glob;
@@ -117 +124 @@
 void CreateAndFillin_Curvar(const char *type, variable *curvar)
 {
+listname *newvar;
+
     if ( !strcasecmp(type, "character") && strcasecmp(CharacterSize, "") )
     {
@@ -150 +159 @@
     if (InitialValueGiven == 1 )
     {
-        strcpy(curvar->v_initialvalue,InitValue);
+    curvar->v_initialvalue=Insertname(curvar->v_initialvalue,InitValue,0);
+    
+//        strcpy(curvar->v_initialvalue,InitValue);
+        
         Save_Length(InitValue,14);
     }
@@ -481 +493 @@
       v = newvar->var;
       strcpy(v->v_typevar,nom);
+      
       v->v_catvar = get_cat_var(v);
+
       newvar = newvar->suiv;
    }
@@ -502 +516 @@
    {
       v=newvar->var;
-      printf("nom = %s, allocatable = %d dim = %s\n",v->v_nomvar,v->v_allocatable,(v->v_dimension)->dim.last);
       newvar=newvar->suiv;
    }
@@ -564 +577 @@
 }
 
+int testandextractfromlist(listname **lin, char*nom)
+{
+listname *newvar;
+int val_1, val_2;
+int return_stmt;
+
+printname(*lin);
+if (!(*lin))
+ {
+  return 0;
+ }
+else
+ {
+ sscanf(nom,"%d",&val_1);
+ sscanf((*lin)->n_name,"%d",&val_2);
+ if (val_1==val_2)
+   {
+/*   newvar = *lin;
+   *lin = (*lin)->suiv;
+   free(newvar);*/
+   /* continue to remove while the label stays the same */
+/*   return_stmt=testandextractfromlist(lin,nom);*/
+   return 1;
+   }
+ else
+  {
+  return 0;
+  }
+ }
+}
+
+void removefromlist(listname **lin, char*nom)
+{
+listname *newvar,*prev;
+int val_1, val_2;
+int return_stmt;
+int out;
+
+printname(*lin);
+if (*lin)
+ {
+ sscanf(nom,"%d",&val_1);
+ prev=(listname *) calloc(1,sizeof(listname));
+ prev->suiv=*lin;
+ *lin=prev;
+ newvar=(*lin)->suiv;
+ out = 0;
+ while (newvar && out == 0)
+ {
+ sscanf((newvar)->n_name,"%d",&val_2);
+ if (val_1==val_2)
+   {
+   prev->suiv=newvar->suiv;
+   free(newvar);
+   }
+  if (prev->suiv) 
+    {
+    prev=prev->suiv;
+    newvar=prev->suiv;
+    }
+   else
+   {
+   out = 1;
+   }
+  }
+ prev=*lin;
+ *lin=(*lin)->suiv;
+ free(prev);
+ }
+}
+
 listname *concat_listname(listname *l1, listname *l2)
 {
@@ -606 +690 @@
    while (newvar)
    {
-      printf("nom = %s \n",newvar->n_name);
       newvar=newvar->suiv;
    }
@@ -694 +777 @@
 int get_cat_var(variable *var)
 {
+
     if (!strcasecmp(var->v_typevar, "CHARACTER"))
         return 1;
@@ -705 +789 @@
         return 0;
 }
+
+void Insertdoloop(variable *var,char *do_var,char *do_begin, char *do_end, char *do_step)
+{
+listdoloop *new_do_loop;
+listdoloop *tmploop;
+new_do_loop = (listdoloop *) calloc(1,sizeof(listdoloop));
+
+new_do_loop->cur_do_loop = (do_loop *) calloc(1,sizeof(do_loop));
+
+strcpy(new_do_loop->cur_do_loop->do_variable,do_var);
+strcpy(new_do_loop->cur_do_loop->do_begin,do_begin);
+strcpy(new_do_loop->cur_do_loop->do_end,do_end);
+strcpy(new_do_loop->cur_do_loop->do_step,do_step);
+new_do_loop->suiv = NULL;
+
+if (!var->v_do_loop)
+{
+  var->v_do_loop = new_do_loop;
+}
+else
+{
+  new_do_loop->suiv = var->v_do_loop;
+  var->v_do_loop = new_do_loop;
+      
+//   tmploop = var->v_do_loop;
+//   while (tmploop->suiv)
+//   {
+//     tmploop=tmploop->suiv;
+//   }
+//   tmploop->suiv = new_do_loop ;
+//   }
+}
+}

branches/2015/dev_r5803_UKMO_AGRIF_Vert_interp/NEMOGCM/EXTERNAL/AGRIF/LIB/WorkWithlistdatavariable.c

@@ -70 +70 @@
         strcpy(ligne,values);
        
-     strcpy(newvar->var->v_initialvalue,ligne);
+     newvar->var->v_initialvalue=Insertname(newvar->var->v_initialvalue,ligne,0);
+     
+     // strcpy(newvar->var->v_initialvalue,ligne);
      Save_Length(ligne,14);
      newvar->suiv = NULL;
@@ -85 +87 @@
 }
 
-void Add_Data_Var_Names_01 (listvar **curlist,listname *l1,listname *l2)
+void Add_Data_Var_Names_01 (listvar **curlist,listvar *l1,listname *l2)
 {
     listvar *newvar;
     listvar *tmpvar;
-    listname *tmpvar1;
-    listname *tmpvar2;  
+    listvar *tmpvar1;
+    listname *tmpvar2;
+    char tempname[LONG_M];
     variable *found_var = NULL;
+    int out;
+    size_t i = 0;
+    char chartmp[2];
     
     tmpvar1 = l1;
@@ -98 +104 @@
     while (tmpvar1)
     {
-        newvar = (listvar *) calloc(1,sizeof(listvar));
-        newvar->var = (variable *) calloc(1,sizeof(variable));
-
-        Init_Variable(newvar->var);
-
-        if ( inmoduledeclare == 1 ) newvar->var->v_module=1;
-     
-        found_var = get_variable_in_list_from_name(List_Common_Var, tmpvar1->n_name);
-        if ( ! found_var )  found_var = get_variable_in_list_from_name(List_Global_Var,tmpvar1->n_name);
-        if ( ! found_var )  found_var = get_variable_in_list_from_name(List_SubroutineDeclaration_Var,tmpvar1->n_name);
-        
-        if ( found_var && found_var->v_nbdim > 0 )
+//    printf("TMPVAR 1 nomvar = %s, initialvaluearra = %s\n",tmpvar1->var->v_nomvar,tmpvar1->var->v_initialvalue_array->n_name);
+       strcpy(tempname,tmpvar1->var->v_nomvar);
+//        while ( i < strlen(tmpvar1->var->v_nomvar) )
+//        {
+//        if (tmpvar1->var->v_nomvar[i]=='(') break;
+//          sprintf(chartmp,"%c",tmpvar1->var->v_nomvar[i]);
+//          strcat(tempname,chartmp);
+//          i++;
+//        }
+        found_var = get_variable_in_list_from_name(List_Common_Var, tempname);
+        if ( ! found_var )  found_var = get_variable_in_list_from_name(List_Global_Var,tempname);
+        if ( ! found_var )  found_var = get_variable_in_list_from_name(List_SubroutineDeclaration_Var,tempname);
+        
+        if ( found_var && found_var->v_nbdim > 1000 )
         {
             printf("##############################################################################################################\n");
@@ -118 +126 @@
         }
         
-        strcpy(newvar->var->v_nomvar,tmpvar1->n_name);
+        if (tmpvar1->var->v_initialvalue_array)
+        {
+        if ((firstpass == 1) && strcmp(tmpvar1->var->v_initialvalue_array->n_name,""))
+        {
+        DecomposeTheName(tmpvar1->var->v_initialvalue_array->n_name);
+        }
+        }
+        
+        // Search for existing newvar
+        
+        tmpvar = *curlist;
+        out = 0;
+        while (tmpvar)
+        {
+        if (!strcasecmp(tempname,tmpvar->var->v_nomvar) && !strcasecmp(subroutinename,tmpvar->var->v_subroutinename) && !strcasecmp(curmodulename,tmpvar->var->v_modulename) && !strcasecmp(cur_filename,tmpvar->var->v_commoninfile) )
+        {
+        out = 1;
+        break;
+        }
+        tmpvar=tmpvar->suiv;
+        }
+        if (out == 0)
+        {
+        newvar = (listvar *) calloc(1,sizeof(listvar));
+        newvar->var = (variable *) calloc(1,sizeof(variable));
+
+        Init_Variable(newvar->var);
+
+        if ( inmoduledeclare == 1 ) newvar->var->v_module=1;
+        
+        strcpy(newvar->var->v_nomvar,tempname);
         strcpy(newvar->var->v_subroutinename,subroutinename);
         strcpy(newvar->var->v_modulename,curmodulename);
         strcpy(newvar->var->v_commoninfile,cur_filename);
-        strcpy(newvar->var->v_initialvalue,tmpvar2->n_name);
+        /*printf("TMPVAR 2 nomvar = %s\n",tmpvar2->n_name);*/
+        newvar->var->v_initialvalue=Insertname(newvar->var->v_initialvalue,tmpvar2->n_name,0);
+        
+        if (tmpvar1->var->v_initialvalue_array)
+        {
+        if (strcmp(tmpvar1->var->v_initialvalue_array->n_name,""))
+        {
+        newvar->var->v_initialvalue_array=Insertname(newvar->var->v_initialvalue_array,tmpvar1->var->v_initialvalue_array->n_name,0);
+        }
+        }
+        newvar->var->v_do_loop=tmpvar1->var->v_do_loop;
+//        strcpy(newvar->var->v_initialvalue,tmpvar2->n_name);
+//        strcpy(newvar->var->v_initialvalue_array,tmpvar1->var->v_initialvalue_array);
+        
+        newvar->var->v_dimension=tmpvar1->var->v_dimension;
 
         Save_Length(tmpvar2->n_name,14);
@@ -139 +191 @@
             *curlist  = newvar ;
         }
+        tmpvar=newvar;
+        }
+        else // out = 1
+        {
+        tmpvar->var->v_initialvalue=Insertname(tmpvar->var->v_initialvalue,tmpvar2->n_name,0);
+        if (strcmp(tmpvar1->var->v_initialvalue_array->n_name,""))
+        {
+        tmpvar->var->v_initialvalue_array=Insertname(tmpvar->var->v_initialvalue_array,tmpvar1->var->v_initialvalue_array->n_name,0);
+        }
+        tmpvar->var->v_do_loop=tmpvar1->var->v_do_loop;
+        }
      
         tmpvar1 = tmpvar1->suiv;
-        tmpvar2 = tmpvar2->suiv;  
+        tmpvar2 = tmpvar2->suiv;
     }
+    
+    while (tmpvar2)
+    {
+    strcpy(tempname,tmpvar2->n_name);
+    tmpvar->var->v_initialvalue = Insertname(tmpvar->var->v_initialvalue,tempname,1);
+    tmpvar2 = tmpvar2->suiv; 
+    }
+    
 }

branches/2015/dev_r5803_UKMO_AGRIF_Vert_interp/NEMOGCM/EXTERNAL/AGRIF/LIB/WorkWithlistvarindoloop.c

@@ -119 +119 @@
   if ( !List_UsedInSubroutine_Var )
   {
+  printf("LISTE VIDE\n");
       newvar=(listvar *)calloc(1,sizeof(listvar));
       newvar->var=(variable *)calloc(1,sizeof(variable));
@@ -161 +162 @@
          }
       }
+      
       if ( out == 2 || out == 0 )
       {
@@ -175 +177 @@
 
          /* we should find this new variable to know the tabvars indice       */
+
          if ( variableisglobal(newvar, List_Global_Var) == 1 )
          {
@@ -271 +274 @@
 void Merge_Variables(variable *var1, variable *var2)
 {
+
     if ( !strcasecmp(var1->v_typevar,"") )
             strcpy(var1->v_typevar,var2->v_typevar);
-    else
-      {
-      strcpy(var2->v_typevar,var1->v_typevar);
-      }
+    else    strcpy(var2->v_typevar,var1->v_typevar);
 
     if ( !strcasecmp(var1->v_oldname,"") )
@@ -310 +311 @@
     else    strcpy(var2->v_precision,var1->v_precision);
 
-    if ( !strcasecmp(var1->v_initialvalue,"") )
-            strcpy(var1->v_initialvalue,var2->v_initialvalue);
-    else    strcpy(var2->v_initialvalue,var1->v_initialvalue);
-
+//     if ( !strcasecmp(var1->v_initialvalue,"") )
+//             strcpy(var1->v_initialvalue,var2->v_initialvalue);
+//     else    strcpy(var2->v_initialvalue,var1->v_initialvalue);
+
+    if ( var1->v_initialvalue )
+            var2->v_initialvalue = var1->v_initialvalue;
+    else    var1->v_initialvalue = var2->v_initialvalue;
+
+    if ( var1->v_initialvalue_array )
+            var2->v_initialvalue_array = var1->v_initialvalue_array;
+    else    var1->v_initialvalue_array = var2->v_initialvalue_array;
+    
+    if ( var1->v_do_loop )
+            var2->v_do_loop = var1->v_do_loop;
+    else    var1->v_do_loop = var2->v_do_loop;
+    
+//     if ( !strcasecmp(var1->v_initialvalue_array,"") )
+//             strcpy(var1->v_initialvalue_array,var2->v_initialvalue_array);
+//     else    strcpy(var2->v_initialvalue_array,var1->v_initialvalue_array);
+    
     if ( !strcasecmp(var1->v_IntentSpec,"") )
             strcpy(var1->v_IntentSpec,var2->v_IntentSpec);
@@ -490 +507 @@
          /*                                                                   */
          newvar->suiv = NULL;
+
          Merge_Variables(parcours->var,newvar->var);
          strcpy(newvar->var->v_subroutinename,parcours->var->v_subroutinename);
@@ -1155 +1173 @@
                 newvar->var->v_VariableIsParameter,
                 newvar->var->v_typevar,
-                newvar->var->v_initialvalue );
+                newvar->var->v_initialvalue->n_name );
         newvar = newvar->suiv;
     }
@@ -1173 +1191 @@
                                         strcpy(parcours->var->v_typevar,"REAL");
          else strcpy(parcours->var->v_typevar,"INTEGER");
+         parcours->var->v_catvar = get_cat_var(parcours->var);
       }
       parcours = parcours -> suiv ;
@@ -1185 +1204 @@
                                         strcpy(parcours->var->v_typevar,"REAL");
          else strcpy(parcours->var->v_typevar,"INTEGER");
+         parcours->var->v_catvar = get_cat_var(parcours->var);
       }
       parcours = parcours -> suiv ;
@@ -1197 +1217 @@
                                         strcpy(parcours->var->v_typevar,"REAL");
          else strcpy(parcours->var->v_typevar,"INTEGER");
+         parcours->var->v_catvar = get_cat_var(parcours->var);
       }
       parcours = parcours -> suiv ;
@@ -1209 +1230 @@
                                         strcpy(parcours->var->v_typevar,"REAL");
          else strcpy(parcours->var->v_typevar,"INTEGER");
+         parcours->var->v_catvar = get_cat_var(parcours->var);
+      }
+      parcours = parcours -> suiv ;
+   }
+   
+   /*                                                                         */
+   parcours = List_Parameter_Var;
+   while ( parcours )
+   {
+      if ( !strcasecmp(parcours->var->v_typevar,"") )
+      {
+         if ( IsVariableReal(parcours->var->v_nomvar) == 1 )
+                                        strcpy(parcours->var->v_typevar,"REAL");
+         else strcpy(parcours->var->v_typevar,"INTEGER");
+         parcours->var->v_catvar = get_cat_var(parcours->var);
+      }
+      parcours = parcours -> suiv ;
+   }
+   
+   /*                                                                         */
+   parcours = List_GlobalParameter_Var;
+   while ( parcours )
+   {
+      if ( !strcasecmp(parcours->var->v_typevar,"") )
+      {
+         if ( IsVariableReal(parcours->var->v_nomvar) == 1 )
+                                        strcpy(parcours->var->v_typevar,"REAL");
+         else strcpy(parcours->var->v_typevar,"INTEGER");
+         parcours->var->v_catvar = get_cat_var(parcours->var);
       }
       parcours = parcours -> suiv ;
@@ -1509 +1559 @@
 void update_indicemaxtabvars(variable *var,listindice **Listofindices)
 {
-
-
             if ( Listofindices[var->v_catvar] )
             {
@@ -1547 +1595 @@
           )
       {
+            /* The type may has not been given if the variable was only declared with dimension */
+
+            if ( !strcasecmp(parcours->var->v_typevar,"") )
+            {
+                  if ( IsVariableReal(parcours->var->v_nomvar) == 1 )
+                                        strcpy(parcours->var->v_typevar,"REAL");
+                  else strcpy(parcours->var->v_typevar,"INTEGER");
+                  parcours->var->v_catvar = get_cat_var(parcours->var);
+             }
+             
          indicemaxtabvars[parcours->var->v_catvar] = indicemaxtabvars[parcours->var->v_catvar] + 1 ;
          parcours->var->v_indicetabvars = indicemaxtabvars[parcours->var->v_catvar];
@@ -1626 +1684 @@
               parcours->var->v_notgrid == 0                              &&
               ( ( parcours->var->v_nbdim != 0 || !strcasecmp(parcours->var->v_typevar,"type") )
-              || strcasecmp(parcours->var->v_initialvalue,"") )
+              || parcours->var->v_initialvalue )
             )
          {
@@ -1658 +1716 @@
               !strcasecmp(parcours->var->v_commoninfile,cur_filename)       &&
               ( ( parcours->var->v_nbdim != 0 || !strcasecmp(parcours->var->v_typevar,"type") )
-              || strcasecmp(parcours->var->v_initialvalue,"") )
+              || parcours->var->v_initialvalue )
             )
          {
@@ -1845 +1903 @@
       printf("dimensiongiven - %d \n", parcours->var->v_dimensiongiven);
       printf("dimsempty      - %d \n", parcours->var->v_dimsempty);
-      printf("initialvalue   - %s \n", parcours->var->v_initialvalue);
+      printf("initialvalue   - %s \n", parcours->var->v_initialvalue->n_name);
       printf("readedlistdim  - %s \n", parcours->var->v_readedlistdimension);
       printf("-------------------------------------\n");

branches/2015/dev_r5803_UKMO_AGRIF_Vert_interp/NEMOGCM/EXTERNAL/AGRIF/LIB/WriteInFile.c

@@ -141 +141 @@
     fseek(filout, position, SEEK_SET);
     tofich_blanc(filout, sizetoremove);
-    fseek(filout, position, SEEK_SET);
+
 }
 

branches/2015/dev_r5803_UKMO_AGRIF_Vert_interp/NEMOGCM/EXTERNAL/AGRIF/LIB/Writedeclarations.c

@@ -66 +66 @@
   /* We should give the precision of the variable if it has been given        */
   precision_given = 0;
+  
   if ( strcasecmp(v->v_precision,"") )
   {
@@ -128 +129 @@
     {
         strcat(line," = ");
-        strcat(line, v->v_initialvalue);
+        strcat(line, v->v_initialvalue->n_name);
     }
     Save_Length(line, 45);
@@ -173 +174 @@
     {
         strcat(ligne," = ");
-        strcat(ligne,v->v_initialvalue);
+        strcat(ligne,v->v_initialvalue->n_name);
     }
     Save_Length(ligne,45);
@@ -206 +207 @@
         WriteTableDeclaration(v, ligne, value);
 
-     if ( v->v_VariableIsParameter != 1 && strcasecmp(v->v_initialvalue,"") )
+     if ( v->v_VariableIsParameter != 1 && v->v_initialvalue)
      {
         strcat(ligne," = ");
-        strcat(ligne,v->v_initialvalue);
+        strcat(ligne,v->v_initialvalue->n_name);
      }
      tofich(filecommon, ligne, 1);
@@ -241 +242 @@
     while ( parcours )
     {
+    if (!strcmp(parcours->var->v_typevar, ""))
+    {
+     /* Default type*/
+          if ( IsVariableReal(parcours->var->v_nomvar) == 1 )
+                                         strcpy(parcours->var->v_typevar,"REAL");
+          else strcpy(parcours->var->v_typevar,"INTEGER");
+     }
         if ( !strcasecmp(parcours->var->v_subroutinename, subroutinename) &&
               strcasecmp(parcours->var->v_typevar, "") )
@@ -261 +269 @@
         if ( !strcasecmp(v->v_subroutinename, subroutinename)   &&
              (v->v_save == 0)                                   &&
-             (v->v_pointerdeclare == 0)                         &&
              (v->v_VariableIsParameter == 0)                    &&
              (v->v_common == 0) )
@@ -285 +292 @@
     listvar *parcours;
     variable *v;
-    char ligne[LONG_M];
-
+    char *ligne;
+    size_t line_length;
+    int res;
+    int global_check;
+
+    ligne = (char*) calloc(LONG_M, sizeof(char));
+    line_length = LONG_M;
+    
+    global_check = 0;
+   
+   
     fprintf(fortran_out,"#include \"Param_BeforeCall_%s.h\"\n",subroutinename);
 
@@ -303 +319 @@
             position++;
             WriteVarDeclaration(v, fortran_out, 0, 1);
-            neededparameter = writedeclarationintoamr(List_Parameter_Var, paramtoamr,
-                                    v, v->v_subroutinename, neededparameter, subroutinename);
+            res = writedeclarationintoamr(List_Parameter_Var, paramtoamr,
+                                    v, v->v_subroutinename, &neededparameter, subroutinename, global_check);
             parcours = List_SubroutineArgument_Var;
         }
         else parcours = parcours -> suiv;
     }
-    Save_Length(ligne,45);
 
     // Write interface for 'Sub_Loop_machin' in 'Param_BeforeCall_machin.h' when outside a module
@@ -317 +332 @@
         if (isrecursive) sprintf(ligne,"  recursive subroutine Sub_Loop_%s(", subroutinename);
         else             sprintf(ligne,"  subroutine Sub_Loop_%s(", subroutinename);
-        WriteVariablelist_subloop(ligne);
-        WriteVariablelist_subloop_Def(ligne);
+        WriteVariablelist_subloop(&ligne,&line_length);
+        WriteVariablelist_subloop_Def(&ligne,&line_length);
         strcat(ligne,")");
-        Save_Length(ligne,45);
+
         tofich(paramtoamr,ligne,1);
 
@@ -353 +368 @@
 
     parcours = List_SubroutineArgument_Var;
+    
     while ( parcours )
     {
@@ -399 +415 @@
 /*                                                                            */
 /******************************************************************************/
-listnom *writedeclarationintoamr (listvar * deb_common, FILE *fileout,
+int writedeclarationintoamr (listvar * deb_common, FILE *fileout,
                               variable *var , const char *commonname,
-                           listnom *neededparameter, const char *name_common)
+                           listnom **neededparameter, const char *name_common, int global_check)
 {
   listvar *newvar;
@@ -410 +426 @@
   int writeit;
   listnom *parcours;
+  listname *parcours_name_array;
+  int res;
+  
+  res = 0;
 
   /* we should list the needed parameter                                      */
+
   if ( !strcasecmp(name_common,commonname) )
-     neededparameter = DecomposeTheNameinlistnom(var->v_readedlistdimension,neededparameter);
+     {
+     *neededparameter = DecomposeTheNameinlistnom(var->v_readedlistdimension,*neededparameter);
+     parcours_name_array = var->v_initialvalue_array;
+     while (parcours_name_array)
+     {
+     *neededparameter = DecomposeTheNameinlistnom(parcours_name_array->n_name,*neededparameter);
+     parcours_name_array=parcours_name_array->suiv;
+     }
+     }
+
   /*                                                                          */
-  parcours = neededparameter;
+  parcours = *neededparameter;
+
   while (parcours)
   {
@@ -423 +454 @@
      while ( newvar && out == 0 )
      {
-
-        if ( !strcasecmp(parcours->o_nom,newvar->var->v_nomvar) && !strcasecmp(var->v_subroutinename,newvar->var->v_subroutinename))
+        if ( (global_check == 0) && !strcasecmp(parcours->o_nom,newvar->var->v_nomvar) && !strcasecmp(var->v_subroutinename,newvar->var->v_subroutinename))
         {
            out=1;
         /* add the name to the list of needed parameter                       */
-           neededparameter = DecomposeTheNameinlistnom(
-                 newvar->var->v_initialvalue,
-                 neededparameter );
+           *neededparameter = DecomposeTheNameinlistnom(
+                 newvar->var->v_initialvalue->n_name,
+                 *neededparameter );
+        }
+        else if ( (global_check == 1) && !strcasecmp(parcours->o_nom,newvar->var->v_nomvar) && !strcasecmp(var->v_modulename,newvar->var->v_modulename))
+        {
+           out=1;
+        /* add the name to the list of needed parameter                       */
+           *neededparameter = DecomposeTheNameinlistnom(
+                 newvar->var->v_initialvalue->n_name,
+                 *neededparameter );
         }
         else newvar=newvar->suiv;
@@ -437 +475 @@
    }
   /*                                                                          */
-  parcours = neededparameter;
+  parcours = *neededparameter;
+  
   while (parcours)
   {
@@ -444 +483 @@
      while ( newvar && out == 0 )
      {
-        if ( !strcasecmp(parcours->o_nom,newvar->var->v_nomvar) && !strcasecmp(var->v_subroutinename,newvar->var->v_subroutinename))
+        if ( (global_check == 0) && !strcasecmp(parcours->o_nom,newvar->var->v_nomvar) && !strcasecmp(var->v_subroutinename,newvar->var->v_subroutinename))
         {
            out=1;
         /* add the name to the list of needed parameter                       */
-           neededparameter = DecomposeTheNameinlistnom(
-                 newvar->var->v_initialvalue,
-                 neededparameter );
+           *neededparameter = DecomposeTheNameinlistnom(
+                 newvar->var->v_initialvalue->n_name,
+                 *neededparameter );
+        }
+        else if ( (global_check == 1) && !strcasecmp(parcours->o_nom,newvar->var->v_nomvar) && !strcasecmp(var->v_modulename,newvar->var->v_modulename))
+        {
+           out=1;
+        /* add the name to the list of needed parameter                       */
+           *neededparameter = DecomposeTheNameinlistnom(
+                 newvar->var->v_initialvalue->n_name,
+                 *neededparameter );
         }
         else newvar=newvar->suiv;
@@ -456 +503 @@
      parcours=parcours->suiv;
    }
-  parcours = neededparameter;
+  parcours = *neededparameter;
   while (parcours)
   {
@@ -463 +510 @@
      while ( newvar && writeit == 0 )
      {
-        if ( !strcasecmp(parcours->o_nom,newvar->var->v_nomvar) &&
+        if ( (global_check == 0) && !strcasecmp(parcours->o_nom,newvar->var->v_nomvar) &&
             !strcasecmp(var->v_subroutinename,newvar->var->v_subroutinename) && parcours->o_val == 0 )
+        {
+           writeit=1;
+           parcours->o_val = 1;
+        }
+        else if ( (global_check == 1) && !strcasecmp(parcours->o_nom,newvar->var->v_nomvar) &&
+            !strcasecmp(var->v_modulename,newvar->var->v_modulename) && parcours->o_val == 0 )
         {
            writeit=1;
@@ -490 +543 @@
            v->v_allocatable = 1;
         }
+        res = 1;
      }
      else
@@ -503 +557 @@
   }
   Save_Length(ligne,45);
-  return neededparameter;
+  return res;
 }
 
@@ -532 +586 @@
      if ( newvar->var->v_nbdim == 0 &&
           !strcasecmp(newvar->var->v_subroutinename,subroutinename)  &&
-           (newvar->var->v_pointerdeclare == 0 || !strcasecmp(newvar->var->v_typevar,"type")) )
+           (newvar->var->v_pointerdeclare >= 0 || !strcasecmp(newvar->var->v_typevar,"type")) )
      {
         v = newvar->var;
-
         WriteBeginDeclaration(v,ligne,1);
         WriteScalarDeclaration(v,ligne);
@@ -570 +623 @@
 //  printf("newvar = %s %d %s\n",newvar->var->v_nomvar,newvar->var->v_pointerdeclare,newvar->var->v_typevar);
      if ( (v->v_nbdim != 0)  && !strcasecmp(v->v_subroutinename, subroutinename) &&
-          (v->v_pointerdeclare == 0 || !strcasecmp(v->v_typevar,"type")) )
+          (v->v_pointerdeclare >= 0 || !strcasecmp(v->v_typevar,"type")) )
      {
         changeval = 0;
@@ -596 +649 @@
      newvar = newvar->suiv;
   }
+
   Save_Length(ligne,45);
 }
@@ -619 +673 @@
             if (firstpass == 0 && out == 0 && VariableIsParameter == 0 && SaveDeclare == 0)
             {
+            
+            /* The type may has not been given if the variable was only declared with dimension */
+
+            if ( !strcasecmp(v->v_typevar,"") )
+            {
+                  if ( IsVariableReal(v->v_nomvar) == 1 )
+                                        strcpy(v->v_typevar,"REAL");
+                  else strcpy(v->v_typevar,"INTEGER");
+                  v->v_catvar = get_cat_var(v);
+             }
+             
                 WriteVarDeclaration(v, fortran_out, 1, 1);
             }
@@ -639 +704 @@
     char ligne[LONG_M];
     char initialvalue[LONG_M];
-
+    listname *parcours_name;
+    
     if (insubroutinedeclare == 1)
     {
@@ -651 +717 @@
             if (out)   break;
 
-            if (strncasecmp(parcours->var->v_initialvalue,"(/",2))
+            strcpy(initialvalue,"");
+            parcours_name = parcours->var->v_initialvalue;
+            while (parcours_name)
             {
-                strcpy(initialvalue,parcours->var->v_initialvalue);
+            if (strncasecmp(parcours_name->n_name,"(/",2))
+            {
+                strcat(initialvalue,parcours_name->n_name);
+                if (parcours_name->suiv)
+                {
+                strcat(initialvalue,",");
+                }
             }
             else
             {
-                strncpy(initialvalue,&parcours->var->v_initialvalue[2],strlen(parcours->var->v_initialvalue)-4);
-                strcpy(&initialvalue[strlen(parcours->var->v_initialvalue)-4],"\0");
+            printf("A TRAITER DANS REWRITEDATA STATEMETN ");
+            exit(1);
+                strncpy(initialvalue,&parcours_name->n_name[2],strlen(parcours_name->n_name)-4);
+                strcpy(&initialvalue[strlen(parcours_name->n_name)-4],"\0");
+            }
+            parcours_name=parcours_name->suiv;
             }
             sprintf(ligne,"data %s/%s/",parcours->var->v_nomvar,initialvalue);
             tofich(filout,ligne,1);
-
+            
             parcours = parcours->suiv;
         }

branches/2015/dev_r5803_UKMO_AGRIF_Vert_interp/NEMOGCM/EXTERNAL/AGRIF/LIB/decl.h

@@ -56 +56 @@
 } listdim;                 /* list of the dimensions of a variable            */
 
+typedef struct listname
+{
+   char n_name[LONG_M];
+   struct  listname* suiv;
+} listname ;            /* list of names                                  */
+
+typedef struct do_loop
+{
+   char do_variable[LONG_VNAME];
+   char do_begin[LONG_VNAME];
+   char do_end[LONG_VNAME];
+   char do_step[LONG_VNAME];
+} do_loop ;
+
+typedef struct listdoloop
+{
+   do_loop *cur_do_loop;
+   struct listdoloop* suiv;
+} listdoloop;
+
 typedef struct variable
 {
@@ -68 +88 @@
    char v_commoninfile[LONG_FNAME];
    char v_subroutinename[LONG_VNAME];
+   listdoloop *v_do_loop;
    char v_precision[LONG_C];
-   char v_initialvalue[LONG_M];
+   listname *v_initialvalue;
+   listname *v_initialvalue_array;
    char v_IntentSpec[LONG_M];
    char v_readedlistdimension[LONG_M];
@@ -126 +148 @@
 } listparameter ;           /* list of names                                  */
 
-typedef struct listname
-{
-   char n_name[LONG_VNAME];
-   struct  listname* suiv;
-} listname ;            /* list of names                                  */
-
 typedef struct listcouple
 {
@@ -198 +214 @@
  listname *List_Pointer_Var;
  listname *List_ImplicitNoneSubroutine;
+ 
+ listname *List_Do_labels; 
+ /* A list that contains the do labels if any */
 
  listusemodule *List_NameOfModuleUsed;
@@ -321 +340 @@
  char curmodulename[LONG_VNAME];
  char subroutinename[LONG_VNAME];
+ char old_subroutinename[LONG_VNAME]; // For internal subprogramm
  char cur_filename[LONG_FNAME];     // Name of the current parsed Fortran file
  char config_file[LONG_FNAME];      // Name of conv configuration file (ex: amr.in)
@@ -331 +351 @@
  FILE *fortran_in;           /* Input File                                     */
  FILE *oldfortran_out;
+ FILE *old_oldfortran_out; // For internal subprogramm
  FILE *subloop;
  FILE *module_declar;
@@ -433 +454 @@
 /******************************************************************************/
 extern void WriteBeginof_SubLoop();
-extern void WriteVariablelist_subloop(char *ligne);
-extern void WriteVariablelist_subloop_Call(char **ligne, size_t line_length);
-extern void WriteVariablelist_subloop_Def(char *ligne);
+extern void WriteVariablelist_subloop(char **ligne, size_t *line_length);
+extern void WriteVariablelist_subloop_Call(char **ligne, size_t *line_length);
+extern void WriteVariablelist_subloop_Def(char **ligne, size_t *line_length);
 extern void WriteHeadofSubroutineLoop();
 extern void closeandcallsubloopandincludeit_0(int suborfun);
@@ -516 +537 @@
 extern int varistyped_0(char *ident);
 extern void dump_var(const variable* var);
+extern void removenewline(char *nom);
 /******************************************************************************/
 /*********** UtilListe.c ******************************************************/
@@ -532 +554 @@
 extern int IsinListe(listvar *lin,char *nom);
 extern listname *Insertname(listname *lin,char *nom,int sens);
+extern int testandextractfromlist(listname **lin, char*nom);
+extern void removefromlist(listname **lin, char*nom);
 extern listname *concat_listname(listname *l1, listname *l2);
 extern void createstringfromlistname(char *ligne, listname *lin);
@@ -540 +564 @@
 extern void  addprecision_derivedfromkind(variable *curvar);
 extern int get_cat_var(variable *var);
+extern void Insertdoloop(variable *var,char *do_var, char *do_begin, char *do_end, char *do_step);
 /******************************************************************************/
 /*********** UtilNotGridDep.c *************************************************/
@@ -560 +585 @@
 /******************************************************************************/
 extern void Add_Data_Var_1 (listvar **curlist,char *name,char *values);
-extern void Add_Data_Var_Names_01 (listvar **curlist,listname *l1, listname *l2);
+extern void Add_Data_Var_Names_01 (listvar **curlist,listvar *l1, listname *l2);
 /******************************************************************************/
 /*********** WorkWithlistmoduleinfile.c ***************************************/
@@ -641 +666 @@
 extern void WriteArgumentDeclaration_beforecall();
 extern void WriteArgumentDeclaration_Sort(FILE* tofile);
-extern listnom * writedeclarationintoamr(listvar *deb_common, FILE *fileout, variable *var,
-                  const char *commonname, listnom *neededparameter, const char *name_common);
+extern int writedeclarationintoamr(listvar *deb_common, FILE *fileout, variable *var,
+                  const char *commonname, listnom **neededparameter, const char *name_common, int global_check);
 extern void writesub_loopdeclaration_scalar(listvar *deb_common, FILE *fileout);
 extern void writesub_loopdeclaration_tab(listvar *deb_common, FILE *fileout);

branches/2015/dev_r5803_UKMO_AGRIF_Vert_interp/NEMOGCM/EXTERNAL/AGRIF/LIB/fortran.c

@@ -45 +45 @@
 
 /* Bison version.  */
+#define YYBISON_VERSION "2.7"
 
 /* Skeleton name.  */
@@ -79 +80 @@
 
 extern int line_num_input;
-extern char *fortran_text;
 
 char c_selectorname[LONG_M];
@@ -87 +87 @@
 int c_selectorgiven=0;
 listvar *curlistvar;
+int in_select_case_stmt=0;
 typedim c_selectordim;
 listcouple *coupletmp;
 int removeline=0;
+int token_since_endofstmt = 0;
+int increment_nbtokens = 1;
+int in_complex_literal = 0;
+int close_or_connect = 0;
+long int my_position;
+long int my_position_before;
+int suborfun = 0;
+int indeclaration = 0;
+int endoffile = 0;
+int in_inquire = 0;
+int in_char_selector = 0;
+int in_kind_selector =0;
+int char_length_toreset = 0;
+
+typedim my_dim;
+
 listvar *test;
+
+char linebuf1[1024];
+char linebuf2[1024];
 
 int fortran_error(const char *s)
 {
-    printf("%s line %d, file %s motclef = |%s|\n", s, line_num_input, cur_filename, fortran_text);
+  if (endoffile == 1) 
+  {
+  endoffile = 0;
+  return 0;
+  }
+    printf("%s line %d, file %s culprit = |%s|\n", s, line_num_input, cur_filename, strcat(linebuf1, linebuf2));
     exit(1);
 }
@@ -100 +125 @@
 
 /* Line 371 of yacc.c  */
-#line 104 "fortran.tab.c"
+#line 128 "fortran.tab.c"
 
 # ifndef YY_NULL
@@ -156 +181 @@
      TOK_PROGRAM = 279,
      TOK_FUNCTION = 280,
-     TOK_FORMAT = 281,
-     TOK_MAX = 282,
-     TOK_TANH = 283,
-     TOK_WHERE = 284,
-     TOK_ELSEWHEREPAR = 285,
-     TOK_ELSEWHERE = 286,
-     TOK_ENDWHERE = 287,
-     TOK_MAXVAL = 288,
-     TOK_TRIM = 289,
-     TOK_NULL_PTR = 290,
-     TOK_SUM = 291,
-     TOK_SQRT = 292,
-     TOK_CASE = 293,
-     TOK_SELECTCASE = 294,
-     TOK_FILE = 295,
-     TOK_UNIT = 296,
-     TOK_FMT = 297,
-     TOK_NML = 298,
-     TOK_END = 299,
-     TOK_EOR = 300,
-     TOK_ERR = 301,
-     TOK_EXIST = 302,
-     TOK_MIN = 303,
-     TOK_FLOAT = 304,
-     TOK_EXP = 305,
-     TOK_COS = 306,
-     TOK_COSH = 307,
-     TOK_ACOS = 308,
-     TOK_NINT = 309,
-     TOK_CYCLE = 310,
-     TOK_SIN = 311,
-     TOK_SINH = 312,
-     TOK_ASIN = 313,
-     TOK_EQUIVALENCE = 314,
-     TOK_BACKSPACE = 315,
-     TOK_LOG = 316,
-     TOK_TAN = 317,
-     TOK_ATAN = 318,
-     TOK_RECURSIVE = 319,
-     TOK_ABS = 320,
-     TOK_MOD = 321,
-     TOK_SIGN = 322,
-     TOK_MINLOC = 323,
-     TOK_MAXLOC = 324,
-     TOK_EXIT = 325,
-     TOK_MINVAL = 326,
-     TOK_PUBLIC = 327,
-     TOK_PRIVATE = 328,
-     TOK_ALLOCATABLE = 329,
-     TOK_RETURN = 330,
-     TOK_THEN = 331,
-     TOK_ELSEIF = 332,
-     TOK_ELSE = 333,
-     TOK_ENDIF = 334,
-     TOK_PRINT = 335,
-     TOK_PLAINGOTO = 336,
-     TOK_LOGICALIF = 337,
-     TOK_PLAINDO = 338,
-     TOK_CONTAINS = 339,
-     TOK_ENDDO = 340,
-     TOK_MODULE = 341,
-     TOK_ENDMODULE = 342,
-     TOK_WHILE = 343,
-     TOK_CONCURRENT = 344,
-     TOK_ALLOCATE = 345,
-     TOK_OPEN = 346,
-     TOK_CLOSE = 347,
-     TOK_INQUIRE = 348,
-     TOK_WRITE = 349,
-     TOK_FLUSH = 350,
-     TOK_READ = 351,
-     TOK_REWIND = 352,
-     TOK_DEALLOCATE = 353,
-     TOK_NULLIFY = 354,
-     TOK_DIMENSION = 355,
-     TOK_ENDSELECT = 356,
-     TOK_EXTERNAL = 357,
-     TOK_INTENT = 358,
-     TOK_INTRINSIC = 359,
-     TOK_NAMELIST = 360,
-     TOK_DEFAULT = 361,
-     TOK_OPTIONAL = 362,
-     TOK_POINTER = 363,
-     TOK_CONTINUE = 364,
-     TOK_SAVE = 365,
-     TOK_TARGET = 366,
-     TOK_IMPLICIT = 367,
-     TOK_NONE = 368,
-     TOK_CALL = 369,
-     TOK_STAT = 370,
-     TOK_POINT_TO = 371,
-     TOK_COMMON = 372,
-     TOK_GLOBAL = 373,
-     TOK_LEFTAB = 374,
-     TOK_RIGHTAB = 375,
-     TOK_PAUSE = 376,
-     TOK_PROCEDURE = 377,
-     TOK_STOP = 378,
-     TOK_REAL8 = 379,
-     TOK_FOURDOTS = 380,
-     TOK_HEXA = 381,
-     TOK_ASSIGNTYPE = 382,
-     TOK_OUT = 383,
-     TOK_INOUT = 384,
-     TOK_IN = 385,
-     TOK_USE = 386,
-     TOK_TRUE = 387,
-     TOK_FALSE = 388,
-     TOK_LABEL = 389,
-     TOK_TYPE = 390,
-     TOK_TYPEPAR = 391,
-     TOK_ENDTYPE = 392,
-     TOK_REAL = 393,
-     TOK_INTEGER = 394,
-     TOK_LOGICAL = 395,
-     TOK_DOUBLEPRECISION = 396,
-     TOK_ENDSUBROUTINE = 397,
-     TOK_ENDFUNCTION = 398,
-     TOK_ENDPROGRAM = 399,
-     TOK_ENDUNIT = 400,
-     TOK_CHARACTER = 401,
-     TOK_CHAR_CONSTANT = 402,
-     TOK_CHAR_CUT = 403,
-     TOK_DATA = 404,
-     TOK_CHAR_MESSAGE = 405,
-     TOK_CSTREAL = 406,
-     TOK_COMPLEX = 407,
-     TOK_DOUBLECOMPLEX = 408,
-     TOK_NAME = 409,
-     TOK_CSTINT = 410
+     TOK_LABEL_FORMAT = 281,
+     TOK_LABEL_CONTINUE = 282,
+     TOK_LABEL_END_DO = 283,
+     TOK_MAX = 284,
+     TOK_TANH = 285,
+     TOK_COMMENT = 286,
+     TOK_WHERE = 287,
+     TOK_ELSEWHEREPAR = 288,
+     TOK_ELSEWHERE = 289,
+     TOK_ENDWHERE = 290,
+     TOK_MAXVAL = 291,
+     TOK_TRIM = 292,
+     TOK_NULL_PTR = 293,
+     TOK_SUM = 294,
+     TOK_SQRT = 295,
+     TOK_CASE = 296,
+     TOK_SELECTCASE = 297,
+     TOK_FILE = 298,
+     TOK_REC = 299,
+     TOK_NAME_EQ = 300,
+     TOK_IOLENGTH = 301,
+     TOK_ACCESS = 302,
+     TOK_ACTION = 303,
+     TOK_FORM = 304,
+     TOK_RECL = 305,
+     TOK_STATUS = 306,
+     TOK_UNIT = 307,
+     TOK_OPENED = 308,
+     TOK_FMT = 309,
+     TOK_NML = 310,
+     TOK_END = 311,
+     TOK_EOR = 312,
+     TOK_EOF = 313,
+     TOK_ERR = 314,
+     TOK_POSITION = 315,
+     TOK_IOSTAT = 316,
+     TOK_IOMSG = 317,
+     TOK_EXIST = 318,
+     TOK_MIN = 319,
+     TOK_FLOAT = 320,
+     TOK_EXP = 321,
+     TOK_LEN = 322,
+     TOK_COS = 323,
+     TOK_COSH = 324,
+     TOK_ACOS = 325,
+     TOK_NINT = 326,
+     TOK_CYCLE = 327,
+     TOK_SIN = 328,
+     TOK_SINH = 329,
+     TOK_ASIN = 330,
+     TOK_EQUIVALENCE = 331,
+     TOK_BACKSPACE = 332,
+     TOK_LOG = 333,
+     TOK_TAN = 334,
+     TOK_ATAN = 335,
+     TOK_RECURSIVE = 336,
+     TOK_ABS = 337,
+     TOK_MOD = 338,
+     TOK_SIGN = 339,
+     TOK_MINLOC = 340,
+     TOK_MAXLOC = 341,
+     TOK_EXIT = 342,
+     TOK_KIND = 343,
+     TOK_MOLD = 344,
+     TOK_SOURCE = 345,
+     TOK_ERRMSG = 346,
+     TOK_MINVAL = 347,
+     TOK_PUBLIC = 348,
+     TOK_PRIVATE = 349,
+     TOK_ALLOCATABLE = 350,
+     TOK_RETURN = 351,
+     TOK_THEN = 352,
+     TOK_ELSEIF = 353,
+     TOK_ELSE = 354,
+     TOK_ENDIF = 355,
+     TOK_PRINT = 356,
+     TOK_PLAINGOTO = 357,
+     TOK_LOGICALIF = 358,
+     TOK_LOGICALIF_PAR = 359,
+     TOK_PLAINDO = 360,
+     TOK_CONTAINS = 361,
+     TOK_ENDDO = 362,
+     TOK_MODULE = 363,
+     TOK_ENDMODULE = 364,
+     TOK_WHILE = 365,
+     TOK_CONCURRENT = 366,
+     TOK_ALLOCATE = 367,
+     TOK_OPEN = 368,
+     TOK_CLOSE = 369,
+     TOK_INQUIRE = 370,
+     TOK_WRITE_PAR = 371,
+     TOK_WRITE = 372,
+     TOK_FLUSH = 373,
+     TOK_READ_PAR = 374,
+     TOK_READ = 375,
+     TOK_REWIND = 376,
+     TOK_DEALLOCATE = 377,
+     TOK_NULLIFY = 378,
+     TOK_DIMENSION = 379,
+     TOK_ENDSELECT = 380,
+     TOK_EXTERNAL = 381,
+     TOK_INTENT = 382,
+     TOK_INTRINSIC = 383,
+     TOK_NAMELIST = 384,
+     TOK_DEFAULT = 385,
+     TOK_OPTIONAL = 386,
+     TOK_POINTER = 387,
+     TOK_CONTINUE = 388,
+     TOK_SAVE = 389,
+     TOK_TARGET = 390,
+     TOK_IMPLICIT = 391,
+     TOK_NONE = 392,
+     TOK_CALL = 393,
+     TOK_STAT = 394,
+     TOK_POINT_TO = 395,
+     TOK_COMMON = 396,
+     TOK_GLOBAL = 397,
+     TOK_LEFTAB = 398,
+     TOK_RIGHTAB = 399,
+     TOK_PAUSE = 400,
+     TOK_PROCEDURE = 401,
+     TOK_STOP = 402,
+     TOK_FOURDOTS = 403,
+     TOK_HEXA = 404,
+     TOK_ASSIGNTYPE = 405,
+     TOK_OUT = 406,
+     TOK_INOUT = 407,
+     TOK_IN = 408,
+     TOK_USE = 409,
+     TOK_EQUALEQUAL = 410,
+     TOK_SLASHEQUAL = 411,
+     TOK_INFEQUAL = 412,
+     TOK_SUPEQUAL = 413,
+     TOK_TRUE = 414,
+     TOK_FALSE = 415,
+     TOK_LABEL = 416,
+     TOK_LABEL_DJVIEW = 417,
+     TOK_PLAINDO_LABEL_DJVIEW = 418,
+     TOK_PLAINDO_LABEL = 419,
+     TOK_TYPE = 420,
+     TOK_TYPEPAR = 421,
+     TOK_ENDTYPE = 422,
+     TOK_COMMACOMPLEX = 423,
+     TOK_REAL = 424,
+     TOK_INTEGER = 425,
+     TOK_LOGICAL = 426,
+     TOK_DOUBLEPRECISION = 427,
+     TOK_ENDSUBROUTINE = 428,
+     TOK_ENDFUNCTION = 429,
+     TOK_ENDPROGRAM = 430,
+     TOK_ENDUNIT = 431,
+     TOK_CHARACTER = 432,
+     TOK_CHAR_CONSTANT = 433,
+     TOK_CHAR_CUT = 434,
+     TOK_DATA = 435,
+     TOK_CHAR_MESSAGE = 436,
+     TOK_CSTREAL = 437,
+     TOK_COMPLEX = 438,
+     TOK_DOUBLECOMPLEX = 439,
+     TOK_NAME = 440,
+     TOK_CSTINT = 441
    };
 #endif
@@ -294 +350 @@
 {
 /* Line 387 of yacc.c  */
-#line 65 "fortran.y"
+#line 89 "fortran.y"
 
     char        na[LONG_M];
@@ -306 +362 @@
 
 /* Line 387 of yacc.c  */
-#line 310 "fortran.tab.c"
+#line 365 "fortran.tab.c"
 } YYSTYPE;
 # define YYSTYPE_IS_TRIVIAL 1
@@ -334 +390 @@
 
 /* Line 390 of yacc.c  */
-#line 338 "fortran.tab.c"
+#line 393 "fortran.tab.c"
 
 #ifdef short
@@ -554 +610 @@
 #define YYFINAL  2
 /* YYLAST -- Last index in YYTABLE.  */
-#define YYLAST   6268
+#define YYLAST   4537
 
 /* YYNTOKENS -- Number of terminals.  */
-#define YYNTOKENS  169
+#define YYNTOKENS  203
 /* YYNNTS -- Number of nonterminals.  */
-#define YYNNTS  206
+#define YYNNTS  518
 /* YYNRULES -- Number of rules.  */
-#define YYNRULES  597
+#define YYNRULES  1063
 /* YYNRULES -- Number of states.  */
-#define YYNSTATES  1051
+#define YYNSTATES  1719
 
 /* YYTRANSLATE(YYLEX) -- Bison symbol number corresponding to YYLEX.  */
 #define YYUNDEFTOK  2
-#define YYMAXUTOK   410
+#define YYMAXUTOK   441
 
 #define YYTRANSLATE(YYX)                  \
@@ -576 +632 @@
 {
        0,     2,     2,     2,     2,     2,     2,     2,     2,     2,
-     166,     2,     2,     2,     2,     2,     2,     2,     2,     2,
+     197,     2,     2,     2,     2,     2,     2,     2,     2,     2,
        2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
-       2,     2,     2,     2,     2,     2,     2,   168,     2,     2,
-     162,   163,    21,    19,     3,    20,     2,   167,     2,     2,
+       2,     2,     2,     2,     2,     2,     2,   199,     2,     2,
+     193,   194,    21,    19,     3,    20,     2,   198,     2,     2,
        2,     2,     2,     2,     2,     2,     2,     2,     4,     2,
-     164,     5,   165,     2,     2,     2,     2,     2,     2,     2,
+     195,     5,   196,     2,     2,     2,     2,     2,     2,     2,
        2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
        2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
-       2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
+       2,   201,     2,   202,     2,   200,     2,     2,     2,     2,
        2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
        2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
@@ -616 +672 @@
      141,   142,   143,   144,   145,   146,   147,   148,   149,   150,
      151,   152,   153,   154,   155,   156,   157,   158,   159,   160,
-     161
+     161,   162,   163,   164,   165,   166,   167,   168,   169,   170,
+     171,   172,   173,   174,   175,   176,   177,   178,   179,   180,
+     181,   182,   183,   184,   185,   186,   187,   188,   189,   190,
+     191,   192
 };
 
@@ -624 +683 @@
 static const yytype_uint16 yyprhs[] =
 {
-       0,     0,     3,     4,     7,     9,    11,    14,    16,    19,
-      21,    25,    28,    31,    33,    37,    41,    44,    47,    51,
-      53,    54,    55,    57,    58,    61,    66,    69,    75,    78,
-      80,    83,    85,    87,    88,    91,    95,    96,    99,   103,
-     105,   109,   111,   113,   116,   121,   124,   127,   132,   135,
-     137,   139,   141,   143,   145,   147,   149,   151,   153,   158,
-     162,   166,   169,   172,   173,   175,   177,   179,   181,   183,
-     185,   187,   189,   191,   193,   195,   197,   199,   201,   203,
-     205,   207,   209,   211,   213,   215,   217,   219,   221,   223,
-     225,   229,   233,   239,   241,   245,   249,   252,   257,   259,
-     263,   264,   266,   269,   273,   275,   277,   280,   282,   286,
-     291,   296,   305,   307,   311,   314,   318,   324,   328,   330,
-     331,   334,   336,   341,   345,   348,   352,   356,   360,   364,
-     365,   367,   370,   374,   380,   384,   386,   392,   398,   401,
-     405,   408,   412,   414,   416,   420,   424,   427,   431,   437,
-     439,   442,   444,   448,   451,   453,   457,   458,   460,   462,
-     466,   470,   473,   475,   479,   482,   485,   491,   498,   499,
-     502,   505,   509,   513,   514,   517,   522,   526,   530,   535,
-     538,   540,   542,   544,   546,   548,   550,   552,   553,   556,
-     558,   562,   563,   566,   570,   572,   576,   579,   583,   585,
-     587,   589,   591,   593,   594,   598,   599,   601,   605,   607,
-     611,   613,   615,   617,   620,   622,   627,   629,   631,   633,
-     635,   637,   639,   641,   643,   645,   647,   648,   652,   654,
-     658,   660,   662,   665,   668,   672,   674,   676,   678,   680,
-     682,   686,   690,   694,   699,   704,   708,   713,   718,   722,
-     727,   732,   737,   742,   747,   752,   757,   762,   767,   772,
-     777,   782,   787,   791,   796,   800,   805,   810,   812,   816,
-     818,   820,   822,   825,   828,   831,   833,   835,   838,   841,
-     844,   847,   850,   853,   856,   859,   862,   866,   870,   873,
-     876,   879,   882,   885,   888,   891,   894,   897,   900,   901,
-     903,   906,   909,   912,   914,   916,   918,   920,   921,   923,
-     926,   931,   937,   942,   947,   951,   953,   956,   958,   962,
-     964,   966,   970,   976,   981,   985,   988,   991,   993,   995,
-     997,   999,  1001,  1003,  1005,  1007,  1010,  1013,  1015,  1018,
-    1020,  1022,  1023,  1025,  1031,  1032,  1034,  1036,  1038,  1039,
-    1042,  1045,  1051,  1054,  1059,  1066,  1073,  1075,  1077,  1081,
-    1085,  1087,  1091,  1095,  1097,  1099,  1101,  1103,  1105,  1107,
-    1109,  1111,  1113,  1116,  1118,  1120,  1123,  1126,  1129,  1133,
-    1136,  1142,  1148,  1151,  1154,  1157,  1160,  1162,  1167,  1169,
-    1172,  1175,  1178,  1181,  1183,  1185,  1187,  1189,  1195,  1202,
-    1203,  1207,  1208,  1213,  1214,  1219,  1224,  1226,  1228,  1230,
-    1232,  1234,  1238,  1243,  1245,  1248,  1250,  1253,  1254,  1255,
-    1258,  1262,  1264,  1269,  1271,  1273,  1278,  1281,  1287,  1291,
-    1295,  1297,  1302,  1305,  1312,  1321,  1327,  1331,  1333,  1335,
-    1337,  1339,  1341,  1344,  1351,  1352,  1354,  1357,  1361,  1362,
-    1364,  1367,  1371,  1379,  1385,  1391,  1398,  1400,  1403,  1405,
-    1408,  1414,  1419,  1420,  1422,  1425,  1429,  1436,  1441,  1444,
-    1448,  1450,  1453,  1457,  1459,  1461,  1465,  1467,  1470,  1473,
-    1477,  1479,  1481,  1483,  1485,  1487,  1489,  1491,  1493,  1495,
-    1496,  1501,  1509,  1511,  1515,  1518,  1521,  1524,  1525,  1529,
-    1530,  1532,  1535,  1538,  1540,  1542,  1546,  1548,  1551,  1553,
-    1555,  1556,  1558,  1561,  1564,  1565,  1568,  1572,  1576,  1580,
-    1582,  1586,  1588,  1590,  1594,  1596,  1598,  1600,  1604,  1610,
-    1615,  1618,  1621,  1622,  1624,  1626,  1628,  1630,  1632,  1634,
-    1636,  1638,  1640,  1644,  1646,  1648,  1652,  1656,  1660,  1664,
-    1667,  1671,  1674,  1677,  1680,  1683,  1686,  1689,  1692,  1696,
-    1698,  1700,  1702,  1704,  1708,  1711,  1716,  1719,  1722,  1728,
-    1729,  1731,  1734,  1736,  1738,  1740,  1742,  1746,  1750,  1754,
-    1758,  1762,  1766,  1772,  1778,  1784,  1790,  1798,  1807,  1810,
-    1812,  1816,  1818,  1820,  1824,  1825,  1830,  1832
+       0,     0,     3,     4,     7,     9,    11,    13,    16,    18,
+      20,    24,    27,    29,    33,    37,    39,    43,    45,    46,
+      48,    50,    52,    54,    56,    58,    59,    61,    63,    65,
+      68,    71,    74,    76,    78,    81,    84,    87,    90,    93,
+      96,    99,   102,   105,   109,   113,   116,   119,   122,   125,
+     128,   131,   134,   137,   140,   143,   144,   146,   149,   152,
+     155,   157,   159,   161,   163,   164,   166,   169,   170,   176,
+     177,   184,   186,   187,   193,   198,   200,   203,   205,   209,
+     211,   213,   217,   223,   228,   232,   235,   238,   240,   242,
+     244,   246,   248,   250,   252,   254,   257,   260,   262,   265,
+     267,   269,   270,   272,   273,   275,   278,   279,   281,   282,
+     284,   286,   289,   291,   293,   295,   297,   299,   301,   303,
+     305,   307,   309,   311,   313,   314,   316,   319,   320,   322,
+     324,   327,   329,   331,   332,   334,   338,   339,   341,   343,
+     346,   348,   350,   352,   354,   356,   358,   360,   362,   364,
+     366,   368,   370,   372,   374,   376,   378,   380,   382,   384,
+     386,   388,   390,   392,   394,   396,   398,   401,   406,   409,
+     411,   413,   415,   417,   419,   421,   423,   425,   427,   429,
+     431,   433,   435,   437,   439,   441,   443,   445,   447,   449,
+     451,   453,   454,   456,   458,   460,   461,   463,   465,   467,
+     469,   471,   472,   475,   479,   483,   484,   488,   489,   493,
+     494,   498,   499,   503,   504,   508,   509,   513,   514,   516,
+     520,   526,   529,   531,   534,   536,   540,   542,   544,   546,
+     549,   551,   555,   561,   563,   565,   567,   569,   571,   573,
+     574,   577,   578,   580,   582,   592,   598,   604,   614,   618,
+     624,   627,   631,   635,   637,   639,   641,   643,   645,   647,
+     648,   653,   658,   666,   667,   670,   671,   674,   676,   680,
+     682,   684,   688,   690,   693,   697,   698,   700,   702,   705,
+     707,   712,   713,   715,   719,   721,   725,   727,   729,   734,
+     736,   738,   742,   747,   748,   752,   754,   756,   757,   759,
+     762,   765,   768,   770,   772,   777,   779,   783,   785,   789,
+     793,   798,   800,   804,   806,   810,   812,   814,   816,   820,
+     824,   826,   828,   830,   832,   836,   838,   840,   846,   852,
+     860,   862,   863,   864,   871,   872,   875,   876,   878,   881,
+     885,   887,   889,   890,   896,   898,   899,   905,   907,   909,
+     911,   913,   915,   917,   919,   923,   928,   930,   932,   933,
+     935,   938,   941,   944,   946,   948,   950,   951,   952,   957,
+     959,   961,   963,   965,   967,   969,   973,   977,   979,   981,
+     983,   985,   989,   991,   994,   996,  1000,  1002,  1006,  1007,
+    1010,  1011,  1014,  1016,  1020,  1023,  1025,  1027,  1029,  1030,
+    1035,  1036,  1039,  1041,  1045,  1047,  1049,  1050,  1056,  1057,
+    1059,  1062,  1066,  1071,  1073,  1077,  1079,  1083,  1085,  1087,
+    1097,  1109,  1111,  1115,  1117,  1119,  1121,  1123,  1126,  1129,
+    1132,  1134,  1136,  1138,  1140,  1142,  1143,  1146,  1148,  1150,
+    1152,  1154,  1156,  1158,  1160,  1162,  1164,  1165,  1166,  1173,
+    1174,  1180,  1181,  1189,  1190,  1191,  1199,  1201,  1205,  1209,
+    1210,  1211,  1218,  1219,  1221,  1222,  1224,  1226,  1230,  1232,
+    1234,  1236,  1238,  1239,  1244,  1245,  1251,  1253,  1257,  1262,
+    1264,  1268,  1270,  1274,  1282,  1283,  1290,  1292,  1296,  1298,
+    1302,  1304,  1308,  1309,  1316,  1318,  1322,  1324,  1326,  1328,
+    1329,  1330,  1338,  1339,  1341,  1343,  1347,  1348,  1350,  1351,
+    1356,  1358,  1362,  1364,  1365,  1371,  1373,  1375,  1377,  1379,
+    1381,  1383,  1385,  1387,  1389,  1391,  1393,  1395,  1397,  1399,
+    1401,  1406,  1411,  1415,  1418,  1419,  1423,  1425,  1426,  1432,
+    1434,  1436,  1438,  1440,  1445,  1446,  1448,  1452,  1455,  1457,
+    1460,  1464,  1469,  1472,  1474,  1478,  1483,  1486,  1488,  1491,
+    1495,  1500,  1503,  1504,  1506,  1507,  1508,  1517,  1518,  1521,
+    1523,  1527,  1530,  1534,  1536,  1538,  1540,  1544,  1547,  1549,
+    1551,  1552,  1556,  1558,  1562,  1565,  1566,  1569,  1571,  1573,
+    1574,  1575,  1584,  1586,  1590,  1591,  1594,  1596,  1600,  1603,
+    1607,  1609,  1611,  1613,  1615,  1619,  1621,  1623,  1627,  1629,
+    1633,  1635,  1638,  1642,  1644,  1647,  1649,  1651,  1653,  1655,
+    1657,  1659,  1663,  1665,  1667,  1671,  1673,  1675,  1677,  1679,
+    1681,  1683,  1685,  1687,  1689,  1691,  1693,  1695,  1697,  1700,
+    1702,  1706,  1708,  1712,  1714,  1718,  1720,  1722,  1724,  1726,
+    1728,  1730,  1732,  1734,  1736,  1737,  1739,  1741,  1743,  1745,
+    1747,  1749,  1751,  1753,  1758,  1764,  1770,  1778,  1783,  1784,
+    1788,  1790,  1794,  1796,  1800,  1803,  1807,  1809,  1811,  1815,
+    1817,  1819,  1821,  1827,  1833,  1834,  1837,  1838,  1842,  1843,
+    1847,  1853,  1855,  1857,  1859,  1861,  1863,  1868,  1874,  1877,
+    1881,  1884,  1888,  1889,  1891,  1892,  1895,  1897,  1899,  1901,
+    1905,  1909,  1914,  1917,  1923,  1927,  1932,  1935,  1941,  1945,
+    1950,  1953,  1959,  1963,  1970,  1979,  1985,  1989,  1991,  1993,
+    1995,  1998,  2002,  2007,  2009,  2011,  2015,  2018,  2020,  2022,
+    2024,  2026,  2028,  2030,  2032,  2035,  2040,  2042,  2044,  2046,
+    2048,  2050,  2052,  2054,  2056,  2061,  2065,  2068,  2072,  2076,
+    2079,  2080,  2082,  2086,  2092,  2093,  2095,  2098,  2101,  2102,
+    2104,  2107,  2110,  2119,  2126,  2133,  2141,  2144,  2148,  2151,
+    2155,  2161,  2165,  2166,  2168,  2171,  2174,  2175,  2184,  2185,
+    2192,  2196,  2201,  2202,  2206,  2207,  2212,  2213,  2218,  2220,
+    2222,  2226,  2228,  2231,  2234,  2238,  2240,  2243,  2247,  2251,
+    2262,  2266,  2269,  2273,  2275,  2277,  2279,  2281,  2283,  2285,
+    2287,  2288,  2289,  2297,  2299,  2303,  2305,  2308,  2311,  2314,
+    2317,  2320,  2323,  2326,  2329,  2332,  2336,  2338,  2340,  2341,
+    2348,  2350,  2354,  2356,  2359,  2362,  2365,  2369,  2375,  2382,
+    2387,  2394,  2400,  2407,  2412,  2419,  2421,  2425,  2427,  2429,
+    2432,  2434,  2436,  2439,  2442,  2445,  2448,  2451,  2454,  2457,
+    2459,  2461,  2463,  2465,  2469,  2471,  2473,  2475,  2479,  2481,
+    2483,  2489,  2491,  2495,  2497,  2499,  2505,  2513,  2517,  2523,
+    2525,  2529,  2531,  2534,  2537,  2540,  2543,  2547,  2553,  2555,
+    2559,  2561,  2564,  2567,  2570,  2573,  2574,  2582,  2583,  2593,
+    2594,  2596,  2600,  2602,  2605,  2608,  2611,  2614,  2617,  2620,
+    2623,  2627,  2630,  2633,  2636,  2637,  2643,  2644,  2646,  2647,
+    2652,  2653,  2660,  2661,  2663,  2664,  2666,  2669,  2670,  2672,
+    2674,  2677,  2679,  2681,  2683,  2686,  2687,  2688,  2697,  2698,
+    2710,  2711,  2713,  2717,  2718,  2720,  2726,  2727,  2729,  2730,
+    2732,  2733,  2738,  2739,  2740,  2747,  2748,  2750,  2751,  2753,
+    2755,  2756,  2759,  2761,  2765,  2769,  2771,  2775,  2777,  2779,
+    2781,  2783,  2785,  2789,  2794,  2796,  2800,  2802,  2807,  2809,
+    2813,  2815,  2819,  2820,  2826,  2827,  2831,  2832,  2838,  2839,
+    2840,  2848,  2849,  2854,  2856,  2858,  2860,  2862,  2866,  2868,
+    2872,  2874,  2876,  2878,  2879,  2881,  2883,  2886,  2888,  2890,
+    2892,  2898,  2899,  2900,  2911,  2913,  2915,  2916,  2918,  2923,
+    2924,  2932,  2933,  2935,  2941,  2942,  2949,  2951,  2958,  2959,
+    2960,  2962,  2963,  2964,  2969,  2970,  2972,  2974,  2978,  2980,
+    2982,  2986,  2991,  2992,  2997,  2999,  3001,  3005,  3009,  3011,
+    3015,  3017,  3018,  3020
 };
 
@@ -689 +795 @@
 static const yytype_int16 yyrhs[] =
 {
-     170,     0,    -1,    -1,   170,   171,    -1,   172,    -1,   173,
-      -1,   140,   173,    -1,     1,    -1,   166,   175,    -1,    24,
-      -1,   172,   166,   175,    -1,   172,    24,    -1,   172,   140,
-      -1,   174,    -1,   173,    24,   166,    -1,   173,    24,   174,
-      -1,   178,   175,    -1,   186,   175,    -1,    28,   181,   175,
-      -1,   282,    -1,    -1,    -1,    70,    -1,    -1,    26,   183,
-      -1,   176,    29,   180,   182,    -1,    30,   180,    -1,   176,
-      31,   180,   182,   177,    -1,    92,   160,    -1,   161,    -1,
-     179,   161,    -1,   160,    -1,   153,    -1,    -1,   162,   163,
-      -1,   162,   184,   163,    -1,    -1,   162,   163,    -1,   162,
-     184,   163,    -1,   185,    -1,   184,     3,   185,    -1,   160,
-      -1,    21,    -1,   228,   196,    -1,   141,   187,   195,   336,
-      -1,   143,   336,    -1,   114,   190,    -1,   198,   162,   221,
-     163,    -1,   198,   221,    -1,   215,    -1,   203,    -1,   225,
-      -1,   211,    -1,   213,    -1,   212,    -1,   276,    -1,   223,
-      -1,   209,    -1,    66,   162,   249,   163,    -1,   108,   195,
-     214,    -1,   110,   195,   189,    -1,    65,   191,    -1,   199,
-     166,    -1,    -1,   244,    -1,    42,    -1,    34,    -1,    39,
-      -1,    54,    -1,    77,    -1,    40,    -1,    43,    -1,    60,
-      -1,    55,    -1,    56,    -1,    57,    -1,    58,    -1,    59,
-      -1,    62,    -1,    63,    -1,    64,    -1,    67,    -1,    68,
-      -1,    69,    -1,    72,    -1,    73,    -1,    74,    -1,    75,
-      -1,   160,    -1,   188,    -1,   189,     3,   188,    -1,   162,
-     194,   163,    -1,   190,     3,   162,   194,   163,    -1,   192,
-      -1,   191,     3,   192,    -1,   162,   193,   163,    -1,   267,
-     245,    -1,   193,     3,   267,   245,    -1,   249,    -1,   194,
-       3,   249,    -1,    -1,   131,    -1,   226,   227,    -1,   197,
-     180,   182,    -1,    31,    -1,    25,    -1,   155,   200,    -1,
-     201,    -1,   200,   220,   201,    -1,   160,    22,   202,    22,
-      -1,   206,    22,   202,    22,    -1,   162,   257,     3,   368,
-     163,    22,   202,    22,    -1,   207,    -1,   207,     3,   202,
-      -1,   204,   205,    -1,   204,   219,   205,    -1,   203,   220,
-     219,   220,   205,    -1,   203,     3,   205,    -1,   116,    -1,
-      -1,   160,   245,    -1,   160,    -1,   160,   162,   249,   163,
-      -1,   206,     3,   206,    -1,   208,   268,    -1,   207,    19,
-     207,    -1,   207,    20,   207,    -1,   207,    21,   207,    -1,
-     207,   167,   207,    -1,    -1,   253,    -1,   111,   267,    -1,
-     111,   219,   267,    -1,   209,   220,   219,   220,   267,    -1,
-     209,     3,   267,    -1,   106,    -1,   210,   220,   160,   245,
-     233,    -1,   211,     3,   160,   245,   233,    -1,    79,   166,
-      -1,    79,   195,   214,    -1,    78,   166,    -1,    78,   195,
-     214,    -1,   160,    -1,   133,    -1,   214,     3,   160,    -1,
-     214,     3,   133,    -1,   216,   217,    -1,   216,   219,   217,
-      -1,   215,   220,   219,   220,   217,    -1,   123,    -1,   124,
-     123,    -1,   218,    -1,   217,     3,   218,    -1,   160,   245,
-      -1,    18,    -1,    22,   160,    22,    -1,    -1,     3,    -1,
-     222,    -1,   221,     3,   222,    -1,   160,     5,   249,    -1,
-     128,   224,    -1,   160,    -1,   224,     3,   160,    -1,   118,
-     119,    -1,   118,   130,    -1,   240,   160,   245,   233,   274,
-      -1,   226,     3,   160,   245,   233,   274,    -1,    -1,   232,
-     235,    -1,   231,   229,    -1,   232,    21,   161,    -1,   142,
-     237,   163,    -1,    -1,    21,   161,    -1,    21,   162,   230,
-     163,    -1,   162,   230,   163,    -1,   160,   238,   239,    -1,
-     160,     5,   238,   239,    -1,   238,   239,    -1,   152,    -1,
-     145,    -1,   146,    -1,   144,    -1,   158,    -1,   159,    -1,
-     147,    -1,    -1,    21,   234,    -1,   249,    -1,   162,    21,
-     163,    -1,    -1,    21,   236,    -1,   162,   237,   163,    -1,
-     249,    -1,   162,    21,   163,    -1,   160,   238,    -1,   160,
-       5,   238,    -1,   160,    -1,   161,    -1,   133,    -1,   249,
-      -1,    21,    -1,    -1,     3,   160,   238,    -1,    -1,   131,
-      -1,     3,   241,   131,    -1,   242,    -1,   241,     3,   242,
-      -1,    25,    -1,   244,    -1,    80,    -1,   106,   245,    -1,
-     108,    -1,   109,   162,   243,   163,    -1,   110,    -1,   113,
-      -1,   114,    -1,   116,    -1,   117,    -1,   136,    -1,   134,
-      -1,   135,    -1,    78,    -1,    79,    -1,    -1,   162,   246,
-     163,    -1,   247,    -1,   246,     3,   247,    -1,   248,    -1,
-       4,    -1,   249,     4,    -1,     4,   249,    -1,   249,     4,
-     248,    -1,    21,    -1,   249,    -1,   252,    -1,   275,    -1,
-     250,    -1,   162,   249,   163,    -1,    42,   251,   163,    -1,
-      33,   251,   163,    -1,    34,   162,   251,   163,    -1,    39,
-     162,   251,   163,    -1,    54,   251,   163,    -1,    77,   162,
-     251,   163,    -1,    40,   162,   249,   163,    -1,    43,   249,
-     163,    -1,   144,   162,   251,   163,    -1,    60,   162,   249,
-     163,    -1,    55,   162,   249,   163,    -1,    56,   162,   249,
-     163,    -1,    57,   162,   249,   163,    -1,    58,   162,   249,
-     163,    -1,    59,   162,   249,   163,    -1,    62,   162,   249,
-     163,    -1,    63,   162,   249,   163,    -1,    64,   162,   249,
-     163,    -1,    67,   162,   249,   163,    -1,    68,   162,   249,
-     163,    -1,    69,   162,   249,   163,    -1,    71,   249,   163,
-      -1,    72,   162,   251,   163,    -1,    73,   251,   163,    -1,
-      74,   162,   251,   163,    -1,    75,   162,   251,   163,    -1,
-     249,    -1,   251,     3,   249,    -1,   257,    -1,   268,    -1,
-     262,    -1,   249,   254,    -1,   253,   249,    -1,    11,   249,
-      -1,    19,    -1,    20,    -1,    19,   249,    -1,    20,   249,
-      -1,    21,   249,    -1,    23,   249,    -1,    13,   249,    -1,
-       7,   249,    -1,    16,   249,    -1,   165,   249,    -1,   164,
-     249,    -1,   165,     5,   249,    -1,   164,     5,   249,    -1,
-      17,   249,    -1,    14,   249,    -1,    15,   249,    -1,    12,
-     249,    -1,     6,   249,    -1,     8,   249,    -1,     9,   249,
-      -1,    10,   249,    -1,    22,   255,    -1,     5,   256,    -1,
-      -1,   249,    -1,     5,   249,    -1,    22,   249,    -1,     5,
-     249,    -1,   249,    -1,   267,    -1,   261,    -1,   259,    -1,
-      -1,   260,    -1,   260,   271,    -1,   261,   162,   263,   163,
-      -1,   261,   162,   263,   163,   271,    -1,   267,   162,   263,
-     163,    -1,   257,   168,   356,   257,    -1,   125,   366,   126,
-      -1,   258,    -1,   258,   264,    -1,   265,    -1,   264,     3,
-     265,    -1,   249,    -1,   266,    -1,   249,     4,   249,    -1,
-     249,     4,   249,     4,   249,    -1,     4,   249,     4,   249,
-      -1,     4,     4,   249,    -1,     4,   249,    -1,   249,     4,
-      -1,     4,    -1,   160,    -1,   138,    -1,   139,    -1,    41,
-      -1,   161,    -1,   157,    -1,   132,    -1,   268,   160,    -1,
-     269,   270,    -1,   153,    -1,   269,   153,    -1,   156,    -1,
-     154,    -1,    -1,   271,    -1,   162,   272,     4,   272,   163,
-      -1,    -1,   249,    -1,   166,    -1,   249,    -1,    -1,     5,
-     249,    -1,   122,   249,    -1,   162,   252,     3,   252,   163,
-      -1,   277,   160,    -1,   277,   160,     3,   278,    -1,   277,
-     160,     3,    27,     4,   166,    -1,   277,   160,     3,    27,
-       4,   280,    -1,   137,    -1,   279,    -1,   278,     3,   279,
-      -1,   160,   122,   160,    -1,   281,    -1,   280,     3,   281,
-      -1,   160,   122,   160,    -1,   160,    -1,   283,    -1,   331,
-      -1,   284,    -1,   300,    -1,   320,    -1,   310,    -1,   287,
-      -1,   115,    -1,   338,   340,    -1,   369,    -1,   341,    -1,
-     357,   352,    -1,   359,   350,    -1,   100,   352,    -1,   100,
-     352,   366,    -1,   103,   353,    -1,    96,   162,   370,   373,
-     163,    -1,   104,   162,   372,   373,   163,    -1,    76,   272,
-      -1,    81,   273,    -1,    61,   273,    -1,   348,   273,    -1,
-     339,    -1,   105,   162,   374,   163,    -1,   333,    -1,   334,
-     336,    -1,   332,   336,    -1,   335,   336,    -1,    93,   336,
-      -1,   319,    -1,   286,    -1,    90,    -1,   249,    -1,    35,
-     162,   294,   163,   293,    -1,   291,   172,   288,   289,   290,
-     297,    -1,    -1,   288,   292,   172,    -1,    -1,   289,   295,
-     172,   288,    -1,    -1,   290,   296,   172,   288,    -1,    35,
-     162,   294,   163,    -1,   293,    -1,   286,    -1,   287,    -1,
-     285,    -1,   249,    -1,    36,   294,   163,    -1,    36,   294,
-     163,   160,    -1,    37,    -1,    37,   160,    -1,    38,    -1,
-      38,   160,    -1,    -1,    -1,   299,   282,    -1,   299,   282,
-     172,    -1,   301,    -1,   302,   172,   307,   308,    -1,   303,
-      -1,   304,    -1,   160,     4,    89,   179,    -1,    89,   179,
-      -1,   160,     4,    89,   179,   305,    -1,    89,   179,   305,
-      -1,   160,     4,    89,    -1,    89,    -1,   160,     4,    89,
-     305,    -1,    89,   305,    -1,   220,   306,     5,   249,     3,
-     249,    -1,   220,   306,     5,   249,     3,   249,     3,   249,
-      -1,   220,    94,   162,   249,   163,    -1,   220,    95,   298,
-      -1,   267,    -1,   299,    -1,   309,    -1,   330,    -1,    91,
-      -1,    91,   160,    -1,   315,   172,   299,   311,   313,   318,
-      -1,    -1,   312,    -1,   311,   312,    -1,   316,   172,   299,
-      -1,    -1,   314,    -1,   313,   312,    -1,   317,   172,   299,
-      -1,   160,     4,    88,   162,   249,   163,    82,    -1,    88,
-     162,   249,   163,    82,    -1,    83,   162,   249,   163,    82,
-      -1,    83,   162,   249,   163,    82,   160,    -1,    84,    -1,
-      84,   160,    -1,    85,    -1,    85,   160,    -1,    88,   162,
-     249,   163,   284,    -1,   323,   172,   321,   325,    -1,    -1,
-     322,    -1,   321,   322,    -1,   324,   172,   299,    -1,   160,
-       4,    45,   162,   249,   163,    -1,    45,   162,   249,   163,
-      -1,    44,   326,    -1,    44,   326,   160,    -1,   107,    -1,
-     107,   160,    -1,   162,   327,   163,    -1,   112,    -1,   328,
-      -1,   327,     3,   328,    -1,   329,    -1,   329,     4,    -1,
-       4,   329,    -1,   329,     4,   329,    -1,   249,    -1,   115,
-      -1,    32,    -1,   148,    -1,   151,    -1,   150,    -1,   149,
-      -1,   166,    -1,   160,    -1,    -1,   267,   337,   245,   245,
-      -1,   338,   168,   356,   267,   337,   245,   245,    -1,   161,
-      -1,   339,     3,   161,    -1,     5,   249,    -1,   122,   249,
-      -1,   344,   342,    -1,    -1,   162,   343,   163,    -1,    -1,
-     346,    -1,   345,   101,    -1,   345,   160,    -1,   120,    -1,
-     347,    -1,   346,     3,   347,    -1,   249,    -1,    21,   161,
-      -1,   127,    -1,   129,    -1,    -1,   363,    -1,   352,   349,
-      -1,   358,   351,    -1,    -1,     3,   363,    -1,   162,   354,
-     163,    -1,   162,   267,   163,    -1,   162,   161,   163,    -1,
-     161,    -1,   162,   252,   163,    -1,   160,    -1,   355,    -1,
-     354,     3,   355,    -1,   360,    -1,    21,    -1,    23,    -1,
-     267,   249,   245,    -1,   267,   249,   168,   356,   338,    -1,
-     267,   162,   266,   163,    -1,   267,    21,    -1,   267,    23,
-      -1,    -1,    97,    -1,    98,    -1,   101,    -1,   361,    -1,
-      21,    -1,   102,    -1,    99,    -1,    86,    -1,   361,    -1,
-     162,   360,   163,    -1,   257,    -1,   268,    -1,   360,   362,
-     360,    -1,   360,    21,   360,    -1,   360,    22,   360,    -1,
-     360,    23,   360,    -1,   362,   360,    -1,   360,    18,   360,
-      -1,    46,   249,    -1,    47,   249,    -1,    49,   249,    -1,
-      48,   249,    -1,    53,   249,    -1,    52,   249,    -1,    50,
-     249,    -1,   160,     5,   249,    -1,   250,    -1,    19,    -1,
-      20,    -1,   364,    -1,   363,     3,   364,    -1,   257,   365,
-      -1,   162,   363,   163,   365,    -1,   250,   365,    -1,   268,
-     365,    -1,   162,   363,     3,   368,   163,    -1,    -1,   254,
-      -1,   365,   254,    -1,   275,    -1,   250,    -1,   252,    -1,
-     367,    -1,   252,     3,   249,    -1,   252,     3,   367,    -1,
-     367,     3,   249,    -1,   367,     3,   367,    -1,   366,     3,
-     249,    -1,   366,     3,   367,    -1,   162,   252,     3,   368,
-     163,    -1,   162,   366,     3,   368,   163,    -1,   162,   367,
-       3,   368,   163,    -1,   160,     5,   249,     3,   249,    -1,
-     160,     5,   249,     3,   249,     3,   249,    -1,    87,   162,
-     249,     3,   249,   163,     3,   249,    -1,    87,   161,    -1,
-     371,    -1,   370,     3,   371,    -1,   257,    -1,   371,    -1,
-     372,     3,   371,    -1,    -1,     3,   121,     5,   257,    -1,
-     267,    -1,   374,     3,   267,    -1
+     204,     0,    -1,    -1,   204,   205,    -1,   206,    -1,   207,
+      -1,     1,    -1,   197,   209,    -1,    24,    -1,    64,    -1,
+     206,   197,   209,    -1,   206,    24,    -1,   208,    -1,   207,
+      24,   197,    -1,   207,    24,   208,    -1,   210,    -1,    28,
+     212,   209,    -1,    37,    -1,    -1,   652,    -1,   211,    -1,
+     632,    -1,   691,    -1,   702,    -1,   184,    -1,    -1,     3,
+      -1,   219,    -1,   232,    -1,   501,   216,    -1,   215,   501,
+      -1,    11,   501,    -1,    19,    -1,    20,    -1,    19,   501,
+      -1,    20,   501,    -1,    21,   501,    -1,    23,   501,    -1,
+      13,   501,    -1,     7,   501,    -1,    16,   501,    -1,   196,
+     501,    -1,   195,   501,    -1,   196,     5,   501,    -1,   195,
+       5,   501,    -1,    17,   501,    -1,    14,   501,    -1,    15,
+     501,    -1,    12,   501,    -1,     6,   501,    -1,     8,   501,
+      -1,     9,   501,    -1,    10,   501,    -1,    22,   217,    -1,
+       5,   218,    -1,    -1,   501,    -1,     5,   501,    -1,    22,
+     501,    -1,     5,   501,    -1,   501,    -1,   231,    -1,   226,
+      -1,   221,    -1,    -1,   224,    -1,   224,   443,    -1,    -1,
+     226,   193,   222,   227,   194,    -1,    -1,   226,   193,   223,
+     227,   194,   443,    -1,   109,    -1,    -1,   231,   193,   225,
+     227,   194,    -1,   219,   199,   719,   219,    -1,   220,    -1,
+     220,   228,    -1,   229,    -1,   228,     3,   229,    -1,   501,
+      -1,   230,    -1,   501,     4,   501,    -1,   501,     4,   501,
+       4,   501,    -1,     4,   501,     4,   501,    -1,     4,     4,
+     501,    -1,     4,   501,    -1,   501,     4,    -1,     4,    -1,
+     191,    -1,   165,    -1,   166,    -1,    44,    -1,   192,    -1,
+     188,    -1,   155,    -1,   232,   191,    -1,   233,   234,    -1,
+     184,    -1,   233,   184,    -1,   187,    -1,   185,    -1,    -1,
+     443,    -1,    -1,   501,    -1,   237,   238,    -1,    -1,   645,
+      -1,    -1,   239,    -1,   240,    -1,   239,   240,    -1,   290,
+      -1,   392,    -1,   631,    -1,   406,    -1,   251,    -1,   330,
+      -1,   513,    -1,   514,    -1,   539,    -1,   587,    -1,   714,
+      -1,   606,    -1,    -1,   242,    -1,   252,   243,    -1,    -1,
+     244,    -1,   245,    -1,   244,   245,    -1,   252,    -1,   631,
+      -1,    -1,   247,    -1,   112,   206,   248,    -1,    -1,   249,
+      -1,   250,    -1,   249,   250,    -1,   691,    -1,   702,    -1,
+     364,    -1,   422,    -1,   369,    -1,   386,    -1,   416,    -1,
+     669,    -1,   672,    -1,   412,    -1,   397,    -1,   253,    -1,
+     539,    -1,   569,    -1,   559,    -1,   525,    -1,   457,    -1,
+     513,    -1,   677,    -1,   600,    -1,   587,    -1,   558,    -1,
+     474,    -1,   585,    -1,   584,    -1,   622,    -1,    78,   235,
+      -1,   129,   193,   720,   194,    -1,   115,   717,    -1,   568,
+      -1,   625,    -1,   593,    -1,   514,    -1,   606,    -1,   604,
+      -1,   714,    -1,   619,    -1,   588,    -1,   524,    -1,   605,
+      -1,   586,    -1,   231,    -1,   256,    -1,   257,    -1,   258,
+      -1,   276,    -1,   279,    -1,   289,    -1,   280,    -1,   288,
+      -1,   231,    -1,    -1,   260,    -1,   167,    -1,   192,    -1,
+      -1,   262,    -1,   168,    -1,   506,    -1,    21,    -1,     4,
+      -1,    -1,   265,   266,    -1,   172,   266,   194,    -1,   172,
+     314,   194,    -1,    -1,   176,   267,   273,    -1,    -1,   175,
+     268,   273,    -1,    -1,   178,   269,   273,    -1,    -1,   189,
+     270,   273,    -1,    -1,   183,   271,   284,    -1,    -1,   177,
+     272,   273,    -1,    -1,   274,    -1,   193,   511,   194,    -1,
+     193,    94,     5,   511,   194,    -1,    21,   192,    -1,   276,
+      -1,   488,   276,    -1,   192,    -1,   192,   200,   277,    -1,
+     192,    -1,   191,    -1,   279,    -1,   488,   279,    -1,   188,
+      -1,   188,   200,   277,    -1,   193,   281,   174,   282,   194,
+      -1,   275,    -1,   278,    -1,   231,    -1,   275,    -1,   278,
+      -1,   258,    -1,    -1,    21,   287,    -1,    -1,   285,    -1,
+     286,    -1,   193,    73,     5,   263,     3,    94,     5,   511,
+     194,    -1,   193,   263,     3,   511,   194,    -1,   193,    94,
+       5,   511,   194,    -1,   193,    94,     5,   511,     3,    73,
+       5,   263,   194,    -1,   193,   263,   194,    -1,   193,    73,
+       5,   263,   194,    -1,    21,   287,    -1,    21,   287,     3,
+      -1,   193,   263,   194,    -1,   276,    -1,   184,    -1,   187,
+      -1,   185,    -1,   165,    -1,   166,    -1,    -1,   292,   291,
+     300,   299,    -1,   171,   293,   191,   206,    -1,   171,   294,
+     191,   193,   297,   194,   206,    -1,    -1,   294,   154,    -1,
+      -1,     3,   295,    -1,   296,    -1,   295,     3,   296,    -1,
+     346,    -1,   298,    -1,   297,     3,   298,    -1,   191,    -1,
+     173,   206,    -1,   173,   191,   206,    -1,    -1,   301,    -1,
+     302,    -1,   301,   302,    -1,   303,    -1,   264,   304,   307,
+     206,    -1,    -1,   154,    -1,     3,   305,   154,    -1,   306,
+      -1,   305,     3,   306,    -1,   346,    -1,   101,    -1,   130,
+     193,   310,   194,    -1,   138,    -1,   308,    -1,   307,     3,
+     308,    -1,   231,   309,   283,   311,    -1,    -1,   193,   310,
+     194,    -1,   350,    -1,   356,    -1,    -1,   312,    -1,     5,
+     508,    -1,   146,   345,    -1,   146,   313,    -1,   432,    -1,
+     231,    -1,   231,   193,   315,   194,    -1,   316,    -1,   315,
+       3,   316,    -1,   263,    -1,   254,     5,   263,    -1,   314,
+     193,   194,    -1,   314,   193,   318,   194,    -1,   319,    -1,
+     318,     3,   319,    -1,   320,    -1,   254,     5,   320,    -1,
+     501,    -1,   520,    -1,   523,    -1,   149,   322,   150,    -1,
+     323,   322,   324,    -1,   325,    -1,   201,    -1,   202,    -1,
+     326,    -1,   325,     3,   326,    -1,   501,    -1,   327,    -1,
+     193,   325,     3,   328,   194,    -1,   329,     5,   506,     3,
+     506,    -1,   329,     5,   506,     3,   506,     3,   506,    -1,
+     545,    -1,    -1,    -1,   331,   264,   333,   339,   332,   206,
+      -1,    -1,   334,   154,    -1,    -1,   335,    -1,     3,   336,
+      -1,   335,     3,   336,    -1,   346,    -1,   101,    -1,    -1,
+     130,   193,   337,   349,   194,    -1,   132,    -1,    -1,   133,
+     193,   338,   363,   194,    -1,   134,    -1,   137,    -1,    25,
+      -1,   138,    -1,   140,    -1,   141,    -1,   340,    -1,   339,
+       3,   340,    -1,   342,   347,   283,   343,    -1,   231,    -1,
+     191,    -1,    -1,   344,    -1,     5,   508,    -1,   146,   345,
+      -1,   146,   313,    -1,   675,    -1,    99,    -1,   100,    -1,
+      -1,    -1,   193,   348,   349,   194,    -1,   350,    -1,   354,
+      -1,   356,    -1,   358,    -1,   361,    -1,   351,    -1,   350,
+       3,   351,    -1,   352,     4,   353,    -1,   353,    -1,   507,
+      -1,   507,    -1,   355,    -1,   354,     3,   355,    -1,     4,
+      -1,   352,     4,    -1,   357,    -1,   356,     3,   357,    -1,
+       4,    -1,   359,   360,    21,    -1,    -1,   350,     3,    -1,
+      -1,   352,     4,    -1,   362,    -1,   361,     3,   362,    -1,
+     360,    21,    -1,   159,    -1,   157,    -1,   158,    -1,    -1,
+     346,   366,   365,   206,    -1,    -1,   400,   367,    -1,   368,
+      -1,   367,     3,   368,    -1,   191,    -1,   668,    -1,    -1,
+     186,   373,   371,   370,   206,    -1,    -1,   372,    -1,   427,
+     373,    -1,   372,   427,   373,    -1,   374,    22,   375,    22,
+      -1,   376,    -1,   374,     3,   376,    -1,   381,    -1,   375,
+       3,   381,    -1,   434,    -1,   377,    -1,   193,   378,     3,
+     380,     5,   511,     3,   511,   194,    -1,   193,   378,     3,
+     380,     5,   511,     3,   511,     3,   511,   194,    -1,   379,
+      -1,   378,     3,   379,    -1,   451,    -1,   449,    -1,   377,
+      -1,   545,    -1,   384,   382,    -1,   276,   382,    -1,   288,
+     382,    -1,   275,    -1,   278,    -1,   345,    -1,   313,    -1,
+     317,    -1,    -1,    21,   383,    -1,   255,    -1,   384,    -1,
+     275,    -1,   278,    -1,   345,    -1,   313,    -1,   317,    -1,
+     385,    -1,   432,    -1,    -1,    -1,   387,   130,   400,   389,
+     388,   206,    -1,    -1,   191,   193,   390,   349,   194,    -1,
+      -1,   389,     3,   191,   193,   391,   349,   194,    -1,    -1,
+      -1,    25,   393,   193,   395,   194,   394,   206,    -1,   396,
+      -1,   395,     3,   396,    -1,   191,     5,   508,    -1,    -1,
+      -1,   398,   140,   400,   401,   399,   206,    -1,    -1,   154,
+      -1,    -1,   402,    -1,   403,    -1,   402,     3,   403,    -1,
+     341,    -1,   404,    -1,   426,    -1,   231,    -1,    -1,   405,
+     142,   408,   206,    -1,    -1,   405,   142,   143,   407,   206,
+      -1,   409,    -1,   408,     3,   409,    -1,   264,   193,   410,
+     194,    -1,   411,    -1,   410,     3,   411,    -1,   191,    -1,
+     191,    20,   191,    -1,   135,    22,   191,    22,   414,   413,
+     206,    -1,    -1,   413,   427,    22,   191,    22,   414,    -1,
+     415,    -1,   414,     3,   415,    -1,   435,    -1,    82,   417,
+     206,    -1,   418,    -1,   417,     3,   418,    -1,    -1,   193,
+     419,   421,     3,   420,   194,    -1,   421,    -1,   420,     3,
+     421,    -1,   435,    -1,   451,    -1,   443,    -1,    -1,    -1,
+     147,   423,   425,   429,   428,   424,   206,    -1,    -1,   426,
+      -1,    18,    -1,    22,   191,    22,    -1,    -1,     3,    -1,
+      -1,   428,   427,   426,   429,    -1,   430,    -1,   429,     3,
+     430,    -1,   191,    -1,    -1,   191,   193,   431,   349,   194,
+      -1,   451,    -1,   452,    -1,   450,    -1,   443,    -1,   434,
+      -1,   432,    -1,   231,    -1,   437,    -1,   434,    -1,   434,
+      -1,   440,    -1,   434,    -1,   442,    -1,   434,    -1,   445,
+      -1,   445,   193,   444,   194,    -1,   288,   193,   444,   194,
+      -1,   505,     4,   505,    -1,   447,   446,    -1,    -1,   446,
+     199,   447,    -1,   231,    -1,    -1,   231,   193,   448,   453,
+     194,    -1,   450,    -1,   445,    -1,   445,    -1,   445,    -1,
+     445,   193,   444,   194,    -1,    -1,   454,    -1,   453,     3,
+     454,    -1,   501,   455,    -1,     4,    -1,     4,   501,    -1,
+       4,     4,   501,    -1,     4,   501,     4,   501,    -1,   154,
+     501,    -1,   456,    -1,   231,     5,   501,    -1,   231,     5,
+      21,   260,    -1,    21,   260,    -1,     4,    -1,     4,   501,
+      -1,     4,     4,   501,    -1,     4,   501,     4,   501,    -1,
+     154,   501,    -1,    -1,   504,    -1,    -1,    -1,   118,   193,
+     458,   465,   460,   194,   459,   206,    -1,    -1,     3,   461,
+      -1,   462,    -1,   461,     3,   462,    -1,    97,   464,    -1,
+     145,     5,   463,    -1,   441,    -1,   439,    -1,   466,    -1,
+     465,     3,   466,    -1,   467,   468,    -1,   435,    -1,   450,
+      -1,    -1,   193,   469,   194,    -1,   470,    -1,   469,     3,
+     470,    -1,   471,   473,    -1,    -1,   472,     4,    -1,   506,
+      -1,   506,    -1,    -1,    -1,   128,   193,   475,   477,   478,
+     194,   476,   206,    -1,   467,    -1,   477,     3,   467,    -1,
+      -1,     3,   479,    -1,   480,    -1,   479,     3,   480,    -1,
+      97,   464,    -1,   145,     5,   463,    -1,   432,    -1,   257,
+      -1,   321,    -1,   675,    -1,   193,   501,   194,    -1,   481,
+      -1,   482,    -1,   482,   486,   483,    -1,   483,    -1,   484,
+     487,   483,    -1,   484,    -1,   488,   484,    -1,   485,   488,
+     484,    -1,   275,    -1,   485,   275,    -1,    23,    -1,    21,
+      -1,    22,    -1,    19,    -1,    20,    -1,   485,    -1,   489,
+     490,   485,    -1,    18,    -1,   489,    -1,   489,   492,   489,
+      -1,    13,    -1,    12,    -1,    17,    -1,    15,    -1,    16,
+      -1,    14,    -1,   161,    -1,   162,    -1,   195,    -1,   163,
+      -1,   196,    -1,   164,    -1,   491,    -1,   497,   491,    -1,
+     493,    -1,   494,   498,   493,    -1,   494,    -1,   495,   499,
+     494,    -1,   495,    -1,   496,   500,   495,    -1,    11,    -1,
+      10,    -1,     9,    -1,     7,    -1,     6,    -1,   496,    -1,
+     503,    -1,   501,    -1,   501,    -1,    -1,   506,    -1,   504,
+      -1,   506,    -1,   501,    -1,   510,    -1,   503,    -1,   512,
+      -1,   504,    -1,   434,     5,   501,   206,    -1,   260,   434,
+       5,   501,   206,    -1,   432,   515,   146,   520,   206,    -1,
+     432,   193,   517,   194,   146,   520,   206,    -1,   432,   146,
+     523,   206,    -1,    -1,   193,   516,   194,    -1,   518,    -1,
+     516,     3,   518,    -1,   519,    -1,   517,     3,   519,    -1,
+     472,     4,    -1,   472,     4,   473,    -1,   434,    -1,   191,
+      -1,   433,   199,   521,    -1,   501,    -1,   521,    -1,   522,
+      -1,    38,   193,   532,   194,   531,    -1,   529,   526,   527,
+     528,   535,    -1,    -1,   526,   530,    -1,    -1,   527,   533,
+     526,    -1,    -1,   528,   534,   526,    -1,    38,   193,   532,
+     194,   206,    -1,   531,    -1,   524,    -1,   525,    -1,   513,
+      -1,   501,    -1,    39,   532,   194,   206,    -1,    39,   532,
+     194,   191,   206,    -1,    40,   206,    -1,    40,   191,   206,
+      -1,    41,   206,    -1,    41,   191,   206,    -1,    -1,   538,
+      -1,    -1,   538,   245,    -1,   540,    -1,   549,    -1,   540,
+      -1,   541,   546,   547,    -1,   543,   546,   547,    -1,   191,
+       4,   170,   206,    -1,   170,   206,    -1,   191,     4,   170,
+     544,   206,    -1,   170,   544,   206,    -1,   191,     4,   169,
+     206,    -1,   169,   206,    -1,   191,     4,   169,   544,   206,
+      -1,   169,   544,   206,    -1,   191,     4,   111,   206,    -1,
+     111,   206,    -1,   191,     4,   111,   544,   206,    -1,   111,
+     544,   206,    -1,   213,   545,     5,   501,     3,   501,    -1,
+     213,   545,     5,   501,     3,   501,     3,   501,    -1,   213,
+     116,   193,   501,   194,    -1,   213,   117,   536,    -1,   231,
+      -1,   537,    -1,   548,    -1,   262,   587,    -1,   261,   113,
+     206,    -1,   261,   113,   191,   206,    -1,   550,    -1,   553,
+      -1,   541,   546,   551,    -1,   262,   552,    -1,   457,    -1,
+     513,    -1,   677,    -1,   600,    -1,   474,    -1,   622,    -1,
+     585,    -1,   127,   718,    -1,   129,   193,   720,   194,    -1,
+     568,    -1,   625,    -1,   593,    -1,   606,    -1,   604,    -1,
+     619,    -1,   524,    -1,   605,    -1,   541,   546,   554,   555,
+      -1,   541,   546,   555,    -1,   542,   546,    -1,   554,   542,
+     546,    -1,   542,   546,   556,    -1,   262,   253,    -1,    -1,
+     191,    -1,    78,   557,   206,    -1,   564,   537,   560,   562,
+     567,    -1,    -1,   561,    -1,   560,   561,    -1,   565,   537,
+      -1,    -1,   563,    -1,   562,   561,    -1,   566,   537,    -1,
+     259,   191,     4,   110,   501,   194,   103,   206,    -1,   259,
+     110,   501,   194,   103,   206,    -1,   104,   193,   501,   194,
+     103,   206,    -1,   104,   193,   501,   194,   103,   191,   206,
+      -1,   105,   206,    -1,   105,   191,   206,    -1,   106,   206,
+      -1,   106,   191,   206,    -1,   259,   110,   501,   194,   253,
+      -1,   572,   570,   576,    -1,    -1,   571,    -1,   570,   571,
+      -1,   575,   537,    -1,    -1,   191,     4,    48,   193,   501,
+     194,   573,   206,    -1,    -1,    48,   193,   501,   194,   574,
+     206,    -1,    47,   579,   206,    -1,    47,   579,   191,   206,
+      -1,    -1,   131,   577,   206,    -1,    -1,   131,   191,   578,
+     206,    -1,    -1,   193,   580,   581,   194,    -1,   136,    -1,
+     582,    -1,   581,     3,   582,    -1,   583,    -1,   583,     4,
+      -1,     4,   583,    -1,   583,     4,   583,    -1,   501,    -1,
+      93,   206,    -1,    93,   191,   206,    -1,   108,   260,   206,
+      -1,   259,   110,   501,   194,   260,     3,   260,     3,   260,
+     206,    -1,   259,   139,   206,    -1,   153,   206,    -1,   153,
+     589,   206,    -1,   509,    -1,   511,    -1,   591,    -1,    21,
+      -1,   592,    -1,   506,    -1,   438,    -1,    -1,    -1,   119,
+     193,   594,   596,   194,   595,   206,    -1,   597,    -1,   596,
+       3,   597,    -1,   591,    -1,    58,   591,    -1,    53,   502,
+      -1,    54,   502,    -1,    65,   260,    -1,    49,   598,    -1,
+      55,   502,    -1,    67,   441,    -1,    66,   502,    -1,    56,
+     506,    -1,    57,     5,   502,    -1,   502,    -1,   439,    -1,
+      -1,   120,   193,   601,   602,   194,   206,    -1,   603,    -1,
+     602,     3,   603,    -1,   591,    -1,    58,   591,    -1,    67,
+     441,    -1,    65,   260,    -1,    57,     5,   502,    -1,   259,
+     125,   607,   194,   206,    -1,   259,   125,   607,   194,   611,
+     206,    -1,   259,   126,   610,   206,    -1,   259,   126,   610,
+       3,   611,   206,    -1,   259,   122,   607,   194,   206,    -1,
+     259,   122,   607,   194,   613,   206,    -1,   259,   107,   610,
+     206,    -1,   259,   107,   610,     3,   613,   206,    -1,   609,
+      -1,   607,     3,   609,    -1,   191,    -1,   590,    -1,    58,
+     590,    -1,   610,    -1,   608,    -1,    61,   608,    -1,    60,
+     610,    -1,    62,   260,    -1,    63,   260,    -1,    65,   260,
+      -1,    67,   441,    -1,    50,   506,    -1,   503,    -1,   260,
+      -1,    21,    -1,   612,    -1,   611,     3,   612,    -1,   434,
+      -1,   615,    -1,   614,    -1,   613,     3,   614,    -1,   501,
+      -1,   615,    -1,   193,   616,     3,   618,   194,    -1,   617,
+      -1,   616,     3,   617,    -1,   612,    -1,   614,    -1,   545,
+       5,   506,     3,   506,    -1,   545,     5,   506,     3,   506,
+       3,   506,    -1,   127,   591,   206,    -1,   127,   193,   620,
+     194,   206,    -1,   621,    -1,   620,     3,   621,    -1,   591,
+      -1,    58,   591,    -1,    68,   599,    -1,    67,   441,    -1,
+      65,   260,    -1,   124,   591,   206,    -1,   124,   193,   623,
+     194,   206,    -1,   624,    -1,   623,     3,   624,    -1,   591,
+      -1,    58,   591,    -1,    67,   441,    -1,    68,   599,    -1,
+      65,   260,    -1,    -1,   121,   628,   193,   629,   194,   626,
+     206,    -1,    -1,   121,   628,   193,    52,   441,   194,   613,
+     627,   206,    -1,    -1,   630,    -1,   629,     3,   630,    -1,
+     591,    -1,    58,   591,    -1,    49,   598,    -1,    53,   439,
+      -1,    54,   439,    -1,    65,   260,    -1,    69,   436,    -1,
+      67,   441,    -1,    51,     5,   439,    -1,    59,   436,    -1,
+      56,   441,    -1,    32,   206,    -1,    -1,   635,   653,   634,
+     633,   637,    -1,    -1,   641,    -1,    -1,   114,   191,   636,
+     206,    -1,    -1,   405,   182,   639,   640,   638,   206,    -1,
+      -1,   114,    -1,    -1,   191,    -1,   715,   642,    -1,    -1,
+     643,    -1,   644,    -1,   643,   644,    -1,   691,    -1,   702,
+      -1,   647,    -1,   645,   647,    -1,    -1,    -1,   405,   160,
+     646,   650,   191,   662,   648,   206,    -1,    -1,   405,   160,
+     646,   650,   191,     3,    27,     4,   651,   649,   206,    -1,
+      -1,   154,    -1,     3,   661,   154,    -1,    -1,   665,    -1,
+     654,   653,   241,   246,   656,    -1,    -1,   236,    -1,    -1,
+     242,    -1,    -1,    30,   191,   655,   206,    -1,    -1,    -1,
+     657,   182,   659,   660,   658,   206,    -1,    -1,    30,    -1,
+      -1,   191,    -1,   134,    -1,    -1,     3,   663,    -1,   664,
+      -1,   663,     3,   664,    -1,   191,   146,   191,    -1,   666,
+      -1,   665,     3,   666,    -1,   668,    -1,   667,    -1,   664,
+      -1,   191,    -1,   191,    -1,   132,   670,   206,    -1,   132,
+     154,   670,   206,    -1,   671,    -1,   670,     3,   671,    -1,
+     191,    -1,   134,   400,   673,   206,    -1,   674,    -1,   673,
+       3,   674,    -1,   191,    -1,   684,   193,   194,    -1,    -1,
+     684,   193,   676,   685,   194,    -1,    -1,   682,   678,   206,
+      -1,    -1,   682,   193,   194,   679,   206,    -1,    -1,    -1,
+     682,   193,   680,   685,   194,   681,   206,    -1,    -1,   259,
+     144,   683,   684,    -1,   231,    -1,   124,    -1,   175,    -1,
+     686,    -1,   685,     3,   686,    -1,   687,    -1,   254,     5,
+     687,    -1,   501,    -1,   434,    -1,   231,    -1,    -1,   689,
+      -1,   690,    -1,   689,   690,    -1,   264,    -1,   114,    -1,
+      87,    -1,   692,   653,   241,   246,   699,    -1,    -1,    -1,
+     688,    31,   695,   193,   693,   711,   194,   697,   694,   206,
+      -1,   191,    -1,   191,    -1,    -1,   698,    -1,    26,   193,
+     191,   194,    -1,    -1,   405,   182,   701,   640,   707,   700,
+     206,    -1,    -1,    31,    -1,   703,   653,   241,   246,   706,
+      -1,    -1,   688,    29,   705,   709,   704,   206,    -1,   191,
+      -1,   405,   182,   708,   640,   707,   206,    -1,    -1,    -1,
+      29,    -1,    -1,    -1,   193,   710,   711,   194,    -1,    -1,
+     712,    -1,   713,    -1,   712,     3,   713,    -1,   696,    -1,
+      21,    -1,   259,   102,   206,    -1,   259,   102,   506,   206,
+      -1,    -1,   259,   112,   716,   206,    -1,   197,    -1,   191,
+      -1,   193,   231,   194,    -1,   193,   192,   194,    -1,   192,
+      -1,   193,   214,   194,    -1,   191,    -1,    -1,   231,    -1,
+     720,     3,   231,    -1
 };
 
@@ -878 +1103 @@
 static const yytype_uint16 yyrline[] =
 {
-       0,   313,   313,   314,   316,   317,   318,   319,   322,   323,
-     324,   325,   326,   329,   330,   331,   334,   335,   336,   344,
-     347,   350,   351,   354,   355,   358,   366,   375,   392,   411,
-     412,   415,   417,   419,   420,   421,   423,   424,   425,   427,
-     439,   451,   452,   454,   455,   456,   457,   458,   475,   492,
-     493,   498,   499,   536,   549,   550,   551,   552,   553,   554,
-     555,   556,   557,   570,   571,   578,   579,   580,   581,   582,
-     583,   584,   585,   586,   587,   588,   589,   590,   591,   592,
-     593,   594,   595,   596,   597,   598,   599,   600,   601,   604,
-     605,   608,   609,   612,   613,   615,   618,   619,   622,   623,
-     625,   626,   629,   695,   710,   712,   716,   719,   720,   723,
-     729,   734,   748,   749,   752,   753,   754,   755,   758,   760,
-     761,   764,   765,   766,   769,   770,   771,   772,   773,   775,
-     776,   779,   780,   781,   782,   785,   792,   802,   814,   815,
-     818,   819,   822,   823,   824,   825,   828,   834,   842,   852,
-     853,   856,   857,   860,   868,   874,   881,   882,   885,   886,
-     889,   905,   908,   909,   912,   921,   923,   945,   970,   972,
-     973,   974,   975,   977,   978,   979,   980,   983,   984,   985,
-     987,   990,   991,   992,   993,   994,   995,   997,   998,  1001,
-    1002,  1004,  1005,  1006,  1008,  1009,  1012,  1013,  1023,  1024,
-    1025,  1028,  1029,  1031,  1032,  1034,  1035,  1036,  1038,  1039,
-    1042,  1043,  1044,  1045,  1046,  1047,  1049,  1050,  1051,  1052,
-    1053,  1056,  1057,  1058,  1061,  1062,  1064,  1065,  1073,  1079,
-    1086,  1087,  1088,  1089,  1090,  1093,  1094,  1096,  1097,  1098,
-    1099,  1103,  1104,  1105,  1106,  1107,  1108,  1109,  1110,  1111,
-    1112,  1113,  1114,  1115,  1116,  1117,  1118,  1119,  1120,  1121,
-    1122,  1123,  1124,  1125,  1126,  1127,  1128,  1130,  1131,  1133,
-    1134,  1135,  1136,  1137,  1138,  1140,  1141,  1145,  1146,  1147,
-    1148,  1149,  1150,  1151,  1152,  1153,  1154,  1155,  1156,  1157,
-    1158,  1159,  1160,  1161,  1162,  1163,  1164,  1165,  1167,  1168,
-    1169,  1170,  1173,  1174,  1177,  1178,  1179,  1183,  1194,  1195,
-    1196,  1197,  1200,  1209,  1216,  1219,  1220,  1223,  1224,  1227,
-    1228,  1231,  1232,  1233,  1234,  1235,  1236,  1237,  1239,  1285,
-    1286,  1287,  1288,  1289,  1290,  1291,  1293,  1296,  1297,  1298,
-    1299,  1301,  1302,  1305,  1307,  1308,  1311,  1312,  1314,  1315,
-    1321,  1329,  1332,  1352,  1379,  1399,  1439,  1446,  1450,  1457,
-    1467,  1468,  1476,  1486,  1498,  1499,  1504,  1505,  1506,  1507,
-    1508,  1513,  1514,  1515,  1516,  1517,  1518,  1519,  1520,  1521,
-    1522,  1523,  1524,  1525,  1526,  1527,  1528,  1529,  1530,  1567,
-    1576,  1587,  1595,  1617,  1618,  1619,  1657,  1661,  1665,  1668,
-    1669,  1672,  1673,  1676,  1677,  1682,  1686,  1687,  1688,  1692,
-    1696,  1701,  1702,  1707,  1708,  1713,  1714,  1718,  1722,  1723,
-    1724,  1729,  1734,  1739,  1740,  1745,  1746,  1747,  1748,  1753,
-    1754,  1755,  1756,  1761,  1762,  1763,  1764,  1768,  1772,  1776,
-    1777,  1782,  1783,  1787,  1790,  1791,  1792,  1796,  1799,  1800,
-    1801,  1804,  1809,  1810,  1815,  1816,  1821,  1822,  1827,  1828,
-    1832,  1836,  1839,  1840,  1841,  1844,  1849,  1850,  1855,  1856,
-    1861,  1862,  1867,  1868,  1872,  1873,  1878,  1879,  1880,  1881,
-    1885,  1889,  1893,  1897,  1905,  1912,  1919,  1926,  1927,  1930,
-    1933,  1944,  1950,  1951,  1954,  1955,  1957,  1970,  1971,  1973,
-    1974,  1977,  1978,  2000,  2003,  2004,  2007,  2015,  2018,  2019,
-    2022,  2023,  2026,  2027,  2029,  2030,  2032,  2035,  2036,  2037,
-    2038,  2039,  2042,  2043,  2046,  2047,  2048,  2049,  2050,  2051,
-    2052,  2053,  2056,  2059,  2060,  2061,  2063,  2064,  2067,  2068,
-    2069,  2072,  2073,  2076,  2077,  2078,  2079,  2080,  2081,  2082,
-    2083,  2084,  2085,  2086,  2087,  2088,  2089,  2090,  2091,  2092,
-    2094,  2095,  2097,  2098,  2104,  2105,  2106,  2107,  2108,  2110,
-    2111,  2112,  2115,  2116,  2117,  2118,  2119,  2120,  2121,  2122,
-    2123,  2124,  2127,  2128,  2129,  2131,  2132,  2134,  2135,  2138,
-    2139,  2142,  2145,  2146,  2148,  2149,  2152,  2153
+       0,   512,   512,   513,   515,   516,   517,   519,   521,   522,
+     523,   524,   527,   528,   529,   531,   532,   540,   558,   562,
+     563,   564,   568,   569,   582,   850,   851,  1102,  1103,  1104,
+    1105,  1106,  1108,  1109,  1113,  1114,  1115,  1116,  1117,  1118,
+    1119,  1120,  1121,  1122,  1123,  1124,  1125,  1126,  1127,  1128,
+    1129,  1130,  1131,  1132,  1133,  1135,  1136,  1137,  1138,  1141,
+    1142,  1145,  1146,  1147,  1151,  1162,  1163,  1164,  1164,  1165,
+    1165,  1167,  1168,  1168,  1177,  1189,  1190,  1193,  1194,  1197,
+    1198,  1201,  1202,  1203,  1204,  1205,  1206,  1207,  1209,  1256,
+    1257,  1258,  1259,  1260,  1261,  1262,  1264,  1267,  1268,  1269,
+    1270,  1272,  1273,  1283,  1284,  1336,  1339,  1340,  1365,  1366,
+    1370,  1371,  1384,  1385,  1386,  1387,  1388,  1389,  1390,  1391,
+    1392,  1393,  1394,  1395,  1398,  1399,  1403,  1406,  1407,  1411,
+    1412,  1416,  1417,  1420,  1421,  1425,  1429,  1430,  1433,  1434,
+    1438,  1439,  1443,  1444,  1445,  1446,  1447,  1448,  1449,  1450,
+    1451,  1456,  1457,  1458,  1459,  1460,  1468,  1469,  1470,  1471,
+    1472,  1473,  1474,  1475,  1476,  1477,  1478,  1479,  1480,  1502,
+    1503,  1504,  1505,  1506,  1507,  1508,  1509,  1510,  1511,  1512,
+    1513,  1517,  1520,  1525,  1526,  1530,  1531,  1532,  1533,  1535,
+    1539,  1558,  1559,  1563,  1564,  1568,  1569,  1573,  1577,  1578,
+    1579,  1590,  1590,  1592,  1593,  1598,  1598,  1600,  1600,  1602,
+    1602,  1604,  1604,  1606,  1606,  1608,  1608,  1613,  1614,  1620,
+    1622,  1624,  1631,  1632,  1637,  1638,  1643,  1644,  1660,  1661,
+    1666,  1667,  1674,  1680,  1681,  1682,  1686,  1687,  1688,  1691,
+    1692,  1697,  1698,  1703,  1704,  1705,  1706,  1707,  1711,  1713,
+    1715,  1716,  1720,  1722,  1727,  1728,  1729,  1733,  1734,  1738,
+    1738,  1743,  1744,  1747,  1748,  1751,  1752,  1755,  1756,  1760,
+    1763,  1764,  1767,  1771,  1772,  1775,  1776,  1780,  1781,  1785,
+    1789,  1792,  1793,  1794,  1797,  1798,  1802,  1803,  1804,  1805,
+    1808,  1809,  1813,  1836,  1837,  1841,  1842,  1845,  1846,  1850,
+    1851,  1852,  1856,  1861,  1863,  1866,  1867,  1871,  1872,  1876,
+    1877,  1880,  1881,  1885,  1886,  1890,  1891,  1892,  1896,  1898,
+    1913,  1917,  1921,  1925,  1926,  1931,  1932,  1936,  1941,  1943,
+    1948,  1952,  1953,  1952,  2020,  2021,  2024,  2025,  2029,  2030,
+    2034,  2035,  2037,  2037,  2039,  2041,  2041,  2043,  2044,  2046,
+    2048,  2050,  2052,  2057,  2059,  2064,  2098,  2101,  2104,  2105,
+    2109,  2115,  2121,  2130,  2134,  2136,  2141,  2142,  2142,  2147,
+    2149,  2151,  2153,  2155,  2159,  2165,  2174,  2176,  2181,  2186,
+    2190,  2196,  2205,  2207,  2212,  2218,  2227,  2232,  2255,  2256,
+    2275,  2276,  2280,  2281,  2285,  2289,  2291,  2293,  2299,  2298,
+    2317,  2318,  2322,  2324,  2329,  2330,  2335,  2334,  2349,  2350,
+    2353,  2354,  2358,  2368,  2370,  2376,  2378,  2383,  2384,  2388,
+    2394,  2401,  2403,  2408,  2409,  2413,  2417,  2422,  2424,  2426,
+    2428,  2429,  2430,  2431,  2432,  2436,  2437,  2453,  2454,  2455,
+    2456,  2457,  2458,  2459,  2465,  2473,  2478,  2480,  2478,  2525,
+    2525,  2534,  2534,  2547,  2548,  2547,  2567,  2569,  2574,  2591,
+    2592,  2591,  2599,  2600,  2603,  2604,  2607,  2608,  2612,  2614,
+    2615,  2619,  2623,  2627,  2629,  2628,  2640,  2641,  2645,  2648,
+    2649,  2653,  2654,  2658,  2661,  2662,  2664,  2665,  2669,  2673,
+    2676,  2677,  2681,  2681,  2684,  2685,  2689,  2690,  2691,  2696,
+    2697,  2696,  2706,  2707,  2715,  2721,  2729,  2730,  2733,  2734,
+    2738,  2740,  2748,  2754,  2754,  2763,  2764,  2765,  2766,  2775,
+    2778,  2791,  2794,  2798,  2802,  2805,  2809,  2812,  2815,  2819,
+    2820,  2822,  2837,  2842,  2847,  2848,  2853,  2855,  2855,  2867,
+    2871,  2876,  2881,  2883,  2890,  2891,  2893,  2915,  2917,  2919,
+    2921,  2923,  2925,  2927,  2928,  2930,  2932,  2936,  2938,  2940,
+    2942,  2944,  2947,  2961,  2965,  2966,  2965,  2974,  2975,  2979,
+    2980,  2984,  2985,  2989,  2993,  2997,  2998,  3002,  3006,  3007,
+    3010,  3011,  3015,  3016,  3020,  3023,  3024,  3028,  3032,  3036,
+    3037,  3036,  3042,  3043,  3046,  3047,  3051,  3052,  3056,  3057,
+    3066,  3076,  3077,  3078,  3079,  3084,  3089,  3090,  3094,  3095,
+    3102,  3103,  3105,  3107,  3108,  3113,  3117,  3119,  3123,  3125,
+    3130,  3131,  3136,  3139,  3140,  3145,  3146,  3147,  3148,  3149,
+    3150,  3151,  3152,  3153,  3155,  3156,  3158,  3163,  3164,  3170,
+    3171,  3177,  3178,  3183,  3184,  3189,  3193,  3197,  3201,  3202,
+    3206,  3209,  3213,  3217,  3221,  3222,  3225,  3229,  3236,  3240,
+    3244,  3247,  3251,  3257,  3258,  3270,  3271,  3272,  3280,  3281,
+    3285,  3286,  3290,  3291,  3295,  3299,  3303,  3306,  3315,  3319,
+    3320,  3321,  3325,  3329,  3332,  3333,  3336,  3337,  3340,  3341,
+    3345,  3349,  3350,  3351,  3355,  3359,  3363,  3364,  3368,  3369,
+    3374,  3375,  3379,  3383,  3386,  3387,  3392,  3393,  3397,  3402,
+    3403,  3414,  3415,  3416,  3417,  3420,  3421,  3422,  3423,  3427,
+    3428,  3429,  3430,  3435,  3436,  3437,  3438,  3442,  3446,  3455,
+    3456,  3460,  3461,  3472,  3473,  3479,  3489,  3494,  3495,  3496,
+    3497,  3498,  3499,  3500,  3501,  3502,  3503,  3504,  3505,  3506,
+    3507,  3508,  3509,  3510,  3520,  3521,  3524,  3525,  3536,  3541,
+    3544,  3545,  3549,  3553,  3556,  3557,  3558,  3561,  3564,  3565,
+    3566,  3569,  3573,  3574,  3578,  3579,  3583,  3584,  3588,  3589,
+    3593,  3597,  3600,  3601,  3602,  3605,  3609,  3609,  3610,  3610,
+    3614,  3615,  3619,  3619,  3620,  3620,  3625,  3625,  3626,  3630,
+    3631,  3636,  3637,  3638,  3639,  3643,  3647,  3648,  3652,  3656,
+    3660,  3664,  3665,  3669,  3670,  3674,  3675,  3676,  3680,  3684,
+    3688,  3688,  3688,  3691,  3692,  3696,  3697,  3698,  3699,  3700,
+    3701,  3702,  3703,  3704,  3705,  3706,  3710,  3714,  3718,  3718,
+    3722,  3723,  3727,  3728,  3729,  3730,  3731,  3735,  3736,  3737,
+    3738,  3742,  3743,  3747,  3748,  3750,  3751,  3754,  3758,  3759,
+    3760,  3761,  3762,  3763,  3764,  3765,  3766,  3767,  3768,  3772,
+    3773,  3774,  3777,  3778,  3781,  3782,  3786,  3787,  3791,  3792,
+    3796,  3799,  3800,  3804,  3805,  3809,  3810,  3814,  3815,  3819,
+    3820,  3824,  3825,  3826,  3827,  3828,  3832,  3833,  3837,  3838,
+    3842,  3843,  3844,  3845,  3846,  3852,  3851,  3855,  3854,  3859,
+    3863,  3864,  3868,  3869,  3870,  3871,  3872,  3873,  3874,  3875,
+    3876,  3877,  3878,  3882,  3886,  3886,  3889,  3890,  3895,  3894,
+    3915,  3914,  3939,  3940,  3943,  3944,  3947,  3950,  3951,  3954,
+    3955,  3958,  3959,  3962,  3963,  3967,  3972,  3971,  4010,  4009,
+    4061,  4062,  4063,  4067,  4068,  4073,  4076,  4077,  4080,  4081,
+    4086,  4085,  4099,  4100,  4099,  4111,  4112,  4114,  4115,  4118,
+    4122,  4125,  4131,  4135,  4144,  4154,  4156,  4165,  4173,  4181,
+    4189,  4193,  4197,  4198,  4201,  4202,  4205,  4209,  4213,  4214,
+    4217,  4221,  4222,  4222,  4229,  4228,  4242,  4241,  4254,  4255,
+    4254,  4269,  4269,  4293,  4294,  4295,  4299,  4300,  4305,  4313,
+    4324,  4325,  4335,  4338,  4339,  4343,  4344,  4348,  4350,  4352,
+    4357,  4362,  4363,  4361,  4386,  4411,  4416,  4417,  4421,  4438,
+    4437,  4442,  4443,  4447,  4452,  4451,  4466,  4483,  4488,  4532,
+    4533,  4537,  4538,  4538,  4543,  4544,  4549,  4561,  4575,  4577,
+    4582,  4583,  4588,  4587,  4623,  4624,  4731,  4732,  4733,  4734,
+    4735,  4752,  4845,  4846
 };
 #endif
@@ -951 +1223 @@
   "'*'", "TOK_SLASH", "TOK_DASTER", "TOK_SEMICOLON", "TOK_PARAMETER",
   "TOK_RESULT", "TOK_ONLY", "TOK_INCLUDE", "TOK_SUBROUTINE", "TOK_PROGRAM",
-  "TOK_FUNCTION", "TOK_FORMAT", "TOK_MAX", "TOK_TANH", "TOK_WHERE",
+  "TOK_FUNCTION", "TOK_LABEL_FORMAT", "TOK_LABEL_CONTINUE",
+  "TOK_LABEL_END_DO", "TOK_MAX", "TOK_TANH", "TOK_COMMENT", "TOK_WHERE",
   "TOK_ELSEWHEREPAR", "TOK_ELSEWHERE", "TOK_ENDWHERE", "TOK_MAXVAL",
   "TOK_TRIM", "TOK_NULL_PTR", "TOK_SUM", "TOK_SQRT", "TOK_CASE",
-  "TOK_SELECTCASE", "TOK_FILE", "TOK_UNIT", "TOK_FMT", "TOK_NML",
-  "TOK_END", "TOK_EOR", "TOK_ERR", "TOK_EXIST", "TOK_MIN", "TOK_FLOAT",
-  "TOK_EXP", "TOK_COS", "TOK_COSH", "TOK_ACOS", "TOK_NINT", "TOK_CYCLE",
-  "TOK_SIN", "TOK_SINH", "TOK_ASIN", "TOK_EQUIVALENCE", "TOK_BACKSPACE",
-  "TOK_LOG", "TOK_TAN", "TOK_ATAN", "TOK_RECURSIVE", "TOK_ABS", "TOK_MOD",
-  "TOK_SIGN", "TOK_MINLOC", "TOK_MAXLOC", "TOK_EXIT", "TOK_MINVAL",
-  "TOK_PUBLIC", "TOK_PRIVATE", "TOK_ALLOCATABLE", "TOK_RETURN", "TOK_THEN",
-  "TOK_ELSEIF", "TOK_ELSE", "TOK_ENDIF", "TOK_PRINT", "TOK_PLAINGOTO",
-  "TOK_LOGICALIF", "TOK_PLAINDO", "TOK_CONTAINS", "TOK_ENDDO",
+  "TOK_SELECTCASE", "TOK_FILE", "TOK_REC", "TOK_NAME_EQ", "TOK_IOLENGTH",
+  "TOK_ACCESS", "TOK_ACTION", "TOK_FORM", "TOK_RECL", "TOK_STATUS",
+  "TOK_UNIT", "TOK_OPENED", "TOK_FMT", "TOK_NML", "TOK_END", "TOK_EOR",
+  "TOK_EOF", "TOK_ERR", "TOK_POSITION", "TOK_IOSTAT", "TOK_IOMSG",
+  "TOK_EXIST", "TOK_MIN", "TOK_FLOAT", "TOK_EXP", "TOK_LEN", "TOK_COS",
+  "TOK_COSH", "TOK_ACOS", "TOK_NINT", "TOK_CYCLE", "TOK_SIN", "TOK_SINH",
+  "TOK_ASIN", "TOK_EQUIVALENCE", "TOK_BACKSPACE", "TOK_LOG", "TOK_TAN",
+  "TOK_ATAN", "TOK_RECURSIVE", "TOK_ABS", "TOK_MOD", "TOK_SIGN",
+  "TOK_MINLOC", "TOK_MAXLOC", "TOK_EXIT", "TOK_KIND", "TOK_MOLD",
+  "TOK_SOURCE", "TOK_ERRMSG", "TOK_MINVAL", "TOK_PUBLIC", "TOK_PRIVATE",
+  "TOK_ALLOCATABLE", "TOK_RETURN", "TOK_THEN", "TOK_ELSEIF", "TOK_ELSE",
+  "TOK_ENDIF", "TOK_PRINT", "TOK_PLAINGOTO", "TOK_LOGICALIF",
+  "TOK_LOGICALIF_PAR", "TOK_PLAINDO", "TOK_CONTAINS", "TOK_ENDDO",
   "TOK_MODULE", "TOK_ENDMODULE", "TOK_WHILE", "TOK_CONCURRENT",
-  "TOK_ALLOCATE", "TOK_OPEN", "TOK_CLOSE", "TOK_INQUIRE", "TOK_WRITE",
-  "TOK_FLUSH", "TOK_READ", "TOK_REWIND", "TOK_DEALLOCATE", "TOK_NULLIFY",
-  "TOK_DIMENSION", "TOK_ENDSELECT", "TOK_EXTERNAL", "TOK_INTENT",
-  "TOK_INTRINSIC", "TOK_NAMELIST", "TOK_DEFAULT", "TOK_OPTIONAL",
-  "TOK_POINTER", "TOK_CONTINUE", "TOK_SAVE", "TOK_TARGET", "TOK_IMPLICIT",
-  "TOK_NONE", "TOK_CALL", "TOK_STAT", "TOK_POINT_TO", "TOK_COMMON",
-  "TOK_GLOBAL", "TOK_LEFTAB", "TOK_RIGHTAB", "TOK_PAUSE", "TOK_PROCEDURE",
-  "TOK_STOP", "TOK_REAL8", "TOK_FOURDOTS", "TOK_HEXA", "TOK_ASSIGNTYPE",
-  "TOK_OUT", "TOK_INOUT", "TOK_IN", "TOK_USE", "TOK_TRUE", "TOK_FALSE",
-  "TOK_LABEL", "TOK_TYPE", "TOK_TYPEPAR", "TOK_ENDTYPE", "TOK_REAL",
+  "TOK_ALLOCATE", "TOK_OPEN", "TOK_CLOSE", "TOK_INQUIRE", "TOK_WRITE_PAR",
+  "TOK_WRITE", "TOK_FLUSH", "TOK_READ_PAR", "TOK_READ", "TOK_REWIND",
+  "TOK_DEALLOCATE", "TOK_NULLIFY", "TOK_DIMENSION", "TOK_ENDSELECT",
+  "TOK_EXTERNAL", "TOK_INTENT", "TOK_INTRINSIC", "TOK_NAMELIST",
+  "TOK_DEFAULT", "TOK_OPTIONAL", "TOK_POINTER", "TOK_CONTINUE", "TOK_SAVE",
+  "TOK_TARGET", "TOK_IMPLICIT", "TOK_NONE", "TOK_CALL", "TOK_STAT",
+  "TOK_POINT_TO", "TOK_COMMON", "TOK_GLOBAL", "TOK_LEFTAB", "TOK_RIGHTAB",
+  "TOK_PAUSE", "TOK_PROCEDURE", "TOK_STOP", "TOK_FOURDOTS", "TOK_HEXA",
+  "TOK_ASSIGNTYPE", "TOK_OUT", "TOK_INOUT", "TOK_IN", "TOK_USE",
+  "TOK_EQUALEQUAL", "TOK_SLASHEQUAL", "TOK_INFEQUAL", "TOK_SUPEQUAL",
+  "TOK_TRUE", "TOK_FALSE", "TOK_LABEL", "TOK_LABEL_DJVIEW",
+  "TOK_PLAINDO_LABEL_DJVIEW", "TOK_PLAINDO_LABEL", "TOK_TYPE",
+  "TOK_TYPEPAR", "TOK_ENDTYPE", "TOK_COMMACOMPLEX", "TOK_REAL",
   "TOK_INTEGER", "TOK_LOGICAL", "TOK_DOUBLEPRECISION", "TOK_ENDSUBROUTINE",
   "TOK_ENDFUNCTION", "TOK_ENDPROGRAM", "TOK_ENDUNIT", "TOK_CHARACTER",
   "TOK_CHAR_CONSTANT", "TOK_CHAR_CUT", "TOK_DATA", "TOK_CHAR_MESSAGE",
   "TOK_CSTREAL", "TOK_COMPLEX", "TOK_DOUBLECOMPLEX", "TOK_NAME",
-  "TOK_CSTINT", "'('", "')'", "'<'", "'>'", "'\\n'", "'/'", "'%'",
-  "$accept", "input", "line", "line-break", "suite_line_list",
-  "suite_line", "fin_line", "opt_recursive", "opt_result", "entry",
-  "label", "name_routine", "filename", "arglist", "arglist_after_result",
-  "args", "arg", "spec", "opt_spec", "name_intrinsic",
-  "use_intrinsic_list", "list_couple", "list_expr_equi", "expr_equi",
-  "list_expr_equi1", "list_expr", "opt_sep", "after_type",
-  "before_function", "before_parameter", "data_stmt", "data_stmt_set_list",
-  "data_stmt_set", "data_stmt_value_list", "save", "before_save",
-  "varsave", "datanamelist", "expr_data", "opt_signe", "namelist",
-  "before_dimension", "dimension", "private", "public", "use_name_list",
-  "common", "before_common", "var_common_list", "var_common", "comblock",
-  "opt_comma", "paramlist", "paramitem", "module_proc_stmt",
-  "proc_name_list", "implicit", "dcl", "nodimsgiven", "type", "c_selector",
-  "c_attribute", "before_character", "typespec", "lengspec",
-  "proper_lengspec", "selector", "proper_selector", "attribute", "clause",
-  "opt_clause", "options", "attr_spec_list", "attr_spec", "intent_spec",
-  "access_spec", "dims", "dimlist", "dim", "ubound", "expr",
-  "predefinedfunction", "minmaxlist", "uexpr", "signe", "operation",
-  "after_slash", "after_equal", "lhs", "beforefunctionuse",
-  "array_ele_substring_func_ref", "begin_array", "structure_component",
-  "vec", "funarglist", "funargs", "funarg", "triplet", "ident",
-  "simple_const", "string_constant", "opt_substring", "substring",
-  "optexpr", "opt_expr", "initial_value", "complex_const", "use_stat",
-  "word_use", "rename_list", "rename_name", "only_list", "only_name",
-  "execution-part-construct", "executable-construct", "action-stmt",
-  "assignment-stmt", "where-stmt", "where-construct",
-  "opt-where-body-construct", "opt-masked-elsewhere-construct",
-  "opt-elsewhere-construct", "where-construct-stmt",
-  "where-body-construct", "where-assignment-stmt", "mask-expr",
-  "masked-elsewhere-stmt", "elsewhere-stmt", "end-where-stmt",
-  "forall-header", "block", "do-construct", "block-do-construct",
-  "do-stmt", "label-do-stmt", "nonlabel-do-stmt", "loop-control",
-  "do-variable", "do-block", "end-do", "end-do-stmt", "if-construct",
+  "TOK_CSTINT", "'('", "')'", "'<'", "'>'", "'\\n'", "'/'", "'%'", "'_'",
+  "'['", "']'", "$accept", "input", "line", "line-break",
+  "suite_line_list", "suite_line", "fin_line", "program-unit",
+  "external-subprogram", "filename", "opt_comma", "uexpr", "signe",
+  "operation", "after_slash", "after_equal", "lhs", "beforefunctionuse",
+  "array_ele_substring_func_ref", "$@4", "$@5", "begin_array", "$@6",
+  "structure_component", "funarglist", "funargs", "funarg", "triplet",
+  "ident", "simple_const", "string_constant", "opt_substring", "opt_expr",
+  "specification-part", "opt-use-stmt-list",
+  "opt-declaration-construct-list", "declaration-construct-list",
+  "declaration-construct", "opt-execution-part", "execution-part",
+  "opt-execution-part-construct-list", "execution-part-construct-list",
+  "execution-part-construct", "opt-internal-subprogram-part",
+  "internal-subprogram-part", "opt-internal-subprogram",
+  "internal-subprogram-list", "internal-subprogram",
+  "other-specification-stmt", "executable-construct", "action-stmt",
+  "keyword", "scalar-constant", "constant", "literal-constant",
+  "named-constant", "opt-label", "label", "opt-label-djview",
+  "label-djview", "type-param-value", "declaration-type-spec", "$@7",
+  "intrinsic-type-spec", "$@8", "$@9", "$@10", "$@11", "$@12", "$@13",
+  "opt-kind-selector", "kind-selector", "signed-int-literal-constant",
+  "int-literal-constant", "kind-param", "signed-real-literal-constant",
+  "real-literal-constant", "complex-literal-constant", "real-part",
+  "imag-part", "opt-char_length-star", "opt-char-selector",
+  "char-selector", "length-selector", "char-length",
+  "char-literal-constant", "logical-literal-constant", "derived-type-def",
+  "$@14", "derived-type-stmt", "opt-type-attr-spec-list-comma-fourdots",
+  "opt-type-attr-spec-list-comma", "type-attr-spec-list", "type-attr-spec",
+  "type-param-name-list", "type-param-name", "end-type-stmt",
+  "opt-component-part", "component-part", "component-def-stmt",
+  "data-component-def-stmt", "opt-component-attr-spec-list-comma-2points",
+  "component-attr-spec-list", "component-attr-spec", "component-decl-list",
+  "component-decl", "opt-component-array-spec", "component-array-spec",
+  "opt-component-initialization", "component-initialization",
+  "initial-data-target", "derived-type-spec", "type-param-spec-list",
+  "type-param-spec", "structure-constructor", "component-spec-list",
+  "component-spec", "component-data-source", "array-constructor",
+  "ac-spec", "lbracket", "rbracket", "ac-value-list", "ac-value",
+  "ac-implied-do", "ac-implied-do-control", "ac-do-variable",
+  "type-declaration-stmt", "$@15", "$@16", "opt-attr-spec-construct",
+  "opt-attr-spec-comma-list", "attr-spec-comma-list", "attr-spec", "$@17",
+  "$@18", "entity-decl-list", "entity-decl", "object-name",
+  "object-name-noident", "opt-initialization", "initialization",
+  "null-init", "access-spec", "opt-array-spec-par", "$@19", "array-spec",
+  "explicit-shape-spec-list", "explicit-shape-spec", "lower-bound",
+  "upper-bound", "assumed-shape-spec-list", "assumed-shape-spec",
+  "deferred-shape-spec-list", "deferred-shape-spec", "assumed-size-spec",
+  "opt-explicit-shape-spec-list-comma", "opt-lower-bound-2points",
+  "implied-shape-spec-list", "implied-shape-spec", "intent-spec",
+  "access-stmt", "$@20", "opt-access-id-list", "access-id-list",
+  "access-id", "data-stmt", "$@21", "opt-data-stmt-set-nlist",
+  "data-stmt-set-nlist", "data-stmt-set", "data-stmt-object-list",
+  "data-stmt-value-list", "data-stmt-object", "data-implied-do",
+  "data-i-do-object-list", "data-i-do-object", "data-i-do-variable",
+  "data-stmt-value", "opt-data-stmt-star", "data-stmt-constant",
+  "scalar-constant-subobject", "constant-subobject", "dimension-stmt",
+  "$@22", "$@23", "array-name-spec-list", "$@24", "$@25", "parameter-stmt",
+  "$@26", "$@27", "named-constant-def-list", "named-constant-def",
+  "save-stmt", "$@28", "$@29", "opt-TOK_FOURDOTS", "opt-saved-entity-list",
+  "saved-entity-list", "saved-entity", "proc-pointer-name",
+  "get_my_position", "implicit-stmt", "$@30", "implicit-spec-list",
+  "implicit-spec", "letter-spec-list", "letter-spec", "namelist-stmt",
+  "opt-namelist-other", "namelist-group-object-list",
+  "namelist-group-object", "equivalence-stmt", "equivalence-set-list",
+  "equivalence-set", "$@31", "equivalence-object-list",
+  "equivalence-object", "common-stmt", "$@32", "$@33",
+  "opt-common-block-name", "common-block-name", "opt-comma",
+  "opt-common-block-list", "common-block-object-list",
+  "common-block-object", "$@34", "designator", "scalar-variable",
+  "variable", "variable-name", "scalar-logical-variable",
+  "logical-variable", "char-variable", "scalar-default-char-variable",
+  "default-char-variable", "scalar-int-variable", "int-variable",
+  "substring", "substring-range", "data-ref", "opt-part-ref", "part-ref",
+  "$@35", "scalar-structure-component", "structure-component",
+  "array-element", "array-section", "section-subscript-list",
+  "section-subscript", "section_subscript_ambiguous", "vector-subscript",
+  "allocate-stmt", "$@36", "$@37", "opt-alloc-opt-list-comma",
+  "alloc-opt-list", "alloc-opt", "stat-variable", "errmsg-variable",
+  "allocation-list", "allocation", "allocate-object",
+  "opt-allocate-shape-spec-list-par", "allocate-shape-spec-list",
+  "allocate-shape-spec", "opt-lower-bound-expr", "lower-bound-expr",
+  "upper-bound-expr", "deallocate-stmt", "$@38", "$@39",
+  "allocate-object-list", "opt-dealloc-opt-list-comma", "dealloc-opt-list",
+  "dealloc-opt", "primary", "level-1-expr", "mult-operand", "add-operand",
+  "level-2-expr", "power-op", "mult-op", "add-op", "level-3-expr",
+  "concat-op", "level-4-expr", "rel-op", "and-operand", "or-operand",
+  "equiv-operand", "level-5-expr", "not-op", "and-op", "or-op", "equiv-op",
+  "expr", "scalar-default-char-expr", "default-char-expr", "int-expr",
+  "opt-scalar-int-expr", "scalar-int-expr", "specification-expr",
+  "constant-expr", "scalar-default-char-constant-expr",
+  "default-char-constant-expr", "scalar-int-constant-expr",
+  "int-constant-expr", "assignment-stmt", "pointer-assignment-stmt",
+  "opt-bounds-spec-list-par", "bounds-spec-list", "bounds-remapping-list",
+  "bounds-spec", "bounds-remapping", "data-target",
+  "procedure-component-name", "proc-component-ref", "proc-target",
+  "where-stmt", "where-construct", "opt-where-body-construct",
+  "opt-masked-elsewhere-construct", "opt-elsewhere-construct",
+  "where-construct-stmt", "where-body-construct", "where-assignment-stmt",
+  "mask-expr", "masked-elsewhere-stmt", "elsewhere-stmt", "end-where-stmt",
+  "forall-header", "block", "opt-execution-part-construct", "do-construct",
+  "block-do-construct", "label-do-stmt", "label-do-stmt-djview",
+  "nonlabel-do-stmt", "loop-control", "do-variable", "do-block", "end-do",
+  "end-do-stmt", "nonblock-do-construct", "action-term-do-construct",
+  "do-term-action-stmt", "do-term-action-stmt-special",
+  "outer-shared-do-construct", "label-do-stmt-djview-do-block-list",
+  "inner-shared-do-construct", "do-term-shared-stmt",
+  "opt-do-construct-name", "cycle-stmt", "if-construct",
   "opt-else-if-stmt-block", "else-if-stmt-block", "opt-else-stmt-block",
   "else-stmt-block", "if-then-stmt", "else-if-stmt", "else-stmt",
   "end-if-stmt", "if-stmt", "case-construct", "opt_case-stmt-block",
-  "case-stmt-block", "select-case-stmt", "case-stmt", "end-select-stmt",
-  "case-selector", "case-value-range-list", "case-value-range",
-  "case-value", "continue-stmt", "format-stmt", "word_endsubroutine",
-  "word_endunit", "word_endprogram", "word_endfunction", "opt_name",
-  "before_dims", "ident_dims", "int_list", "after_ident_dims", "call",
-  "opt_call", "opt_callarglist", "keywordcall", "before_call",
-  "callarglist", "callarg", "stop", "option_inlist", "option_read",
-  "opt_inlist", "ioctl", "after_rewind", "ctllist", "ioclause",
-  "declare_after_percent", "iofctl", "infmt", "read", "fexpr",
-  "unpar_fexpr", "addop", "inlist", "inelt", "opt_operation", "outlist",
-  "other", "dospec", "goto", "allocation_list", "allocate_object",
-  "allocate_object_list", "opt_stat_spec", "pointer_name_list", YY_NULL
+  "case-stmt-block", "select-case-stmt", "$@40", "$@41", "case-stmt",
+  "end-select-stmt", "$@42", "$@43", "case-selector", "$@44",
+  "case-value-range-list", "case-value-range", "case-value", "exit-stmt",
+  "goto-stmt", "arithmetic-if-stmt", "continue-stmt", "stop-stmt",
+  "stop-code", "io-unit", "file-unit-number", "internal-file-variable",
+  "open-stmt", "$@45", "$@46", "connect-spec-list", "connect-spec",
+  "file-name-expr", "iomsg-variable", "close-stmt", "$@47",
+  "close-spec-list", "close-spec", "read-stmt", "write-stmt", "print-stmt",
+  "io-control-spec-list", "namelist-group-name", "io-control-spec",
+  "format", "input-item-list", "input-item", "output-item-list",
+  "output-item", "io-implied-do", "io-implied-do-object-list",
+  "io-implied-do-object", "io-implied-do-control", "rewind-stmt",
+  "position-spec-list", "position-spec", "flush-stmt", "flush-spec-list",
+  "flush-spec", "inquire-stmt", "$@48", "$@49", "set_in_inquire",
+  "inquire-spec-list", "inquire-spec", "format-stmt", "module", "$@50",
+  "opt-module-subprogram-part", "module-stmt", "$@51", "end-module-stmt",
+  "$@52", "opt-tok-module", "opt-ident", "module-subprogram-part",
+  "opt-module-subprogram-list", "module-subprogram-list",
+  "module-subprogram", "use-stmt-list", "save_olduse", "use-stmt", "$@53",
+  "$@54", "opt-module-nature-2points", "opt-only-list", "main-program",
+  "opt-specification-part", "program-stmt", "$@55", "end-program-stmt",
+  "$@56", "$@57", "opt-tok-program", "opt-tok-name", "module-nature",
+  "opt-rename-list", "rename-list", "rename", "only-list", "only",
+  "only-use-name", "generic-spec", "external-stmt", "external-name-list",
+  "external-name", "intrinsic-stmt", "intrinsic-procedure-name-list",
+  "intrinsic-procedure-name", "function-reference", "$@58", "call-stmt",
+  "$@59", "$@60", "$@61", "$@62", "before-call-stmt", "$@63",
+  "procedure-designator", "actual-arg-spec-list", "actual-arg-spec",
+  "actual-arg", "opt-prefix", "prefix", "prefix-spec",
+  "function-subprogram", "function-stmt", "$@64", "$@65", "function-name",
+  "dummy-arg-name", "opt-suffix", "suffix", "end-function-stmt", "$@66",
+  "opt-tok-function", "subroutine-subprogram", "subroutine-stmt", "$@67",
+  "subroutine-name", "end-subroutine-stmt", "close_subroutine",
+  "opt-tok-subroutine", "opt-dummy-arg-list-par", "$@68",
+  "opt-dummy-arg-list", "dummy-arg-list", "dummy-arg", "return-stmt",
+  "contains-stmt", "$@69", "opt_name", "after_rewind",
+  "declare_after_percent", "pointer_name_list", YY_NULL
 };
 #endif
@@ -1051 +1429 @@
      389,   390,   391,   392,   393,   394,   395,   396,   397,   398,
      399,   400,   401,   402,   403,   404,   405,   406,   407,   408,
-     409,   410,    40,    41,    60,    62,    10,    47,    37
+     409,   410,   411,   412,   413,   414,   415,   416,   417,   418,
+     419,   420,   421,   422,   423,   424,   425,   426,   427,   428,
+     429,   430,   431,   432,   433,   434,   435,   436,   437,   438,
+     439,   440,   441,    40,    41,    60,    62,    10,    47,    37,
+      95,    91,    93
 };
 # endif
@@ -1058 +1440 @@
 static const yytype_uint16 yyr1[] =
 {
-       0,   169,   170,   170,   171,   171,   171,   171,   172,   172,
-     172,   172,   172,   173,   173,   173,   174,   174,   174,   174,
-     175,   176,   176,   177,   177,   178,   178,   178,   178,   179,
-     179,   180,   181,   182,   182,   182,   183,   183,   183,   184,
-     184,   185,   185,   186,   186,   186,   186,   186,   186,   186,
-     186,   186,   186,   186,   186,   186,   186,   186,   186,   186,
-     186,   186,   186,   187,   187,   188,   188,   188,   188,   188,
-     188,   188,   188,   188,   188,   188,   188,   188,   188,   188,
-     188,   188,   188,   188,   188,   188,   188,   188,   188,   189,
-     189,   190,   190,   191,   191,   192,   193,   193,   194,   194,
-     195,   195,   196,   196,   197,   198,   199,   200,   200,   201,
-     201,   201,   202,   202,   203,   203,   203,   203,   204,   205,
-     205,   206,   206,   206,   207,   207,   207,   207,   207,   208,
-     208,   209,   209,   209,   209,   210,   211,   211,   212,   212,
-     213,   213,   214,   214,   214,   214,   215,   215,   215,   216,
-     216,   217,   217,   218,   219,   219,   220,   220,   221,   221,
-     222,   223,   224,   224,   225,   225,   226,   226,   227,   228,
-     228,   228,   228,   229,   229,   229,   229,   230,   230,   230,
-     231,   232,   232,   232,   232,   232,   232,   233,   233,   234,
-     234,   235,   235,   235,   236,   236,   237,   237,   237,   237,
-     237,   238,   238,   239,   239,   240,   240,   240,   241,   241,
-     242,   242,   242,   242,   242,   242,   242,   242,   242,   242,
-     242,   243,   243,   243,   244,   244,   245,   245,   246,   246,
-     247,   247,   247,   247,   247,   248,   248,   249,   249,   249,
-     249,   250,   250,   250,   250,   250,   250,   250,   250,   250,
-     250,   250,   250,   250,   250,   250,   250,   250,   250,   250,
-     250,   250,   250,   250,   250,   250,   250,   251,   251,   252,
-     252,   252,   252,   252,   252,   253,   253,   254,   254,   254,
-     254,   254,   254,   254,   254,   254,   254,   254,   254,   254,
-     254,   254,   254,   254,   254,   254,   254,   254,   255,   255,
-     255,   255,   256,   256,   257,   257,   257,   258,   259,   259,
-     259,   259,   260,   261,   262,   263,   263,   264,   264,   265,
-     265,   266,   266,   266,   266,   266,   266,   266,   267,   268,
-     268,   268,   268,   268,   268,   268,   268,   269,   269,   269,
-     269,   270,   270,   271,   272,   272,   273,   273,   274,   274,
-     274,   275,   276,   276,   276,   276,   277,   278,   278,   279,
-     280,   280,   281,   281,   282,   282,   283,   283,   283,   283,
-     283,   284,   284,   284,   284,   284,   284,   284,   284,   284,
-     284,   284,   284,   284,   284,   284,   284,   284,   284,   284,
-     284,   284,   284,   284,   284,   284,   285,   286,   287,   288,
-     288,   289,   289,   290,   290,   291,   292,   292,   292,   293,
-     294,   295,   295,   296,   296,   297,   297,   298,   299,   299,
-     299,   300,   301,   302,   302,   303,   303,   303,   303,   304,
-     304,   304,   304,   305,   305,   305,   305,   306,   307,   308,
-     308,   309,   309,   310,   311,   311,   311,   312,   313,   313,
-     313,   314,   315,   315,   316,   316,   317,   317,   318,   318,
-     319,   320,   321,   321,   321,   322,   323,   323,   324,   324,
-     325,   325,   326,   326,   327,   327,   328,   328,   328,   328,
-     329,   330,   331,   332,   333,   334,   335,   336,   336,   337,
-     338,   338,   339,   339,   340,   340,   341,   342,   342,   343,
-     343,   344,   344,   345,   346,   346,   347,   347,   348,   348,
-     349,   349,   350,   350,   351,   351,   352,   353,   353,   353,
-     353,   353,   354,   354,   355,   355,   355,   355,   355,   355,
-     355,   355,   356,   357,   357,   357,   358,   358,   359,   359,
-     359,   360,   360,   361,   361,   361,   361,   361,   361,   361,
-     361,   361,   361,   361,   361,   361,   361,   361,   361,   361,
-     362,   362,   363,   363,   364,   364,   364,   364,   364,   365,
-     365,   365,   366,   366,   366,   366,   366,   366,   366,   366,
-     366,   366,   367,   367,   367,   368,   368,   369,   369,   370,
-     370,   371,   372,   372,   373,   373,   374,   374
+       0,   203,   204,   204,   205,   205,   205,   206,   206,   206,
+     206,   206,   207,   207,   207,   208,   208,   208,   209,   210,
+     210,   210,   211,   211,   212,   213,   213,   214,   214,   214,
+     214,   214,   215,   215,   216,   216,   216,   216,   216,   216,
+     216,   216,   216,   216,   216,   216,   216,   216,   216,   216,
+     216,   216,   216,   216,   216,   217,   217,   217,   217,   218,
+     218,   219,   219,   219,   220,   221,   221,   222,   221,   223,
+     221,   224,   225,   224,   226,   227,   227,   228,   228,   229,
+     229,   230,   230,   230,   230,   230,   230,   230,   231,   232,
+     232,   232,   232,   232,   232,   232,   232,   233,   233,   233,
+     233,   234,   234,   235,   235,   236,   237,   237,   238,   238,
+     239,   239,   240,   240,   240,   240,   240,   240,   240,   240,
+     240,   240,   240,   240,   241,   241,   242,   243,   243,   244,
+     244,   245,   245,   246,   246,   247,   248,   248,   249,   249,
+     250,   250,   251,   251,   251,   251,   251,   251,   251,   251,
+     251,   252,   252,   252,   252,   252,   253,   253,   253,   253,
+     253,   253,   253,   253,   253,   253,   253,   253,   253,   253,
+     253,   253,   253,   253,   253,   253,   253,   253,   253,   253,
+     253,   254,   255,   256,   256,   257,   257,   257,   257,   257,
+     258,   259,   259,   260,   260,   261,   261,   262,   263,   263,
+     263,   265,   264,   264,   264,   267,   266,   268,   266,   269,
+     266,   270,   266,   271,   266,   272,   266,   273,   273,   274,
+     274,   274,   275,   275,   276,   276,   277,   277,   278,   278,
+     279,   279,   280,   281,   281,   281,   282,   282,   282,   283,
+     283,   284,   284,   285,   285,   285,   285,   285,   286,   286,
+     286,   286,   287,   287,   288,   288,   288,   289,   289,   291,
+     290,   292,   292,   293,   293,   294,   294,   295,   295,   296,
+     297,   297,   298,   299,   299,   300,   300,   301,   301,   302,
+     303,   304,   304,   304,   305,   305,   306,   306,   306,   306,
+     307,   307,   308,   309,   309,   310,   310,   311,   311,   312,
+     312,   312,   313,   314,   314,   315,   315,   316,   316,   317,
+     317,   318,   318,   319,   319,   320,   320,   320,   321,   321,
+     322,   323,   324,   325,   325,   326,   326,   327,   328,   328,
+     329,   331,   332,   330,   333,   333,   334,   334,   335,   335,
+     336,   336,   337,   336,   336,   338,   336,   336,   336,   336,
+     336,   336,   336,   339,   339,   340,   341,   342,   343,   343,
+     344,   344,   344,   345,   346,   346,   347,   348,   347,   349,
+     349,   349,   349,   349,   350,   350,   351,   351,   352,   353,
+     354,   354,   355,   355,   356,   356,   357,   358,   359,   359,
+     360,   360,   361,   361,   362,   363,   363,   363,   365,   364,
+     366,   366,   367,   367,   368,   368,   370,   369,   371,   371,
+     372,   372,   373,   374,   374,   375,   375,   376,   376,   377,
+     377,   378,   378,   379,   379,   379,   380,   381,   381,   381,
+     381,   381,   381,   381,   381,   382,   382,   383,   383,   383,
+     383,   383,   383,   383,   384,   385,   387,   388,   386,   390,
+     389,   391,   389,   393,   394,   392,   395,   395,   396,   398,
+     399,   397,   400,   400,   401,   401,   402,   402,   403,   403,
+     403,   404,   405,   406,   407,   406,   408,   408,   409,   410,
+     410,   411,   411,   412,   413,   413,   414,   414,   415,   416,
+     417,   417,   419,   418,   420,   420,   421,   421,   421,   423,
+     424,   422,   425,   425,   426,   426,   427,   427,   428,   428,
+     429,   429,   430,   431,   430,   432,   432,   432,   432,   433,
+     434,   435,   436,   437,   438,   439,   440,   441,   442,   443,
+     443,   443,   444,   445,   446,   446,   447,   448,   447,   449,
+     450,   451,   452,   452,   453,   453,   453,   454,   454,   454,
+     454,   454,   454,   454,   454,   454,   454,   455,   455,   455,
+     455,   455,   455,   456,   458,   459,   457,   460,   460,   461,
+     461,   462,   462,   463,   464,   465,   465,   466,   467,   467,
+     468,   468,   469,   469,   470,   471,   471,   472,   473,   475,
+     476,   474,   477,   477,   478,   478,   479,   479,   480,   480,
+     481,   481,   481,   481,   481,   482,   483,   483,   484,   484,
+     485,   485,   485,   485,   485,   486,   487,   487,   488,   488,
+     489,   489,   490,   491,   491,   492,   492,   492,   492,   492,
+     492,   492,   492,   492,   492,   492,   492,   493,   493,   494,
+     494,   495,   495,   496,   496,   497,   498,   499,   500,   500,
+     501,   502,   503,   504,   505,   505,   506,   507,   508,   509,
+     510,   511,   512,   513,   513,   514,   514,   514,   515,   515,
+     516,   516,   517,   517,   518,   519,   520,   521,   522,   523,
+     523,   523,   524,   525,   526,   526,   527,   527,   528,   528,
+     529,   530,   530,   530,   531,   532,   533,   533,   534,   534,
+     535,   535,   536,   537,   538,   538,   539,   539,   539,   540,
+     540,   541,   541,   541,   541,   542,   542,   542,   542,   543,
+     543,   543,   543,   544,   544,   544,   544,   545,   546,   547,
+     547,   548,   548,   549,   549,   550,   551,   552,   552,   552,
+     552,   552,   552,   552,   552,   552,   552,   552,   552,   552,
+     552,   552,   552,   552,   553,   553,   554,   554,   555,   556,
+     557,   557,   558,   559,   560,   560,   560,   561,   562,   562,
+     562,   563,   564,   564,   565,   565,   566,   566,   567,   567,
+     568,   569,   570,   570,   570,   571,   573,   572,   574,   572,
+     575,   575,   577,   576,   578,   576,   580,   579,   579,   581,
+     581,   582,   582,   582,   582,   583,   584,   584,   585,   586,
+     587,   588,   588,   589,   589,   590,   590,   590,   591,   592,
+     594,   595,   593,   596,   596,   597,   597,   597,   597,   597,
+     597,   597,   597,   597,   597,   597,   598,   599,   601,   600,
+     602,   602,   603,   603,   603,   603,   603,   604,   604,   604,
+     604,   605,   605,   606,   606,   607,   607,   608,   609,   609,
+     609,   609,   609,   609,   609,   609,   609,   609,   609,   610,
+     610,   610,   611,   611,   612,   612,   613,   613,   614,   614,
+     615,   616,   616,   617,   617,   618,   618,   619,   619,   620,
+     620,   621,   621,   621,   621,   621,   622,   622,   623,   623,
+     624,   624,   624,   624,   624,   626,   625,   627,   625,   628,
+     629,   629,   630,   630,   630,   630,   630,   630,   630,   630,
+     630,   630,   630,   631,   633,   632,   634,   634,   636,   635,
+     638,   637,   639,   639,   640,   640,   641,   642,   642,   643,
+     643,   644,   644,   645,   645,   646,   648,   647,   649,   647,
+     650,   650,   650,   651,   651,   652,   653,   653,   241,   241,
+     655,   654,   657,   658,   656,   659,   659,   660,   660,   661,
+     662,   662,   663,   663,   664,   665,   665,   666,   666,   666,
+     667,   668,   669,   669,   670,   670,   671,   672,   673,   673,
+     674,   675,   676,   675,   678,   677,   679,   677,   680,   681,
+     677,   683,   682,   684,   684,   684,   685,   685,   686,   686,
+     687,   687,   687,   688,   688,   689,   689,   690,   690,   690,
+     691,   693,   694,   692,   695,   696,   697,   697,   698,   700,
+     699,   701,   701,   702,   704,   703,   705,   706,   707,   708,
+     708,   709,   710,   709,   711,   711,   712,   712,   713,   713,
+     714,   714,   716,   715,   717,   717,   718,   718,   718,   718,
+     718,   719,   720,   720
 };
 
@@ -1123 +1552 @@
 static const yytype_uint8 yyr2[] =
 {
-       0,     2,     0,     2,     1,     1,     2,     1,     2,     1,
-       3,     2,     2,     1,     3,     3,     2,     2,     3,     1,
-       0,     0,     1,     0,     2,     4,     2,     5,     2,     1,
-       2,     1,     1,     0,     2,     3,     0,     2,     3,     1,
-       3,     1,     1,     2,     4,     2,     2,     4,     2,     1,
-       1,     1,     1,     1,     1,     1,     1,     1,     4,     3,
-       3,     2,     2,     0,     1,     1,     1,     1,     1,     1,
+       0,     2,     0,     2,     1,     1,     1,     2,     1,     1,
+       3,     2,     1,     3,     3,     1,     3,     1,     0,     1,
+       1,     1,     1,     1,     1,     0,     1,     1,     1,     2,
+       2,     2,     1,     1,     2,     2,     2,     2,     2,     2,
+       2,     2,     2,     3,     3,     2,     2,     2,     2,     2,
+       2,     2,     2,     2,     2,     0,     1,     2,     2,     2,
+       1,     1,     1,     1,     0,     1,     2,     0,     5,     0,
+       6,     1,     0,     5,     4,     1,     2,     1,     3,     1,
+       1,     3,     5,     4,     3,     2,     2,     1,     1,     1,
+       1,     1,     1,     1,     1,     2,     2,     1,     2,     1,
+       1,     0,     1,     0,     1,     2,     0,     1,     0,     1,
+       1,     2,     1,     1,     1,     1,     1,     1,     1,     1,
+       1,     1,     1,     1,     0,     1,     2,     0,     1,     1,
+       2,     1,     1,     0,     1,     3,     0,     1,     1,     2,
        1,     1,     1,     1,     1,     1,     1,     1,     1,     1,
        1,     1,     1,     1,     1,     1,     1,     1,     1,     1,
-       3,     3,     5,     1,     3,     3,     2,     4,     1,     3,
-       0,     1,     2,     3,     1,     1,     2,     1,     3,     4,
-       4,     8,     1,     3,     2,     3,     5,     3,     1,     0,
-       2,     1,     4,     3,     2,     3,     3,     3,     3,     0,
-       1,     2,     3,     5,     3,     1,     5,     5,     2,     3,
-       2,     3,     1,     1,     3,     3,     2,     3,     5,     1,
-       2,     1,     3,     2,     1,     3,     0,     1,     1,     3,
-       3,     2,     1,     3,     2,     2,     5,     6,     0,     2,
-       2,     3,     3,     0,     2,     4,     3,     3,     4,     2,
-       1,     1,     1,     1,     1,     1,     1,     0,     2,     1,
-       3,     0,     2,     3,     1,     3,     2,     3,     1,     1,
-       1,     1,     1,     0,     3,     0,     1,     3,     1,     3,
-       1,     1,     1,     2,     1,     4,     1,     1,     1,     1,
-       1,     1,     1,     1,     1,     1,     0,     3,     1,     3,
-       1,     1,     2,     2,     3,     1,     1,     1,     1,     1,
-       3,     3,     3,     4,     4,     3,     4,     4,     3,     4,
-       4,     4,     4,     4,     4,     4,     4,     4,     4,     4,
-       4,     4,     3,     4,     3,     4,     4,     1,     3,     1,
-       1,     1,     2,     2,     2,     1,     1,     2,     2,     2,
-       2,     2,     2,     2,     2,     2,     3,     3,     2,     2,
-       2,     2,     2,     2,     2,     2,     2,     2,     0,     1,
-       2,     2,     2,     1,     1,     1,     1,     0,     1,     2,
-       4,     5,     4,     4,     3,     1,     2,     1,     3,     1,
-       1,     3,     5,     4,     3,     2,     2,     1,     1,     1,
-       1,     1,     1,     1,     1,     2,     2,     1,     2,     1,
-       1,     0,     1,     5,     0,     1,     1,     1,     0,     2,
-       2,     5,     2,     4,     6,     6,     1,     1,     3,     3,
-       1,     3,     3,     1,     1,     1,     1,     1,     1,     1,
-       1,     1,     2,     1,     1,     2,     2,     2,     3,     2,
-       5,     5,     2,     2,     2,     2,     1,     4,     1,     2,
-       2,     2,     2,     1,     1,     1,     1,     5,     6,     0,
-       3,     0,     4,     0,     4,     4,     1,     1,     1,     1,
-       1,     3,     4,     1,     2,     1,     2,     0,     0,     2,
-       3,     1,     4,     1,     1,     4,     2,     5,     3,     3,
-       1,     4,     2,     6,     8,     5,     3,     1,     1,     1,
-       1,     1,     2,     6,     0,     1,     2,     3,     0,     1,
-       2,     3,     7,     5,     5,     6,     1,     2,     1,     2,
-       5,     4,     0,     1,     2,     3,     6,     4,     2,     3,
-       1,     2,     3,     1,     1,     3,     1,     2,     2,     3,
-       1,     1,     1,     1,     1,     1,     1,     1,     1,     0,
-       4,     7,     1,     3,     2,     2,     2,     0,     3,     0,
-       1,     2,     2,     1,     1,     3,     1,     2,     1,     1,
-       0,     1,     2,     2,     0,     2,     3,     3,     3,     1,
-       3,     1,     1,     3,     1,     1,     1,     3,     5,     4,
-       2,     2,     0,     1,     1,     1,     1,     1,     1,     1,
-       1,     1,     3,     1,     1,     3,     3,     3,     3,     2,
-       3,     2,     2,     2,     2,     2,     2,     2,     3,     1,
-       1,     1,     1,     3,     2,     4,     2,     2,     5,     0,
-       1,     2,     1,     1,     1,     1,     3,     3,     3,     3,
-       3,     3,     5,     5,     5,     5,     7,     8,     2,     1,
-       3,     1,     1,     3,     0,     4,     1,     3
+       1,     1,     1,     1,     1,     1,     2,     4,     2,     1,
+       1,     1,     1,     1,     1,     1,     1,     1,     1,     1,
+       1,     1,     1,     1,     1,     1,     1,     1,     1,     1,
+       1,     0,     1,     1,     1,     0,     1,     1,     1,     1,
+       1,     0,     2,     3,     3,     0,     3,     0,     3,     0,
+       3,     0,     3,     0,     3,     0,     3,     0,     1,     3,
+       5,     2,     1,     2,     1,     3,     1,     1,     1,     2,
+       1,     3,     5,     1,     1,     1,     1,     1,     1,     0,
+       2,     0,     1,     1,     9,     5,     5,     9,     3,     5,
+       2,     3,     3,     1,     1,     1,     1,     1,     1,     0,
+       4,     4,     7,     0,     2,     0,     2,     1,     3,     1,
+       1,     3,     1,     2,     3,     0,     1,     1,     2,     1,
+       4,     0,     1,     3,     1,     3,     1,     1,     4,     1,
+       1,     3,     4,     0,     3,     1,     1,     0,     1,     2,
+       2,     2,     1,     1,     4,     1,     3,     1,     3,     3,
+       4,     1,     3,     1,     3,     1,     1,     1,     3,     3,
+       1,     1,     1,     1,     3,     1,     1,     5,     5,     7,
+       1,     0,     0,     6,     0,     2,     0,     1,     2,     3,
+       1,     1,     0,     5,     1,     0,     5,     1,     1,     1,
+       1,     1,     1,     1,     3,     4,     1,     1,     0,     1,
+       2,     2,     2,     1,     1,     1,     0,     0,     4,     1,
+       1,     1,     1,     1,     1,     3,     3,     1,     1,     1,
+       1,     3,     1,     2,     1,     3,     1,     3,     0,     2,
+       0,     2,     1,     3,     2,     1,     1,     1,     0,     4,
+       0,     2,     1,     3,     1,     1,     0,     5,     0,     1,
+       2,     3,     4,     1,     3,     1,     3,     1,     1,     9,
+      11,     1,     3,     1,     1,     1,     1,     2,     2,     2,
+       1,     1,     1,     1,     1,     0,     2,     1,     1,     1,
+       1,     1,     1,     1,     1,     1,     0,     0,     6,     0,
+       5,     0,     7,     0,     0,     7,     1,     3,     3,     0,
+       0,     6,     0,     1,     0,     1,     1,     3,     1,     1,
+       1,     1,     0,     4,     0,     5,     1,     3,     4,     1,
+       3,     1,     3,     7,     0,     6,     1,     3,     1,     3,
+       1,     3,     0,     6,     1,     3,     1,     1,     1,     0,
+       0,     7,     0,     1,     1,     3,     0,     1,     0,     4,
+       1,     3,     1,     0,     5,     1,     1,     1,     1,     1,
+       1,     1,     1,     1,     1,     1,     1,     1,     1,     1,
+       4,     4,     3,     2,     0,     3,     1,     0,     5,     1,
+       1,     1,     1,     4,     0,     1,     3,     2,     1,     2,
+       3,     4,     2,     1,     3,     4,     2,     1,     2,     3,
+       4,     2,     0,     1,     0,     0,     8,     0,     2,     1,
+       3,     2,     3,     1,     1,     1,     3,     2,     1,     1,
+       0,     3,     1,     3,     2,     0,     2,     1,     1,     0,
+       0,     8,     1,     3,     0,     2,     1,     3,     2,     3,
+       1,     1,     1,     1,     3,     1,     1,     3,     1,     3,
+       1,     2,     3,     1,     2,     1,     1,     1,     1,     1,
+       1,     3,     1,     1,     3,     1,     1,     1,     1,     1,
+       1,     1,     1,     1,     1,     1,     1,     1,     2,     1,
+       3,     1,     3,     1,     3,     1,     1,     1,     1,     1,
+       1,     1,     1,     1,     0,     1,     1,     1,     1,     1,
+       1,     1,     1,     4,     5,     5,     7,     4,     0,     3,
+       1,     3,     1,     3,     2,     3,     1,     1,     3,     1,
+       1,     1,     5,     5,     0,     2,     0,     3,     0,     3,
+       5,     1,     1,     1,     1,     1,     4,     5,     2,     3,
+       2,     3,     0,     1,     0,     2,     1,     1,     1,     3,
+       3,     4,     2,     5,     3,     4,     2,     5,     3,     4,
+       2,     5,     3,     6,     8,     5,     3,     1,     1,     1,
+       2,     3,     4,     1,     1,     3,     2,     1,     1,     1,
+       1,     1,     1,     1,     2,     4,     1,     1,     1,     1,
+       1,     1,     1,     1,     4,     3,     2,     3,     3,     2,
+       0,     1,     3,     5,     0,     1,     2,     2,     0,     1,
+       2,     2,     8,     6,     6,     7,     2,     3,     2,     3,
+       5,     3,     0,     1,     2,     2,     0,     8,     0,     6,
+       3,     4,     0,     3,     0,     4,     0,     4,     1,     1,
+       3,     1,     2,     2,     3,     1,     2,     3,     3,    10,
+       3,     2,     3,     1,     1,     1,     1,     1,     1,     1,
+       0,     0,     7,     1,     3,     1,     2,     2,     2,     2,
+       2,     2,     2,     2,     2,     3,     1,     1,     0,     6,
+       1,     3,     1,     2,     2,     2,     3,     5,     6,     4,
+       6,     5,     6,     4,     6,     1,     3,     1,     1,     2,
+       1,     1,     2,     2,     2,     2,     2,     2,     2,     1,
+       1,     1,     1,     3,     1,     1,     1,     3,     1,     1,
+       5,     1,     3,     1,     1,     5,     7,     3,     5,     1,
+       3,     1,     2,     2,     2,     2,     3,     5,     1,     3,
+       1,     2,     2,     2,     2,     0,     7,     0,     9,     0,
+       1,     3,     1,     2,     2,     2,     2,     2,     2,     2,
+       3,     2,     2,     2,     0,     5,     0,     1,     0,     4,
+       0,     6,     0,     1,     0,     1,     2,     0,     1,     1,
+       2,     1,     1,     1,     2,     0,     0,     8,     0,    11,
+       0,     1,     3,     0,     1,     5,     0,     1,     0,     1,
+       0,     4,     0,     0,     6,     0,     1,     0,     1,     1,
+       0,     2,     1,     3,     3,     1,     3,     1,     1,     1,
+       1,     1,     3,     4,     1,     3,     1,     4,     1,     3,
+       1,     3,     0,     5,     0,     3,     0,     5,     0,     0,
+       7,     0,     4,     1,     1,     1,     1,     3,     1,     3,
+       1,     1,     1,     0,     1,     1,     2,     1,     1,     1,
+       5,     0,     0,    10,     1,     1,     0,     1,     4,     0,
+       7,     0,     1,     5,     0,     6,     1,     6,     0,     0,
+       1,     0,     0,     4,     0,     1,     1,     3,     1,     1,
+       3,     4,     0,     4,     1,     1,     3,     3,     1,     3,
+       1,     0,     1,     3
 };
 
@@ -1190 +1666 @@
 static const yytype_uint16 yydefact[] =
 {
-       2,     0,     1,     7,     9,   105,     0,     0,   482,     0,
-       0,     0,     0,     0,    22,   344,   100,   100,     0,   540,
-       0,     0,   156,   395,     0,     0,     0,   533,   534,   539,
-       0,   535,   538,     0,     0,     0,   135,   100,   100,     0,
-       0,   371,   118,     0,   503,   149,     0,   508,     0,   509,
-     356,    21,    63,     0,     0,   183,   181,   182,   186,   483,
-     486,   485,   484,   180,     0,   184,   185,   328,   492,    20,
-       3,     4,     5,    13,     0,    20,    20,     0,     0,    50,
-     119,    57,   156,    52,    54,    53,    49,     0,    56,    51,
-     205,   173,   191,   489,    55,     0,    19,   364,   366,   394,
-     370,     0,   367,   421,     0,   423,   424,   369,     0,   393,
-     368,     0,   365,     0,   388,     0,     0,     0,   386,   374,
-     497,     0,     0,     0,     0,   373,    32,    20,    31,    26,
-       0,     0,     0,   275,   276,     0,     0,     0,     0,   331,
-       0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
-       0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
-       0,     0,   334,   329,   330,     0,   337,   340,   339,   333,
-     328,   332,     0,   346,   347,   239,   237,     0,   269,   306,
-     308,   305,   271,   304,   270,   341,   384,   238,     0,    61,
-      93,     0,   345,   382,   101,   140,     0,   138,     0,   383,
-     588,     0,     0,   157,    29,   156,     0,   432,    28,   488,
-     487,   392,     0,     0,   377,   521,   519,     0,   379,     0,
-       0,     0,     0,   154,     0,     0,   131,     0,    46,   164,
-     165,   150,   162,   161,     6,   224,   225,   100,    64,   200,
-     198,   199,     0,    45,   121,     0,   156,   107,     0,     0,
-       8,    11,    12,    20,    21,     0,     0,    16,    17,     0,
-       0,    48,   158,    62,   119,     0,   226,   114,   119,   157,
-       0,     0,     0,     0,   226,   146,   151,     0,     0,   104,
-     206,    43,     0,   168,     0,     0,     0,   170,     0,     0,
-     169,   226,   352,   399,   418,   418,   462,   390,   389,   391,
-       0,     0,   532,   372,     0,   499,   496,   501,   502,   385,
-     375,   560,   561,   537,     0,     0,     0,     0,     0,     0,
-       0,   328,     0,   559,   543,   544,   376,   510,   514,     0,
-     536,     0,    18,   410,     0,     0,   274,   267,     0,     0,
-       0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
-       0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
-       0,     0,     0,     0,     0,   573,   574,   572,     0,   575,
-       0,     0,   237,     0,     0,     0,     0,     0,     0,     0,
-       0,     0,     0,     0,     0,     0,     0,     0,   298,     0,
-       0,     0,   272,   273,   532,   344,   309,   307,   307,   335,
-     338,   336,   342,     0,   226,     0,     0,   143,   142,   141,
-     139,     0,     0,    30,   428,     0,   417,   437,     0,   591,
-     594,   589,   525,   526,     0,   304,     0,   522,   524,   541,
-     378,   332,   237,   304,   592,   594,   596,     0,    59,    66,
-      67,    70,    65,    71,    68,    73,    74,    75,    76,    77,
-      72,    78,    79,    80,    81,    82,    83,    84,    85,    86,
-      87,    69,    88,    89,    60,     0,   132,     0,    98,     0,
-       0,     0,     0,   202,   196,   201,   172,   129,     0,     0,
-       0,     0,   129,     0,     0,   156,    10,    14,    15,    33,
-      33,     0,     0,     0,   117,   156,     0,   120,   115,   134,
-     156,   226,   226,   156,   153,     0,   147,   210,   212,   226,
-     214,     0,   216,   217,   218,   219,   220,     0,   208,   211,
-      33,     0,   102,   226,   174,     0,   328,     0,   203,   332,
-       0,   192,   194,     0,   226,     0,   401,   438,     0,   444,
-       0,     0,   463,     0,   494,   495,     0,   493,     0,   506,
-       0,   500,   504,   551,   552,   554,   553,   557,   556,   555,
-       0,   524,     0,   569,   569,   569,   512,   511,   562,     0,
-     513,     0,     0,     0,     0,     0,   549,   405,   467,     0,
-     242,     0,     0,     0,   241,   248,   245,     0,     0,     0,
-       0,     0,     0,     0,     0,     0,     0,     0,     0,   262,
-       0,   264,     0,     0,     0,   237,     0,     0,     0,     0,
-     314,     0,     0,   240,     0,     0,   303,   297,   292,   282,
-     293,   294,   295,   291,   281,   289,   290,   283,   288,   277,
-     278,   279,     0,     0,   299,   296,   280,     0,   285,     0,
-     284,     0,     0,   315,     0,     0,     0,    95,    96,    94,
-      58,     0,     0,     0,     0,   436,     0,     0,     0,     0,
-     530,   531,   307,   226,     0,   516,   518,   520,   517,     0,
-       0,     0,   387,     0,   155,     0,    91,     0,   163,    44,
-     197,     0,   112,     0,   130,     0,     0,   108,   121,   123,
-       0,     0,     0,   156,   431,     0,    25,    23,   160,    47,
-     159,   119,   231,   235,     0,   228,   230,   236,     0,   187,
-     187,     0,   152,   213,     0,     0,   207,   103,   226,   187,
-       0,     0,   203,   176,     0,   179,     0,   193,   490,     0,
-       0,   353,   357,   396,   409,   407,   408,   403,     0,   406,
-     419,   441,   481,   422,   439,   440,     0,   448,   445,     0,
-     473,     0,   468,   470,   464,   461,   418,   489,   507,   498,
-       0,   558,   542,     0,   570,   566,   564,   567,     0,   515,
-     550,   546,   547,   548,   545,   397,   268,   243,   244,   247,
-     251,   252,   253,   254,   255,   250,   256,   257,   258,   259,
-     260,   261,   263,   265,   266,   246,     0,     0,     0,   576,
-     577,   580,   581,   578,   579,   249,   237,   302,   300,   301,
-     287,   286,   313,   344,   327,   319,   316,   317,   320,   310,
-     312,   226,   145,   144,     0,     0,   453,     0,   460,     0,
-       0,     0,   590,   380,     0,     0,   532,   527,   523,   593,
-     381,   597,    90,    99,     0,   109,   129,   129,   129,   129,
-     129,   124,   122,     0,     0,   110,     0,     0,   427,    42,
-      41,    34,     0,    39,    36,    27,   116,   233,     0,   227,
-     232,   133,     0,   136,   137,   148,   222,   223,   221,     0,
-     209,   187,   348,   175,   203,   177,     0,   195,     0,     0,
-       0,     0,     0,     0,   400,   420,   442,     0,   456,   446,
-       0,   449,     0,   418,     0,   480,     0,   474,   476,   469,
-     471,   465,   226,   505,     0,   569,   571,   563,   328,     0,
-       0,     0,   351,     0,     0,   325,   326,     0,   311,    97,
-       0,     0,     0,   435,     0,     0,   529,     0,    92,   113,
-     125,   126,   127,   128,     0,     0,   466,     0,     0,    35,
-       0,    24,   229,   234,   236,     0,   188,   189,   215,   348,
-       0,     0,   166,   178,   204,   363,   354,   355,   360,   359,
-     358,     0,   413,   415,     0,   398,   399,     0,   457,   458,
-     450,   443,   418,   447,   478,     0,   472,   477,   226,     0,
-     565,   582,   583,   584,   343,   324,     0,   321,   318,     0,
-       0,     0,   433,   595,   528,     0,   129,   452,    40,    37,
-       0,     0,   167,   349,   350,     0,     0,   411,   414,   416,
-     399,   402,     0,   459,   451,   475,   479,   491,   568,   323,
-       0,   587,     0,     0,     0,     0,     0,    38,   190,   362,
-     361,   412,   404,   454,   322,   434,   585,   111,   455,     0,
-     586
+       2,     0,     1,     6,     8,     0,     0,    17,     9,  1019,
+    1018,     0,    18,     3,     4,     5,    12,    15,    20,  1017,
+       0,    21,   106,    19,   106,     0,   201,  1015,    22,   106,
+      23,   106,    24,    18,   960,   928,   207,   205,   215,   209,
+     213,   211,    88,   303,     0,     0,     7,    11,    18,   201,
+     202,   957,   108,     0,   107,   943,   191,   191,     0,     0,
+    1018,  1016,   191,   191,    16,     0,     0,   217,   217,   217,
+     217,   241,   217,     0,   203,   204,    10,    13,    14,   453,
+       0,     0,   364,   365,    25,     0,   462,     0,   499,   193,
+      25,   263,   254,   256,     0,   255,    88,   194,   536,   105,
+     109,   110,   116,     0,   192,     0,   112,   259,   117,   201,
+     400,   142,   144,   145,     0,   113,   150,     0,     0,   115,
+     149,   146,   143,   520,     0,   518,   529,   534,   517,   515,
+     516,   118,   119,   120,   706,   704,   704,   707,   733,   734,
+     121,   123,   114,   147,   148,   122,   945,   944,     0,   192,
+     924,   927,   201,     0,     0,   103,     0,     0,     0,     0,
+       0,     0,   909,     0,     0,     0,     0,     0,    88,   133,
+     125,   191,   151,     0,   156,   162,   157,   172,   178,   155,
+     684,   152,   161,   154,   704,   169,   153,   782,   164,   163,
+     180,   160,   177,   171,   159,   174,   179,   173,   176,   165,
+     170,   158,   994,   175,  1036,  1041,  1024,     0,   133,   133,
+     961,   929,     0,     0,   208,   218,   206,   216,   210,     0,
+       0,   214,   242,   243,   212,   200,   645,   618,   619,   199,
+    1004,     0,   257,   258,  1005,   230,   224,     0,   321,   536,
+       0,   601,   307,   613,   185,   186,   188,   189,   187,     0,
+     305,   602,     0,   600,   605,   606,   608,   610,   620,     0,
+     623,   637,   639,   641,   643,   650,     0,   653,   656,   198,
+     603,     0,     0,   923,   492,     0,   490,    26,   720,     0,
+       0,     0,   986,     0,   984,   463,     0,     0,   502,   712,
+       0,     0,     0,     0,     0,   506,     0,   413,   418,   520,
+     417,     0,   537,   111,     0,     0,     0,     0,   654,   201,
+     334,   398,     0,   462,   462,   201,     0,     0,     0,     0,
+     654,   533,   728,   191,   195,   195,   950,  1052,   472,   936,
+     201,   939,   941,   942,     0,     0,    88,   536,   166,   104,
+       0,     0,   806,     0,  1055,  1054,   168,   564,   820,   838,
+       0,     0,   818,     0,     0,     0,   589,     0,   811,   652,
+     660,   662,   813,   659,   814,   661,     0,     0,     0,   962,
+     134,   126,   191,   129,   131,   132,     0,     0,     0,     0,
+    1001,     0,   686,   764,     0,     0,   783,   704,   998,     0,
+    1042,  1034,  1021,   472,   472,   221,     0,     0,     0,   253,
+     250,     0,     0,     0,     0,     0,   320,   323,   326,   325,
+       0,     0,   536,   613,   234,   186,     0,     0,     0,     0,
+       0,   304,     0,   615,     0,   616,   617,     0,   614,   222,
+       0,   185,   611,   626,   625,   630,   628,   629,   627,   622,
+     631,   632,   634,   636,   633,   635,     0,     0,   646,     0,
+     647,     0,   649,   648,     0,   638,   992,     0,     0,     0,
+     489,     0,   702,   727,     0,   722,     0,     0,   982,   990,
+       0,   988,     0,   504,     0,     0,   503,   714,   266,   267,
+     269,     0,   264,     0,   425,     0,   421,   540,   424,   539,
+     423,   507,   406,   506,     0,     0,     0,    25,    25,   544,
+    1050,     0,   871,   224,   870,   652,   869,     0,   810,     0,
+       0,     0,   655,   281,     0,   201,   277,   279,     0,     0,
+       0,   337,     0,   404,   401,   402,   405,     0,   464,   474,
+       0,     0,   476,    88,   600,     0,   519,   679,   680,   681,
+       0,     0,   587,     0,     0,   670,   672,     0,     0,     0,
+       0,   705,   197,    25,     0,     0,   191,   704,   709,   729,
+     735,     0,   755,   191,   710,     0,   951,     0,     0,     0,
+     925,   940,   695,     0,     0,   762,   807,   808,     0,     0,
+       0,     0,     0,     0,     0,     0,   653,   900,     0,   898,
+     896,     0,     0,     0,     0,   891,     0,   889,   887,     0,
+    1062,     0,   812,     0,   201,   955,     0,   130,     0,   816,
+       0,     0,     0,     0,     0,     0,     0,     0,    88,   524,
+     819,   858,   815,   817,     0,   861,   855,   860,     0,     0,
+       0,     0,     0,   694,   692,   693,   688,   685,   691,     0,
+     768,   765,   704,   798,   796,     0,   792,   784,   781,   785,
+     996,     0,   995,  1044,     0,  1044,     0,  1020,     0,  1033,
+       0,   219,     0,     0,     0,     0,   248,     0,   325,   318,
+       0,   227,   226,   231,   225,     0,   186,   604,   308,   306,
+     322,   319,   185,   607,   609,   612,   621,   624,   640,   642,
+     644,   991,     0,     0,     0,   456,   521,     0,   496,   498,
+     529,   497,   491,     0,   726,     0,   983,   985,     0,   987,
+       0,     0,   512,   508,   510,     0,   261,     0,     0,     0,
+       0,   410,   414,   536,   430,   222,   431,   228,   435,   433,
+       0,   434,   432,     0,   415,   435,   444,   302,     0,   363,
+     719,     0,   711,     0,   548,     0,     0,   536,     0,   545,
+     553,   562,   563,  1051,     0,   853,     0,   531,   654,     0,
+     282,     0,     0,   260,   278,   349,   341,     0,   344,     0,
+     347,   348,   350,   351,   352,   338,   340,   357,   332,   353,
+     366,   335,     0,   399,     0,     0,   447,   356,   468,   460,
+     465,   466,   469,   470,     0,     0,   201,   473,     0,   667,
+     674,     0,   669,     0,     0,   676,     0,   663,   530,   535,
+     716,     0,     0,     0,     0,     0,     0,     0,   737,   741,
+     738,   752,   736,   746,   743,   730,   748,   740,   750,   753,
+     749,   751,   742,   747,   739,   756,   704,   754,     0,   969,
+       0,   970,  1053,   932,     0,   788,   578,   540,   579,   567,
+     575,   580,     0,     0,     0,     0,     0,     0,     0,     0,
+       0,     0,   825,     0,   823,     0,     0,     0,     0,   842,
+       0,   840,     0,     0,     0,     0,     0,     0,     0,     0,
+       0,     0,     0,   912,     0,   910,   901,   904,   528,   902,
+     527,   526,   837,   525,   903,     0,     0,   892,   895,   894,
+     893,     0,     0,   592,   594,     0,   167,     0,   135,   201,
+     138,   140,   141,   965,   191,   868,   816,   859,   863,   857,
+     862,   864,   865,   866,   867,     0,     0,     0,     0,   849,
+    1003,  1002,     0,     0,     0,   684,     0,     0,   766,     0,
+     769,   704,   767,     0,     0,   790,   794,     0,     0,   536,
+       0,  1011,  1010,     0,  1006,  1008,  1049,  1025,  1048,     0,
+    1045,  1046,  1035,     0,  1031,  1039,     0,   252,     0,     0,
+       0,     0,   324,   190,   238,   236,   237,     0,     0,     0,
+       0,   454,     0,   654,     0,     0,   989,   521,   484,   486,
+     488,   505,   513,     0,   500,   268,   272,     0,   270,   536,
+     422,     0,   426,   407,   411,   537,     0,   428,   429,     0,
+       0,   412,   427,   223,   229,   721,   713,     0,   549,   556,
+     552,     0,     0,   538,   557,     0,   547,     0,   878,     0,
+     876,   879,   664,   532,   287,     0,   289,     0,   284,   286,
+     293,     0,   290,     0,   273,   342,   345,     0,     0,   367,
+     239,   339,   403,   449,     0,     0,     0,     0,   475,   481,
+       0,   479,   477,   677,   678,   675,   588,     0,   671,     0,
+     673,     0,   665,   718,    25,     0,   731,     0,  1060,  1058,
+       0,   744,     0,     0,   191,   758,   757,   952,     0,   946,
+     933,   934,   690,   682,     0,     0,     0,     0,   577,   836,
+     651,   830,   827,   828,   831,   834,     0,   826,   829,   833,
+     832,     0,   821,     0,   843,   845,   844,     0,     0,   914,
+       0,     0,   915,   916,   922,   913,   523,   921,   522,   917,
+     919,   918,     0,   905,   899,   897,   890,   888,     0,     0,
+    1063,     0,   139,   966,   967,     0,   780,     0,   192,   856,
+     851,     0,     0,   847,   874,     0,   872,   875,     0,     0,
+       0,     0,     0,   684,   683,   687,     0,     0,   776,     0,
+     770,   763,   771,     0,   805,     0,   799,   801,   791,     0,
+     793,   997,     0,     0,   999,  1043,     0,  1026,  1032,   934,
+    1040,   934,   220,     0,   249,     0,   246,   245,   536,     0,
+       0,   330,   232,   993,   658,   458,   457,     0,     0,   494,
+       0,   725,     0,     0,   506,   388,   511,     0,     0,     0,
+       0,     0,     0,   190,   437,   182,   183,   184,   439,   440,
+     442,   443,   441,   436,   438,   309,     0,     0,   311,   313,
+     676,   315,   316,   317,   416,   550,     0,     0,   554,   546,
+       0,   558,   561,   878,   883,   884,   875,     0,   881,     0,
+     854,     0,     0,   283,     0,   239,     0,   280,   274,   388,
+       0,   354,   333,   388,     0,   358,   388,     0,   448,   461,
+     467,     0,     0,   478,   674,     0,     0,   715,     0,   732,
+       0,     0,    32,    33,    91,    71,    94,   257,   258,   254,
+     256,   255,   230,   224,     0,     0,    27,    63,    65,    62,
+     536,    28,   101,   653,     0,     0,   759,     0,     0,   971,
+     972,     0,   935,   930,   789,     0,     0,   568,   569,   576,
+     565,     0,   582,     0,     0,   835,   824,     0,   846,   841,
+     839,   920,     0,   911,     0,     0,     0,   593,   595,   596,
+     590,   786,   968,   963,   773,     0,     0,   852,     0,   848,
+     850,     0,     0,     0,   698,     0,   700,   689,     0,   777,
+       0,   778,   803,     0,   797,   802,   795,   536,  1009,  1007,
+       0,  1047,     0,  1022,  1027,  1038,  1038,     0,     0,   327,
+       0,   455,     0,   493,   530,   723,   487,   483,     0,   382,
+       0,   369,   374,     0,   377,   370,   380,   371,   384,   372,
+     390,     0,   373,   392,   657,   379,   501,     0,   271,   262,
+       0,   235,   233,     0,     0,   310,   551,   555,   559,     0,
+       0,   877,   386,     0,   295,     0,   296,   285,     0,   297,
+     291,     0,   396,   397,   395,     0,     0,   240,     0,     0,
+     355,   359,     0,   451,   482,   480,   666,   717,     0,    31,
+    1057,  1059,    30,  1061,    66,   529,    67,    72,  1056,    95,
+      98,    96,   102,     0,     0,     0,     0,     0,     0,     0,
+       0,     0,     0,     0,     0,     0,     0,     0,    55,     0,
+       0,     0,    29,   745,   191,   953,     0,     0,   947,     0,
+     574,   571,     0,     0,     0,     0,   581,   584,   586,   822,
+     907,   906,   598,     0,     0,     0,     0,     0,     0,     0,
+     873,     0,     0,   696,   699,   701,     0,   779,   800,   804,
+    1000,     0,     0,  1029,     0,     0,     0,     0,   495,     0,
+       0,   514,   389,   383,     0,     0,     0,     0,   378,   394,
+     390,   509,     0,   314,   312,   560,     0,   882,     0,   288,
+       0,     0,   294,     0,     0,   292,   298,   343,   346,   368,
+     360,   362,   361,   302,   450,   388,     0,    64,    64,    64,
+       0,    54,    60,    49,    39,    50,    51,    52,    48,    38,
+      46,    47,    40,    45,    34,    35,    36,     0,     0,    53,
+      56,    37,     0,    42,     0,    41,   980,   948,   979,   954,
+     975,   978,   977,   974,   973,   931,   573,   572,   570,   566,
+     583,     0,   599,   597,   591,   787,   964,   191,     0,   772,
+     697,     0,   774,     0,  1023,     0,  1037,     0,     0,     0,
+     724,     0,   375,   376,   379,   382,     0,   381,   385,   391,
+     387,   393,     0,     0,   880,   299,   301,   300,     0,    74,
+      61,    75,     0,     0,     0,    59,    57,    58,    44,    43,
+       0,     0,   908,     0,   775,  1028,  1030,   244,   247,   328,
+       0,   383,     0,   419,     0,   452,    72,    87,    76,    77,
+      80,    79,    68,     0,    73,   949,   976,   809,     0,   485,
+       0,     0,     0,    85,     0,    86,    70,   329,   420,   885,
+      84,     0,    78,    81,     0,    83,     0,   886,    82
 };
 
@@ -1301 +1843 @@
 static const yytype_int16 yydefgoto[] =
 {
-      -1,     1,    70,    71,    72,    73,   250,    74,   865,    75,
-     205,   129,   127,   696,   951,   862,   863,    76,   237,   463,
-     464,   228,   189,   190,   403,   467,   196,   281,   282,    77,
-      78,   246,   247,   681,    79,    80,   267,   248,   682,   683,
-      81,    82,    83,    84,    85,   409,    86,    87,   275,   276,
-     225,   206,   261,   262,    88,   233,    89,   283,   522,    90,
-     287,   527,    91,    92,   873,   956,   290,   531,   242,   528,
-     725,   284,   517,   518,   879,   519,   497,   704,   705,   706,
-     337,   175,   338,   176,   177,   392,   635,   617,   178,   643,
-     179,   180,   181,   182,   645,   816,   817,   818,   183,   184,
-     185,   401,   396,   193,   186,   962,   187,    94,    95,   731,
-     732,   967,   968,   740,    97,    98,   734,    99,   100,   536,
-     737,   892,   101,   738,   739,   334,   893,   974,   975,   655,
-     537,   102,   103,   104,   105,   106,   207,   418,   538,   743,
-     744,   107,   747,   748,   900,   901,   108,   749,   902,   981,
-     109,   110,   541,   542,   111,   543,   755,   752,   906,   907,
-     908,   745,   112,   113,   114,   115,   116,   211,   291,   117,
-     118,   303,   119,   306,   550,   120,   121,   551,   552,   122,
-     566,   326,   570,   214,   218,   426,   427,   546,   123,   328,
-     124,   428,   429,   331,   567,   568,   765,   368,   369,   854,
-     125,   420,   421,   435,   658,   437
+      -1,     1,    13,    14,    15,    16,    46,    17,    18,    33,
+     279,  1304,  1305,  1492,  1599,  1581,  1306,  1661,  1307,  1577,
+    1578,  1308,  1579,  1309,  1662,  1688,  1689,  1690,   337,  1311,
+    1312,  1471,   338,    51,    52,    99,   100,   101,   169,   170,
+     371,   372,   373,   369,   370,   908,   909,   910,   102,   171,
+     172,   240,  1224,  1225,   241,   974,   173,   104,   555,  1084,
+     242,    19,    20,    44,    68,    67,    70,    72,    71,    69,
+     214,   215,   243,   244,   673,   414,   245,   246,   416,   977,
+    1275,   221,   222,   223,   400,   247,   248,   106,   309,   107,
+     292,   293,   478,   479,   997,   998,   763,   514,   515,   516,
+     517,   761,  1037,  1038,  1041,  1042,  1265,  1433,  1565,  1566,
+     729,   730,   249,   250,   731,  1237,  1238,  1239,   251,   405,
+     252,   681,   406,   407,   408,  1199,  1200,   108,   109,  1048,
+     519,   520,   521,   775,  1269,  1270,   778,   779,   788,   780,
+    1450,  1451,   732,   110,  1050,  1273,  1400,  1401,  1402,  1403,
+    1404,  1405,  1406,  1407,  1408,  1409,  1410,  1411,  1412,  1413,
+    1445,   111,   522,   311,   524,   525,   112,   719,   492,   493,
+     295,   296,   733,   297,   298,   485,   486,  1001,   734,  1007,
+    1233,   735,   736,   113,   114,  1055,   786,  1276,  1575,   115,
+     272,  1207,   694,   695,   116,   117,  1056,   286,   789,   790,
+     791,   792,    53,   119,   794,   531,   532,  1060,  1061,   120,
+    1214,   988,   989,   121,   275,   276,   458,  1208,   697,   122,
+     288,  1217,   475,   793,   494,   994,   713,   714,  1215,   253,
+     535,   124,   846,  1127,  1128,   620,   892,   893,  1616,   890,
+     125,   510,   126,   321,   127,   499,   488,   128,   129,   130,
+     748,   749,  1026,   750,   174,   578,  1504,  1096,  1327,  1328,
+    1617,  1501,   849,   850,   851,  1098,  1331,  1332,  1333,  1334,
+    1065,   175,   599,  1515,   904,  1139,  1348,  1349,   254,   255,
+     256,   257,   258,   424,   427,   259,   260,   446,   261,   447,
+     262,   263,   264,   265,   266,   449,   451,   454,   267,  1099,
+    1100,   268,   511,   352,  1415,  1205,   362,   363,   364,   365,
+     176,   177,   318,   543,   544,   545,   546,  1242,   538,   539,
+    1243,   178,   179,   382,   636,   934,   180,   637,   638,   573,
+     935,  1163,  1164,   704,   322,   323,   181,   134,   135,   557,
+     136,   280,   464,   324,   558,   559,   137,   138,   560,   822,
+     139,   561,   562,  1085,   340,   182,   183,   640,   641,   939,
+     940,   184,   642,   941,  1171,   185,   186,   385,   386,   187,
+    1516,  1094,   387,   648,   947,  1179,   645,   943,  1175,  1176,
+    1177,   188,   189,   190,   191,   192,   366,   621,   622,   623,
+     193,   579,  1337,   863,   864,  1101,   894,   194,   580,   870,
+     871,   195,   196,   197,   624,   625,   626,   627,  1155,  1254,
+    1029,  1030,  1031,  1257,  1258,  1558,   198,   596,   597,   199,
+     588,   589,   200,  1344,  1621,   350,   884,   885,   375,    21,
+     328,   150,    22,    66,   570,  1499,  1091,  1323,   151,   329,
+     330,   331,    54,   326,    55,  1321,  1670,   567,  1607,    23,
+      56,    24,    65,   605,   606,  1517,  1144,  1353,   840,  1089,
+    1319,  1608,  1609,  1610,  1611,   526,   143,   283,   284,   144,
+     470,   471,   270,   692,   201,   389,   948,   651,  1380,   202,
+     630,   271,   953,   954,   955,    25,    26,    27,    28,    29,
+     655,  1532,   207,   958,  1383,  1384,   657,  1635,  1189,    30,
+      31,   654,   205,   659,  1533,  1191,   391,   653,   959,   960,
+     961,   203,   152,   568,   346,  1081,  1576,   601
 };
 
 /* YYPACT[STATE-NUM] -- Index in YYTABLE of the portion describing
    STATE-NUM.  */
-#define YYPACT_NINF -845
+#define YYPACT_NINF -1394
 static const yytype_int16 yypact[] =
 {
-    -845,   967,  -845,  -845,  -845,  -845,   -22,    45,  -845,    94,
-     186,  3621,   199,   238,  -845,  4658,    16,    36,  3621,  -845,
-     369,   256,    56,  -845,   299,   280,   268,  -845,  -845,  -845,
-     306,  -845,  -845,   409,   311,   350,  -845,   357,   357,   119,
-     354,  -845,  -845,    53,  -845,  -845,   420,  -845,   386,  -845,
-    -845,  5758,   363,   274,   280,  -845,  -845,  -845,  -845,  -845,
-    -845,  -845,  -845,  -845,   237,  -845,  -845,   549,  -845,  -845,
-    -845,   122,   563,  -845,   440,  -845,  -845,   319,   433,   436,
-     159,   495,   622,   624,  -845,  -845,   523,   329,  -845,  -845,
-     398,   102,   163,  -845,  -845,   471,  -845,  -845,  -845,  -845,
-    -845,   215,  -845,  -845,   215,  -845,  -845,  -845,   215,  -845,
-    -845,   215,  -845,   280,  -845,   280,   280,    20,   630,  -845,
-     472,    44,  3621,   306,  5477,  -845,  -845,  -845,  -845,  -845,
-    4658,  4658,  4658,  -845,  -845,  4658,   473,   474,   477,  -845,
-    4658,  4658,  4658,   478,   484,   486,   487,   488,   494,   496,
-     497,   498,   499,   500,   501,  4658,   505,  4658,   507,   508,
-     511,  4767,  -845,  -845,  -845,   512,  -845,  -845,  -845,  -845,
-    -845,  -845,  4658,  -845,  2490,  -845,  -845,  4658,   470,  -845,
-     513,   515,  -845,   516,   522,   270,  -845,  -845,   524,   654,
-    -845,  4658,  2490,  -845,  -845,  -845,   277,  -845,   277,  -845,
-    -845,  4658,  4658,  -845,  -845,   110,   326,  -845,  -845,  -845,
-    -845,  -845,   524,  5347,  4767,  -845,  -845,  4876,  -845,   524,
-     524,   277,  2573,  -845,   527,   524,  -845,  4658,   665,  -845,
-    -845,  -845,  -845,   680,   563,  -845,  -845,   357,  -845,  -845,
-    2967,  -845,   526,  -845,    88,   524,    32,  -845,   384,    82,
-    -845,  -845,  -845,  -845,  5621,    45,    45,  -845,  -845,   687,
-     533,   691,  -845,  -845,   535,   442,   534,  -845,   535,   524,
-     442,   537,   539,   442,   534,   699,  -845,   545,   847,  -845,
-    -845,  -845,    45,   714,   564,   434,  3874,  -845,  4985,   274,
-    -845,   534,   727,   122,   122,   122,   258,  -845,  -845,  -845,
-    4658,  4658,  -845,  -845,   571,  3983,  -845,  -845,  -845,  -845,
-    -845,  -845,  -845,  -845,  4658,  4658,  4658,  4658,  4658,  4658,
-    4658,   726,  5347,  -845,   470,   522,  -845,  1249,   730,   555,
-     561,  5523,  -845,  2490,   572,  1332,   875,  2490,    38,  4658,
-    4658,  4658,    48,  1353,    61,  4658,  4658,  4658,  4658,  4658,
-    4658,  4658,  4658,  4658,  4658,  4658,  4658,  1514,  4658,    68,
-    4658,  4658,  4658,  4767,  2490,  1533,   753,  1552,   278,   731,
-    4658,  1616,   733,  3294,  4658,  4658,  4658,  4658,  4658,  4658,
-    4658,  4658,  4658,  4658,  4658,  4658,  4658,  4658,  3076,  4658,
-    3403,  3512,  -845,   185,  -845,  4658,  -845,  -845,  -845,  -845,
-    -845,  -845,  -845,    69,   534,   199,  1635,  -845,  -845,   734,
-     734,  1129,  1713,  -845,  -845,   576,  -845,  -845,   736,   470,
-     739,  -845,  -845,  -845,  5523,  3765,    79,  -845,   555,  -845,
-     740,   581,   582,   439,  -845,   743,  -845,   105,   734,  -845,
-    -845,  -845,  -845,  -845,  -845,  -845,  -845,  -845,  -845,  -845,
-    -845,  -845,  -845,  -845,  -845,  -845,  -845,  -845,  -845,  -845,
-    -845,  -845,  -845,  -845,   744,   717,  -845,   106,  2490,   588,
-     591,   280,  4092,  -845,  -845,  2490,  -845,   598,  4658,    31,
-     237,   594,   598,   595,   602,   125,  -845,  -845,  -845,   609,
-     609,  4658,   109,   533,  -845,   622,  2531,  -845,  -845,  -845,
-     622,   534,   534,   622,  -845,   545,   699,  -845,  -845,   534,
-    -845,   615,  -845,  -845,  -845,  -845,  -845,   123,  -845,  -845,
-     609,   618,  -845,   534,  -845,  3874,  3185,   585,   750,    34,
-    4201,  -845,  2490,   592,   534,    80,  4331,  5955,    78,  5879,
-      13,    85,  -845,   215,  2490,  2490,   524,  -845,   619,  2490,
-     616,   778,  -845,  2490,  2490,  2490,  2490,  2490,  2490,  2490,
-    4658,   337,  1249,  2490,   706,  1732,  -845,   779,  -845,  1249,
-    -845,  5523,  5523,  5523,  5523,  5523,   760,  4658,  -845,  4658,
-    -845,   111,   115,  1751,  -845,  -845,  -845,  1796,  1815,  1834,
-    1912,  1931,  1995,  2014,  2033,  2092,  2111,  2130,  2194,  -845,
-     121,  -845,   130,   136,   149,   781,   785,   786,  4767,  4767,
-    -845,  4767,   150,  -845,  4658,  4658,  2490,  -845,   542,   542,
-     806,   806,   875,   887,   887,   887,   887,   887,   887,   164,
-     164,   185,  4658,  4658,  2490,  -845,   185,  4658,   887,  4658,
-     887,   524,   787,  2640,   627,   629,   524,  -845,  -845,  -845,
-    -845,   295,  4658,  6031,  4658,  -845,  4658,    19,   631,   337,
-    -845,  -845,  2640,    83,  5347,  -845,  -845,  -845,  -845,    19,
-     632,   524,  -845,  2573,  -845,  4658,  -845,  4658,  -845,  -845,
-    -845,   771,    42,   547,  -845,  2213,   636,  -845,   637,  -845,
-     776,  4658,  4658,   135,  -845,   242,  -845,   774,  2490,  -845,
-    -845,   535,  4658,  -845,   151,  -845,  -845,  1253,   524,   780,
-     780,   545,  -845,  -845,   476,   847,  -845,  -845,   534,   780,
-     641,  4092,   750,  -845,   645,  -845,   644,  -845,  -845,   804,
-     688,   809,  -845,  2490,  -845,  -845,  -845,   773,   215,  -845,
-     215,   653,  -845,  -845,  -845,  -845,   652,   536,  -845,   215,
-    -845,  2749,   655,   664,  -845,  -845,   122,  -845,  -845,  -845,
-    3983,  2490,  -845,   152,  -845,  2490,  2490,  2490,  1249,   779,
-     570,   760,   760,   760,   593,  -845,  2490,  -845,  -845,  -845,
-    -845,  -845,  -845,  -845,  -845,  -845,  -845,  -845,  -845,  -845,
-    -845,  -845,  -845,  -845,  -845,  -845,  5094,  5094,  5094,  2490,
-    -845,  2490,  -845,  2490,  -845,  -845,   667,   887,   887,   185,
-     887,   887,   470,  4658,  2858,  1415,   828,  -845,  -845,   513,
-    -845,   534,  -845,  -845,  2291,   670,  -845,   671,  -845,  2310,
-    1150,   829,  -845,  -845,  1233,   672,  -845,  -845,  -845,  -845,
-    -845,  -845,  -845,  2490,   153,  -845,   598,   598,   598,   598,
-     598,   522,  -845,   832,   676,  -845,  2329,  2374,  -845,  -845,
-    -845,  -845,   154,  -845,   678,  -845,  -845,  2490,  2531,  -845,
-    4440,  -845,  5203,  -845,  -845,   699,  -845,  -845,  -845,   679,
-    -845,   780,   231,  -845,   750,  -845,  4092,  -845,   291,   681,
-     683,  4658,   586,   215,   122,   122,  -845,  4658,   685,  -845,
-     454,  -845,   215,   122,  4658,  2490,   155,  -845,   842,  -845,
-    -845,  5955,   534,  -845,  1831,  2490,  -845,  -845,   832,   684,
-     686,   689,  -845,   690,  4658,  1435,  4658,  2640,  -845,  -845,
-     845,  4658,  4658,  -845,  4658,   524,  -845,   524,  -845,  -845,
-      66,    66,   693,   143,  4658,   833,  -845,   768,    60,  -845,
-     259,  -845,  -845,  -845,  2490,  4549,  -845,  2490,  -845,   231,
-    4658,  4658,  -845,  -845,  -845,   729,  -845,   851,  -845,  -845,
-    -845,   695,   696,   702,   215,  -845,   122,  2393,  -845,   703,
-    -845,  -845,   122,  5955,  -845,  2749,  -845,  4658,   534,   701,
-    2490,  -845,  -845,  -845,  -845,  2490,  4658,  1455,  -845,  4658,
-     704,  2412,  1171,   470,   697,  1192,   598,  -845,  -845,  -845,
-     157,   705,  -845,  2490,  2490,   709,   713,   716,  -845,  -845,
-     122,  4331,   784,  -845,  5955,  -845,  -845,  -845,  -845,  2490,
-    4658,  2490,  4658,  6107,  4658,  4658,   855,  -845,  -845,  -845,
-    -845,  -845,  4331,   719,  2490,  2490,  1213,  -845,  -845,  4658,
-    2490
+   -1394,  1431, -1394, -1394, -1394,   -49,   -36, -1394, -1394, -1394,
+      39,   837, -1394, -1394,   155,   218, -1394, -1394, -1394, -1394,
+     855, -1394,   194, -1394,   194,   189,   624, -1394, -1394,   194,
+   -1394,   194, -1394, -1394, -1394, -1394, -1394, -1394, -1394, -1394,
+   -1394, -1394, -1394,   101,   233,   268, -1394, -1394, -1394,   869,
+   -1394, -1394,  4057,   229,   194, -1394,   512,  2546,   303,   355,
+   -1394, -1394,  2546,  2546, -1394,   188,   188,    86,    86,    86,
+      86,    95,    86,   132, -1394, -1394, -1394, -1394, -1394, -1394,
+     188,   361, -1394, -1394,    98,   296,   421,   598, -1394, -1394,
+      98,   109, -1394, -1394,   800, -1394,   658, -1394,   434, -1394,
+    4057, -1394, -1394,   313,   697,   495, -1394, -1394, -1394,   549,
+     422, -1394, -1394, -1394,   604, -1394, -1394,   625,   651, -1394,
+   -1394, -1394, -1394,   -18,   764, -1394,   615, -1394, -1394, -1394,
+   -1394, -1394, -1394, -1394, -1394, -1394, -1394, -1394, -1394, -1394,
+   -1394, -1394, -1394, -1394, -1394, -1394, -1394, -1394,   691, -1394,
+   -1394, -1394,   892,   667,   669,  1351,   432,   -53,   475,   674,
+     676,   683, -1394,  3782,  3837,   687,   690,  3574,   812,   731,
+   -1394,  4247, -1394,  1042, -1394, -1394, -1394, -1394, -1394, -1394,
+   -1394, -1394, -1394, -1394, -1394, -1394, -1394,   827, -1394, -1394,
+   -1394, -1394, -1394, -1394, -1394, -1394, -1394, -1394, -1394, -1394,
+   -1394, -1394,   709, -1394, -1394,   716, -1394,   729,   731,   731,
+     155,   155,   700,  3103, -1394, -1394, -1394, -1394, -1394,   411,
+    1061, -1394, -1394, -1394, -1394, -1394, -1394, -1394, -1394, -1394,
+   -1394,  3867, -1394, -1394, -1394,   727,   730,  3882, -1394,    87,
+     927, -1394, -1394, -1394,   760, -1394, -1394,   495, -1394,    82,
+   -1394, -1394,  3867, -1394, -1394,   932, -1394,   756,   253,  1456,
+     951, -1394, -1394,   947,   949,   781,  2103, -1394, -1394, -1394,
+   -1394,   768,   769,   155, -1394,   103, -1394, -1394,   155,   322,
+     188,   783, -1394,   118, -1394, -1394,   786,   789,   610,   155,
+     188,   699,   790,   433,   487,   130,   608, -1394, -1394, -1394,
+   -1394,    13, -1394, -1394,  3574,  3585,   188,   967,  3882,   657,
+     210, -1394,   795,   421,   421,    14,  3913,  3882,   843,  3882,
+    3882,   798, -1394,  4169,   409,   834,   263, -1394, -1394, -1394,
+     895, -1394, -1394, -1394,  3882,  3882,   336,   434, -1394, -1394,
+     188,   188,   155,   188, -1394, -1394, -1394, -1394, -1394, -1394,
+     811,  3434, -1394,   188,  3464,   188, -1394,   819,   155, -1394,
+   -1394, -1394, -1394, -1394, -1394, -1394,   188,   362,   188, -1394,
+   -1394, -1394,  4270, -1394, -1394, -1394,  3882,  3133,  3133,  3585,
+   -1394,  1014,   556,   918,    -5,    76, -1394, -1394,   841,   188,
+   -1394, -1394, -1394, -1394, -1394, -1394,  1031,   846,   132, -1394,
+   -1394,  1032,  1038,   112,  3867,   898,  1048, -1394, -1394, -1394,
+     644,   644,   482,   871, -1394,   879,   888,  1456,   874,   132,
+     132, -1394,   868, -1394,  1456, -1394, -1394,  1456, -1394, -1394,
+    1456,   901,   756, -1394, -1394, -1394, -1394, -1394, -1394, -1394,
+   -1394, -1394, -1394, -1394, -1394, -1394,  2103,  2103, -1394,  3882,
+   -1394,  3882, -1394, -1394,  3882, -1394,   882,   887,   697,   361,
+     155,   886, -1394, -1394,  1087,   155,   118,   783,   155, -1394,
+     160, -1394,  1073, -1394,   906,   908, -1394,   155,  1101, -1394,
+   -1394,   188, -1394,   913, -1394,  1105, -1394, -1394, -1394, -1394,
+   -1394, -1394, -1394,   169,   800,   800,   762,    98,    98,  1119,
+     155,   188, -1394,   114, -1394, -1394, -1394,   195,   155,  3882,
+     916,  1113, -1394,   341,   952,   723, -1394, -1394,  1850,   933,
+     972,  1126,   188, -1394,  1128, -1394, -1394,   944,   158, -1394,
+     948,   201, -1394, -1394,    93,   946, -1394, -1394, -1394, -1394,
+     188,  1146, -1394,   115,   134, -1394, -1394,   697,   188,   957,
+     819, -1394, -1394,    98,  1149,  1043,  4345, -1394, -1394, -1394,
+   -1394,   -25, -1394,   331, -1394,  1025, -1394,   969,   188,   979,
+   -1394, -1394, -1394,   968,   971,   155,   155,   155,   819,  3218,
+    3519,  2975,  3882,   -53,   697,   697,   874, -1394,   137, -1394,
+     155,  3882,   -53,   697,   697, -1394,   138, -1394,   155,   819,
+   -1394,   147,   155,   970,   555, -1394,   987, -1394,   980, -1394,
+    3882,  3639,  3585,   982,   -53,   -53,   -53,   697, -1394, -1394,
+   -1394, -1394, -1394, -1394,   161, -1394, -1394, -1394,   168,   207,
+     440,  1060,   697, -1394, -1394, -1394,  1137, -1394, -1394,   984,
+     803, -1394, -1394, -1394, -1394,   442,   988, -1394, -1394, -1394,
+   -1394,  3882,   155,    83,   188,    83,   996, -1394,  1000, -1394,
+    3882, -1394,   990,   132,  3882,  3882, -1394,  1187,   874, -1394,
+    3867, -1394, -1394, -1394, -1394,   234,  1017, -1394, -1394, -1394,
+   -1394, -1394, -1394, -1394, -1394,   756,   253,  1175, -1394,   947,
+     949, -1394,  3882,  1189,   171, -1394,   496,  1195, -1394, -1394,
+    1007, -1394, -1394,  3882, -1394,  3882,   155, -1394,   786,   155,
+     819,  1183,  1013,  1204, -1394,   699,   155,  1018,   487,   188,
+     800, -1394, -1394,  1015, -1394,  1191, -1394, -1394,   176, -1394,
+    1021, -1394, -1394,   710, -1394,  1191, -1394,  1194,   534, -1394,
+     155,   188,   155,   188,  1176,   -53,  3882,   125,   174, -1394,
+   -1394,   116, -1394,   155,  3960,   155,   188, -1394,  3882,   659,
+   -1394,   819,   485, -1394, -1394, -1394, -1394,  1023, -1394,  1024,
+   -1394, -1394, -1394, -1394, -1394, -1394, -1394, -1394,  1215, -1394,
+    1026, -1394,  1850,   155,   795,  1027,  1218, -1394, -1394, -1394,
+    1219, -1394, -1394, -1394,   188,  1033,   549,   155,  1034,   155,
+    3882,  3882, -1394,  3882,  1077, -1394,   188,   155, -1394, -1394,
+     155,   188,  1062,   501,  1036,  3989,  1039,  1206, -1394, -1394,
+   -1394, -1394, -1394, -1394, -1394, -1394, -1394, -1394, -1394, -1394,
+   -1394, -1394, -1394, -1394, -1394,   834, -1394, -1394,  1095, -1394,
+    1084,  1236,   155,  1130,   476, -1394, -1394, -1394, -1394,  1239,
+   -1394,  1054,  3882,  3882,  3882,  3882,  3882,  1245,  3882,   -53,
+    3882,   697, -1394,   193, -1394,  1246,  3882,   -53,   697, -1394,
+     197, -1394,  3882,  1251,   697,   697,   697,   697,  3882,   697,
+     -53,   697,   697, -1394,   200, -1394, -1394, -1394, -1394, -1394,
+   -1394, -1394, -1394, -1394, -1394,  3434,   188, -1394, -1394, -1394,
+   -1394,  3464,   188, -1394,  1254,   819, -1394,  3882, -1394,   976,
+   -1394, -1394, -1394,  1228,  2759, -1394, -1394, -1394, -1394, -1394,
+   -1394, -1394, -1394, -1394, -1394,  3133,  3650,   425,   909,   155,
+   -1394, -1394,  3882,  3882,   864, -1394,  3882,   505, -1394,   645,
+   -1394, -1394, -1394,  1555,   188,   155, -1394,   188,   188,    87,
+    1255, -1394, -1394,   202, -1394, -1394, -1394, -1394, -1394,  1065,
+    1260, -1394,   155,  1071,  1235,  1238,  1075, -1394,   203,   205,
+    1076,  3867, -1394, -1394, -1394, -1394, -1394,  1080,   211,  3882,
+     887, -1394,   697,  3882,  1082,  1274, -1394, -1394,  1276, -1394,
+   -1394, -1394, -1394,   908,   567, -1394, -1394,   212, -1394,   182,
+   -1394,  1278, -1394,   155, -1394,   132,   579, -1394, -1394,  3697,
+     762, -1394, -1394, -1394, -1394,   155,   155,  3882,  1282, -1394,
+   -1394,  3734,  1119, -1394,  1634,  3882, -1394,  3960, -1394,   258,
+   -1394, -1394,   155, -1394, -1394,  1094, -1394,   353, -1394, -1394,
+    1097,   266, -1394,   188,   155, -1394, -1394,   933,   188, -1394,
+    1270, -1394, -1394, -1394,  1102,   188,   188,   158,   155,  1272,
+     214, -1394, -1394, -1394, -1394, -1394, -1394,  1291, -1394,  1292,
+   -1394,   697,   155,   155,    98,   188,   155,  3882,  2901,  2425,
+    3379, -1394,   819,  3882,  1839, -1394,   834, -1394,   143, -1394,
+   -1394,  1107,   155, -1394,   188,   414,  1108,  3882, -1394, -1394,
+   -1394, -1394, -1394, -1394, -1394, -1394,  3882, -1394, -1394, -1394,
+   -1394,  3218, -1394,  3882, -1394, -1394, -1394,  3519,   188, -1394,
+     697,  1111, -1394, -1394, -1394, -1394, -1394, -1394, -1394, -1394,
+   -1394, -1394,  3294, -1394, -1394,   155, -1394,   155,   445,  1115,
+   -1394,  1121, -1394, -1394,  1133,   188, -1394,  1592,   350, -1394,
+     155,   258,  3960,   155, -1394,   318, -1394, -1394,   318,  1123,
+    1132,   577,   613, -1394, -1394,   556,  1135,   188,   155,   623,
+   -1394, -1394, -1394,  3882, -1394,   220, -1394,  1295,   155,   188,
+     155,   155,  3882,  3882, -1394, -1394,    83,  1301, -1394,  1107,
+   -1394,  1107, -1394,  1242, -1394,  1264, -1394, -1394,   182,  1139,
+    1334, -1394, -1394, -1394, -1394, -1394, -1394,   188,   225, -1394,
+    1150, -1394,  3882,   819,   364,  1681, -1394,   188,   610,  1018,
+     188,  3882,   234,   540, -1394, -1394, -1394, -1394, -1394, -1394,
+   -1394, -1394, -1394, -1394, -1394, -1394,  1335,   240, -1394, -1394,
+    1144, -1394, -1394, -1394, -1394, -1394,  3882,   -53, -1394, -1394,
+    3882,  1342, -1394,   874, -1394, -1394, -1394,  1345, -1394,  3960,
+     155,  1923,   659, -1394,  1923,  1270,   819,   155,   155,  1681,
+     696, -1394,   155,  1681,   411,   105,  1681,  1160,   155,   155,
+   -1394,  1166,  1033, -1394, -1394,  3882,   188,   155,   188,   155,
+    1164,  3882, -1394, -1394, -1394, -1394, -1394,   582,   592,   634,
+     744,   865,   444,   562,  1165,  3882,  1167, -1394,   697,  1181,
+     491,  1188,   870,  1880,   243,  1186, -1394,  1378,  1237,  1381,
+   -1394,   188, -1394, -1394,   155,   697,  1382,  1383, -1394, -1394,
+   -1394,   246, -1394,  3882,  1384, -1394, -1394,   188, -1394, -1394,
+     155, -1394,  3960, -1394,   188,   697,  1387, -1394,  1390, -1394,
+   -1394, -1394, -1394, -1394,   155,  3882,   -53,   155,   909,   155,
+     155,  1293,   650,   188,   155,   188,   155,   556,  1296,   155,
+     188,   155, -1394,  1555, -1394,  3882,   155,   434, -1394, -1394,
+     188, -1394,  1201, -1394, -1394, -1394, -1394,  1393,  1395, -1394,
+    3882,   155,   697, -1394, -1394,  1392, -1394,   155,  1385, -1394,
+    1209,  1402, -1394,  1405, -1394,  1403, -1394,  1407, -1394, -1394,
+    3882,  1396,  1408, -1394, -1394,  1412,   155,   908, -1394,   155,
+    1415, -1394, -1394,  3913,  3913, -1394, -1394, -1394, -1394,  3882,
+    3960, -1394, -1394,  1226,  1419,  1420,  1407, -1394,  1229,   121,
+   -1394,  1231, -1394, -1394, -1394,  1232,  1233, -1394,  3882,   533,
+   -1394, -1394,  1234, -1394, -1394, -1394,   155,   155,   467, -1394,
+   -1394, -1394, -1394, -1394, -1394,  1007, -1394,   108, -1394, -1394,
+    1241, -1394, -1394,  2513,  3882,  3882,  3882,  3882,  3882,  3882,
+    3882,  3882,  3882,  3882,  3882,  3882,  3882,  3882,  2329,  3882,
+    2559,  2599, -1394, -1394,  1839,  1244,  1247,  1248,   155,   188,
+   -1394, -1394,   697,    50,   188,  3882, -1394, -1394, -1394,   155,
+    1427,   155, -1394,   697,   262,   188,   188,   188,  1243,  1433,
+   -1394,   188,   188,   155,   155,   155,   682,   155, -1394, -1394,
+     155,  1249,   188, -1394,   188,  3882,   132,  1439, -1394,  3882,
+    1252, -1394,  3882,  3771,  2016,  1440,  1441,  1428, -1394, -1394,
+    3882,  1204,  3882, -1394, -1394, -1394,  1445, -1394,  1257, -1394,
+    3882,  3882, -1394,  3882,   533, -1394, -1394, -1394, -1394, -1394,
+   -1394, -1394, -1394, -1394, -1394,  1681,    -1, -1394, -1394, -1394,
+    3882, -1394, -1394, -1394, -1394, -1394, -1394, -1394, -1394, -1394,
+   -1394, -1394, -1394, -1394, -1394, -1394, -1394,  3882,  3882, -1394,
+   -1394, -1394,  3882, -1394,  3882, -1394,  1237, -1394, -1394,  1450,
+   -1394, -1394, -1394, -1394, -1394,   155, -1394, -1394, -1394,   155,
+   -1394,   188, -1394, -1394,   155,   155,   155,  1839,   -53,   155,
+     155,   188,   155,  1262,   155,   188,   155,  1269,  1273,  3882,
+   -1394,  1432, -1394, -1394, -1394, -1394,  1454, -1394, -1394, -1394,
+   -1394, -1394,   247,  3882, -1394, -1394, -1394, -1394,  1275,  1167,
+    1280,  2127,  1283,  1286,  1287, -1394, -1394, -1394, -1394, -1394,
+     188,  1244,   155,   188,   155, -1394,   155, -1394, -1394,  1463,
+     819, -1394,  3882, -1394,  1471, -1394, -1394,  2220,  1481, -1394,
+   -1394,  1482, -1394,   697, -1394,   155, -1394,   155,  3882, -1394,
+    1299,  3882,  3882,  1483,  2127,  3882, -1394, -1394, -1394,  1487,
+   -1394,  3882, -1394,  1492,  3882, -1394,  3882, -1394, -1394
 };
 
@@ -1440 +2079 @@
 static const yytype_int16 yypgoto[] =
 {
-    -845,  -845,  -845,   -96,   830,   628,   -26,  -845,  -845,  -845,
-     399,   156,  -845,   -94,  -845,   -67,   -63,  -845,  -845,   232,
-    -845,  -845,  -845,   509,  -845,   234,    30,  -845,  -845,  -845,
-    -845,  -845,   444,  -464,  -845,  -845,  -238,   438,  -242,  -845,
-    -845,  -845,  -845,  -845,  -845,   -47,  -845,  -845,  -263,   417,
-     -27,   -50,   668,   437,  -845,  -845,  -845,  -845,  -845,  -845,
-    -845,   404,  -845,  -845,  -671,  -845,  -845,  -845,   642,  -231,
-    -656,  -845,  -845,   217,  -845,   882,  -236,  -845,    67,    70,
-     -11,   -78,    55,  -144,  -458,  -507,  -845,  -845,   -97,  -845,
-    -845,  -845,  -845,  -845,   540,  -845,     9,   279,     1,   -70,
-    -845,  -845,  -182,  -382,   365,   -20,  -128,  -845,  -845,  -845,
-      52,  -845,   -73,    43,  -845,  -630,  -845,  -515,  -514,  -844,
-    -845,  -845,  -845,  -845,  -566,  -718,  -845,  -845,  -845,  -845,
-    -294,  -845,  -845,  -845,  -845,  -845,  -185,  -845,  -845,  -845,
-    -845,  -845,  -845,  -663,  -845,  -845,  -845,  -845,  -845,  -845,
-    -845,  -845,  -845,   405,  -845,  -845,  -845,  -845,  -845,   -40,
-    -787,  -845,  -845,  -845,  -845,  -845,  -845,   -38,   190,    11,
-    -845,  -845,  -845,  -845,  -845,  -845,  -845,  -845,   191,  -845,
-    -845,  -845,  -845,   506,  -845,  -845,   288,  -384,  -845,  -845,
-    -845,   -39,   834,  -250,  -126,  -699,  -522,  -140,  -287,  -465,
-    -845,  -845,  -213,  -845,   519,  -845
+   -1394, -1394, -1394,   635, -1394,  1436,   548, -1394, -1394, -1394,
+   -1394, -1394, -1394, -1394, -1394, -1394,   -79, -1394, -1394, -1394,
+   -1394, -1394, -1394, -1394,  -666, -1394,  -206, -1394,   -11, -1394,
+   -1394, -1394, -1394, -1394, -1394, -1394, -1394,  1399,   857, -1394,
+   -1394, -1394,   119,   735, -1394, -1394, -1394,   595, -1394,   -68,
+    -892,  -632, -1394, -1394,   499,   500,   -42,    34, -1394,   627,
+    -217,   -80, -1394,  1488, -1394, -1394, -1394, -1394, -1394, -1394,
+    1050, -1394,  -205,  -183,  1096,  -448,  -195, -1394, -1394, -1394,
+     244, -1394, -1394, -1394,   236,   -37, -1394, -1394, -1394, -1394,
+   -1394, -1394, -1394,   796, -1394,   293, -1394, -1394, -1394,   998,
+   -1394, -1394, -1394,   252, -1394,   249, -1394,   256, -1394, -1394,
+    -972,  1510, -1394,  1103,   516, -1394,   100,   102, -1394,  1277,
+   -1394, -1394,  1124,  -598, -1394, -1394, -1394, -1394, -1394, -1394,
+   -1394, -1394, -1394,   748, -1394, -1394, -1394,   486, -1394, -1394,
+   -1394, -1394,  -971,  -254, -1394, -1394, -1189,  -438, -1112, -1170,
+   -1107, -1394,   -10,  -413,   -13, -1394, -1394,   131, -1394,    -4,
+   -1394, -1394, -1394, -1394, -1394,   763, -1394, -1394, -1394, -1394,
+    -415, -1394, -1394,  1045,  -247, -1394,   831, -1394,   541,  -603,
+   -1394,   547, -1394, -1394, -1394, -1394, -1394, -1394, -1394, -1394,
+   -1394, -1394, -1394,   574, -1394, -1394, -1394,   -29, -1394, -1394,
+     506, -1394,     9, -1394, -1394, -1394,   761, -1394,   276, -1394,
+   -1394,  -116,   356, -1394, -1394,  1109, -1394, -1394,  -939, -1394,
+   -1394, -1394, -1394,  -276,  -472, -1394,   153,   578, -1394,  1178,
+   -1394,  1964,  -452,   694, -1394, -1394,  -821, -1394,  -498, -1394,
+    -456,  -292,  -289, -1394,  1028, -1394, -1394,  -249,  -285, -1394,
+   -1394,   551, -1394, -1394,  1030, -1394, -1394, -1394, -1394,    74,
+      71,   248, -1394,   493,  -566, -1394, -1394,    84, -1394,  -251,
+     259,  1035, -1394, -1394, -1394, -1394, -1394,    80, -1394, -1394,
+     385,     1,  1151, -1394, -1394,  -193,  1148, -1394,  1330, -1394,
+    1152,  1147,  1145, -1394, -1394, -1394, -1394, -1394,  1529,  -755,
+    -140,  -163,   842,   -72,  -936, -1047, -1394, -1394,  -200, -1394,
+     -44,   332, -1394, -1394, -1394,   801,   807,  -508,   806, -1394,
+    1297,  -371,  -375,  -861, -1394, -1394, -1394, -1394,  -813,  -820,
+   -1394, -1394, -1394, -1394,  -166, -1394,   343, -1394, -1394,  1051,
+   -1394,   -74,  -694,  -106,  1290, -1394, -1394, -1394, -1394, -1394,
+   -1394, -1394,  1056, -1394, -1394, -1394, -1394, -1394,  -558, -1394,
+   -1394, -1394, -1394, -1394, -1394,  1055, -1394, -1394,  1240, -1394,
+   -1394, -1394, -1394, -1394, -1394, -1394, -1394, -1394, -1394,   250,
+   -1100, -1394,  1063, -1394,    -3, -1394, -1394,  1016,   507, -1394,
+    1074, -1394, -1394, -1394,   521,   765,  1040,  1079, -1394, -1394,
+     519,  1090,  1099,   -12,  1281,  1020,   725,  -234,   724,  -850,
+    -856,  -963,  -859, -1394,   221, -1394,  1104, -1394,   757,  1110,
+   -1394,   770,  1112, -1394, -1394, -1394, -1394,   531,   466, -1394,
+   -1394, -1394, -1394, -1394, -1394, -1394, -1394,  -434, -1394, -1394,
+   -1394,  1337, -1394, -1394,  1616, -1394, -1394, -1394, -1394, -1394,
+     681, -1394, -1394, -1394, -1394, -1394, -1394, -1394, -1394, -1394,
+   -1394, -1029, -1394,     0, -1394, -1393, -1394,  1394,  1210, -1394,
+   -1394,   973,  -479, -1394,  1131, -1394, -1394, -1394, -1394, -1394,
+   -1394,  1058,   994,   497,   511, -1394, -1394,  1663,  -129, -1394,
+   -1394, -1394, -1394, -1394, -1394, -1394, -1394, -1394, -1394,  -114,
+   -1394, -1394, -1394, -1394,   309, -1394, -1394, -1394,  1052, -1394,
+     517,   468, -1394, -1394, -1394, -1394, -1394,   616
 };
 
@@ -1466 +2136 @@
    positive, shift that token.  If negative, reduce the rule which
    number is the opposite.  If YYTABLE_NINF, syntax error.  */
-#define YYTABLE_NINF -542
+#define YYTABLE_NINF -1015
 static const yytype_int16 yytable[] =
 {
-     174,   539,    93,   402,   192,   293,   434,   174,   294,   474,
-     641,   775,   295,   642,   506,   296,   243,   366,   690,   684,
-     414,   735,   736,   828,   684,   300,   494,   324,   372,   265,
-     498,   270,   271,   367,   686,   203,   273,  -171,   504,   874,
-     226,   579,   766,   767,    96,   846,   323,   198,   882,   257,
-     258,   579,    93,   268,   325,   534,   764,   764,   764,   203,
-     277,   847,   848,   849,   579,  -171,   885,   221,   222,   917,
-     366,   579,   646,   432,   430,   297,   607,   298,   299,   575,
-    -430,   859,   664,   365,   899,   329,   367,   849,   373,   374,
-     375,   376,   377,   378,    96,   379,   380,   381,   382,   383,
-     384,   332,   385,   386,   387,   388,   389,   729,   671,   675,
-     477,   174,   493,   203,   579,   419,   324,   984,   579,   333,
-     335,   336,   419,   285,   579,   750,   715,   483,   203,   540,
-     343,   126,  1021,   579,  -426,   323,   365,   223,   203,   579,
-     831,   224,   301,   325,   357,   307,   251,   194,   479,  -429,
-     364,   410,   579,   579,   868,   914,   675,   948,   985,  -425,
-     948,   371,   847,   848,   849,  -171,   393,   194,   648,   741,
-     484,   485,   229,   971,   438,   751,  1042,   223,   575,   170,
-     406,   224,   195,   230,   288,   387,   388,   389,   302,   404,
-     411,   412,   753,   742,  -171,   342,   480,   344,  -106,   394,
-    1026,   580,   197,   364,   308,   128,   364,   417,   389,   850,
-     959,   584,   359,  1000,   425,   917,   468,   204,   433,   605,
-     860,   436,  -430,   606,   586,   324,   466,   486,   963,   475,
-     564,   601,   647,   850,   324,   367,   960,   980,   495,     4,
-     730,   680,   665,   500,   323,   496,   503,   390,   391,   563,
-     478,   836,   325,   323,   716,    93,   130,   565,   916,   916,
-     916,   325,   252,   859,   286,   709,   710,   471,   672,   676,
-     499,   413,   699,   713,   777,   475,  -426,   532,   778,   170,
-     859,   609,   251,   561,   792,   365,   204,   719,   253,   544,
-     545,  -429,   576,   793,   549,   722,   413,    96,   728,   794,
-     694,  -425,   540,   553,   554,   555,   556,   557,   558,   559,
-     850,   575,   795,   805,   869,   915,   938,   949,   986,   266,
-    1037,   800,   802,   425,   804,   289,   575,   324,   390,   391,
-     583,   919,   920,   921,   587,   588,   589,   590,   591,   592,
-     593,   594,   595,   596,   597,   598,   323,   223,   131,   390,
-     391,   224,   371,   961,   325,   571,   311,   312,   572,   573,
-     574,   188,   616,   618,   619,   620,   621,   622,   623,   624,
-     625,   626,   627,   628,   629,   630,   631,   634,   636,   638,
-     640,    69,   939,   199,   192,   659,   372,   481,   684,   684,
-     684,   684,   684,   990,   581,   582,   697,   244,   252,   245,
-     191,   278,   860,   828,   610,   861,   482,   239,   764,   575,
-     407,   489,   490,   600,   663,   602,   603,   604,   202,   860,
-     415,   416,  1009,   400,   253,   612,   717,   837,   822,   279,
-     212,   923,   395,   679,   240,   241,   763,   408,   520,   264,
-     209,   235,   236,   769,   832,   701,   210,   756,   875,   989,
-     708,   965,   937,   711,  -156,   823,   839,   966,  -156,   208,
-     223,   475,   911,   866,   224,   564,   775,   685,   213,   255,
-     806,   256,   564,   219,   324,   324,   324,   324,   324,   259,
-     698,   260,   881,   916,   563,   707,   170,   309,   194,   274,
-     884,   563,   565,   323,   323,   323,   323,   323,   269,   565,
-     762,   325,   325,   325,   325,   325,   735,   736,   858,   800,
-     802,   804,   220,  -156,   475,   475,   227,  -156,   372,   371,
-     575,   575,   575,   575,   575,   733,   203,   735,   736,   280,
-     200,   201,   770,   771,   772,   773,   774,   746,    93,   979,
-      93,  -156,  1036,   231,   812,  -156,   232,   757,   684,   761,
-     376,   377,   378,   249,   379,   380,   381,   382,   383,   384,
-     419,   385,   386,   387,   388,   389,   733,   324,   776,   215,
-     216,   217,   419,   571,   311,   312,   572,   573,   574,  -541,
-    -541,  -541,  -541,  -541,  -541,   929,   323,   254,   139,   311,
-     312,   572,   573,   574,   325,   524,   525,   799,   801,   263,
-     803,   398,   668,   364,   807,   940,   941,   942,   943,   983,
-     876,   877,   878,   851,   572,   573,   574,   133,   134,   746,
-     898,   808,   809,   972,   973,   203,   810,   272,   811,   310,
-     327,   292,   815,   304,   305,   339,   340,   928,   394,   341,
-     345,   824,   894,   829,   895,   830,   346,   821,   347,   348,
-     349,   834,   806,   903,    93,   964,   350,   405,   351,   352,
-     353,   354,   355,   356,   843,   425,   468,   358,   469,   360,
-     361,   564,   841,   362,   370,   395,   988,   397,   398,   162,
-     856,   857,   399,   470,   170,   163,   164,   465,  1024,   476,
-     563,   867,   491,   259,   493,   266,   496,   501,   565,   502,
-     166,   167,   505,   168,   169,   274,   390,   391,   171,   871,
-     475,   373,   374,   375,   376,   377,   378,   521,   379,   380,
-     381,   382,   383,   384,   523,   385,   386,   387,   388,   389,
-     535,   560,   547,   569,   611,   577,   614,   651,   654,   674,
-     905,   656,   657,   609,   666,   667,   669,   673,   723,   549,
-     677,   678,  1027,   724,   688,   727,   608,   691,  -237,  -237,
-    -237,  -237,  -237,  -237,   692,  -237,  -237,  -237,  -237,  -237,
-    -237,   695,  -237,  -237,  -237,  -237,  -237,   714,   718,   759,
-     758,   760,   768,   574,   796,   799,   801,   803,   797,   798,
-     819,   813,   820,   845,   833,   840,   853,   976,   855,   478,
-     864,   872,   192,   925,   883,   886,   982,   887,   888,   891,
-     889,   372,   890,   896,   897,   909,   378,   564,   379,   380,
-     381,   382,   383,   384,   910,   385,   386,   387,   388,   389,
-     922,   927,   931,   932,   935,   936,   563,   944,  1003,   945,
-     950,   969,   958,   730,   565,   978,   987,   991,   999,   992,
-    1007,  1015,   993,   994,  1016,  1006,  1018,   707,  1017,   954,
-     850,   957,  1019,  1023,  1028,   302,  1043,  1032,  1038,  1039,
-     390,   391,   507,   965,   394,   475,  1041,  1047,  1020,  1048,
-     333,   234,   488,  1010,   693,  1008,   977,   379,   380,   381,
-     382,   383,   384,   905,   385,   386,   387,   388,   389,  -542,
-    -542,  -542,  -542,  -542,  -542,   842,   385,   386,   387,   388,
-     389,   844,    93,   995,   649,   997,   815,  -237,  -237,   689,
-     333,  1001,   712,  1002,   687,   235,   236,   508,   492,   720,
-     700,   533,   880,  1005,   238,   952,   998,   644,    93,  1012,
-     953,   835,   970,  1040,   371,  1025,   754,   912,  1004,  1013,
-    1014,   913,   838,   509,   670,   510,   511,   512,   330,     0,
-     513,   514,     0,   515,   516,     0,     0,     2,     3,     0,
-     390,   391,     0,     0,   905,     0,   905,     0,     0,     0,
-       0,     0,     0,     0,    93,  1029,     0,     0,  1031,     0,
-       0,     4,     5,     0,     0,     6,   -21,     7,   -21,     8,
-       0,     0,     9,     0,     0,     0,     0,     0,     0,     0,
-     733,     0,    10,     0,     0,     0,     0,     0,     0,  1044,
-       0,   733,     0,  1045,  1046,    93,     0,     0,    11,     0,
-       0,   733,    12,    13,    93,     0,     0,    14,  1050,   390,
-     391,     0,     0,    15,     0,    16,    17,     0,    18,     0,
-       0,   390,   391,    19,    20,    21,    22,    23,     0,    24,
-      25,     0,     0,    26,    27,    28,    29,    30,    31,    32,
-      33,    34,    35,    36,     0,    37,     0,    38,    39,     0,
-       0,    40,    41,    42,     0,    43,     0,    44,     0,     0,
-      45,    46,     0,     0,    47,    48,    49,     0,     0,     0,
-       0,     0,     0,     0,    50,     0,     0,    51,    52,    53,
-      54,    55,    56,    57,    58,    59,    60,    61,    62,    63,
-       0,     0,    64,     0,     0,    65,    66,    67,    68,     0,
-       0,     0,   652,    69,   373,   374,   375,   376,   377,   378,
-       0,   379,   380,   381,   382,   383,   384,     0,   385,   386,
-     387,   388,   389,   934,     0,   373,   374,   375,   376,   377,
-     378,     0,   379,   380,   381,   382,   383,   384,     0,   385,
-     386,   387,   388,   389,  1034,     0,   373,   374,   375,   376,
-     377,   378,     0,   379,   380,   381,   382,   383,   384,     0,
-     385,   386,   387,   388,   389,  1035,     0,   373,   374,   375,
-     376,   377,   378,     0,   379,   380,   381,   382,   383,   384,
-       0,   385,   386,   387,   388,   389,  1049,     0,   373,   374,
-     375,   376,   377,   378,     0,   379,   380,   381,   382,   383,
-     384,     0,   385,   386,   387,   388,   389,   926,   373,   374,
-     375,   376,   377,   378,     0,   379,   380,   381,   382,   383,
-     384,     0,   385,   386,   387,   388,   389,   870,   373,   374,
-     375,   376,   377,   378,     0,   379,   380,   381,   382,   383,
-     384,     0,   385,   386,   387,   388,   389,     0,     0,     0,
-       0,     0,   135,   136,     0,     0,     0,     0,   137,   138,
-     139,   140,   141,   390,   391,     0,     0,     0,     0,     0,
-       0,     0,     0,   142,   143,   144,   145,   146,   147,   148,
-       0,   149,   150,   151,   390,   391,   152,   153,   154,     0,
-     155,   156,   157,   158,   159,     0,   160,     0,     0,     0,
-       0,     0,     0,     0,     0,   390,   391,   373,   374,   375,
-     376,   377,   378,     0,   379,   380,   381,   382,   383,   384,
-       0,   385,   386,   387,   388,   389,   390,   391,   373,   374,
-     375,   376,   377,   378,     0,   379,   380,   381,   382,   383,
-     384,     0,   385,   386,   387,   388,   389,   390,   391,     0,
-       0,   162,     0,     0,     0,     0,     0,   163,   164,     0,
-       0,     0,     0,   165,     0,     0,   613,   390,   391,     0,
-       0,     0,   166,   167,     0,   168,   169,     0,     0,   170,
-     171,   562,     0,     0,     0,     0,     0,   390,   391,   926,
-     373,   374,   375,   376,   377,   378,     0,   379,   380,   381,
-     382,   383,   384,     0,   385,   386,   387,   388,   389,   996,
-     373,   374,   375,   376,   377,   378,     0,   379,   380,   381,
-     382,   383,   384,     0,   385,   386,   387,   388,   389,  1030,
-     373,   374,   375,   376,   377,   378,     0,   379,   380,   381,
-     382,   383,   384,     0,   385,   386,   387,   388,   389,     0,
+      43,   269,   699,   403,   361,   487,   698,   635,   131,   490,
+     103,   634,   476,   397,   148,   105,   290,   739,   383,   950,
+     105,   720,  1146,   332,  1002,   105,   105,   360,   549,   310,
+     325,  1093,   413,   903,  1230,  1232,   399,   480,   333,   806,
+     141,    98,   415,  1209,   417,   489,    98,   484,   726,   140,
+     361,    98,    98,   428,  1122,  1123,   131,   105,   103,  1320,
+     950,   118,   239,   105,  1255,   430,   541,   105,  1157,  1157,
+    1151,   507,   972,  1372,  1165,   429,   431,  1156,  1156,   721,
+    1441,   312,   938,    98,  1446,   420,   889,  1452,   141,    98,
+     149,  1435,  -181,    98,  1435,   899,  -520,   140,  1102,  1103,
+    1104,   277,  1612,   374,   956,  1109,   459,   212,  1295,   118,
+    1448,  -537,   291,  1160,    89,   665,   219,  -194,   801,   924,
+    1024,   467,     4,   384,   497,  1008,  1563,     4,   316,  -537,
+    1021,   643,  1012,   491,   105,    32,   225,   803,  -194,    97,
+     895,   901,     4,   226,   553,   629,   413,  1325,   269,   413,
+     905,   227,   228,   229,  -408,    34,   415,   529,   417,   415,
+      98,   417,     8,   708,   925,   506,   554,     8,  1256,   700,
+    1317,   925,   491,   701,   980,   317,   473,  1022,  -194,    47,
+     474,   662,     8,   498,     4,   821,    11,  -727,   644,  1255,
+      42,   343,  1316,  -409,  -408,  1326,  1111,  1006,   754,   413,
+    1117,   332,   678,  1132,   796,  1183,  1193,   646,  1195,   415,
+     928,   417,     4,   518,  1183,  1219,   333,  1282,    58,     4,
+      59,   649,   676,  1373,     8,     4,   412,   976,  1392,   513,
+      35,     4,   501,  -409,   431,   530,   512,   506,   506,   506,
+    1546,   682,    49,  1424,   682,   542,   905,   431,   512,  1505,
+    1682,  1449,     8,   227,   228,   374,   230,  1290,   990,     8,
+     432,  1259,  -537,  -265,   776,     8,   565,  1564,   463,  1266,
+    1025,     8,   227,   228,   957,  1529,   421,  1201,  1612,   213,
+     302,   231,     4,    98,   527,   528,   105,  -520,   220,   847,
+       4,   724,  -520,  1256,    73,    12,  1431,   232,   233,  1341,
+      12,   727,  1367,   738,   374,  1004,   666,   234,  -194,   802,
+     847,  -194,    98,   725,   411,    12,    92,    93,   302,    95,
+     235,  1358,     8,    42,   236,   237,   269,  -408,   804,   848,
+       8,   896,   902,   238,  1318,   105,   752,   569,   633,   504,
+     412,   906,     4,   412,   759,   105,   600,   269,   269,    42,
+     848,  1335,    48,  1356,  -472,   926,  1262,    12,  1338,  1345,
+    -761,    98,   927,  1110,  -336,   981,  -409,   491,  1023,   308,
+    1116,    98,  1435,   972,  1646,   302,  1121,  1236,   918,  1124,
+    1546,  1170,     8,  1130,   132,    12,  1658,  1112,     4,   146,
+    1435,  1118,    12,   412,  1133,   133,  1184,  1194,    12,  1196,
+    -761,  1570,   656,   658,    12,  1203,  1220,  1346,  1283,   239,
+     603,   504,   504,   504,  1374,   304,   632,   566,   432,  1393,
+     305,   105,   235,   741,   743,    42,   236,    74,     8,   487,
+    1642,   685,   132,   490,  1425,   513,  1643,  1493,   461,   462,
+    1506,  1683,   551,   133,  -196,   236,   968,   696,  1642,     4,
+     281,   835,   306,  1538,  1643,    12,     4,   105,   105,   728,
+     966,   480,    75,    12,   969,   970,     4,  1255,  1614,   489,
+     975,   484,   506,   497,  1548,   911,   942,  1571,  1572,   811,
+     727,   428,   738,    98,    98,   723,  1510,   282,   747,     8,
+     912,   607,   429,   430,   204,   760,     8,   361,    89,  1157,
+       4,   361,   361,   429,  1500,  1039,     8,  1263,  1520,     4,
+     105,  1325,   820,    42,   817,    12,  1655,   787,   142,   105,
+     145,   838,  1218,    97,  1500,     4,   699,   739,   776,     4,
+     698,   739,   498,  -761,    92,    93,    98,    95,   915,    98,
+       8,    42,  1345,  1014,   830,    98,   206,   105,   105,     8,
+    1067,   950,  1069,   825,   274,  1013,   105,   105,  1229,  1326,
+     825,    12,   726,  1286,   230,     8,   142,   696,   145,     8,
+     491,  1256,  1347,    98,    98,   285,   285,   552,   553,    47,
+     105,    64,    98,    98, -1013,  -506, -1013,   482,   696,  -506,
+    1346,   269,  1656,  1657,   153,   105,    76,   149,   227,   228,
+     554,     4,  1146,   236,   398,    42,    98,  1644,  1548,    92,
+      93,   495,    95,  -462,  1548,   234,    42,   887,  1152,   930,
+     287,    98,    12,   341,   483,  1644,   898,   302,   473,    12,
+     496,    42,   474,   944,    89,   -93,    42,     4,   -93,    12,
+     949,     8,     9,    89,   410,  1093,   504,     4,   921,   922,
+     923,    92,    93, -1014,    95, -1014,  -235,   230,    42,    97,
+      92,    93,   301,    95,   973,  -235,   344,    42,    97,    60,
+     353,   355,   345,    12,     4,   302,  1043,     8,    42,    89,
+     294,   949,    12,   105,  1467,  1468,   512,     8,   308,   302,
+     -61,  1210,  1075,   700,  -926,  -536,  1167,   701,    12,   987,
+     210,   211,    12,   230,    97,    57,     4,   999,   234,    98,
+      62,     9,    63,  1010,     8,   273,   530,    92,    93,   278,
+      95,    11,   235,    89,    42,   289,   236,    11,  1066,   542,
+    1086,   542,  1011,  1005,   313,  1146,  1556,  -136,    60,  -536,
+      92,    93,  1398,    95,   232,   233,     8,    42,    97,   639,
+    1040,  1169,    48,   -92,   234,  1385,  1460,  1386,    82,    83,
+    1034,   990,   411,    92,    93,   314,    95,   235,  1363,   319,
+      42,   236,  1222,   -89,    12,  1172,   -89,   425,   426,  1019,
+     911,   227,   228,   -90,  1105,   506,   -90,   452,   453,  1035,
+     635,   342,  1236,   315,   634,   912,    11,  1036,    82,    83,
+     633,  1228,   358,   327,  1365,   724,   847,   105,   320,   683,
+      12,   415,   684,   738,  1370,   727,   367,   738,   -97,   -97,
+      12,   -97,   413,  1434,   105,   -97,  1434,   725,   -97,    11,
+    -275,   105,   415,    98,   417,   671,   672,   105,   105,   105,
+     105,  1522,   105,   368,   105,   105,   848,    12,  1436,   847,
+      98,  1436,  1464,  1442,  1443,  1444,  1472,    98,   587,   752,
+     334,   595,   335,    98,    98,    98,    98,   347,    98,   348,
+      98,    98,  1147,  1631,   384,   413,   349,   105,   632,    12,
+     356,    92,    93,   357,    95,   415,   230,   417,    42,   848,
+     105,   105,   395,  1108,  1140,    11,  -276,     5, -1013,     6,
+   -1013,  1115,   388,    98,  1161,  1162,     7,   639,   937,   390,
+     460,   512,  1663,  1664,  1129,   465,    98,    98,   468,   208,
+     209, -1013,   392, -1013, -1013,   477, -1013,   410,  -100,  -100,
+     411,  -100,   419,   269,  -222,  -100,   699,   234,  -100,   500,
+     698,   508,  1417,   393,   394,   105,    92,    93,  1148,    95,
+     235,   556,   563,    42,   236,   423,     9,   448,   450,   504,
+    1198,   456,   457,   433,   434,   435,   436,   437,   438,   439,
+     739,   696,   509,   728,   282,   575,   576,   469,   577,     9,
+     472,   481,     9,    10,    92,    93,   523,    95,   590,   547,
+     598,    42,   635,   294,   239,  1223,   634,   550,   239,   723,
+    1288,   602,   552,   604,   581, -1013,    60, -1013,  1039,    60,
+      42,   747,    36,    37,    38,    39,   412,  1422,   631,  1465,
+      40,  1420,   639,  1465,   652,   542,    41,   727,    42,   738,
+      36,    37,    38,    39,   105,   650,   660,   663,    40,   429,
+     661,    11,  1147,   664,    41,  -233,   787,   105,   669,   -99,
+     -99,   670,   -99,  -228,  1470,    93,   -99,    95,   361,   -99,
+      98,    42,   675,     9,    11,   225,    77,    11,   677,  1310,
+     680,   600,   226,    98,  -937,  -223,   691,  -938,   693,   703,
+     227,   228,   229,   105,   696,   739,   862,   869,   883,   886,
+      60,   399,   705,    92,    93,   710,    95,   711,   897,   712,
+      42,   706,  1152,   700,   715,   709,   717,   701,   718,    98,
+     757,   105,   440,   441,   442,   443,   716,   758,   216,   217,
+     218,   633,   224,   744,   777,   762,   781,   696,   105,   782,
+     226,   784,   740,   742,   401,   785,   753,    98,   227,   228,
+     745,   795,   755,  1414,   304,   798,   444,   445,    11,   305,
+     800,   808,   376,   812,    98,   402,   813,   783,  -137,   839,
+     841,   843,   844,   907,   377,   845,   797,   378,   379,   913,
+     932,  1377,   949,   919,   914,   799,   933,   936,   964,   946,
+    1017,   306,   965,   807,   967,   230,   380,   226,   810,  1414,
+     971,  -229,  1414,   439,   979,   227,   228,  1414,   982,   632,
+     983,  1414,   987,   842,  1414,   991,   992,   993,  1005,   996,
+     231,  1421,  1006,  1066,  1009,  -445,  1045,  1046,  1047,  1049,
+    1053,  1054,  1057,  1071,  1059,  1063,   232,   233,   990,  1077,
+     123,  1074,  1082,   381,   306,   123,   234,  1706,  1087,  1088,
+     123,   123,  1095,   230,  1090,    92,    93,  1097,    95,   235,
+    1106,  1113,    42,   236,   237,  1040,  1120,  1138,  1143,  1185,
+    1182,  1066,   238,  1186,   929,  1187,  1188,  1190,   231,  1192,
+    1197,   105,   299,   746,  1202,   105,  1211,  1212,   123,  1213,
+     945,  1427,   299,  1221,   232,   233,  1246,  1261,   105,   962,
+    1264,  1274,  1281,  1277,   234,  1284,  1285,    98,  1322,  1375,
+     230,    98,  1330,    92,    93,  1342,    95,   235,   105,  1350,
+      42,   236,   237,   305,    98,  1351,  1083,  1361,  1537,  1638,
+     238,   105,   355,   633,  1352,   231,  1362,  1382,   377,  1368,
+     105,   378,   379,  1389,    98,  1637,  1387,  1388,  1414,  1390,
+    1423,   232,   233,  -519,  1394,   306,  1429,    98,  1430,   123,
+     380,   234,  1652,  1453,  1003,   105,    98,  1454,  1458,  1461,
+      92,    93,   226,    95,   235,  1107,  1463,    42,   236,   237,
+     227,   228,   361,  1114,  1466,  -760,  1015,   238,  1016,  1469,
+    1494,   696,  1495,  1496,  1497,  1125,  1503,  1502,  1508,   361,
+    1519,  1032,  1513,  1514,  1531,  1539,  1521,  1044,  1535,  1526,
+    1536,   632,   587,  1541,  1465,  1542,  1544,  1540,   595,  1543,
+    1545,  1550,   105,   239,   633,  -760,  -378,  1549,  1552,  1198,
+    1559,   105,  1560,  1562,  1561,  1567,  1568,  1569,  1574,  1058,
+    1259,     2,     3,   542,  -254,  1606,  1628,  1627,  1613,  1318,
+    1633,  1072,  1639,  1641,  1432,  1649,  1073,    98,  1076,  1650,
+    1653,  1654,  1147,  1671,  1680,     4,  1675,   105,  1681,     5,
+   -1013,     6, -1013,  1677,   269,   105,  1698,  1678,     7,  1685,
+    1414,  1414,  1414,  1686,  1701,   230,   105,  1692,  1414,  1092,
+    1693,  1694,  1700,    98,  1704,    78,  1705,  1711,  1414,  1414,
+    1714,    98,   632,  1708,   534,     8,  1716,  1659,  1712,   303,
+     231,   123,    98,  1414,  1142,  1226,  1227,   674,    50,  1439,
+    1447,   995,  1418,   764,  1437,  1440,   232,   233,     9,   361,
+    1438,    45,  1231,   679,  1554,  1553,   234,   105,   667,   422,
+    1051,  1135,  1648,  1271,  1647,    92,    93,  1137,    95,   235,
+     722,  1547,   336,   236,   237,    10,  1651,  1052,  -760,  1000,
+     123,  1244,   238,  1234,  1206,   534,   534,  1062,  1455,  1173,
+     299,  1150,  1153,  1280,  1699,  1660,   226,  1679,   702,  1396,
+    1551,  1216,  1168,  1249,   227,   228,  1131,  1618,   809,  1178,
+     230,  1684,  1180,  1181,  1622,  1147,   818,   595,  1329,  1620,
+     105,   819,  1507,  1512,  1623,   687,   455,   686,   689,   690,
+    1033,   688,  1068,    11,  1064,   231,  -201,  -201,  -201,  -201,
+    1070,   823,   836,   540,  -201,   564,    98,   837,   862,   824,
+    -201,   232,   233,  1528,   869,   647,  1707,   917,    12,  1709,
+     826,   234,  1336,   920,   900,   827,  1339,  1119,  1250,   883,
+      92,    93,  1717,    95,   235,   226,   828,    42,   236,   237,
+    1149,  1557,  1158,   227,   228,   829,   105,   238,  1136,   628,
+     831,  1148,  1673,  1343,  1260,  1134,   832,   571,   833,   987,
+     147,  1696,   299,   299,   737,   466,  1267,   707,  1268,   230,
+    1379,   986,    98,  1272,   339,  1399,   978,   834,   931,    61,
+    1278,  1279,   226,  1378,   304,  1534,   359,     0,  1314,   305,
+     227,   228,  1355,  1381,   231,     0,     0,   963,     0,  1287,
+    1289,     0,     0,     0,   377,     0,     0,   378,   379,     0,
+     232,   233,     0,     0,     0,   299,     0,     0,     0,  1324,
+     234,   306,     0,     0,   299,     0,   380,     0,     0,    92,
+      93,     0,    95,   235,     0,     0,    42,   236,   237,     0,
+       0,     0,     0,  1340,     0,     0,   238,     0,   230,     0,
+     409,     0,   299,   299,     0,     0,   418,     0,     0,     0,
+       0,   299,   299,     0,     0,     0,     0,     0,     0,     0,
+    1354,   409,     0,   231,     0,     0,  1357,     0,     0,   534,
+    1359,     0,     0,  1360,     0,   299,  1364,  1366,     0,   232,
+     233,     0,  1369,     0,  1371,   230,     0,     0,     0,   234,
+     299,     0,     0,     0,  1376,     0,     0,     0,    92,    93,
+       0,    95,   235,     0,     0,    42,   236,   237,     0,   534,
+     231,     0,     0,     0,   505,   238,     0,     0,     0,     0,
+       0,     0,  1391,     0,     0,   537,   232,   233,   548,  1397,
+       0,     0,  1416,     0,     0,  1419,   234,     0,     0,     0,
+       0,     0,     0,   572,   574,    92,    93,     0,    95,   235,
+     534,     0,    42,   236,   237,   765,     0,   814,     0,     0,
+     586,     0,   238,   586,     0,  1473,  1474,  1475,  1476,  1477,
+    1478,     0,  1479,  1480,  1481,  1482,  1483,  1484,   299,  1485,
+    1486,  1487,  1488,  1489,     0,   608,   359,   359,   505,     0,
+       0,     0,     0,     0,     0,     0,     0,   155,     0,     0,
+       0,  1456,     0,  1457,     0,     0,     0,  1432,     0,     0,
+       0,     0,   156,   668,   226,     0,     0,     0,     0,     0,
+       0,     0,   227,   228,     0,     0,     0,   157,     0,    82,
+      83,   766,     0,     0,   158,     0,  1498,   159,   160,   161,
+     162,     0,     0,   163,     0,     0,   164,   165,   166,     0,
+       0,     0,  1509,     0,     0,     0,     0,     0,     0,  1511,
+     767,     0,   768,   769,   770,     0,     0,   771,   772,     0,
+     773,   774,   167,     0,     0,     0,     0,  1523,  1524,     0,
+    1525,     0,     0,     0,     0,  1527,    89,     0,     0,     0,
+       0,     0,     0,     0,     0,  1530,     0,     0,     0,     0,
+    1645,     0,   299,    92,    93,     0,    95,   226,   751,     0,
+      42,    97,     0,     0,     0,   227,   228,     0,   756,   299,
+       0,     0,     0,     0,     0,     0,   299,   230,     0,     0,
+       0,     0,   299,   299,   299,   299,     0,   299,   300,   299,
+     299,     0,     0,     0,     0,     0,     0,     0,   307,     0,
+       0,     0,   231,     0,   677,  1490,  1491,     0,     0,     0,
+       0,     0,     0,     0,     0,     0,     0,     0,   232,   233,
+       0,     0,   123,     0,     0,     0,     0,     0,   234,     0,
+       0,     0,     0,   534,     0,   299,   299,    92,    93,     0,
+      95,   235,     0,     0,    42,   236,   237,     0,     0,     0,
+       0,     0,   227,   228,   238,     0,     0,     0,     0,     0,
+       0,  1687,     0,     0,  1615,     0,     0,     0,   226,  1619,
+     230,   505,     0,     0,     0,     0,   227,   228,     0,     0,
+    1624,  1625,  1626,     0,     0,     0,  1629,  1630,     0,     0,
+       0,  1632,     0,     0,     0,   231,     0,  1634,     0,  1636,
        0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
-       0,     0,     0,     0,     0,   578,   390,   391,     0,     0,
+     952,   232,   233,     0,   737,     0,     0,   534,   737,     0,
+       0,   234,     0,     0,     0,     0,     0,     0,     0,   409,
+      92,    93,     0,    95,   235,   534,     0,    42,   236,   237,
+       0,     0,     0,     0,     0,     0,     0,   238,     0,     0,
+       0,   952,     0,     0,  1702,     0,     0,   230,     0,     0,
+       0,   226,   984,     0,   985,     0,     0,     0,     0,   227,
+     228,     0,     0,     0,     0,     0,     0,     0,     0,   299,
+       0,   230,   231,     0,     0,     0,  1672,     0,     0,     0,
+       0,     0,   123,     0,     0,     0,  1674,     0,   232,   233,
+    1676,     0,     0,  1018,     0,  1020,   231,     0,   234,     0,
+     536,     0,     0,  1028,     0,     0,     0,    92,    93,     0,
+      95,   235,   232,   233,    42,   236,   237,     0,   299,     0,
+       0,     0,   234,     0,   238,  1695,     0,     0,  1697,     0,
+       0,    92,    93,     0,    95,   235,     0,     0,    42,   236,
+     237,     0,     0,     0,     0,     0,   299,     0,   238,     0,
+     534,     0,     0,     0,  1597,     0,     0,     0,     0,     0,
+     226,   619,   619,   299,   230,     0,     0,     0,   227,   228,
+       0,  1598,     0,     0,     0,     0,     0,     0,     0,     0,
+     534,   534,     0,     0,     0,     0,     0,     0,     0,   231,
        0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
-       0,     0,     0,     0,     0,     0,   585,   390,   391,   373,
-     374,   375,   376,   377,   378,     0,   379,   380,   381,   382,
-     383,   384,     0,   385,   386,   387,   388,   389,  -239,  -239,
-    -239,  -239,  -239,  -239,     0,  -239,  -239,  -239,  -239,  -239,
-    -239,     0,  -239,  -239,  -239,  -239,  -239,  -238,  -238,  -238,
-    -238,  -238,  -238,     0,  -238,  -238,  -238,  -238,  -238,  -238,
-       0,  -238,  -238,  -238,  -238,  -238,     0,     0,     0,   390,
-     391,     0,     0,     0,     0,     0,     0,     0,     0,     0,
-       0,     0,     0,     0,     0,     0,     0,     0,     0,   390,
-     391,     0,     0,     0,     0,     0,     0,     0,     0,     0,
-       0,     0,     0,     0,     0,     0,     0,     0,     0,   390,
-     391,   373,   374,   375,   376,   377,   378,     0,   379,   380,
-     381,   382,   383,   384,     0,   385,   386,   387,   388,   389,
-     373,   374,   375,   376,   377,   378,     0,   379,   380,   381,
-     382,   383,   384,     0,   385,   386,   387,   388,   389,     0,
+       0,   505,   505,   505,   505,   232,   233,     0,     0,   505,
+       0,     0,     0,     0,     0,   234,     0,     0,     0,     0,
+       0,   505,     0,     0,    92,    93,     0,    95,   235,     0,
+       0,    42,   236,   237,     0,     0,     0,     0,     0,     0,
+       0,   238,     0,     0,     0,     0,     0,     0,     0,     0,
+       0,  -224,  -224,     0,  -224,  -224,  1141,  -224,  -224,  -224,
+    -224,  -224,  -224,  -224,  -224,  -224,  -224,  -224,  -224,  -224,
+       0,     0,     0,   230,   359,  1028,     0,     0,   300,   300,
+       0,  1159,   572,     0,     0,  1166,     0,     0,     0,     0,
+       0,     0,  1174,     0,     0,     0,     0,     0,   231,     0,
+       0,     0,     0,     0,     0,     0,     0,     0,     0,  -224,
+       0,     0,     0,     0,   232,   233,     0,     0,     0,     0,
+     409,     0,     0,   299,   234,     0,     0,     0,  1204,     0,
+       0,   805,     0,    92,    93,     0,    95,   235,  1580,     0,
+      42,   236,   237,   299,   226,     0,     0,     0,     0,     0,
+     238,     0,   227,   228,     0,     0,   299,     0,  1241,     0,
+       0,     0,     0,     0,     0,   299,  1245,     0,   888,   891,
+    1248,   751,     0,  1251,  1252,     0,  1253,   888,   891,     0,
+       0,     0,     0,     0,  1602,     0,     0,     0,     0,     0,
+     226,     0,     0,     0,     0,   619,     0,     0,   227,   228,
+       0,   888,     0,     0,   153,     0,  -224,  -224,  -224,  -224,
+       0,     0,     0,     0,   154,     0,   307,     0,     0,     0,
+       0,   534,   534,     0,  1604,     0,   572,     0,   534,  1313,
+     226,     0,  1315,     0,     0,   951,     0,  -224,   227,   228,
+    -224,  -224,  -224,     0,   155,   411,     0,  1573,     0,     0,
+       0,     0,     0,     0,     0,   505,   299,   230,     0,   156,
+       0,     0,   505,     0,     0,     0,     0,     0,     0,     0,
+       0,     0,     0,     0,   157,     0,   951,    84,  -124,     0,
+       0,   158,   231,     0,   159,   160,   161,   162,     0,     0,
+     163,     0,   123,   164,   165,   166,     0,     0,   232,   233,
+     299,  1028,     0,   230,   300,     0,     0,     0,   234,     0,
+       0,   299,     0,     0,     0,     0,     0,    92,    93,   167,
+      95,   235,  1174,     0,    42,   236,   237,     0,   231,     0,
+       0,   952,   952,    89,   238,     0,    90,     0,     0,     0,
+       0,     0,     0,   230,   232,   233,     0,     0,  -124,     0,
+      92,    93,     0,    95,   234,     0,     0,   168,    97,     0,
+       0,  1395,  1573,    92,    93,     0,    95,   235,   231,     0,
+      42,   236,   237,     0,     0,     0,     0,     0,     0,     0,
+     238,     0,     0,     0,   232,   233,     0,     0,     0,     0,
+       0,     0,     0,     0,   234,  1426,     0,     0,     0,  1428,
+       0,     0,     0,    92,    93,     0,    95,   235,  1028,     0,
+      42,   236,   237,     0,     0,     0,     0,   814,     0,     0,
+     238,     0,     0,     0,     0,   123,     0,     0,     0,     0,
        0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
-       0,     0,     0,     0,     0,     0,     0,   599,   390,   391,
+    1459,     0,     0,     0,     0,   888,     0,     0,     0,     0,
+       0,     0,   888,     0,  1462,     0,     0,   155,   888,   891,
+     891,   888,     0,  1126,     0,   888,  1126,     0,     0,     0,
+       0,     0,   156,     0,     0,     0,     0,     0,     0,     0,
+       0,     0,  1145,     0,     0,     0,     0,   157,     0,     0,
+       0,  1028,     0,     0,   158,     0,     0,   159,   160,   161,
+     162,     0,     0,   163,  1518,     0,   164,   165,   166,   619,
+       0,  1154,  1154,     0,     0,     0,     0,     0,     0,     0,
+       0,     0,  1174,     0,  1174,     0,     0,   -88,   -88,     0,
+     -88,   -88,   167,   -88,   -88,   -88,   -88,   -88,   -88,   -88,
+     -88,   -88,   -88,   -88,   -88,   -88,    89,     0,     0,     0,
        0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
-       0,     0,     0,     0,     0,     0,  -239,  -239,  -239,     0,
+       0,     0,     0,    92,    93,     0,    95,     0,     0,     0,
+      42,    97,  1241,  1241,     0,     0,     0,     0,  1555,  1028,
+       0,     0,     0,     0,     0,   -88,     0,     0,     0,     0,
+       0,     0,     0,  1240,     0,     0,     0,  1204,     0,     0,
+       0,     0,     0,     0,     0,     0,   226,     0,     0,     0,
+       0,  1154,     0,     0,   227,   228,     0,     0,     0,     0,
+       0,     0,  1582,  1583,  1584,  1585,  1586,  1587,  1588,  1589,
+    1590,  1591,  1592,  1593,  1594,  1595,  1596,  1600,  1601,  1603,
+    1605,     0,     0,     0,   872,     0,   873,   874,   875,   876,
+       0,   877,     0,   878,   879,   805,     0,     0,     0,     0,
+     880,     0,   881,     0,   882,     0,     0,     0,     0,     0,
        0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
-       0,     0,     0,     0,     0,  -238,  -238,  -238,   373,   374,
-     375,   376,   377,   378,     0,   379,   380,   381,   382,   383,
-     384,     0,   385,   386,   387,   388,   389,   373,   374,   375,
-     376,   377,   378,     0,   379,   380,   381,   382,   383,   384,
-       0,   385,   386,   387,   388,   389,   373,   374,   375,   376,
-     377,   378,     0,   379,   380,   381,   382,   383,   384,     0,
-     385,   386,   387,   388,   389,     0,     0,     0,     0,   613,
-     390,   391,     0,     0,     0,     0,     0,     0,     0,     0,
-       0,     0,     0,     0,     0,     0,     0,     0,   650,   390,
-     391,   373,   374,   375,   376,   377,   378,     0,   379,   380,
-     381,   382,   383,   384,     0,   385,   386,   387,   388,   389,
-     373,   374,   375,   376,   377,   378,     0,   379,   380,   381,
-     382,   383,   384,     0,   385,   386,   387,   388,   389,   373,
-     374,   375,   376,   377,   378,     0,   379,   380,   381,   382,
-     383,   384,     0,   385,   386,   387,   388,   389,     0,     0,
-       0,     0,     0,     0,   135,   136,     0,     0,     0,     0,
-     137,   138,   139,   140,   141,     0,   653,   390,   391,     0,
-       0,     0,     0,     0,     0,   142,   143,   144,   145,   146,
-     147,   148,   399,   149,   150,   151,   390,   391,   152,   153,
-     154,     0,   155,   156,   157,   158,   159,     0,   160,     0,
-       0,     0,     0,     0,   779,   390,   391,   373,   374,   375,
-     376,   377,   378,     0,   379,   380,   381,   382,   383,   384,
-       0,   385,   386,   387,   388,   389,   373,   374,   375,   376,
-     377,   378,     0,   379,   380,   381,   382,   383,   384,     0,
-     385,   386,   387,   388,   389,     0,     0,     0,     0,   780,
-     390,   391,     0,   162,     0,     0,     0,     0,     0,   163,
-     164,     0,     0,     0,     0,   165,     0,     0,   781,   390,
-     391,     0,     0,     0,   166,   167,     0,   168,   169,     0,
-       0,   918,   171,   562,     0,     0,     0,   782,   390,   391,
-     373,   374,   375,   376,   377,   378,     0,   379,   380,   381,
-     382,   383,   384,     0,   385,   386,   387,   388,   389,   373,
-     374,   375,   376,   377,   378,     0,   379,   380,   381,   382,
-     383,   384,     0,   385,   386,   387,   388,   389,   373,   374,
-     375,   376,   377,   378,     0,   379,   380,   381,   382,   383,
-     384,     0,   385,   386,   387,   388,   389,     0,     0,     0,
+       0,     0,   -88,   -88,   -88,   -88,     0,     0,  1640,     0,
        0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
-       0,     0,     0,     0,     0,   783,   390,   391,     0,     0,
+       0,     0,     0,     0,   891,     0,     0,     0,     0,     0,
+       0,     0,  1204,   -88,   -88,     0,   -88,   -88,   -88,   230,
+     -88,     0,     0,     0,     0,     0,     0,     0,     0,  1665,
+       0,     0,   307,     0,   226,     0,  1154,     0,     0,     0,
+       0,     0,   227,   228,   231,     0,  1666,  1667,     0,     0,
+       0,  1668,     0,  1669,     0,     0,     0,     0,     0,     0,
+     232,   233,     0,     0,   226,     0,   951,   951,     0,     0,
+     234,     0,   227,   228,   609,     0,     0,     0,     0,    92,
+      93,     0,    95,   235,     0,     0,    42,   236,   237,     0,
+       0,     0,     0,     0,     0,     0,   238,     0,     0,     0,
+       0,     0,     0,   610,     0,     0,     0,     0,     0,     0,
+    1691,   611,     0,   612,   613,   614,   615,   396,   616,     0,
+     617,     0,     0,     0,     0,     0,     0,     0,     0,     0,
+       0,     0,     0,     0,     0,     0,  1703,     0,     0,     0,
+       0,     0,     0,     0,     0,     0,     0,   230,     0,   226,
+       0,  1710,     0,  1691,  1713,     0,     0,   227,   228,     0,
+    1715,     0,     0,     0,     0,  1718,     0,     0,     0,     0,
+       0,     0,   231,     0,     0,     0,     0,   230,     0,     0,
+       0,     0,     0,     0,     0,     0,     0,   852,   232,   233,
+       0,   853,   854,   855,   856,   857,   858,     0,   234,     0,
+       0,     0,   231,   859,   860,   861,     0,    92,    93,   891,
+      95,   235,     0,     0,    42,   236,   237,     0,   232,   233,
+      89,     0,     0,     0,   238,   226,     0,     0,   234,   891,
+       0,     0,     0,   227,   228,     0,     0,    92,    93,     0,
+      95,   235,  1154,     0,   618,   503,   237,     0,     0,     0,
+       0,     0,     0,     0,   238,     0,     0,     0,     0,     0,
+       0,     0,   230,   872,     0,   873,     0,   875,   876,     0,
+     877,     0,   878,   879,     0,     0,     0,     0,     0,   880,
+       0,   881,     0,   882,     0,     0,     0,   231,     0,     0,
        0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
-       0,     0,     0,     0,   784,   390,   391,   373,   374,   375,
-     376,   377,   378,     0,   379,   380,   381,   382,   383,   384,
-       0,   385,   386,   387,   388,   389,   373,   374,   375,   376,
-     377,   378,     0,   379,   380,   381,   382,   383,   384,     0,
-     385,   386,   387,   388,   389,   373,   374,   375,   376,   377,
-     378,     0,   379,   380,   381,   382,   383,   384,     0,   385,
-     386,   387,   388,   389,     0,     0,     0,     0,   785,   390,
-     391,     0,     0,     0,     0,     0,     0,     0,     0,     0,
-       0,     0,     0,     0,     0,     0,     0,   786,   390,   391,
+       0,     0,     0,   232,   233,     0,     0,  1240,  1240,     0,
+    1291,     0,     0,   234,  1154,     0,     0,     0,  1292,  1293,
+       0,     0,    92,    93,     0,    95,   235,     0,     0,    42,
+     236,   237,     0,     0,     0,     0,     0,     0,   230,   238,
+       0,     0,     0,  1294,     0,     0,     0,     0,     0,     0,
+       0,     0,     0,     0,     0,     0,     0,   591,     0,     0,
+       0,     0,     0,   231,   592,   226,   593,   594,     0,     0,
+       0,     0,     0,   227,   228,     0,     0,     0,     0,   232,
+     233,     0,     0,     0,     0,     0,   888,     0,     0,   234,
+       0,     0,     0,     0,     0,   226,     0,   888,    92,    93,
+       0,    95,   235,   227,   228,    42,   236,   237,  1295,     0,
+       0,     0,   582,     0,     0,   238,     0,     0,     0,   583,
+       0,   584,   585,   230,     0,     0,     0,     0,     0,     0,
        0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
-       0,     0,     0,     0,     0,     0,   787,   390,   391,   373,
-     374,   375,   376,   377,   378,     0,   379,   380,   381,   382,
-     383,   384,     0,   385,   386,   387,   388,   389,   373,   374,
-     375,   376,   377,   378,     0,   379,   380,   381,   382,   383,
-     384,     0,   385,   386,   387,   388,   389,     0,     0,     0,
+       0,     0,   591,     0,     0,     0,     0,     0,   231,   592,
+     226,   593,   594,     0,  1296,     0,     0,     0,   227,   228,
+       0,     0,     0,     0,  1297,  1298,     0,     0,     0,     0,
+       0,     0,     0,     0,   234,     0,     0,     0,   230,     0,
+       0,     0,     0,  1299,  1300,     0,  1301,  1302,     0,     0,
+      42,  1303,   237,     0,     0,     0,   865,   866,     0,     0,
+     238,     0,     0,   231,   867,   226,   868,     0,   230,     0,
+       0,     0,     0,   227,   228,     0,   226,     0,     4,   232,
+     233,     0,     0,     0,   227,   228,   502,     0,     0,   234,
+       0,     0,     0,   231,     0,     0,     0,     0,    92,    93,
+       0,    95,   235,     0,     0,    42,   236,   237,     0,   232,
+     233,     0,     0,     0,     0,   238,     0,     0,     8,   234,
+       0,     0,     0,   230,     0,     0,     0,     0,    92,    93,
+     226,    95,   235,     0,     0,    42,   236,   237,   227,   228,
+     916,   226,     0,     0,     0,   238,     0,     0,   231,   227,
+     228,     0,     0,     0,     4,     0,     0,     0,     0,     0,
+       0,     0,     0,     0,   232,   233,     0,     0,     0,     0,
+       0,     0,     0,     0,   234,     0,     0,     0,   230,     0,
+       0,     0,     0,    92,    93,     0,    95,   235,   226,   230,
+      42,   236,   237,     0,     8,     0,   227,   228,     0,     0,
+     238,     0,     0,   231,     0,     0,     0,     0,     0,     0,
+       0,     0,     0,     0,   231,     0,     0,     0,     0,   232,
+     233,     0,     0,     0,     0,   226,     0,     0,     0,   234,
+     232,   233,    89,   227,   228,  1247,     0,     0,    92,    93,
+     234,    95,   235,   230,     0,    42,   236,   237,     0,    92,
+      93,    12,    95,   235,   230,   238,    42,   503,   237,     0,
+       0,     0,   226,     0,     0,     0,   238,     0,   231,     0,
+     227,   228,  -391,   226,     0,     0,     0,     0,     0,   231,
+       0,   227,   228,     0,   232,   233,     0,     0,     0,     0,
+       0,     0,     0,     0,   234,   232,   233,     0,     0,     0,
+       0,   230,     0,    92,    93,   234,    95,   235,     0,     0,
+      42,   236,   237,     0,    92,    93,     0,    95,   235,     0,
+     238,    42,   236,  1027,     0,     0,   231,    12,   226,     0,
+       0,   238,     0,     0,     0,     0,   227,   228,   230,     0,
+       0,     0,   232,   233,     0,     0,     0,     0,     0,     0,
+       0,     0,   234,     0,     0,     0,     0,     0,   226,     0,
+       0,    92,    93,   231,    95,   235,   227,   228,   533,   236,
+     237,  1235,     0,   226,     0,   230,     0,     0,   238,   232,
+     233,   227,   228,     0,     0,     0,   230,     0,     0,   234,
+       0,     0,     0,     0,     0,     0,     0,     0,    92,    93,
+     231,    95,   235,     0,   226,    42,   236,   237,     0,     0,
+       0,   231,   227,   228,     0,   238,   232,   233,     0,     0,
+       0,     0,     0,     0,     0,     0,   234,   232,   233,     0,
+       0,     0,     0,     0,     0,    92,    93,   234,    95,   235,
+       0,   230,    42,   236,   237,     0,    92,    93,     0,    95,
+     235,   226,   238,    42,   236,   351,     0,     0,     0,   227,
+     228,     0,     0,   238,     0,     0,   231,     0,     0,     0,
+       0,   230,     0,     0,     0,     0,     0,     0,     0,     0,
+     226,     0,   232,   233,     0,     0,   230,     0,   227,   228,
+       0,     0,   234,     0,     0,     0,   231,     0,     0,     0,
+       0,    92,    93,     0,    95,   235,     0,     0,    42,   236,
+     354,   231,   232,   233,     0,     0,     0,   230,   238,     0,
+       0,     0,   234,     0,     0,     0,     0,   232,   233,     0,
+       0,    92,    93,     0,    95,   235,     0,   234,    42,   236,
+     404,     0,   231,     0,     0,     0,    92,    93,   238,    95,
+     235,     0,     0,    42,   236,   237,     0,     0,   232,   233,
+       0,     0,    79,   238,   230,     0,     0,     0,   234,    80,
+       0,     0,     0,     0,     0,     0,     0,    92,    93,     0,
+      95,   235,     0,     0,   533,   236,   237,     0,     0,   231,
+       0,     0,     0,   230,   238,     0,     0,     0,     0,     0,
+       0,     0,     0,     0,     0,   232,   233,     0,     0,     0,
+       0,     0,     0,     0,     0,   234,     0,     0,   231,    81,
+       0,     0,     0,     0,    92,    93,     0,    95,   235,     0,
+       0,    42,   236,  1027,   232,   233,    82,    83,     0,     0,
+       0,   238,     0,     0,   234,     0,     0,     0,    84,     0,
+       0,     0,     0,    92,    93,     0,    95,   235,     0,     0,
+    1078,  1079,  1080,     0,     0,     0,     0,  -446,     0,    85,
+     238,    86,    87,     0,     0,     0,     0,  -459,     0,  -472,
+       0,    80,     0,     0,    88,     0,     0,   153,     0,     0,
+       0,     0,     0,     0,     0,     0,  -703,   154,     0,     0,
+       0,     0,     0,     0,    89,     0,     0,    90,    91,  -331,
+       0,     0,  -331,  -331,  -331,  -331,     0,     0,     0,     0,
+    -331,    92,    93,    94,    95,     0,  -331,   155,    96,    97,
        0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
-       0,     0,     0,     0,     0,   788,   390,   391,     0,     0,
-       0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
-       0,     0,     0,     0,   789,   390,   391,     0,     0,     0,
-       0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
-       0,     0,     0,   790,   390,   391,   373,   374,   375,   376,
-     377,   378,     0,   379,   380,   381,   382,   383,   384,     0,
-     385,   386,   387,   388,   389,   373,   374,   375,   376,   377,
-     378,     0,   379,   380,   381,   382,   383,   384,     0,   385,
-     386,   387,   388,   389,   373,   374,   375,   376,   377,   378,
-       0,   379,   380,   381,   382,   383,   384,     0,   385,   386,
-     387,   388,   389,     0,     0,     0,     0,   791,   390,   391,
-       0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
-       0,     0,     0,     0,     0,     0,   852,   390,   391,   373,
-     374,   375,   376,   377,   378,     0,   379,   380,   381,   382,
-     383,   384,     0,   385,   386,   387,   388,   389,   373,   374,
-     375,   376,   377,   378,     0,   379,   380,   381,   382,   383,
-     384,     0,   385,   386,   387,   388,   389,   373,   374,   375,
-     376,   377,   378,     0,   379,   380,   381,   382,   383,   384,
-       0,   385,   386,   387,   388,   389,     0,     0,     0,     0,
-       0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
-       0,     0,     0,     0,   930,   390,   391,     0,     0,     0,
-       0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
-       0,     0,     0,   933,   390,   391,     0,     0,     0,     0,
-       0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
-       0,     0,   946,   390,   391,   373,   374,   375,   376,   377,
-     378,     0,   379,   380,   381,   382,   383,   384,     0,   385,
-     386,   387,   388,   389,     0,     0,     0,     0,     0,     0,
-       0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
-       0,     0,     0,     0,     0,   702,     0,   947,   390,   391,
-       0,     0,   132,     0,     0,     0,     0,     0,     0,     0,
-     133,   134,   703,     0,     0,     0,  1022,   390,   391,     0,
-       0,     0,     0,     0,   135,   136,     0,     0,     0,     0,
-     137,   138,   139,   140,   141,  1033,   390,   391,     0,     0,
-       0,     0,     0,     0,     0,   142,   143,   144,   145,   146,
-     147,   148,     0,   149,   150,   151,     0,     0,   152,   153,
-     154,     0,   155,   156,   157,   158,   159,   439,   160,     0,
-       0,     0,   440,   441,     0,   442,   443,     0,     0,     0,
-       0,     0,     0,     0,     0,     0,     0,   444,   445,   446,
-     447,   448,   449,   450,     0,   451,   452,   453,     0,     0,
-     454,   455,   456,     0,   814,   457,   458,   459,   460,     0,
-     461,   132,     0,     0,   390,   391,   161,     0,     0,   133,
-     134,     0,     0,   162,     0,     0,     0,     0,     0,   163,
-     164,     0,     0,   135,   136,   165,     0,     0,     0,   137,
-     138,   139,   140,   141,   166,   167,     0,   168,   169,     0,
-       0,   170,   171,   172,   142,   143,   144,   145,   146,   147,
-     148,     0,   149,   150,   151,     0,     0,   152,   153,   154,
-       0,   155,   156,   157,   158,   159,     0,   160,     0,     0,
-       0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
-       0,     0,     0,   462,     0,     0,     0,     0,     0,     0,
-       0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
-       0,     0,     0,   904,     0,     0,     0,     0,     0,     0,
-     132,     0,     0,     0,     0,   161,     0,     0,   133,   134,
-       0,     0,   162,     0,     0,     0,     0,     0,   163,   164,
-       0,     0,   135,   136,   165,     0,     0,     0,   137,   138,
-     139,   140,   141,   166,   167,     0,   168,   169,     0,     0,
-     170,   171,   172,   142,   143,   144,   145,   146,   147,   148,
-       0,   149,   150,   151,     0,     0,   152,   153,   154,     0,
-     155,   156,   157,   158,   159,     0,   160,     0,     0,     0,
+       0,     0,   156,     0,     0,     0,     0,     0,     0,     0,
+       0,     0,     0,  -703,  -703,  -703,     0,   157,     0,    80,
+      84,     0,  -703,     0,   158,   153,     0,   159,   160,   161,
+     162,     0,     0,   163,     0,   154,   164,   165,   166,     0,
+    -703,     0,    80,     0,     0,     0,     0,     0,   153,     0,
+       0,     0,     0,     0,     0,     0,     0,     0,   154,     0,
+       0,     0,   167,     0,     0,   155,     0,     0,     0,     0,
+       0,     0,     0,     0,     0,     0,    89,  -703,  -703,    90,
+     156,     0,     0,     0,     0,     0,     0,     0,   155,     0,
+       0,     0,     0,    92,    93,   157,    95,     0,    84,  -127,
+     168,    97,   158,   156,     0,   159,   160,   161,   162,     0,
+       0,   163,     0,     0,   164,   165,   166,     0,   157,     0,
+       0,    84,  -128,   814,     0,   158,     0,     0,   159,   160,
+     161,   162,     0,     0,   163,     0,     0,   164,   165,   166,
+     167,     0,     0,     0,     0,     0,     0,     0,     0,     0,
+       0,     0,     0,     0,    89,     0,     0,    90,     0,     0,
+       0,     0,     0,   167,     0,     0,     0,     0,     0,  -127,
+       0,    92,    93,     0,    95,     0,     0,    89,   168,    97,
+      90,     0,     0,     0,     0,     0,     0,     0,     0,     0,
+       0,     0,  -128,   157,    92,    93,     0,    95,  -196,     0,
+       0,   168,    97,   159,   160,   161,   162,     0,     0,   163,
+       0,     0,   815,   165,   816,     0,     0,     0,     0,     0,
        0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
        0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
        0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
-       0,     0,   924,     0,     0,     0,     0,     0,     0,   132,
-       0,     0,     0,     0,   161,     0,     0,   133,   134,     0,
-       0,   162,     0,     0,     0,     0,     0,   163,   164,     0,
-       0,   135,   136,   165,     0,     0,     0,   137,   138,   139,
-     140,   141,   166,   167,     0,   168,   169,     0,     0,   170,
-     171,   172,   142,   143,   144,   145,   146,   147,   148,     0,
-     149,   150,   151,     0,     0,   152,   153,   154,     0,   155,
-     156,   157,   158,   159,     0,   160,     0,     0,     0,     0,
-       0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
-       0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
-       0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
-       0,     0,   472,     0,     0,     0,     0,     0,   132,     0,
-       0,     0,     0,   161,     0,     0,   133,   134,   473,     0,
-     162,     0,     0,     0,     0,     0,   163,   164,     0,     0,
-     135,   136,   165,     0,     0,     0,   137,   138,   139,   140,
-     141,   166,   167,     0,   168,   169,     0,     0,   170,   171,
-     172,   142,   143,   144,   145,   146,   147,   148,     0,   149,
-     150,   151,     0,     0,   152,   153,   154,     0,   155,   156,
-     157,   158,   159,     0,   160,     0,     0,     0,     0,     0,
-       0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
-       0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
-       0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
-       0,   632,     0,     0,     0,     0,     0,   132,     0,     0,
-       0,     0,   161,     0,     0,   133,   134,     0,   633,   162,
-       0,     0,     0,     0,     0,   163,   164,     0,     0,   135,
-     136,   165,     0,     0,     0,   137,   138,   139,   140,   141,
-     166,   167,     0,   168,   169,     0,     0,   170,   171,   172,
-     142,   143,   144,   145,   146,   147,   148,     0,   149,   150,
-     151,     0,     0,   152,   153,   154,     0,   155,   156,   157,
-     158,   159,     0,   160,     0,     0,     0,     0,     0,     0,
-       0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
-       0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
-       0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
-     721,     0,     0,     0,     0,     0,   132,     0,     0,     0,
-       0,   161,     0,     0,   133,   134,   473,     0,   162,     0,
-       0,     0,     0,     0,   163,   164,     0,     0,   135,   136,
-     165,     0,     0,     0,   137,   138,   139,   140,   141,   166,
-     167,     0,   168,   169,     0,     0,   170,   171,   172,   142,
-     143,   144,   145,   146,   147,   148,     0,   149,   150,   151,
-       0,     0,   152,   153,   154,     0,   155,   156,   157,   158,
-     159,     0,   160,     0,     0,     0,     0,     0,     0,     0,
-       0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
-       0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
-       0,     0,     0,     0,     0,     0,     0,     0,     0,   615,
-       0,     0,     0,     0,     0,   132,     0,     0,     0,     0,
-     161,     0,     0,   133,   134,     0,     0,   162,     0,     0,
-       0,     0,     0,   163,   164,     0,     0,   135,   136,   165,
-       0,     0,     0,   137,   138,   139,   140,   141,   166,   167,
-       0,   168,   169,     0,     0,   170,   171,   172,   142,   143,
-     144,   145,   146,   147,   148,     0,   149,   150,   151,     0,
-       0,   152,   153,   154,     0,   155,   156,   157,   158,   159,
-       0,   160,     0,     0,     0,     0,     0,     0,     0,     0,
-       0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
-       0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
-       0,     0,     0,     0,     0,     0,     0,     0,   637,     0,
-       0,     0,     0,     0,   132,     0,     0,     0,     0,   161,
-       0,     0,   133,   134,     0,     0,   162,     0,     0,     0,
-       0,     0,   163,   164,     0,     0,   135,   136,   165,     0,
-       0,     0,   137,   138,   139,   140,   141,   166,   167,     0,
-     168,   169,     0,     0,   170,   171,   172,   142,   143,   144,
-     145,   146,   147,   148,     0,   149,   150,   151,     0,     0,
-     152,   153,   154,     0,   155,   156,   157,   158,   159,     0,
-     160,     0,     0,     0,     0,     0,     0,     0,     0,     0,
-       0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
-       0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
-       0,     0,     0,     0,     0,     0,     0,   639,     0,     0,
-       0,     0,     0,   132,     0,     0,     0,     0,   161,     0,
-       0,   133,   134,     0,     0,   162,     0,     0,     0,     0,
-       0,   163,   164,     0,     0,   135,   136,   165,     0,     0,
-       0,   137,   138,   139,   140,   141,   166,   167,     0,   168,
-     169,     0,     0,   170,   171,   172,   142,   143,   144,   145,
-     146,   147,   148,     0,   149,   150,   151,     0,     0,   152,
-     153,   154,     0,   155,   156,   157,   158,   159,     0,   160,
-       0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
-       0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
-       0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
-       0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
-       0,     0,   132,     0,     0,     0,     0,   161,     0,     0,
-     133,   134,     0,     0,   162,     0,     0,     0,     0,     0,
-     163,   164,     0,     0,   135,   136,   165,     0,     0,     0,
-     137,   138,   139,   140,   141,   166,   167,     0,   168,   169,
-       0,     0,   170,   171,   172,   142,   143,   144,   145,   146,
-     147,   148,     0,   149,   150,   151,     0,     0,   152,   153,
-     154,     0,   155,   156,   157,   158,   159,     0,   160,     0,
-       0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
-       0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
-       0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
-       0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
-       0,     0,     0,     0,     0,     0,   161,     0,     0,     0,
-       0,     0,     0,   162,     0,     0,     0,     0,     0,   163,
-     164,     0,     0,     0,     0,   165,     0,     0,     0,     0,
-       0,     0,     0,     0,   166,   167,   132,   168,   169,     0,
-       0,   170,   171,   172,   133,   134,   660,   173,   661,     0,
-       0,     0,     0,     0,     0,     0,     0,     0,   135,   136,
-       0,     0,     0,     0,   137,   138,   139,   140,   141,     0,
-       0,     0,     0,     0,     0,     0,     0,     0,     0,   142,
-     143,   144,   145,   146,   147,   148,     0,   149,   150,   151,
-       0,     0,   152,   153,   154,     0,   155,   156,   157,   158,
-     159,     0,   160,     0,     0,     0,     0,     0,     0,     0,
-       0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
-       0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
-       0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
-       0,     0,     0,     0,     0,   132,     0,     0,     0,     0,
-     161,     0,     0,   133,   134,   473,     0,   162,     0,     0,
-       0,     0,     0,   163,   164,     0,     0,   135,   136,   165,
-       0,     0,     0,   137,   138,   139,   140,   141,   166,   167,
-       0,   168,   169,     0,     0,   170,   171,   662,   142,   143,
-     144,   145,   146,   147,   148,     0,   149,   150,   151,     0,
-       0,   152,   153,   154,     0,   155,   156,   157,   158,   159,
-       0,   160,     0,     0,     0,     0,     0,     0,     0,     0,
-       0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
-       0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
-       0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
-       0,     0,     0,     0,   132,     0,     0,     0,     0,   161,
-       0,     0,   133,   134,   548,     0,   162,     0,     0,     0,
-       0,     0,   163,   164,     0,     0,   135,   136,   165,     0,
-       0,     0,   137,   138,   139,   140,   141,   166,   167,     0,
-     168,   169,     0,     0,   526,   171,   172,   142,   143,   144,
-     145,   146,   147,   148,     0,   149,   150,   151,     0,     0,
-     152,   153,   154,     0,   155,   156,   157,   158,   159,     0,
-     160,     0,     0,     0,     0,     0,     0,     0,     0,     0,
-       0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
-       0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
-       0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
-       0,     0,     0,   132,     0,     0,     0,     0,   161,     0,
-       0,   133,   134,   473,     0,   162,     0,     0,     0,     0,
-       0,   163,   164,     0,     0,   135,   136,   165,     0,     0,
-       0,   137,   138,   139,   140,   141,   166,   167,     0,   168,
-     169,     0,     0,   170,   171,   172,   142,   143,   144,   145,
-     146,   147,   148,     0,   149,   150,   151,     0,     0,   152,
-     153,   154,     0,   155,   156,   157,   158,   159,     0,   160,
-       0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
-       0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
-       0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
-       0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
-       0,     0,   132,     0,     0,     0,     0,   161,     0,     0,
-     133,   134,   726,     0,   162,     0,     0,     0,     0,     0,
-     163,   164,     0,     0,   135,   136,   165,     0,     0,     0,
-     137,   138,   139,   140,   141,   166,   167,     0,   168,   169,
-       0,     0,   170,   171,   172,   142,   143,   144,   145,   146,
-     147,   148,     0,   149,   150,   151,     0,     0,   152,   153,
-     154,     0,   155,   156,   157,   158,   159,     0,   160,     0,
-       0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
-       0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
-       0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
-       0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
-       0,     0,     0,     0,     0,     0,   161,     0,     0,     0,
-       0,     0,     0,   162,     0,     0,     0,     0,     0,   163,
-     164,     0,   132,     0,     0,   165,     0,     0,     0,     0,
-     133,   134,     0,     0,   166,   167,     0,   168,   169,     0,
-       0,   170,   171,   172,   135,   136,     9,     0,     0,     0,
-     137,   138,   139,   140,   141,     0,     0,     0,     0,     0,
-       0,     0,     0,     0,     0,   142,   143,   144,   145,   146,
-     147,   148,     0,   149,   150,   151,     0,     0,   152,   153,
-     154,     0,   155,   156,   157,   158,   159,     0,   160,     0,
-       0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
-       0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
-       0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
-       0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
-       0,   132,     0,     0,     0,     0,   161,     0,     0,   133,
-     134,   703,     0,   162,     0,     0,     0,     0,     0,   163,
-     164,     0,     0,   135,   136,   165,     0,     0,     0,   137,
-     138,   139,   140,   141,   166,   167,     0,   168,   169,     0,
-       0,   170,   171,   172,   142,   143,   144,   145,   146,   147,
-     148,     0,   149,   150,   151,     0,     0,   152,   153,   154,
-       0,   155,   156,   157,   158,   159,     0,   160,     0,     0,
-       0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
-       0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
-       0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
-       0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
-     132,     0,     0,     0,     0,   161,     0,     0,   133,   134,
-    1011,     0,   162,     0,     0,     0,     0,     0,   163,   164,
-       0,     0,   135,   136,   165,     0,     0,     0,   137,   138,
-     139,   140,   141,   166,   167,     0,   168,   169,     0,     0,
-     170,   171,   172,   142,   143,   144,   145,   146,   147,   148,
-       0,   149,   150,   151,     0,     0,   152,   153,   154,     0,
-     155,   156,   157,   158,   159,     0,   160,     0,     0,     0,
-       0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
-       0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
-       0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
-       0,     0,     0,     0,     0,     0,     0,     0,     0,   132,
-       0,     0,     0,     0,   161,     0,     0,   133,   134,     0,
-       0,   162,     0,     0,     0,     0,     0,   163,   164,     0,
-       0,   135,   136,   165,     0,     0,     0,   137,   138,   139,
-     140,   141,   166,   167,     0,   168,   169,     0,     0,   170,
-     171,   172,   142,   143,   144,   145,   146,   147,   148,     0,
-     149,   150,   151,     0,     0,   152,   153,   154,     0,   155,
-     156,   157,   158,   159,     0,   160,     0,     0,     0,     0,
-       0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
-       0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
-       0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
-       0,     0,     0,     0,     0,     0,     0,     0,   132,     0,
-       0,     0,     0,   161,     0,     0,   133,   134,     0,     0,
-     162,     0,     0,     0,     0,     0,   163,   164,     0,     0,
-     135,   136,   165,     0,     0,     0,   137,   138,   139,   140,
-     141,   166,   167,     0,   168,   169,     0,     0,   170,   171,
-     172,   142,   143,   144,   145,   146,   147,   148,     0,   149,
-     150,   151,     0,     0,   152,   153,   154,     0,   155,   156,
-     157,   158,   159,     0,   160,     0,     0,     0,     0,     0,
-       0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
-       0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
-       0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
-       0,     0,     0,     0,     0,     0,     0,   132,     0,     0,
-       0,     0,   161,     0,     0,   133,   134,     0,     0,   162,
-       0,     0,     0,     0,     0,   163,   164,     0,     0,   135,
-     136,   165,     0,     0,     0,   137,   138,   139,   140,   141,
-     166,   167,     0,   168,   169,     0,     0,   170,   171,   363,
-     142,   143,   144,   145,   146,   147,   148,     0,   149,   150,
-     151,     0,     0,   152,   153,   154,     0,   155,   156,   157,
-     158,   159,     0,   160,     0,     0,     0,     0,     0,     0,
-       0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
-       0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
-       0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
-       0,     0,     0,     0,     0,     0,   132,     0,     0,     0,
-       0,   161,     0,     0,   133,   134,     0,     0,   162,     0,
-       0,     0,     0,     0,   163,   164,     0,     0,   135,   136,
-     165,     0,     0,     0,   137,   138,   139,   140,   141,   166,
-     167,     0,   168,   169,     0,     0,   170,   431,   172,   142,
-     143,   144,   145,   146,   147,   148,     0,   149,   150,   151,
-       0,     0,   152,   153,   154,     0,   155,   156,   157,   158,
-     159,     0,   160,     0,     0,     0,     0,     0,     0,     0,
-       0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
-       0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
-       0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
-       0,     0,     0,     0,     0,   132,     0,     0,     0,     0,
-     161,     0,     0,   133,   134,     0,     0,   162,     0,     0,
-       0,     0,     0,   163,   164,     0,     0,   135,   136,   165,
-       0,     0,     0,   137,   138,   139,   140,   141,   166,   167,
-       0,   168,   169,     0,     0,   170,   529,   530,   142,   143,
-     144,   145,   146,   147,   148,     0,   149,   150,   151,     0,
-       0,   152,   153,   154,     0,   155,   156,   157,   158,   159,
-       0,   160,     0,     0,     0,     0,     0,     0,     0,     0,
-       0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
-       0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
-       0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
-       0,     0,     0,     0,   132,     0,     0,     0,     0,   161,
-       0,     0,   133,   134,     0,     0,   162,     0,     0,     0,
-       0,     0,   163,   164,     0,     0,   135,   136,   165,     0,
-       0,     0,   137,   138,   139,   140,   141,   166,   167,     0,
-     168,   169,     0,     0,   918,   171,   363,   142,   143,   144,
-     145,   146,   147,   148,     0,   149,   150,   151,     0,     0,
-     152,   153,   154,     0,   155,   156,   157,   158,   159,     0,
-     160,     0,     0,     0,     0,     0,     0,     0,     0,     0,
-       0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
-       0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
-       0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
-       0,     0,     0,     0,     0,     0,     0,     0,   161,     0,
-       0,     0,     0,     0,     0,   162,     0,     0,     0,     0,
-       0,   163,   164,     0,     0,     0,     0,   165,     0,     0,
-       0,     0,     0,     0,     0,     0,   166,   167,     0,   168,
-     169,     0,     0,   170,   171,   955,   311,   312,   422,     0,
-     423,     0,     0,     0,     0,     0,     0,     0,     0,     0,
-     135,   136,     0,     0,     0,     0,   137,   138,   139,   140,
-     141,     0,     0,   314,   315,   316,   317,   318,     0,   319,
-     320,   142,   143,   144,   145,   146,   147,   148,     0,   149,
-     150,   151,     0,     0,   152,   153,   154,     0,   155,   156,
-     157,   158,   159,     0,   160,     0,     0,     0,     0,     0,
-       0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
-       0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
-       0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
-       0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
-       0,     0,     0,     0,     0,     0,     0,     0,     0,   162,
-       0,     0,     0,     0,     0,   163,   164,     0,     0,     0,
-       0,   165,     0,     0,     0,     0,   311,   312,   313,     0,
-     166,   167,     0,   168,   169,     0,     0,   321,   171,   424,
-     135,   136,     0,     0,     0,     0,   137,   138,   139,   140,
-     141,     0,     0,   314,   315,   316,   317,   318,     0,   319,
-     320,   142,   143,   144,   145,   146,   147,   148,     0,   149,
-     150,   151,   311,   312,   152,   153,   154,     0,   155,   156,
-     157,   158,   159,     0,   160,     0,   135,   136,     0,     0,
-       0,     0,   137,   138,   139,   140,   141,     0,     0,   314,
-     315,   316,   317,   318,     0,   319,   320,   142,   143,   144,
-     145,   146,   147,   148,     0,   149,   150,   151,     0,     0,
-     152,   153,   154,     0,   155,   156,   157,   158,   159,     0,
-     160,     0,     0,     0,     0,     0,     0,     0,     0,   162,
-       0,     0,     0,     0,     0,   163,   164,     0,     0,     0,
-       0,   165,     0,     0,     0,     0,     0,     0,     0,     0,
-     166,   167,     0,   168,   169,     0,     0,   321,   171,   322,
-       0,     0,     0,     0,     0,     0,     5,     0,     0,     6,
-       0,     7,     0,     8,     0,   162,     9,     0,     0,     0,
-       0,   163,   164,     0,     0,     0,    10,   165,     0,     0,
-       0,     0,     0,     0,     0,     0,   166,   167,     0,   168,
-     169,     0,    11,   321,   171,   424,    12,    13,     0,     0,
-       0,    14,     0,     0,     0,     0,     0,    15,     0,    16,
-      17,     0,    18,     0,     0,     0,     0,    19,    20,    21,
-      22,    23,     0,    24,    25,     0,     0,    26,    27,    28,
-      29,    30,    31,    32,    33,    34,    35,    36,     0,    37,
-       0,    38,    39,     0,     0,    40,    41,    42,     0,    43,
-       0,    44,     0,     0,    45,    46,     0,     0,    47,    48,
-      49,     0,     0,     0,     0,     0,     0,     0,    50,     0,
-       0,     0,    52,    53,    54,    55,    56,    57,    58,    59,
-      60,    61,    62,    63,     0,     0,    64,     0,     0,    65,
-      66,    67,    68,     5,     0,     0,     6,   487,     7,     0,
-       8,     0,     0,     9,     0,     0,     0,     0,     0,     0,
-       0,     0,     0,    10,     0,     0,     0,     0,     0,     0,
-       0,     0,     0,     0,     0,     0,     0,     0,     0,    11,
-       0,     0,     0,    12,    13,     0,     0,     0,    14,     0,
-       0,     0,     0,     0,    15,     0,    16,    17,     0,    18,
-       0,     0,     0,     0,    19,    20,    21,    22,    23,     0,
-      24,    25,     0,     0,    26,    27,    28,    29,    30,    31,
-      32,    33,    34,    35,    36,     0,    37,     0,    38,    39,
-       0,     0,    40,    41,    42,     0,    43,     0,    44,     0,
-       0,    45,    46,     0,     0,    47,    48,    49,     0,     0,
-       0,     0,     0,     0,     0,    50,     0,     0,     0,    52,
-      53,    54,    55,    56,    57,    58,    59,    60,    61,    62,
-      63,     8,     0,    64,     9,     0,    65,    66,    67,    68,
-       0,     0,     0,     0,    10,     0,     0,     0,     0,     0,
-       0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
-      11,     0,     0,     0,     0,     0,     0,     0,     0,     0,
-       0,     0,     0,     0,     0,    15,     0,     0,     0,     0,
-      18,     0,   746,     0,     0,    19,    20,    21,    22,    23,
-       0,     0,    25,     0,     0,    26,    27,    28,    29,    30,
-      31,    32,    33,    34,    35,     0,     0,     8,     0,     0,
-       9,     0,     0,     0,    41,     0,     0,     0,     0,    44,
-      10,     0,     0,     0,     0,     0,    47,     0,    49,     0,
-       0,     0,     0,     0,     0,     0,    11,     0,     0,     0,
-       0,     0,     0,     0,     0,     0,     0,    59,    60,    61,
-      62,    15,     0,     0,     0,     0,    18,     0,     0,    67,
-      68,    19,    20,    21,    22,    23,     0,     0,    25,     0,
-       0,    26,    27,    28,    29,    30,    31,    32,    33,    34,
-      35,     0,     0,     0,     0,     0,   825,     0,     0,     0,
-      41,     0,     0,     0,     0,    44,     0,     0,     0,     0,
-       0,     0,    47,     0,    49,     0,     0,     0,     0,     0,
-       0,     0,    11,     0,     0,     0,     0,     0,     0,     0,
-       0,     0,     0,    59,    60,    61,    62,    15,     0,     0,
-       0,     0,    18,   826,     0,    67,    68,    19,    20,   827,
-       0,    23,     0,     0,    25,     0,     0,    26,    27,    28,
-      29,    30,    31,    32,    33,    34,    35,     0,     0,     0,
-       0,     0,   825,     0,     0,     0,    41,     0,     0,     0,
-       0,    44,     0,     0,     0,     0,     0,     0,    47,     0,
-      49,     0,     0,     0,     0,     0,     0,     0,    11,     0,
-       0,     0,     0,     0,     0,     0,     0,     0,     0,    59,
-      60,    61,    62,    15,     0,     0,     0,     0,    18,     0,
-       0,   170,    68,    19,    20,   827,     0,    23,     0,     0,
-      25,     0,     0,    26,    27,    28,    29,    30,    31,    32,
-      33,    34,    35,     0,     0,     0,     0,     0,     0,     0,
-       0,     0,    41,     0,     0,     0,     0,    44,     0,     0,
-       0,     0,     0,     0,    47,     0,    49,     0,     0,     0,
-       0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
-       0,     0,     0,     0,     0,    59,    60,    61,    62,     0,
-       0,     0,     0,     0,     0,     0,     0,   170,    68
+       0,     0,    89,     0,     0,     0,     0,     0,     0,     0,
+       0,     0,     0,     0,     0,     0,     0,     0,     0,    92,
+      93,     0,    95,     0,     0,     0,    42,    97
 };
 
 #define yypact_value_is_default(Yystate) \
-  (!!((Yystate) == (-845)))
+  (!!((Yystate) == (-1394)))
 
 #define yytable_value_is_error(Yytable_value) \
-  (!!((Yytable_value) == (-542)))
+  YYID (0)
 
 static const yytype_int16 yycheck[] =
 {
-      11,   295,     1,   185,    15,   101,   219,    18,   104,   240,
-     394,   577,   108,   395,   277,   111,    54,   161,   482,   477,
-     205,   536,   536,   653,   482,     5,   264,   124,   172,    79,
-     268,    81,    82,   161,     3,     3,    86,     3,   274,   710,
-      39,     3,   564,   565,     1,     3,   124,    17,   719,    75,
-      76,     3,    51,    80,   124,   291,   563,   564,   565,     3,
-      87,    19,    20,    21,     3,    31,   722,    37,    38,   768,
-     214,     3,     3,   217,   214,   113,   363,   115,   116,   329,
-      24,    21,     3,   161,   747,   124,   214,    21,     5,     6,
-       7,     8,     9,    10,    51,    12,    13,    14,    15,    16,
-      17,   127,    19,    20,    21,    22,    23,    27,     3,     3,
-      22,   122,     3,     3,     3,   212,   213,   904,     3,   130,
-     131,   132,   219,    21,     3,   112,     3,    45,     3,    44,
-     141,   153,   976,     3,    24,   213,   214,    18,     3,     3,
-     121,    22,   122,   213,   155,   101,    24,   131,   245,    24,
-     161,   198,     3,     3,     3,     3,     3,     3,     3,    24,
-       3,   172,    19,    20,    21,   131,   177,   131,   404,    91,
-      88,    89,   119,   891,   221,   162,  1020,    18,   428,   160,
-     191,    22,   166,   130,    21,    21,    22,    23,   168,   188,
-     201,   202,   107,   115,   160,   140,   246,   142,   166,   168,
-     987,   163,   166,   214,   160,   160,   217,   206,    23,   167,
-     881,   163,   157,   931,   213,   914,   227,   161,   217,   363,
-     160,   220,   166,   363,   163,   322,   225,   253,   884,   240,
-     327,   163,   163,   167,   331,   363,     5,   900,   265,    24,
-     160,   472,   163,   270,   322,   162,   273,   164,   165,   327,
-     162,   168,   322,   331,   131,   254,   162,   327,   765,   766,
-     767,   331,   140,    21,   162,   501,   502,   237,   163,   163,
-     269,   161,   163,   509,   163,   286,   166,   288,   163,   160,
-      21,     3,    24,   322,   163,   363,   161,   523,   166,   300,
-     301,   166,   331,   163,   305,   526,   161,   254,   534,   163,
-     485,   166,    44,   314,   315,   316,   317,   318,   319,   320,
-     167,   561,   163,   163,   163,   163,   163,   163,   163,   160,
-     163,   608,   609,   322,   611,   162,   576,   424,   164,   165,
-     341,   796,   797,   798,   345,   346,   347,   348,   349,   350,
-     351,   352,   353,   354,   355,   356,   424,    18,   162,   164,
-     165,    22,   363,   122,   424,    18,    19,    20,    21,    22,
-      23,   162,   373,   374,   375,   376,   377,   378,   379,   380,
-     381,   382,   383,   384,   385,   386,   387,   388,   389,   390,
-     391,   166,   846,    18,   395,   424,   530,     3,   846,   847,
-     848,   849,   850,   915,   339,   340,   490,   160,   140,   162,
-     162,     3,   160,  1033,   126,   163,    22,   133,   915,   659,
-     133,   255,   256,   358,   425,   360,   361,   362,   162,   160,
-      94,    95,   163,   153,   166,   370,   520,   663,   133,    31,
-     162,   813,   162,   471,   160,   161,   562,   160,   282,     3,
-     160,    78,    79,   569,   657,   495,   166,   543,   711,   914,
-     500,   160,   836,   503,    18,   160,   669,   166,    22,   160,
-      18,   472,   756,   701,    22,   562,  1032,   478,   162,    29,
-     614,    31,   569,   162,   571,   572,   573,   574,   575,   160,
-     491,   162,   718,   990,   562,   496,   160,   122,   131,   160,
-     721,   569,   562,   571,   572,   573,   574,   575,     3,   569,
-     163,   571,   572,   573,   574,   575,  1021,  1021,   693,   796,
-     797,   798,   162,    18,   525,   526,   162,    22,   662,   530,
-     770,   771,   772,   773,   774,   536,     3,  1042,  1042,   131,
-     161,   162,   571,   572,   573,   574,   575,    83,   537,    85,
-     539,    18,  1006,   123,   641,    22,   160,   546,  1006,   560,
-       8,     9,    10,     4,    12,    13,    14,    15,    16,    17,
-     657,    19,    20,    21,    22,    23,   577,   664,   579,   160,
-     161,   162,   669,    18,    19,    20,    21,    22,    23,    18,
-      19,    20,    21,    22,    23,   821,   664,    24,    41,    19,
-      20,    21,    22,    23,   664,   161,   162,   608,   609,   166,
-     611,   162,   163,   614,   615,   847,   848,   849,   850,   903,
-     134,   135,   136,   683,    21,    22,    23,    19,    20,    83,
-      84,   632,   633,    37,    38,     3,   637,     3,   639,   123,
-     124,   160,   643,     3,   162,   162,   162,   819,   168,   162,
-     162,   652,   738,   654,   740,   656,   162,   646,   162,   162,
-     162,   662,   796,   749,   653,   886,   162,     3,   162,   162,
-     162,   162,   162,   162,   675,   664,   677,   162,     3,   162,
-     162,   768,   671,   162,   162,   162,   912,   162,   162,   132,
-     691,   692,   160,     3,   160,   138,   139,   160,   982,   163,
-     768,   702,     5,   160,     3,   160,   162,   160,   768,   160,
-     153,   154,     3,   156,   157,   160,   164,   165,   161,   708,
-     721,     5,     6,     7,     8,     9,    10,     3,    12,    13,
-      14,    15,    16,    17,   160,    19,    20,    21,    22,    23,
-       3,     5,   161,     3,     3,   163,     3,     3,   162,    22,
-     751,     5,     3,     3,   163,   163,     3,     3,   163,   760,
-     162,   160,   988,     3,   160,   163,     3,   162,     5,     6,
-       7,     8,     9,    10,   162,    12,    13,    14,    15,    16,
-      17,   162,    19,    20,    21,    22,    23,   162,   160,   163,
-     161,     3,     3,    23,     3,   796,   797,   798,     3,     3,
-     163,     4,   163,    22,   163,   163,   160,   893,    22,   162,
-      26,    21,   813,   814,   163,   160,   902,   163,     4,    36,
-     122,   955,     3,   160,   162,   160,    10,   914,    12,    13,
-      14,    15,    16,    17,   160,    19,    20,    21,    22,    23,
-     163,     3,   162,   162,     5,   163,   914,     5,   935,   163,
-     162,   160,   163,   160,   914,   160,     4,   163,     3,   163,
-      82,   122,   163,   163,     3,    22,   160,   868,   163,   870,
-     167,   872,   160,   160,   163,   168,    82,   163,   163,   160,
-     164,   165,    25,   160,   168,   886,   160,    22,   974,   160,
-     891,    51,   254,   950,   485,   948,   897,    12,    13,    14,
-      15,    16,    17,   904,    19,    20,    21,    22,    23,    12,
-      13,    14,    15,    16,    17,   673,    19,    20,    21,    22,
-      23,   677,   911,   924,   405,   926,   927,   164,   165,   481,
-     931,   932,   505,   934,   480,    78,    79,    80,   260,   525,
-     493,   289,   715,   944,    52,   868,   927,   397,   937,   959,
-     870,   662,   890,  1016,   955,   985,   541,   757,   937,   960,
-     961,   760,   664,   106,   435,   108,   109,   110,   124,    -1,
-     113,   114,    -1,   116,   117,    -1,    -1,     0,     1,    -1,
-     164,   165,    -1,    -1,   985,    -1,   987,    -1,    -1,    -1,
-      -1,    -1,    -1,    -1,   983,   996,    -1,    -1,   999,    -1,
-      -1,    24,    25,    -1,    -1,    28,    29,    30,    31,    32,
-      -1,    -1,    35,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
-    1021,    -1,    45,    -1,    -1,    -1,    -1,    -1,    -1,  1030,
-      -1,  1032,    -1,  1034,  1035,  1024,    -1,    -1,    61,    -1,
-      -1,  1042,    65,    66,  1033,    -1,    -1,    70,  1049,   164,
-     165,    -1,    -1,    76,    -1,    78,    79,    -1,    81,    -1,
-      -1,   164,   165,    86,    87,    88,    89,    90,    -1,    92,
-      93,    -1,    -1,    96,    97,    98,    99,   100,   101,   102,
-     103,   104,   105,   106,    -1,   108,    -1,   110,   111,    -1,
-      -1,   114,   115,   116,    -1,   118,    -1,   120,    -1,    -1,
-     123,   124,    -1,    -1,   127,   128,   129,    -1,    -1,    -1,
-      -1,    -1,    -1,    -1,   137,    -1,    -1,   140,   141,   142,
-     143,   144,   145,   146,   147,   148,   149,   150,   151,   152,
-      -1,    -1,   155,    -1,    -1,   158,   159,   160,   161,    -1,
-      -1,    -1,     3,   166,     5,     6,     7,     8,     9,    10,
-      -1,    12,    13,    14,    15,    16,    17,    -1,    19,    20,
-      21,    22,    23,     3,    -1,     5,     6,     7,     8,     9,
-      10,    -1,    12,    13,    14,    15,    16,    17,    -1,    19,
-      20,    21,    22,    23,     3,    -1,     5,     6,     7,     8,
-       9,    10,    -1,    12,    13,    14,    15,    16,    17,    -1,
-      19,    20,    21,    22,    23,     3,    -1,     5,     6,     7,
-       8,     9,    10,    -1,    12,    13,    14,    15,    16,    17,
-      -1,    19,    20,    21,    22,    23,     3,    -1,     5,     6,
-       7,     8,     9,    10,    -1,    12,    13,    14,    15,    16,
-      17,    -1,    19,    20,    21,    22,    23,     4,     5,     6,
-       7,     8,     9,    10,    -1,    12,    13,    14,    15,    16,
-      17,    -1,    19,    20,    21,    22,    23,     4,     5,     6,
-       7,     8,     9,    10,    -1,    12,    13,    14,    15,    16,
-      17,    -1,    19,    20,    21,    22,    23,    -1,    -1,    -1,
-      -1,    -1,    33,    34,    -1,    -1,    -1,    -1,    39,    40,
-      41,    42,    43,   164,   165,    -1,    -1,    -1,    -1,    -1,
-      -1,    -1,    -1,    54,    55,    56,    57,    58,    59,    60,
-      -1,    62,    63,    64,   164,   165,    67,    68,    69,    -1,
-      71,    72,    73,    74,    75,    -1,    77,    -1,    -1,    -1,
-      -1,    -1,    -1,    -1,    -1,   164,   165,     5,     6,     7,
-       8,     9,    10,    -1,    12,    13,    14,    15,    16,    17,
-      -1,    19,    20,    21,    22,    23,   164,   165,     5,     6,
-       7,     8,     9,    10,    -1,    12,    13,    14,    15,    16,
-      17,    -1,    19,    20,    21,    22,    23,   164,   165,    -1,
-      -1,   132,    -1,    -1,    -1,    -1,    -1,   138,   139,    -1,
-      -1,    -1,    -1,   144,    -1,    -1,   163,   164,   165,    -1,
-      -1,    -1,   153,   154,    -1,   156,   157,    -1,    -1,   160,
-     161,   162,    -1,    -1,    -1,    -1,    -1,   164,   165,     4,
-       5,     6,     7,     8,     9,    10,    -1,    12,    13,    14,
-      15,    16,    17,    -1,    19,    20,    21,    22,    23,     4,
-       5,     6,     7,     8,     9,    10,    -1,    12,    13,    14,
-      15,    16,    17,    -1,    19,    20,    21,    22,    23,     4,
-       5,     6,     7,     8,     9,    10,    -1,    12,    13,    14,
-      15,    16,    17,    -1,    19,    20,    21,    22,    23,    -1,
+      11,    73,   458,   220,   167,   294,   458,   382,    52,   294,
+      52,   382,   288,   213,    56,    52,    90,   496,   184,   651,
+      57,   493,   914,   152,   718,    62,    63,   167,   320,   109,
+     136,   844,   237,   599,  1006,  1006,   219,   291,   152,   547,
+      52,    52,   237,   982,   237,   294,    57,   294,   496,    52,
+     213,    62,    63,   258,   875,   876,   100,    94,   100,  1088,
+     692,    52,    73,   100,  1027,   258,   317,   104,   927,   928,
+     926,   305,   670,  1173,   935,   258,   259,   927,   928,   494,
+    1269,   110,   640,    94,  1273,     3,   584,  1276,   100,   100,
+      56,  1261,     5,   104,  1264,   593,     3,   100,   853,   854,
+     855,     3,  1495,   171,    21,   860,     3,    21,   109,   100,
+       5,     3,     3,   933,   167,     3,    21,     3,     3,   617,
+       4,     3,    24,    47,   111,   728,     5,    24,   146,    21,
+       5,   136,   735,     3,   171,   184,     4,     3,    24,   192,
+       3,     3,    24,    11,   169,   379,   351,    97,   220,   354,
+       3,    19,    20,    21,    24,   191,   351,   143,   351,   354,
+     171,   354,    64,     3,     3,   305,   191,    64,  1027,   458,
+      27,     3,     3,   458,     3,   193,    18,     3,    64,    24,
+      22,   398,    64,   170,    24,   556,   172,     5,   193,  1152,
+     191,   157,  1084,    24,    64,   145,     3,    21,     3,   404,
+       3,   330,   419,     3,     3,     3,     3,   131,     3,   404,
+       3,   404,    24,     3,     3,     3,   330,     3,    29,    24,
+      31,   387,   417,     3,    64,    24,   237,   675,     3,   309,
+     191,    24,   304,    64,   417,   315,   308,   377,   378,   379,
+    1410,   424,    24,     3,   427,   317,     3,   430,   320,     3,
+       3,   146,    64,    19,    20,   323,   124,  1077,   710,    64,
+     259,     3,   154,   154,   518,    64,     3,   146,   279,     3,
+     154,    64,    19,    20,   191,  1375,   194,   971,  1671,   193,
+     193,   149,    24,   294,   313,   314,   323,   194,   193,   578,
+      24,   496,   199,  1152,   193,   197,  1259,   165,   166,  1120,
+     197,   496,  1163,   496,   372,   720,   194,   175,   194,   194,
+     599,   197,   323,   496,   200,   197,   184,   185,   193,   187,
+     188,     3,    64,   191,   192,   193,   398,   197,   194,   578,
+      64,   194,   194,   201,   191,   372,   499,   328,   382,   305,
+     351,   194,    24,   354,     3,   382,   357,   419,   420,   191,
+     599,  1106,   197,     3,   160,   194,     3,   197,  1113,    97,
+      24,   372,   194,   861,   154,   194,   197,     3,   194,   193,
+     868,   382,  1542,   971,  1544,   193,   874,  1009,   612,   877,
+    1550,   939,    64,   881,    52,   197,  1575,   194,    24,   160,
+    1560,   194,   197,   404,   194,    52,   194,   194,   197,   194,
+      64,  1448,   393,   394,   197,   194,   194,   145,   194,   420,
+      48,   377,   378,   379,   194,   102,   382,   154,   417,   194,
+     107,   458,   188,   497,   498,   191,   192,   194,    64,   718,
+    1542,   430,   100,   718,   194,   515,  1543,   194,   116,   117,
+     194,   194,   323,   100,   113,   192,   663,   458,  1560,    24,
+     154,   557,   139,  1392,  1561,   197,    24,   494,   495,   496,
+     660,   715,   194,   197,   664,   665,    24,  1430,  1497,   718,
+     675,   718,   612,   111,  1410,   604,   642,  1449,  1449,   553,
+     675,   686,   675,   494,   495,   496,  1342,   191,   499,    64,
+     604,   372,   675,   686,   191,   154,    64,   660,   167,  1358,
+      24,   664,   665,   686,  1325,   759,    64,   154,  1358,    24,
+     547,    97,   556,   191,   556,   197,  1563,   528,    52,   556,
+      52,   563,   994,   192,  1345,    24,   982,  1006,   782,    24,
+     982,  1010,   170,   197,   184,   185,   547,   187,   610,   550,
+      64,   191,    97,   738,   556,   556,   191,   584,   585,    64,
+     801,  1183,   803,   556,   193,   738,   593,   594,  1006,   145,
+     563,   197,  1010,  1071,   124,    64,   100,   578,   100,    64,
+       3,  1430,  1138,   584,   585,   154,   154,   168,   169,    24,
+     617,    33,   593,   594,    29,    18,    31,   154,   599,    22,
+     145,   663,  1564,  1564,    38,   632,    48,   563,    19,    20,
+     191,    24,  1494,   192,   193,   191,   617,  1543,  1544,   184,
+     185,     3,   187,   191,  1550,   175,   191,   583,   193,   630,
+      22,   632,   197,   191,   191,  1561,   592,   193,    18,   197,
+      22,   191,    22,   191,   167,   191,   191,    24,   194,   197,
+     651,    64,    87,   167,   200,  1458,   612,    24,   614,   615,
+     616,   184,   185,    29,   187,    31,   174,   124,   191,   192,
+     184,   185,     4,   187,   675,   174,   191,   191,   192,   114,
+     163,   164,   197,   197,    24,   193,   191,    64,   191,   167,
+     193,   692,   197,   720,   193,   194,   758,    64,   193,   193,
+     199,   983,   191,   982,   182,   199,   191,   982,   197,   710,
+      65,    66,   197,   124,   192,    24,    24,   718,   175,   720,
+      29,    87,    31,     3,    64,    80,   796,   184,   185,    84,
+     187,   172,   188,   167,   191,    90,   192,   172,   800,   801,
+     836,   803,    22,   193,   130,  1627,  1430,   182,   114,   199,
+     184,   185,  1214,   187,   165,   166,    64,   191,   192,   104,
+     761,   106,   197,   191,   175,  1189,   194,  1191,    99,   100,
+     101,  1213,   200,   184,   185,   140,   187,   188,   191,     5,
+     191,   192,   193,   191,   197,   941,   194,    21,    22,   745,
+     909,    19,    20,   191,   856,   925,   194,     6,     7,   130,
+    1165,   156,  1424,   142,  1165,   909,   172,   138,    99,   100,
+     844,  1006,   167,   112,   191,  1010,  1095,   844,   193,   424,
+     197,  1006,   427,  1006,   191,  1010,     4,  1010,   184,   185,
+     197,   187,  1027,  1261,   861,   191,  1264,  1010,   194,   172,
+     173,   868,  1027,   844,  1027,   191,   192,   874,   875,   876,
+     877,   191,   879,   112,   881,   882,  1095,   197,  1261,  1138,
+     861,  1264,  1308,   157,   158,   159,  1312,   868,   351,  1022,
+     193,   354,   193,   874,   875,   876,   877,   193,   879,   193,
+     881,   882,   914,   191,    47,  1080,   193,   914,   844,   197,
+     193,   184,   185,   193,   187,  1080,   124,  1080,   191,  1138,
+     927,   928,   192,   859,   905,   172,   173,    28,    29,    30,
+      31,   867,   193,   914,    40,    41,    37,   104,   105,   193,
+     275,   983,  1578,  1579,   880,   280,   927,   928,   283,    62,
+      63,    29,   193,    31,    29,   290,    31,   200,   184,   185,
+     200,   187,     5,  1005,   174,   191,  1392,   175,   194,   304,
+    1392,   306,  1218,   208,   209,   982,   184,   185,   914,   187,
+     188,   324,   325,   191,   192,    23,    87,    10,     9,   925,
+     971,   193,   193,    12,    13,    14,    15,    16,    17,    18,
+    1449,   982,     5,  1010,   191,   340,   341,   191,   343,    87,
+     191,   191,    87,   114,   184,   185,   191,   187,   353,   146,
+     355,   191,  1367,   193,  1005,  1006,  1367,   199,  1009,  1010,
+    1074,   366,   168,   368,   193,    29,   114,    31,  1262,   114,
+     191,  1022,   175,   176,   177,   178,  1027,  1222,     4,  1308,
+     183,  1221,   104,  1312,   389,  1097,   189,  1222,   191,  1222,
+     175,   176,   177,   178,  1071,   194,     5,     5,   183,  1222,
+     194,   172,  1084,     5,   189,   174,  1057,  1084,   150,   184,
+     185,     3,   187,   174,   184,   185,   191,   187,  1221,   194,
+    1071,   191,   174,    87,   172,     4,   197,   172,   194,  1080,
+     202,  1082,    11,  1084,   182,   174,   194,   182,   191,   193,
+      19,    20,    21,  1120,  1095,  1564,   579,   580,   581,   582,
+     114,  1274,     5,   184,   185,    22,   187,   191,   591,   191,
+     191,   466,   193,  1392,     3,   470,   193,  1392,     3,  1120,
+     194,  1148,   161,   162,   163,   164,   481,     4,    68,    69,
+      70,  1165,    72,     4,   191,   173,   154,  1138,  1165,     3,
+      11,     3,   497,   498,    73,   191,   501,  1148,    19,    20,
+      21,   193,   507,  1215,   102,   199,   195,   196,   172,   107,
+       4,   194,   110,     4,  1165,    94,   113,   522,   182,   134,
+     191,   182,   194,   193,   122,   194,   531,   125,   126,   182,
+     110,  1182,  1183,   191,   194,   540,    39,   193,   182,   191,
+       4,   139,   182,   548,   194,   124,   144,    11,   553,  1261,
+       3,   174,  1264,    18,     5,    19,    20,  1269,     3,  1165,
+     193,  1273,  1213,   568,  1276,    22,   193,     3,   193,   191,
+     149,  1222,    21,  1285,   193,    21,   193,   193,     3,   193,
+     193,     3,     3,   146,   191,   191,   165,   166,  1680,   193,
+      52,   169,   193,   191,   139,    57,   175,  1693,   154,     3,
+      62,    63,     3,   124,   114,   184,   185,   193,   187,   188,
+       5,     5,   191,   192,   193,  1266,     5,     3,    30,   194,
+       5,  1333,   201,     3,   629,   194,    31,    29,   149,   194,
+     194,  1308,    94,   154,   194,  1312,   194,     3,   100,     3,
+     645,  1247,   104,     5,   165,   166,     4,   193,  1325,   654,
+     193,    21,    20,   191,   175,     4,     4,  1308,   191,     4,
+     124,  1312,   194,   184,   185,   194,   187,   188,  1345,   194,
+     191,   192,   193,   107,  1325,   194,   110,   194,  1390,  1536,
+     201,  1358,   815,  1367,   191,   149,   194,    26,   122,   194,
+    1367,   125,   126,   194,  1345,  1535,    94,    73,  1410,     5,
+       5,   165,   166,   199,   194,   139,     4,  1358,     3,   171,
+     144,   175,  1552,   193,   719,  1392,  1367,   191,   194,   194,
+     184,   185,    11,   187,   188,   858,   199,   191,   192,   193,
+      19,    20,  1535,   866,   193,    24,   741,   201,   743,   191,
+     194,  1392,     4,   146,     3,   878,     3,     5,     4,  1552,
+    1356,   756,     5,     3,   193,     3,   103,   762,     5,   103,
+       5,  1367,   895,   194,  1693,     3,     3,    22,   901,     4,
+       3,     3,  1449,  1424,  1458,    64,     4,    21,     3,  1430,
+     194,  1458,     3,   194,     4,   194,   194,   194,   194,   794,
+       3,     0,     1,  1505,   193,   191,     3,   194,   191,   191,
+     191,   806,     3,   191,     4,     4,   811,  1458,   813,    21,
+       5,   194,  1494,     3,    22,    24,   194,  1494,     4,    28,
+      29,    30,    31,   194,  1536,  1502,     3,   194,    37,   194,
+    1542,  1543,  1544,   193,     3,   124,  1513,   194,  1550,   844,
+     194,   194,  1682,  1494,     3,    49,     4,     4,  1560,  1561,
+       3,  1502,  1458,   194,   316,    64,     4,  1576,  1704,   100,
+     149,   323,  1513,  1575,   909,  1006,  1006,   411,    20,  1265,
+    1274,   715,  1219,   515,  1262,  1266,   165,   166,    87,  1682,
+    1264,    11,  1006,   420,  1424,  1423,   175,  1564,   404,   252,
+     782,   896,  1545,  1047,  1544,   184,   185,   902,   187,   188,
+     495,  1410,   191,   192,   193,   114,  1550,   784,   197,   718,
+     372,  1010,   201,  1006,   980,   377,   378,   796,  1282,     4,
+     382,   926,   927,  1057,  1680,  1576,    11,  1639,   459,  1213,
+    1417,   993,   937,  1022,    19,    20,   882,  1503,   550,   944,
+     124,  1653,   947,   948,  1513,  1627,   556,  1080,  1095,  1505,
+    1627,   556,  1333,  1345,  1514,   447,   266,   446,   451,   454,
+     758,   449,   801,   172,   798,   149,   175,   176,   177,   178,
+     803,   556,   561,   316,   183,   325,  1627,   561,  1111,   556,
+     189,   165,   166,  1373,  1117,   385,  1698,   611,   197,  1701,
+     556,   175,  1111,   613,   594,   556,  1117,   872,     4,  1132,
+     184,   185,  1714,   187,   188,    11,   556,   191,   192,   193,
+     925,  1430,   928,    19,    20,   556,  1693,   201,   901,   378,
+     556,  1627,  1628,  1132,  1029,   895,   556,   330,   556,  1680,
+      54,  1671,   494,   495,   496,   281,  1041,   467,  1043,   124,
+    1183,   708,  1693,  1048,   155,     4,   692,   556,   630,    26,
+    1055,  1056,    11,  1182,   102,  1386,   167,    -1,  1082,   107,
+      19,    20,   110,  1186,   149,    -1,    -1,   655,    -1,  1074,
+    1075,    -1,    -1,    -1,   122,    -1,    -1,   125,   126,    -1,
+     165,   166,    -1,    -1,    -1,   547,    -1,    -1,    -1,  1094,
+     175,   139,    -1,    -1,   556,    -1,   144,    -1,    -1,   184,
+     185,    -1,   187,   188,    -1,    -1,   191,   192,   193,    -1,
+      -1,    -1,    -1,  1118,    -1,    -1,   201,    -1,   124,    -1,
+     231,    -1,   584,   585,    -1,    -1,   237,    -1,    -1,    -1,
+      -1,   593,   594,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
+    1145,   252,    -1,   149,    -1,    -1,  1151,    -1,    -1,   611,
+    1155,    -1,    -1,  1158,    -1,   617,  1161,  1162,    -1,   165,
+     166,    -1,  1167,    -1,  1169,   124,    -1,    -1,    -1,   175,
+     632,    -1,    -1,    -1,  1179,    -1,    -1,    -1,   184,   185,
+      -1,   187,   188,    -1,    -1,   191,   192,   193,    -1,   651,
+     149,    -1,    -1,    -1,   305,   201,    -1,    -1,    -1,    -1,
+      -1,    -1,  1207,    -1,    -1,   316,   165,   166,   319,  1214,
+      -1,    -1,  1217,    -1,    -1,  1220,   175,    -1,    -1,    -1,
+      -1,    -1,    -1,   334,   335,   184,   185,    -1,   187,   188,
+     692,    -1,   191,   192,   193,    25,    -1,    38,    -1,    -1,
+     351,    -1,   201,   354,    -1,     5,     6,     7,     8,     9,
+      10,    -1,    12,    13,    14,    15,    16,    17,   720,    19,
+      20,    21,    22,    23,    -1,   376,   377,   378,   379,    -1,
+      -1,    -1,    -1,    -1,    -1,    -1,    -1,    78,    -1,    -1,
+      -1,  1286,    -1,  1288,    -1,    -1,    -1,     4,    -1,    -1,
+      -1,    -1,    93,   404,    11,    -1,    -1,    -1,    -1,    -1,
+      -1,    -1,    19,    20,    -1,    -1,    -1,   108,    -1,    99,
+     100,   101,    -1,    -1,   115,    -1,  1321,   118,   119,   120,
+     121,    -1,    -1,   124,    -1,    -1,   127,   128,   129,    -1,
+      -1,    -1,  1337,    -1,    -1,    -1,    -1,    -1,    -1,  1344,
+     130,    -1,   132,   133,   134,    -1,    -1,   137,   138,    -1,
+     140,   141,   153,    -1,    -1,    -1,    -1,  1362,  1363,    -1,
+    1365,    -1,    -1,    -1,    -1,  1370,   167,    -1,    -1,    -1,
+      -1,    -1,    -1,    -1,    -1,  1380,    -1,    -1,    -1,    -1,
+       4,    -1,   844,   184,   185,    -1,   187,    11,   499,    -1,
+     191,   192,    -1,    -1,    -1,    19,    20,    -1,   509,   861,
+      -1,    -1,    -1,    -1,    -1,    -1,   868,   124,    -1,    -1,
+      -1,    -1,   874,   875,   876,   877,    -1,   879,    94,   881,
+     882,    -1,    -1,    -1,    -1,    -1,    -1,    -1,   104,    -1,
+      -1,    -1,   149,    -1,   194,   195,   196,    -1,    -1,    -1,
+      -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,   165,   166,
+      -1,    -1,   914,    -1,    -1,    -1,    -1,    -1,   175,    -1,
+      -1,    -1,    -1,   925,    -1,   927,   928,   184,   185,    -1,
+     187,   188,    -1,    -1,   191,   192,   193,    -1,    -1,    -1,
+      -1,    -1,    19,    20,   201,    -1,    -1,    -1,    -1,    -1,
+      -1,     4,    -1,    -1,  1499,    -1,    -1,    -1,    11,  1504,
+     124,   612,    -1,    -1,    -1,    -1,    19,    20,    -1,    -1,
+    1515,  1516,  1517,    -1,    -1,    -1,  1521,  1522,    -1,    -1,
+      -1,  1526,    -1,    -1,    -1,   149,    -1,  1532,    -1,  1534,
       -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
-      -1,    -1,    -1,    -1,    -1,   163,   164,   165,    -1,    -1,
+     651,   165,   166,    -1,  1006,    -1,    -1,  1009,  1010,    -1,
+      -1,   175,    -1,    -1,    -1,    -1,    -1,    -1,    -1,   670,
+     184,   185,    -1,   187,   188,  1027,    -1,   191,   192,   193,
+      -1,    -1,    -1,    -1,    -1,    -1,    -1,   201,    -1,    -1,
+      -1,   692,    -1,    -1,     4,    -1,    -1,   124,    -1,    -1,
+      -1,    11,   703,    -1,   705,    -1,    -1,    -1,    -1,    19,
+      20,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,  1071,
+      -1,   124,   149,    -1,    -1,    -1,  1621,    -1,    -1,    -1,
+      -1,    -1,  1084,    -1,    -1,    -1,  1631,    -1,   165,   166,
+    1635,    -1,    -1,   744,    -1,   746,   149,    -1,   175,    -1,
+     316,    -1,    -1,   754,    -1,    -1,    -1,   184,   185,    -1,
+     187,   188,   165,   166,   191,   192,   193,    -1,  1120,    -1,
+      -1,    -1,   175,    -1,   201,  1670,    -1,    -1,  1673,    -1,
+      -1,   184,   185,    -1,   187,   188,    -1,    -1,   191,   192,
+     193,    -1,    -1,    -1,    -1,    -1,  1148,    -1,   201,    -1,
+    1152,    -1,    -1,    -1,     5,    -1,    -1,    -1,    -1,    -1,
+      11,   377,   378,  1165,   124,    -1,    -1,    -1,    19,    20,
+      -1,    22,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
+    1182,  1183,    -1,    -1,    -1,    -1,    -1,    -1,    -1,   149,
       -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
-      -1,    -1,    -1,    -1,    -1,    -1,   163,   164,   165,     5,
-       6,     7,     8,     9,    10,    -1,    12,    13,    14,    15,
-      16,    17,    -1,    19,    20,    21,    22,    23,     5,     6,
-       7,     8,     9,    10,    -1,    12,    13,    14,    15,    16,
-      17,    -1,    19,    20,    21,    22,    23,     5,     6,     7,
-       8,     9,    10,    -1,    12,    13,    14,    15,    16,    17,
-      -1,    19,    20,    21,    22,    23,    -1,    -1,    -1,   164,
-     165,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
-      -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,   164,
-     165,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
-      -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,   164,
-     165,     5,     6,     7,     8,     9,    10,    -1,    12,    13,
-      14,    15,    16,    17,    -1,    19,    20,    21,    22,    23,
-       5,     6,     7,     8,     9,    10,    -1,    12,    13,    14,
-      15,    16,    17,    -1,    19,    20,    21,    22,    23,    -1,
+      -1,   852,   853,   854,   855,   165,   166,    -1,    -1,   860,
+      -1,    -1,    -1,    -1,    -1,   175,    -1,    -1,    -1,    -1,
+      -1,   872,    -1,    -1,   184,   185,    -1,   187,   188,    -1,
+      -1,   191,   192,   193,    -1,    -1,    -1,    -1,    -1,    -1,
+      -1,   201,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
+      -1,     6,     7,    -1,     9,    10,   907,    12,    13,    14,
+      15,    16,    17,    18,    19,    20,    21,    22,    23,    24,
+      -1,    -1,    -1,   124,   925,   926,    -1,    -1,   494,   495,
+      -1,   932,   933,    -1,    -1,   936,    -1,    -1,    -1,    -1,
+      -1,    -1,   943,    -1,    -1,    -1,    -1,    -1,   149,    -1,
+      -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    64,
+      -1,    -1,    -1,    -1,   165,   166,    -1,    -1,    -1,    -1,
+     971,    -1,    -1,  1325,   175,    -1,    -1,    -1,   979,    -1,
+      -1,   547,    -1,   184,   185,    -1,   187,   188,     5,    -1,
+     191,   192,   193,  1345,    11,    -1,    -1,    -1,    -1,    -1,
+     201,    -1,    19,    20,    -1,    -1,  1358,    -1,  1009,    -1,
+      -1,    -1,    -1,    -1,    -1,  1367,  1017,    -1,   584,   585,
+    1021,  1022,    -1,  1024,  1025,    -1,  1027,   593,   594,    -1,
+      -1,    -1,    -1,    -1,     5,    -1,    -1,    -1,    -1,    -1,
+      11,    -1,    -1,    -1,    -1,   611,    -1,    -1,    19,    20,
+      -1,   617,    -1,    -1,    38,    -1,   161,   162,   163,   164,
+      -1,    -1,    -1,    -1,    48,    -1,   632,    -1,    -1,    -1,
+      -1,  1423,  1424,    -1,     5,    -1,  1077,    -1,  1430,  1080,
+      11,    -1,  1083,    -1,    -1,   651,    -1,   192,    19,    20,
+     195,   196,   197,    -1,    78,   200,    -1,  1449,    -1,    -1,
+      -1,    -1,    -1,    -1,    -1,  1106,  1458,   124,    -1,    93,
+      -1,    -1,  1113,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
+      -1,    -1,    -1,    -1,   108,    -1,   692,   111,   112,    -1,
+      -1,   115,   149,    -1,   118,   119,   120,   121,    -1,    -1,
+     124,    -1,  1494,   127,   128,   129,    -1,    -1,   165,   166,
+    1502,  1152,    -1,   124,   720,    -1,    -1,    -1,   175,    -1,
+      -1,  1513,    -1,    -1,    -1,    -1,    -1,   184,   185,   153,
+     187,   188,  1173,    -1,   191,   192,   193,    -1,   149,    -1,
+      -1,  1182,  1183,   167,   201,    -1,   170,    -1,    -1,    -1,
+      -1,    -1,    -1,   124,   165,   166,    -1,    -1,   182,    -1,
+     184,   185,    -1,   187,   175,    -1,    -1,   191,   192,    -1,
+      -1,  1212,  1564,   184,   185,    -1,   187,   188,   149,    -1,
+     191,   192,   193,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
+     201,    -1,    -1,    -1,   165,   166,    -1,    -1,    -1,    -1,
+      -1,    -1,    -1,    -1,   175,  1246,    -1,    -1,    -1,  1250,
+      -1,    -1,    -1,   184,   185,    -1,   187,   188,  1259,    -1,
+     191,   192,   193,    -1,    -1,    -1,    -1,    38,    -1,    -1,
+     201,    -1,    -1,    -1,    -1,  1627,    -1,    -1,    -1,    -1,
       -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
-      -1,    -1,    -1,    -1,    -1,    -1,    -1,   163,   164,   165,
+    1291,    -1,    -1,    -1,    -1,   861,    -1,    -1,    -1,    -1,
+      -1,    -1,   868,    -1,  1305,    -1,    -1,    78,   874,   875,
+     876,   877,    -1,   879,    -1,   881,   882,    -1,    -1,    -1,
+      -1,    -1,    93,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
+      -1,    -1,   103,    -1,    -1,    -1,    -1,   108,    -1,    -1,
+      -1,  1342,    -1,    -1,   115,    -1,    -1,   118,   119,   120,
+     121,    -1,    -1,   124,  1355,    -1,   127,   128,   129,   925,
+      -1,   927,   928,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
+      -1,    -1,  1373,    -1,  1375,    -1,    -1,     6,     7,    -1,
+       9,    10,   153,    12,    13,    14,    15,    16,    17,    18,
+      19,    20,    21,    22,    23,    24,   167,    -1,    -1,    -1,
       -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
-      -1,    -1,    -1,    -1,    -1,    -1,   163,   164,   165,    -1,
+      -1,    -1,    -1,   184,   185,    -1,   187,    -1,    -1,    -1,
+     191,   192,  1423,  1424,    -1,    -1,    -1,    -1,  1429,  1430,
+      -1,    -1,    -1,    -1,    -1,    64,    -1,    -1,    -1,    -1,
+      -1,    -1,    -1,  1009,    -1,    -1,    -1,  1448,    -1,    -1,
+      -1,    -1,    -1,    -1,    -1,    -1,    11,    -1,    -1,    -1,
+      -1,  1027,    -1,    -1,    19,    20,    -1,    -1,    -1,    -1,
+      -1,    -1,  1473,  1474,  1475,  1476,  1477,  1478,  1479,  1480,
+    1481,  1482,  1483,  1484,  1485,  1486,  1487,  1488,  1489,  1490,
+    1491,    -1,    -1,    -1,    49,    -1,    51,    52,    53,    54,
+      -1,    56,    -1,    58,    59,  1071,    -1,    -1,    -1,    -1,
+      65,    -1,    67,    -1,    69,    -1,    -1,    -1,    -1,    -1,
       -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
-      -1,    -1,    -1,    -1,    -1,   163,   164,   165,     5,     6,
-       7,     8,     9,    10,    -1,    12,    13,    14,    15,    16,
-      17,    -1,    19,    20,    21,    22,    23,     5,     6,     7,
-       8,     9,    10,    -1,    12,    13,    14,    15,    16,    17,
-      -1,    19,    20,    21,    22,    23,     5,     6,     7,     8,
-       9,    10,    -1,    12,    13,    14,    15,    16,    17,    -1,
-      19,    20,    21,    22,    23,    -1,    -1,    -1,    -1,   163,
-     164,   165,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
-      -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,   163,   164,
-     165,     5,     6,     7,     8,     9,    10,    -1,    12,    13,
-      14,    15,    16,    17,    -1,    19,    20,    21,    22,    23,
-       5,     6,     7,     8,     9,    10,    -1,    12,    13,    14,
-      15,    16,    17,    -1,    19,    20,    21,    22,    23,     5,
-       6,     7,     8,     9,    10,    -1,    12,    13,    14,    15,
-      16,    17,    -1,    19,    20,    21,    22,    23,    -1,    -1,
-      -1,    -1,    -1,    -1,    33,    34,    -1,    -1,    -1,    -1,
-      39,    40,    41,    42,    43,    -1,   163,   164,   165,    -1,
-      -1,    -1,    -1,    -1,    -1,    54,    55,    56,    57,    58,
-      59,    60,   160,    62,    63,    64,   164,   165,    67,    68,
-      69,    -1,    71,    72,    73,    74,    75,    -1,    77,    -1,
-      -1,    -1,    -1,    -1,   163,   164,   165,     5,     6,     7,
-       8,     9,    10,    -1,    12,    13,    14,    15,    16,    17,
-      -1,    19,    20,    21,    22,    23,     5,     6,     7,     8,
-       9,    10,    -1,    12,    13,    14,    15,    16,    17,    -1,
-      19,    20,    21,    22,    23,    -1,    -1,    -1,    -1,   163,
-     164,   165,    -1,   132,    -1,    -1,    -1,    -1,    -1,   138,
-     139,    -1,    -1,    -1,    -1,   144,    -1,    -1,   163,   164,
-     165,    -1,    -1,    -1,   153,   154,    -1,   156,   157,    -1,
-      -1,   160,   161,   162,    -1,    -1,    -1,   163,   164,   165,
-       5,     6,     7,     8,     9,    10,    -1,    12,    13,    14,
-      15,    16,    17,    -1,    19,    20,    21,    22,    23,     5,
-       6,     7,     8,     9,    10,    -1,    12,    13,    14,    15,
-      16,    17,    -1,    19,    20,    21,    22,    23,     5,     6,
-       7,     8,     9,    10,    -1,    12,    13,    14,    15,    16,
-      17,    -1,    19,    20,    21,    22,    23,    -1,    -1,    -1,
+      -1,    -1,   161,   162,   163,   164,    -1,    -1,  1539,    -1,
       -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
-      -1,    -1,    -1,    -1,    -1,   163,   164,   165,    -1,    -1,
+      -1,    -1,    -1,    -1,  1120,    -1,    -1,    -1,    -1,    -1,
+      -1,    -1,  1563,   192,   193,    -1,   195,   196,   197,   124,
+     199,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,  1580,
+      -1,    -1,  1148,    -1,    11,    -1,  1152,    -1,    -1,    -1,
+      -1,    -1,    19,    20,   149,    -1,  1597,  1598,    -1,    -1,
+      -1,  1602,    -1,  1604,    -1,    -1,    -1,    -1,    -1,    -1,
+     165,   166,    -1,    -1,    11,    -1,  1182,  1183,    -1,    -1,
+     175,    -1,    19,    20,    21,    -1,    -1,    -1,    -1,   184,
+     185,    -1,   187,   188,    -1,    -1,   191,   192,   193,    -1,
+      -1,    -1,    -1,    -1,    -1,    -1,   201,    -1,    -1,    -1,
+      -1,    -1,    -1,    50,    -1,    -1,    -1,    -1,    -1,    -1,
+    1661,    58,    -1,    60,    61,    62,    63,    94,    65,    -1,
+      67,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
+      -1,    -1,    -1,    -1,    -1,    -1,  1687,    -1,    -1,    -1,
+      -1,    -1,    -1,    -1,    -1,    -1,    -1,   124,    -1,    11,
+      -1,  1702,    -1,  1704,  1705,    -1,    -1,    19,    20,    -1,
+    1711,    -1,    -1,    -1,    -1,  1716,    -1,    -1,    -1,    -1,
+      -1,    -1,   149,    -1,    -1,    -1,    -1,   124,    -1,    -1,
+      -1,    -1,    -1,    -1,    -1,    -1,    -1,    49,   165,   166,
+      -1,    53,    54,    55,    56,    57,    58,    -1,   175,    -1,
+      -1,    -1,   149,    65,    66,    67,    -1,   184,   185,  1325,
+     187,   188,    -1,    -1,   191,   192,   193,    -1,   165,   166,
+     167,    -1,    -1,    -1,   201,    11,    -1,    -1,   175,  1345,
+      -1,    -1,    -1,    19,    20,    -1,    -1,   184,   185,    -1,
+     187,   188,  1358,    -1,   191,   192,   193,    -1,    -1,    -1,
+      -1,    -1,    -1,    -1,   201,    -1,    -1,    -1,    -1,    -1,
+      -1,    -1,   124,    49,    -1,    51,    -1,    53,    54,    -1,
+      56,    -1,    58,    59,    -1,    -1,    -1,    -1,    -1,    65,
+      -1,    67,    -1,    69,    -1,    -1,    -1,   149,    -1,    -1,
       -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
-      -1,    -1,    -1,    -1,   163,   164,   165,     5,     6,     7,
-       8,     9,    10,    -1,    12,    13,    14,    15,    16,    17,
-      -1,    19,    20,    21,    22,    23,     5,     6,     7,     8,
-       9,    10,    -1,    12,    13,    14,    15,    16,    17,    -1,
-      19,    20,    21,    22,    23,     5,     6,     7,     8,     9,
-      10,    -1,    12,    13,    14,    15,    16,    17,    -1,    19,
-      20,    21,    22,    23,    -1,    -1,    -1,    -1,   163,   164,
-     165,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
-      -1,    -1,    -1,    -1,    -1,    -1,    -1,   163,   164,   165,
+      -1,    -1,    -1,   165,   166,    -1,    -1,  1423,  1424,    -1,
+      11,    -1,    -1,   175,  1430,    -1,    -1,    -1,    19,    20,
+      -1,    -1,   184,   185,    -1,   187,   188,    -1,    -1,   191,
+     192,   193,    -1,    -1,    -1,    -1,    -1,    -1,   124,   201,
+      -1,    -1,    -1,    44,    -1,    -1,    -1,    -1,    -1,    -1,
+      -1,    -1,    -1,    -1,    -1,    -1,    -1,    58,    -1,    -1,
+      -1,    -1,    -1,   149,    65,    11,    67,    68,    -1,    -1,
+      -1,    -1,    -1,    19,    20,    -1,    -1,    -1,    -1,   165,
+     166,    -1,    -1,    -1,    -1,    -1,  1502,    -1,    -1,   175,
+      -1,    -1,    -1,    -1,    -1,    11,    -1,  1513,   184,   185,
+      -1,   187,   188,    19,    20,   191,   192,   193,   109,    -1,
+      -1,    -1,    58,    -1,    -1,   201,    -1,    -1,    -1,    65,
+      -1,    67,    68,   124,    -1,    -1,    -1,    -1,    -1,    -1,
       -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
-      -1,    -1,    -1,    -1,    -1,    -1,   163,   164,   165,     5,
-       6,     7,     8,     9,    10,    -1,    12,    13,    14,    15,
-      16,    17,    -1,    19,    20,    21,    22,    23,     5,     6,
-       7,     8,     9,    10,    -1,    12,    13,    14,    15,    16,
-      17,    -1,    19,    20,    21,    22,    23,    -1,    -1,    -1,
+      -1,    -1,    58,    -1,    -1,    -1,    -1,    -1,   149,    65,
+      11,    67,    68,    -1,   155,    -1,    -1,    -1,    19,    20,
+      -1,    -1,    -1,    -1,   165,   166,    -1,    -1,    -1,    -1,
+      -1,    -1,    -1,    -1,   175,    -1,    -1,    -1,   124,    -1,
+      -1,    -1,    -1,   184,   185,    -1,   187,   188,    -1,    -1,
+     191,   192,   193,    -1,    -1,    -1,    57,    58,    -1,    -1,
+     201,    -1,    -1,   149,    65,    11,    67,    -1,   124,    -1,
+      -1,    -1,    -1,    19,    20,    -1,    11,    -1,    24,   165,
+     166,    -1,    -1,    -1,    19,    20,    21,    -1,    -1,   175,
+      -1,    -1,    -1,   149,    -1,    -1,    -1,    -1,   184,   185,
+      -1,   187,   188,    -1,    -1,   191,   192,   193,    -1,   165,
+     166,    -1,    -1,    -1,    -1,   201,    -1,    -1,    64,   175,
+      -1,    -1,    -1,   124,    -1,    -1,    -1,    -1,   184,   185,
+      11,   187,   188,    -1,    -1,   191,   192,   193,    19,    20,
+      21,    11,    -1,    -1,    -1,   201,    -1,    -1,   149,    19,
+      20,    -1,    -1,    -1,    24,    -1,    -1,    -1,    -1,    -1,
+      -1,    -1,    -1,    -1,   165,   166,    -1,    -1,    -1,    -1,
+      -1,    -1,    -1,    -1,   175,    -1,    -1,    -1,   124,    -1,
+      -1,    -1,    -1,   184,   185,    -1,   187,   188,    11,   124,
+     191,   192,   193,    -1,    64,    -1,    19,    20,    -1,    -1,
+     201,    -1,    -1,   149,    -1,    -1,    -1,    -1,    -1,    -1,
+      -1,    -1,    -1,    -1,   149,    -1,    -1,    -1,    -1,   165,
+     166,    -1,    -1,    -1,    -1,    11,    -1,    -1,    -1,   175,
+     165,   166,   167,    19,    20,    21,    -1,    -1,   184,   185,
+     175,   187,   188,   124,    -1,   191,   192,   193,    -1,   184,
+     185,   197,   187,   188,   124,   201,   191,   192,   193,    -1,
+      -1,    -1,    11,    -1,    -1,    -1,   201,    -1,   149,    -1,
+      19,    20,    21,    11,    -1,    -1,    -1,    -1,    -1,   149,
+      -1,    19,    20,    -1,   165,   166,    -1,    -1,    -1,    -1,
+      -1,    -1,    -1,    -1,   175,   165,   166,    -1,    -1,    -1,
+      -1,   124,    -1,   184,   185,   175,   187,   188,    -1,    -1,
+     191,   192,   193,    -1,   184,   185,    -1,   187,   188,    -1,
+     201,   191,   192,   193,    -1,    -1,   149,   197,    11,    -1,
+      -1,   201,    -1,    -1,    -1,    -1,    19,    20,   124,    -1,
+      -1,    -1,   165,   166,    -1,    -1,    -1,    -1,    -1,    -1,
+      -1,    -1,   175,    -1,    -1,    -1,    -1,    -1,    11,    -1,
+      -1,   184,   185,   149,   187,   188,    19,    20,   191,   192,
+     193,   194,    -1,    11,    -1,   124,    -1,    -1,   201,   165,
+     166,    19,    20,    -1,    -1,    -1,   124,    -1,    -1,   175,
+      -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,   184,   185,
+     149,   187,   188,    -1,    11,   191,   192,   193,    -1,    -1,
+      -1,   149,    19,    20,    -1,   201,   165,   166,    -1,    -1,
+      -1,    -1,    -1,    -1,    -1,    -1,   175,   165,   166,    -1,
+      -1,    -1,    -1,    -1,    -1,   184,   185,   175,   187,   188,
+      -1,   124,   191,   192,   193,    -1,   184,   185,    -1,   187,
+     188,    11,   201,   191,   192,   193,    -1,    -1,    -1,    19,
+      20,    -1,    -1,   201,    -1,    -1,   149,    -1,    -1,    -1,
+      -1,   124,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
+      11,    -1,   165,   166,    -1,    -1,   124,    -1,    19,    20,
+      -1,    -1,   175,    -1,    -1,    -1,   149,    -1,    -1,    -1,
+      -1,   184,   185,    -1,   187,   188,    -1,    -1,   191,   192,
+     193,   149,   165,   166,    -1,    -1,    -1,   124,   201,    -1,
+      -1,    -1,   175,    -1,    -1,    -1,    -1,   165,   166,    -1,
+      -1,   184,   185,    -1,   187,   188,    -1,   175,   191,   192,
+     193,    -1,   149,    -1,    -1,    -1,   184,   185,   201,   187,
+     188,    -1,    -1,   191,   192,   193,    -1,    -1,   165,   166,
+      -1,    -1,    25,   201,   124,    -1,    -1,    -1,   175,    32,
+      -1,    -1,    -1,    -1,    -1,    -1,    -1,   184,   185,    -1,
+     187,   188,    -1,    -1,   191,   192,   193,    -1,    -1,   149,
+      -1,    -1,    -1,   124,   201,    -1,    -1,    -1,    -1,    -1,
+      -1,    -1,    -1,    -1,    -1,   165,   166,    -1,    -1,    -1,
+      -1,    -1,    -1,    -1,    -1,   175,    -1,    -1,   149,    82,
+      -1,    -1,    -1,    -1,   184,   185,    -1,   187,   188,    -1,
+      -1,   191,   192,   193,   165,   166,    99,   100,    -1,    -1,
+      -1,   201,    -1,    -1,   175,    -1,    -1,    -1,   111,    -1,
+      -1,    -1,    -1,   184,   185,    -1,   187,   188,    -1,    -1,
+     191,   192,   193,    -1,    -1,    -1,    -1,   130,    -1,   132,
+     201,   134,   135,    -1,    -1,    -1,    -1,   140,    -1,   142,
+      -1,    32,    -1,    -1,   147,    -1,    -1,    38,    -1,    -1,
+      -1,    -1,    -1,    -1,    -1,    -1,    47,    48,    -1,    -1,
+      -1,    -1,    -1,    -1,   167,    -1,    -1,   170,   171,   172,
+      -1,    -1,   175,   176,   177,   178,    -1,    -1,    -1,    -1,
+     183,   184,   185,   186,   187,    -1,   189,    78,   191,   192,
       -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
-      -1,    -1,    -1,    -1,    -1,   163,   164,   165,    -1,    -1,
-      -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
-      -1,    -1,    -1,    -1,   163,   164,   165,    -1,    -1,    -1,
-      -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
-      -1,    -1,    -1,   163,   164,   165,     5,     6,     7,     8,
-       9,    10,    -1,    12,    13,    14,    15,    16,    17,    -1,
-      19,    20,    21,    22,    23,     5,     6,     7,     8,     9,
-      10,    -1,    12,    13,    14,    15,    16,    17,    -1,    19,
-      20,    21,    22,    23,     5,     6,     7,     8,     9,    10,
-      -1,    12,    13,    14,    15,    16,    17,    -1,    19,    20,
-      21,    22,    23,    -1,    -1,    -1,    -1,   163,   164,   165,
-      -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
-      -1,    -1,    -1,    -1,    -1,    -1,   163,   164,   165,     5,
-       6,     7,     8,     9,    10,    -1,    12,    13,    14,    15,
-      16,    17,    -1,    19,    20,    21,    22,    23,     5,     6,
-       7,     8,     9,    10,    -1,    12,    13,    14,    15,    16,
-      17,    -1,    19,    20,    21,    22,    23,     5,     6,     7,
-       8,     9,    10,    -1,    12,    13,    14,    15,    16,    17,
-      -1,    19,    20,    21,    22,    23,    -1,    -1,    -1,    -1,
-      -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
-      -1,    -1,    -1,    -1,   163,   164,   165,    -1,    -1,    -1,
-      -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
-      -1,    -1,    -1,   163,   164,   165,    -1,    -1,    -1,    -1,
-      -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
-      -1,    -1,   163,   164,   165,     5,     6,     7,     8,     9,
-      10,    -1,    12,    13,    14,    15,    16,    17,    -1,    19,
-      20,    21,    22,    23,    -1,    -1,    -1,    -1,    -1,    -1,
-      -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
-      -1,    -1,    -1,    -1,    -1,     4,    -1,   163,   164,   165,
-      -1,    -1,    11,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
-      19,    20,    21,    -1,    -1,    -1,   163,   164,   165,    -1,
-      -1,    -1,    -1,    -1,    33,    34,    -1,    -1,    -1,    -1,
-      39,    40,    41,    42,    43,   163,   164,   165,    -1,    -1,
-      -1,    -1,    -1,    -1,    -1,    54,    55,    56,    57,    58,
-      59,    60,    -1,    62,    63,    64,    -1,    -1,    67,    68,
-      69,    -1,    71,    72,    73,    74,    75,    34,    77,    -1,
-      -1,    -1,    39,    40,    -1,    42,    43,    -1,    -1,    -1,
-      -1,    -1,    -1,    -1,    -1,    -1,    -1,    54,    55,    56,
-      57,    58,    59,    60,    -1,    62,    63,    64,    -1,    -1,
-      67,    68,    69,    -1,     4,    72,    73,    74,    75,    -1,
-      77,    11,    -1,    -1,   164,   165,   125,    -1,    -1,    19,
-      20,    -1,    -1,   132,    -1,    -1,    -1,    -1,    -1,   138,
-     139,    -1,    -1,    33,    34,   144,    -1,    -1,    -1,    39,
-      40,    41,    42,    43,   153,   154,    -1,   156,   157,    -1,
-      -1,   160,   161,   162,    54,    55,    56,    57,    58,    59,
-      60,    -1,    62,    63,    64,    -1,    -1,    67,    68,    69,
-      -1,    71,    72,    73,    74,    75,    -1,    77,    -1,    -1,
-      -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
-      -1,    -1,    -1,   160,    -1,    -1,    -1,    -1,    -1,    -1,
-      -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
-      -1,    -1,    -1,     4,    -1,    -1,    -1,    -1,    -1,    -1,
-      11,    -1,    -1,    -1,    -1,   125,    -1,    -1,    19,    20,
-      -1,    -1,   132,    -1,    -1,    -1,    -1,    -1,   138,   139,
-      -1,    -1,    33,    34,   144,    -1,    -1,    -1,    39,    40,
-      41,    42,    43,   153,   154,    -1,   156,   157,    -1,    -1,
-     160,   161,   162,    54,    55,    56,    57,    58,    59,    60,
-      -1,    62,    63,    64,    -1,    -1,    67,    68,    69,    -1,
-      71,    72,    73,    74,    75,    -1,    77,    -1,    -1,    -1,
+      -1,    -1,    93,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
+      -1,    -1,    -1,   104,   105,   106,    -1,   108,    -1,    32,
+     111,    -1,   113,    -1,   115,    38,    -1,   118,   119,   120,
+     121,    -1,    -1,   124,    -1,    48,   127,   128,   129,    -1,
+     131,    -1,    32,    -1,    -1,    -1,    -1,    -1,    38,    -1,
+      -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    48,    -1,
+      -1,    -1,   153,    -1,    -1,    78,    -1,    -1,    -1,    -1,
+      -1,    -1,    -1,    -1,    -1,    -1,   167,   168,   169,   170,
+      93,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    78,    -1,
+      -1,    -1,    -1,   184,   185,   108,   187,    -1,   111,   112,
+     191,   192,   115,    93,    -1,   118,   119,   120,   121,    -1,
+      -1,   124,    -1,    -1,   127,   128,   129,    -1,   108,    -1,
+      -1,   111,   112,    38,    -1,   115,    -1,    -1,   118,   119,
+     120,   121,    -1,    -1,   124,    -1,    -1,   127,   128,   129,
+     153,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
+      -1,    -1,    -1,    -1,   167,    -1,    -1,   170,    -1,    -1,
+      -1,    -1,    -1,   153,    -1,    -1,    -1,    -1,    -1,   182,
+      -1,   184,   185,    -1,   187,    -1,    -1,   167,   191,   192,
+     170,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
+      -1,    -1,   182,   108,   184,   185,    -1,   187,   113,    -1,
+      -1,   191,   192,   118,   119,   120,   121,    -1,    -1,   124,
+      -1,    -1,   127,   128,   129,    -1,    -1,    -1,    -1,    -1,
       -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
       -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
       -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
-      -1,    -1,     4,    -1,    -1,    -1,    -1,    -1,    -1,    11,
-      -1,    -1,    -1,    -1,   125,    -1,    -1,    19,    20,    -1,
-      -1,   132,    -1,    -1,    -1,    -1,    -1,   138,   139,    -1,
-      -1,    33,    34,   144,    -1,    -1,    -1,    39,    40,    41,
-      42,    43,   153,   154,    -1,   156,   157,    -1,    -1,   160,
-     161,   162,    54,    55,    56,    57,    58,    59,    60,    -1,
-      62,    63,    64,    -1,    -1,    67,    68,    69,    -1,    71,
-      72,    73,    74,    75,    -1,    77,    -1,    -1,    -1,    -1,
-      -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
-      -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
-      -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
-      -1,    -1,     5,    -1,    -1,    -1,    -1,    -1,    11,    -1,
-      -1,    -1,    -1,   125,    -1,    -1,    19,    20,    21,    -1,
-     132,    -1,    -1,    -1,    -1,    -1,   138,   139,    -1,    -1,
-      33,    34,   144,    -1,    -1,    -1,    39,    40,    41,    42,
-      43,   153,   154,    -1,   156,   157,    -1,    -1,   160,   161,
-     162,    54,    55,    56,    57,    58,    59,    60,    -1,    62,
-      63,    64,    -1,    -1,    67,    68,    69,    -1,    71,    72,
-      73,    74,    75,    -1,    77,    -1,    -1,    -1,    -1,    -1,
-      -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
-      -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
-      -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
-      -1,     5,    -1,    -1,    -1,    -1,    -1,    11,    -1,    -1,
-      -1,    -1,   125,    -1,    -1,    19,    20,    -1,    22,   132,
-      -1,    -1,    -1,    -1,    -1,   138,   139,    -1,    -1,    33,
-      34,   144,    -1,    -1,    -1,    39,    40,    41,    42,    43,
-     153,   154,    -1,   156,   157,    -1,    -1,   160,   161,   162,
-      54,    55,    56,    57,    58,    59,    60,    -1,    62,    63,
-      64,    -1,    -1,    67,    68,    69,    -1,    71,    72,    73,
-      74,    75,    -1,    77,    -1,    -1,    -1,    -1,    -1,    -1,
-      -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
-      -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
-      -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
-       5,    -1,    -1,    -1,    -1,    -1,    11,    -1,    -1,    -1,
-      -1,   125,    -1,    -1,    19,    20,    21,    -1,   132,    -1,
-      -1,    -1,    -1,    -1,   138,   139,    -1,    -1,    33,    34,
-     144,    -1,    -1,    -1,    39,    40,    41,    42,    43,   153,
-     154,    -1,   156,   157,    -1,    -1,   160,   161,   162,    54,
-      55,    56,    57,    58,    59,    60,    -1,    62,    63,    64,
-      -1,    -1,    67,    68,    69,    -1,    71,    72,    73,    74,
-      75,    -1,    77,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
-      -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
-      -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
-      -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,     5,
-      -1,    -1,    -1,    -1,    -1,    11,    -1,    -1,    -1,    -1,
-     125,    -1,    -1,    19,    20,    -1,    -1,   132,    -1,    -1,
-      -1,    -1,    -1,   138,   139,    -1,    -1,    33,    34,   144,
-      -1,    -1,    -1,    39,    40,    41,    42,    43,   153,   154,
-      -1,   156,   157,    -1,    -1,   160,   161,   162,    54,    55,
-      56,    57,    58,    59,    60,    -1,    62,    63,    64,    -1,
-      -1,    67,    68,    69,    -1,    71,    72,    73,    74,    75,
-      -1,    77,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
-      -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
-      -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
-      -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,     5,    -1,
-      -1,    -1,    -1,    -1,    11,    -1,    -1,    -1,    -1,   125,
-      -1,    -1,    19,    20,    -1,    -1,   132,    -1,    -1,    -1,
-      -1,    -1,   138,   139,    -1,    -1,    33,    34,   144,    -1,
-      -1,    -1,    39,    40,    41,    42,    43,   153,   154,    -1,
-     156,   157,    -1,    -1,   160,   161,   162,    54,    55,    56,
-      57,    58,    59,    60,    -1,    62,    63,    64,    -1,    -1,
-      67,    68,    69,    -1,    71,    72,    73,    74,    75,    -1,
-      77,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
-      -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
-      -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
-      -1,    -1,    -1,    -1,    -1,    -1,    -1,     5,    -1,    -1,
-      -1,    -1,    -1,    11,    -1,    -1,    -1,    -1,   125,    -1,
-      -1,    19,    20,    -1,    -1,   132,    -1,    -1,    -1,    -1,
-      -1,   138,   139,    -1,    -1,    33,    34,   144,    -1,    -1,
-      -1,    39,    40,    41,    42,    43,   153,   154,    -1,   156,
-     157,    -1,    -1,   160,   161,   162,    54,    55,    56,    57,
-      58,    59,    60,    -1,    62,    63,    64,    -1,    -1,    67,
-      68,    69,    -1,    71,    72,    73,    74,    75,    -1,    77,
-      -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
-      -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
-      -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
-      -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
-      -1,    -1,    11,    -1,    -1,    -1,    -1,   125,    -1,    -1,
-      19,    20,    -1,    -1,   132,    -1,    -1,    -1,    -1,    -1,
-     138,   139,    -1,    -1,    33,    34,   144,    -1,    -1,    -1,
-      39,    40,    41,    42,    43,   153,   154,    -1,   156,   157,
-      -1,    -1,   160,   161,   162,    54,    55,    56,    57,    58,
-      59,    60,    -1,    62,    63,    64,    -1,    -1,    67,    68,
-      69,    -1,    71,    72,    73,    74,    75,    -1,    77,    -1,
-      -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
-      -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
-      -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
-      -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
-      -1,    -1,    -1,    -1,    -1,    -1,   125,    -1,    -1,    -1,
-      -1,    -1,    -1,   132,    -1,    -1,    -1,    -1,    -1,   138,
-     139,    -1,    -1,    -1,    -1,   144,    -1,    -1,    -1,    -1,
-      -1,    -1,    -1,    -1,   153,   154,    11,   156,   157,    -1,
-      -1,   160,   161,   162,    19,    20,    21,   166,    23,    -1,
-      -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    33,    34,
-      -1,    -1,    -1,    -1,    39,    40,    41,    42,    43,    -1,
-      -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    54,
-      55,    56,    57,    58,    59,    60,    -1,    62,    63,    64,
-      -1,    -1,    67,    68,    69,    -1,    71,    72,    73,    74,
-      75,    -1,    77,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
-      -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
-      -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
-      -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
-      -1,    -1,    -1,    -1,    -1,    11,    -1,    -1,    -1,    -1,
-     125,    -1,    -1,    19,    20,    21,    -1,   132,    -1,    -1,
-      -1,    -1,    -1,   138,   139,    -1,    -1,    33,    34,   144,
-      -1,    -1,    -1,    39,    40,    41,    42,    43,   153,   154,
-      -1,   156,   157,    -1,    -1,   160,   161,   162,    54,    55,
-      56,    57,    58,    59,    60,    -1,    62,    63,    64,    -1,
-      -1,    67,    68,    69,    -1,    71,    72,    73,    74,    75,
-      -1,    77,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
-      -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
-      -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
-      -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
-      -1,    -1,    -1,    -1,    11,    -1,    -1,    -1,    -1,   125,
-      -1,    -1,    19,    20,    21,    -1,   132,    -1,    -1,    -1,
-      -1,    -1,   138,   139,    -1,    -1,    33,    34,   144,    -1,
-      -1,    -1,    39,    40,    41,    42,    43,   153,   154,    -1,
-     156,   157,    -1,    -1,   160,   161,   162,    54,    55,    56,
-      57,    58,    59,    60,    -1,    62,    63,    64,    -1,    -1,
-      67,    68,    69,    -1,    71,    72,    73,    74,    75,    -1,
-      77,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
-      -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
-      -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
-      -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
-      -1,    -1,    -1,    11,    -1,    -1,    -1,    -1,   125,    -1,
-      -1,    19,    20,    21,    -1,   132,    -1,    -1,    -1,    -1,
-      -1,   138,   139,    -1,    -1,    33,    34,   144,    -1,    -1,
-      -1,    39,    40,    41,    42,    43,   153,   154,    -1,   156,
-     157,    -1,    -1,   160,   161,   162,    54,    55,    56,    57,
-      58,    59,    60,    -1,    62,    63,    64,    -1,    -1,    67,
-      68,    69,    -1,    71,    72,    73,    74,    75,    -1,    77,
-      -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
-      -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
-      -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
-      -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
-      -1,    -1,    11,    -1,    -1,    -1,    -1,   125,    -1,    -1,
-      19,    20,    21,    -1,   132,    -1,    -1,    -1,    -1,    -1,
-     138,   139,    -1,    -1,    33,    34,   144,    -1,    -1,    -1,
-      39,    40,    41,    42,    43,   153,   154,    -1,   156,   157,
-      -1,    -1,   160,   161,   162,    54,    55,    56,    57,    58,
-      59,    60,    -1,    62,    63,    64,    -1,    -1,    67,    68,
-      69,    -1,    71,    72,    73,    74,    75,    -1,    77,    -1,
-      -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
-      -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
-      -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
-      -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
-      -1,    -1,    -1,    -1,    -1,    -1,   125,    -1,    -1,    -1,
-      -1,    -1,    -1,   132,    -1,    -1,    -1,    -1,    -1,   138,
-     139,    -1,    11,    -1,    -1,   144,    -1,    -1,    -1,    -1,
-      19,    20,    -1,    -1,   153,   154,    -1,   156,   157,    -1,
-      -1,   160,   161,   162,    33,    34,    35,    -1,    -1,    -1,
-      39,    40,    41,    42,    43,    -1,    -1,    -1,    -1,    -1,
-      -1,    -1,    -1,    -1,    -1,    54,    55,    56,    57,    58,
-      59,    60,    -1,    62,    63,    64,    -1,    -1,    67,    68,
-      69,    -1,    71,    72,    73,    74,    75,    -1,    77,    -1,
-      -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
-      -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
-      -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
-      -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
-      -1,    11,    -1,    -1,    -1,    -1,   125,    -1,    -1,    19,
-      20,    21,    -1,   132,    -1,    -1,    -1,    -1,    -1,   138,
-     139,    -1,    -1,    33,    34,   144,    -1,    -1,    -1,    39,
-      40,    41,    42,    43,   153,   154,    -1,   156,   157,    -1,
-      -1,   160,   161,   162,    54,    55,    56,    57,    58,    59,
-      60,    -1,    62,    63,    64,    -1,    -1,    67,    68,    69,
-      -1,    71,    72,    73,    74,    75,    -1,    77,    -1,    -1,
-      -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
-      -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
-      -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
-      -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
-      11,    -1,    -1,    -1,    -1,   125,    -1,    -1,    19,    20,
-      21,    -1,   132,    -1,    -1,    -1,    -1,    -1,   138,   139,
-      -1,    -1,    33,    34,   144,    -1,    -1,    -1,    39,    40,
-      41,    42,    43,   153,   154,    -1,   156,   157,    -1,    -1,
-     160,   161,   162,    54,    55,    56,    57,    58,    59,    60,
-      -1,    62,    63,    64,    -1,    -1,    67,    68,    69,    -1,
-      71,    72,    73,    74,    75,    -1,    77,    -1,    -1,    -1,
-      -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
-      -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
-      -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
-      -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    11,
-      -1,    -1,    -1,    -1,   125,    -1,    -1,    19,    20,    -1,
-      -1,   132,    -1,    -1,    -1,    -1,    -1,   138,   139,    -1,
-      -1,    33,    34,   144,    -1,    -1,    -1,    39,    40,    41,
-      42,    43,   153,   154,    -1,   156,   157,    -1,    -1,   160,
-     161,   162,    54,    55,    56,    57,    58,    59,    60,    -1,
-      62,    63,    64,    -1,    -1,    67,    68,    69,    -1,    71,
-      72,    73,    74,    75,    -1,    77,    -1,    -1,    -1,    -1,
-      -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
-      -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
-      -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
-      -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    11,    -1,
-      -1,    -1,    -1,   125,    -1,    -1,    19,    20,    -1,    -1,
-     132,    -1,    -1,    -1,    -1,    -1,   138,   139,    -1,    -1,
-      33,    34,   144,    -1,    -1,    -1,    39,    40,    41,    42,
-      43,   153,   154,    -1,   156,   157,    -1,    -1,   160,   161,
-     162,    54,    55,    56,    57,    58,    59,    60,    -1,    62,
-      63,    64,    -1,    -1,    67,    68,    69,    -1,    71,    72,
-      73,    74,    75,    -1,    77,    -1,    -1,    -1,    -1,    -1,
-      -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
-      -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
-      -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
-      -1,    -1,    -1,    -1,    -1,    -1,    -1,    11,    -1,    -1,
-      -1,    -1,   125,    -1,    -1,    19,    20,    -1,    -1,   132,
-      -1,    -1,    -1,    -1,    -1,   138,   139,    -1,    -1,    33,
-      34,   144,    -1,    -1,    -1,    39,    40,    41,    42,    43,
-     153,   154,    -1,   156,   157,    -1,    -1,   160,   161,   162,
-      54,    55,    56,    57,    58,    59,    60,    -1,    62,    63,
-      64,    -1,    -1,    67,    68,    69,    -1,    71,    72,    73,
-      74,    75,    -1,    77,    -1,    -1,    -1,    -1,    -1,    -1,
-      -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
-      -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
-      -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
-      -1,    -1,    -1,    -1,    -1,    -1,    11,    -1,    -1,    -1,
-      -1,   125,    -1,    -1,    19,    20,    -1,    -1,   132,    -1,
-      -1,    -1,    -1,    -1,   138,   139,    -1,    -1,    33,    34,
-     144,    -1,    -1,    -1,    39,    40,    41,    42,    43,   153,
-     154,    -1,   156,   157,    -1,    -1,   160,   161,   162,    54,
-      55,    56,    57,    58,    59,    60,    -1,    62,    63,    64,
-      -1,    -1,    67,    68,    69,    -1,    71,    72,    73,    74,
-      75,    -1,    77,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
-      -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
-      -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
-      -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
-      -1,    -1,    -1,    -1,    -1,    11,    -1,    -1,    -1,    -1,
-     125,    -1,    -1,    19,    20,    -1,    -1,   132,    -1,    -1,
-      -1,    -1,    -1,   138,   139,    -1,    -1,    33,    34,   144,
-      -1,    -1,    -1,    39,    40,    41,    42,    43,   153,   154,
-      -1,   156,   157,    -1,    -1,   160,   161,   162,    54,    55,
-      56,    57,    58,    59,    60,    -1,    62,    63,    64,    -1,
-      -1,    67,    68,    69,    -1,    71,    72,    73,    74,    75,
-      -1,    77,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
-      -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
-      -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
-      -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
-      -1,    -1,    -1,    -1,    11,    -1,    -1,    -1,    -1,   125,
-      -1,    -1,    19,    20,    -1,    -1,   132,    -1,    -1,    -1,
-      -1,    -1,   138,   139,    -1,    -1,    33,    34,   144,    -1,
-      -1,    -1,    39,    40,    41,    42,    43,   153,   154,    -1,
-     156,   157,    -1,    -1,   160,   161,   162,    54,    55,    56,
-      57,    58,    59,    60,    -1,    62,    63,    64,    -1,    -1,
-      67,    68,    69,    -1,    71,    72,    73,    74,    75,    -1,
-      77,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
-      -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
-      -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
-      -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
-      -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,   125,    -1,
-      -1,    -1,    -1,    -1,    -1,   132,    -1,    -1,    -1,    -1,
-      -1,   138,   139,    -1,    -1,    -1,    -1,   144,    -1,    -1,
-      -1,    -1,    -1,    -1,    -1,    -1,   153,   154,    -1,   156,
-     157,    -1,    -1,   160,   161,   162,    19,    20,    21,    -1,
-      23,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
-      33,    34,    -1,    -1,    -1,    -1,    39,    40,    41,    42,
-      43,    -1,    -1,    46,    47,    48,    49,    50,    -1,    52,
-      53,    54,    55,    56,    57,    58,    59,    60,    -1,    62,
-      63,    64,    -1,    -1,    67,    68,    69,    -1,    71,    72,
-      73,    74,    75,    -1,    77,    -1,    -1,    -1,    -1,    -1,
-      -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
-      -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
-      -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
-      -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
-      -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,   132,
-      -1,    -1,    -1,    -1,    -1,   138,   139,    -1,    -1,    -1,
-      -1,   144,    -1,    -1,    -1,    -1,    19,    20,    21,    -1,
-     153,   154,    -1,   156,   157,    -1,    -1,   160,   161,   162,
-      33,    34,    -1,    -1,    -1,    -1,    39,    40,    41,    42,
-      43,    -1,    -1,    46,    47,    48,    49,    50,    -1,    52,
-      53,    54,    55,    56,    57,    58,    59,    60,    -1,    62,
-      63,    64,    19,    20,    67,    68,    69,    -1,    71,    72,
-      73,    74,    75,    -1,    77,    -1,    33,    34,    -1,    -1,
-      -1,    -1,    39,    40,    41,    42,    43,    -1,    -1,    46,
-      47,    48,    49,    50,    -1,    52,    53,    54,    55,    56,
-      57,    58,    59,    60,    -1,    62,    63,    64,    -1,    -1,
-      67,    68,    69,    -1,    71,    72,    73,    74,    75,    -1,
-      77,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,   132,
-      -1,    -1,    -1,    -1,    -1,   138,   139,    -1,    -1,    -1,
-      -1,   144,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
-     153,   154,    -1,   156,   157,    -1,    -1,   160,   161,   162,
-      -1,    -1,    -1,    -1,    -1,    -1,    25,    -1,    -1,    28,
-      -1,    30,    -1,    32,    -1,   132,    35,    -1,    -1,    -1,
-      -1,   138,   139,    -1,    -1,    -1,    45,   144,    -1,    -1,
-      -1,    -1,    -1,    -1,    -1,    -1,   153,   154,    -1,   156,
-     157,    -1,    61,   160,   161,   162,    65,    66,    -1,    -1,
-      -1,    70,    -1,    -1,    -1,    -1,    -1,    76,    -1,    78,
-      79,    -1,    81,    -1,    -1,    -1,    -1,    86,    87,    88,
-      89,    90,    -1,    92,    93,    -1,    -1,    96,    97,    98,
-      99,   100,   101,   102,   103,   104,   105,   106,    -1,   108,
-      -1,   110,   111,    -1,    -1,   114,   115,   116,    -1,   118,
-      -1,   120,    -1,    -1,   123,   124,    -1,    -1,   127,   128,
-     129,    -1,    -1,    -1,    -1,    -1,    -1,    -1,   137,    -1,
-      -1,    -1,   141,   142,   143,   144,   145,   146,   147,   148,
-     149,   150,   151,   152,    -1,    -1,   155,    -1,    -1,   158,
-     159,   160,   161,    25,    -1,    -1,    28,   166,    30,    -1,
-      32,    -1,    -1,    35,    -1,    -1,    -1,    -1,    -1,    -1,
-      -1,    -1,    -1,    45,    -1,    -1,    -1,    -1,    -1,    -1,
-      -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    61,
-      -1,    -1,    -1,    65,    66,    -1,    -1,    -1,    70,    -1,
-      -1,    -1,    -1,    -1,    76,    -1,    78,    79,    -1,    81,
-      -1,    -1,    -1,    -1,    86,    87,    88,    89,    90,    -1,
-      92,    93,    -1,    -1,    96,    97,    98,    99,   100,   101,
-     102,   103,   104,   105,   106,    -1,   108,    -1,   110,   111,
-      -1,    -1,   114,   115,   116,    -1,   118,    -1,   120,    -1,
-      -1,   123,   124,    -1,    -1,   127,   128,   129,    -1,    -1,
-      -1,    -1,    -1,    -1,    -1,   137,    -1,    -1,    -1,   141,
-     142,   143,   144,   145,   146,   147,   148,   149,   150,   151,
-     152,    32,    -1,   155,    35,    -1,   158,   159,   160,   161,
-      -1,    -1,    -1,    -1,    45,    -1,    -1,    -1,    -1,    -1,
-      -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
-      61,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
-      -1,    -1,    -1,    -1,    -1,    76,    -1,    -1,    -1,    -1,
-      81,    -1,    83,    -1,    -1,    86,    87,    88,    89,    90,
-      -1,    -1,    93,    -1,    -1,    96,    97,    98,    99,   100,
-     101,   102,   103,   104,   105,    -1,    -1,    32,    -1,    -1,
-      35,    -1,    -1,    -1,   115,    -1,    -1,    -1,    -1,   120,
-      45,    -1,    -1,    -1,    -1,    -1,   127,    -1,   129,    -1,
-      -1,    -1,    -1,    -1,    -1,    -1,    61,    -1,    -1,    -1,
-      -1,    -1,    -1,    -1,    -1,    -1,    -1,   148,   149,   150,
-     151,    76,    -1,    -1,    -1,    -1,    81,    -1,    -1,   160,
-     161,    86,    87,    88,    89,    90,    -1,    -1,    93,    -1,
-      -1,    96,    97,    98,    99,   100,   101,   102,   103,   104,
-     105,    -1,    -1,    -1,    -1,    -1,    35,    -1,    -1,    -1,
-     115,    -1,    -1,    -1,    -1,   120,    -1,    -1,    -1,    -1,
-      -1,    -1,   127,    -1,   129,    -1,    -1,    -1,    -1,    -1,
-      -1,    -1,    61,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
-      -1,    -1,    -1,   148,   149,   150,   151,    76,    -1,    -1,
-      -1,    -1,    81,    82,    -1,   160,   161,    86,    87,    88,
-      -1,    90,    -1,    -1,    93,    -1,    -1,    96,    97,    98,
-      99,   100,   101,   102,   103,   104,   105,    -1,    -1,    -1,
-      -1,    -1,    35,    -1,    -1,    -1,   115,    -1,    -1,    -1,
-      -1,   120,    -1,    -1,    -1,    -1,    -1,    -1,   127,    -1,
-     129,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    61,    -1,
-      -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,   148,
-     149,   150,   151,    76,    -1,    -1,    -1,    -1,    81,    -1,
-      -1,   160,   161,    86,    87,    88,    -1,    90,    -1,    -1,
-      93,    -1,    -1,    96,    97,    98,    99,   100,   101,   102,
-     103,   104,   105,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
-      -1,    -1,   115,    -1,    -1,    -1,    -1,   120,    -1,    -1,
-      -1,    -1,    -1,    -1,   127,    -1,   129,    -1,    -1,    -1,
-      -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
-      -1,    -1,    -1,    -1,    -1,   148,   149,   150,   151,    -1,
-      -1,    -1,    -1,    -1,    -1,    -1,    -1,   160,   161
+      -1,    -1,   167,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
+      -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,   184,
+     185,    -1,   187,    -1,    -1,    -1,   191,   192
 };
 
@@ -2739 +3063 @@
 static const yytype_uint16 yystos[] =
 {
-       0,   170,     0,     1,    24,    25,    28,    30,    32,    35,
-      45,    61,    65,    66,    70,    76,    78,    79,    81,    86,
-      87,    88,    89,    90,    92,    93,    96,    97,    98,    99,
-     100,   101,   102,   103,   104,   105,   106,   108,   110,   111,
-     114,   115,   116,   118,   120,   123,   124,   127,   128,   129,
-     137,   140,   141,   142,   143,   144,   145,   146,   147,   148,
-     149,   150,   151,   152,   155,   158,   159,   160,   161,   166,
-     171,   172,   173,   174,   176,   178,   186,   198,   199,   203,
-     204,   209,   210,   211,   212,   213,   215,   216,   223,   225,
-     228,   231,   232,   267,   276,   277,   282,   283,   284,   286,
-     287,   291,   300,   301,   302,   303,   304,   310,   315,   319,
-     320,   323,   331,   332,   333,   334,   335,   338,   339,   341,
-     344,   345,   348,   357,   359,   369,   153,   181,   160,   180,
-     162,   162,    11,    19,    20,    33,    34,    39,    40,    41,
-      42,    43,    54,    55,    56,    57,    58,    59,    60,    62,
-      63,    64,    67,    68,    69,    71,    72,    73,    74,    75,
-      77,   125,   132,   138,   139,   144,   153,   154,   156,   157,
-     160,   161,   162,   166,   249,   250,   252,   253,   257,   259,
-     260,   261,   262,   267,   268,   269,   273,   275,   162,   191,
-     192,   162,   249,   272,   131,   166,   195,   166,   195,   273,
-     161,   162,   162,     3,   161,   179,   220,   305,   160,   160,
-     166,   336,   162,   162,   352,   160,   161,   162,   353,   162,
-     162,   195,   195,    18,    22,   219,   267,   162,   190,   119,
-     130,   123,   160,   224,   173,    78,    79,   187,   244,   133,
-     160,   161,   237,   336,   160,   162,   200,   201,   206,     4,
-     175,    24,   140,   166,    24,    29,    31,   175,   175,   160,
-     162,   221,   222,   166,     3,   220,   160,   205,   219,     3,
-     220,   220,     3,   220,   160,   217,   218,   219,     3,    31,
-     131,   196,   197,   226,   240,    21,   162,   229,    21,   162,
-     235,   337,   160,   172,   172,   172,   172,   336,   336,   336,
-       5,   122,   168,   340,     3,   162,   342,   101,   160,   273,
-     352,    19,    20,    21,    46,    47,    48,    49,    50,    52,
-      53,   160,   162,   250,   257,   268,   350,   352,   358,   360,
-     361,   362,   175,   249,   294,   249,   249,   249,   251,   162,
-     162,   162,   251,   249,   251,   162,   162,   162,   162,   162,
-     162,   162,   162,   162,   162,   162,   162,   249,   162,   251,
-     162,   162,   162,   162,   249,   250,   252,   275,   366,   367,
-     162,   249,   252,     5,     6,     7,     8,     9,    10,    12,
+       0,   204,     0,     1,    24,    28,    30,    37,    64,    87,
+     114,   172,   197,   205,   206,   207,   208,   210,   211,   264,
+     265,   632,   635,   652,   654,   688,   689,   690,   691,   692,
+     702,   703,   184,   212,   191,   191,   175,   176,   177,   178,
+     183,   189,   191,   231,   266,   314,   209,    24,   197,    24,
+     266,   236,   237,   405,   645,   647,   653,   653,    29,    31,
+     114,   690,   653,   653,   209,   655,   636,   268,   267,   272,
+     269,   271,   270,   193,   194,   194,   209,   197,   208,    25,
+      32,    82,    99,   100,   111,   132,   134,   135,   147,   167,
+     170,   171,   184,   185,   186,   187,   191,   192,   231,   238,
+     239,   240,   251,   259,   260,   288,   290,   292,   330,   331,
+     346,   364,   369,   386,   387,   392,   397,   398,   405,   406,
+     412,   416,   422,   432,   434,   443,   445,   447,   450,   451,
+     452,   513,   514,   539,   540,   541,   543,   549,   550,   553,
+     587,   606,   631,   669,   672,   714,   160,   647,   259,   260,
+     634,   641,   715,    38,    48,    78,    93,   108,   115,   118,
+     119,   120,   121,   124,   127,   128,   129,   153,   191,   241,
+     242,   252,   253,   259,   457,   474,   513,   514,   524,   525,
+     529,   539,   558,   559,   564,   568,   569,   572,   584,   585,
+     586,   587,   588,   593,   600,   604,   605,   606,   619,   622,
+     625,   677,   682,   714,   191,   705,   191,   695,   241,   241,
+     206,   206,    21,   193,   273,   274,   273,   273,   273,    21,
+     193,   284,   285,   286,   273,     4,    11,    19,    20,    21,
+     124,   149,   165,   166,   175,   188,   192,   193,   201,   231,
+     254,   257,   263,   275,   276,   279,   280,   288,   289,   315,
+     316,   321,   323,   432,   481,   482,   483,   484,   485,   488,
+     489,   491,   493,   494,   495,   496,   497,   501,   504,   506,
+     675,   684,   393,   206,   193,   417,   418,     3,   206,   213,
+     544,   154,   191,   670,   671,   154,   400,    22,   423,   206,
+     544,     3,   293,   294,   193,   373,   374,   376,   377,   432,
+     434,     4,   193,   240,   102,   107,   139,   434,   193,   291,
+     264,   366,   400,   130,   140,   142,   146,   193,   515,     5,
+     193,   446,   537,   538,   546,   546,   646,   112,   633,   642,
+     643,   644,   691,   702,   193,   193,   191,   231,   235,   501,
+     557,   191,   206,   260,   191,   197,   717,   193,   193,   193,
+     628,   193,   506,   591,   193,   591,   193,   193,   206,   501,
+     503,   504,   509,   510,   511,   512,   589,     4,   112,   246,
+     247,   243,   244,   245,   252,   631,   110,   122,   125,   126,
+     144,   191,   526,   537,    47,   570,   571,   575,   193,   678,
+     193,   709,   193,   246,   246,   192,    94,   511,   193,   276,
+     287,    73,    94,   263,   193,   322,   325,   326,   327,   501,
+     200,   200,   231,   275,   278,   279,   281,   488,   501,     5,
+       3,   194,   322,    23,   486,    21,    22,   487,   275,   276,
+     488,   276,   484,    12,    13,    14,    15,    16,    17,    18,
+     161,   162,   163,   164,   195,   196,   490,   492,    10,   498,
+       9,   499,     6,     7,   500,   491,   193,   193,   419,     3,
+     206,   116,   117,   231,   545,   206,   670,     3,   206,   191,
+     673,   674,   191,    18,    22,   425,   426,   206,   295,   296,
+     346,   191,   154,   191,   377,   378,   379,   445,   449,   450,
+     451,     3,   371,   372,   427,     3,    22,   111,   170,   448,
+     206,   506,    21,   192,   260,   501,   503,   610,   206,     5,
+     444,   505,   506,   264,   300,   301,   302,   303,     3,   333,
+     334,   335,   365,   191,   367,   368,   668,   400,   400,   143,
+     264,   408,   409,   191,   432,   433,   434,   501,   521,   522,
+     523,   472,   506,   516,   517,   518,   519,   146,   501,   444,
+     199,   245,   168,   169,   191,   261,   262,   542,   547,   548,
+     551,   554,   555,   262,   547,     3,   154,   650,   716,   405,
+     637,   644,   501,   532,   501,   206,   206,   206,   458,   594,
+     601,   193,    58,    65,    67,    68,   501,   591,   623,   624,
+     206,    58,    65,    67,    68,   591,   620,   621,   206,   475,
+     231,   720,   206,    48,   206,   656,   657,   245,   501,    21,
+      50,    58,    60,    61,    62,    63,    65,    67,   191,   434,
+     438,   590,   591,   592,   607,   608,   609,   610,   607,   610,
+     683,     4,   260,   513,   524,   525,   527,   530,   531,   104,
+     560,   561,   565,   136,   193,   579,   131,   571,   576,   537,
+     194,   680,   206,   710,   704,   693,   405,   699,   405,   706,
+       5,   194,   263,     5,     5,     3,   194,   325,   501,   150,
+       3,   191,   192,   277,   277,   174,   279,   194,   263,   316,
+     202,   324,   276,   483,   483,   484,   485,   489,   493,   494,
+     495,   194,   676,   191,   395,   396,   231,   421,   435,   443,
+     445,   451,   418,   193,   536,     5,   206,   671,     3,   206,
+      22,   191,   191,   429,   430,     3,   206,   193,     3,   370,
+     427,   373,   376,   231,   275,   276,   278,   279,   288,   313,
+     314,   317,   345,   375,   381,   384,   385,   432,   488,   675,
+     206,   544,   206,   544,     4,    21,   154,   231,   453,   454,
+     456,   501,   504,   206,     3,   206,   501,   194,     4,     3,
+     154,   304,   173,   299,   302,    25,   101,   130,   132,   133,
+     134,   137,   138,   140,   141,   336,   346,   191,   339,   340,
+     342,   154,     3,   206,     3,   191,   389,   231,   341,   401,
+     402,   403,   404,   426,   407,   193,     3,   206,   199,   206,
+       4,     3,   194,     3,   194,   434,   520,   206,   194,   447,
+     206,   544,     4,   113,    38,   127,   129,   259,   457,   474,
+     513,   524,   552,   568,   585,   587,   593,   600,   604,   605,
+     606,   619,   622,   625,   677,   546,   542,   555,   259,   134,
+     661,   191,   206,   182,   194,   194,   435,   445,   450,   465,
+     466,   467,    49,    53,    54,    55,    56,    57,    58,    65,
+      66,    67,   591,   596,   597,    57,    58,    65,    67,   591,
+     602,   603,    49,    51,    52,    53,    54,    56,    58,    59,
+      65,    67,    69,   591,   629,   630,   591,   260,   434,   441,
+     442,   434,   439,   440,   599,     3,   194,   591,   260,   441,
+     599,     3,   194,   467,   477,     3,   194,   193,   248,   249,
+     250,   691,   702,   182,   194,   506,    21,   590,   610,   191,
+     608,   260,   260,   260,   441,     3,   194,   194,     3,   206,
+     231,   684,   110,    39,   528,   533,   193,   105,   561,   562,
+     563,   566,   537,   580,   191,   206,   191,   577,   679,   231,
+     254,   434,   501,   685,   686,   687,    21,   191,   696,   711,
+     712,   713,   206,   711,   182,   182,   511,   194,   263,   511,
+     511,     3,   326,   231,   258,   275,   278,   282,   685,     5,
+       3,   194,     3,   193,   501,   501,   674,   231,   414,   415,
+     435,    22,   193,     3,   428,   296,   191,   297,   298,   231,
+     379,   380,   545,   206,   373,   193,    21,   382,   382,   193,
+       3,    22,   382,   276,   279,   206,   206,     4,   501,   260,
+     501,     5,     3,   194,     4,   154,   455,   193,   501,   613,
+     614,   615,   206,   505,   101,   130,   138,   305,   306,   346,
+     231,   307,   308,   191,   206,   193,   193,     3,   332,   193,
+     347,   336,   368,   193,     3,   388,   399,     3,   206,   191,
+     410,   411,   409,   191,   521,   473,   506,   472,   518,   472,
+     519,   146,   206,   206,   169,   191,   206,   193,   191,   192,
+     193,   718,   193,   110,   262,   556,   546,   154,     3,   662,
+     114,   639,   206,   531,   574,     3,   460,   193,   468,   502,
+     503,   598,   502,   502,   502,   506,     5,   591,   260,   502,
+     441,     3,   194,     5,   591,   260,   441,     3,   194,   598,
+       5,   441,   439,   439,   441,   591,   434,   436,   437,   260,
+     441,   436,     3,   194,   624,   206,   621,   206,     3,   478,
+     231,   501,   250,    30,   659,   103,   253,   259,   260,   609,
+     206,   613,   193,   206,   434,   611,   612,   615,   611,   501,
+     532,    40,    41,   534,   535,   526,   501,   191,   206,   106,
+     561,   567,   537,     4,   501,   581,   582,   583,   206,   578,
+     206,   206,     5,     3,   194,   194,     3,   194,    31,   701,
+      29,   708,   194,     3,   194,     3,   194,   194,   231,   328,
+     329,   545,   194,   194,   501,   508,   396,   394,   420,   421,
+     444,   194,     3,     3,   413,   431,   430,   424,   427,     3,
+     194,     5,   193,   231,   255,   256,   257,   258,   275,   278,
+     313,   317,   345,   383,   384,   194,   254,   318,   319,   320,
+     434,   501,   520,   523,   381,   501,     4,    21,   501,   454,
+       4,   501,   501,   501,   612,   614,   615,   616,   617,     3,
+     206,   193,     3,   154,   193,   309,     3,   206,   206,   337,
+     338,   340,   206,   348,    21,   283,   390,   191,   206,   206,
+     403,    20,     3,   194,     4,     4,   520,   206,   544,   206,
+     532,    11,    19,    20,    44,   109,   155,   165,   166,   184,
+     185,   187,   188,   192,   214,   215,   219,   221,   224,   226,
+     231,   232,   233,   501,   720,   501,   253,    27,   191,   663,
+     664,   648,   191,   640,   206,    97,   145,   461,   462,   466,
+     194,   469,   470,   471,   472,   502,   597,   595,   502,   603,
+     206,   439,   194,   630,   626,    97,   145,   467,   479,   480,
+     194,   194,   191,   660,   206,   110,     3,   206,     3,   206,
+     206,   194,   194,   191,   206,   191,   206,   526,   194,   206,
+     191,   206,   583,     3,   194,     4,   206,   231,   687,   686,
+     681,   713,    26,   697,   698,   640,   640,    94,    73,   194,
+       5,   206,     3,   194,   194,   501,   415,   206,   427,     4,
+     349,   350,   351,   352,   353,   354,   355,   356,   357,   358,
+     359,   360,   361,   362,   506,   507,   206,   426,   298,   206,
+     511,   231,   275,     5,     3,   194,   501,   260,   501,     4,
+       3,   614,     4,   310,   350,   352,   356,   306,   310,   283,
+     308,   349,   157,   158,   159,   363,   349,   287,     5,   146,
+     343,   344,   349,   193,   191,   411,   206,   206,   194,   501,
+     194,   194,   501,   199,   443,   445,   193,   193,   194,   191,
+     184,   234,   443,     5,     6,     7,     8,     9,    10,    12,
       13,    14,    15,    16,    17,    19,    20,    21,    22,    23,
-     164,   165,   254,   249,   168,   162,   271,   162,   162,   160,
-     153,   270,   271,   193,   267,     3,   249,   133,   160,   214,
-     214,   249,   249,   161,   305,    94,    95,   267,   306,   257,
-     370,   371,    21,    23,   162,   267,   354,   355,   360,   361,
-     366,   161,   252,   267,   371,   372,   267,   374,   214,    34,
-      39,    40,    42,    43,    54,    55,    56,    57,    58,    59,
-      60,    62,    63,    64,    67,    68,    69,    72,    73,    74,
-      75,    77,   160,   188,   189,   160,   267,   194,   249,     3,
-       3,   195,     5,    21,   238,   249,   163,    22,   162,   257,
-     220,     3,    22,    45,    88,    89,   175,   166,   174,   180,
-     180,     5,   221,     3,   205,   219,   162,   245,   205,   267,
-     219,   160,   160,   219,   245,     3,   217,    25,    80,   106,
-     108,   109,   110,   113,   114,   116,   117,   241,   242,   244,
-     180,     3,   227,   160,   161,   162,   160,   230,   238,   161,
-     162,   236,   249,   237,   245,     3,   288,   299,   307,   299,
-      44,   321,   322,   324,   249,   249,   356,   161,    21,   249,
-     343,   346,   347,   249,   249,   249,   249,   249,   249,   249,
-       5,   360,   162,   250,   257,   268,   349,   363,   364,     3,
-     351,    18,    21,    22,    23,   362,   360,   163,   163,     3,
-     163,   251,   251,   249,   163,   163,   163,   249,   249,   249,
-     249,   249,   249,   249,   249,   249,   249,   249,   249,   163,
-     251,   163,   251,   251,   251,   252,   366,   367,     3,     3,
-     126,     3,   251,   163,     3,     5,   249,   256,   249,   249,
-     249,   249,   249,   249,   249,   249,   249,   249,   249,   249,
-     249,   249,     5,    22,   249,   255,   249,     5,   249,     5,
-     249,   356,   272,   258,   263,   263,     3,   163,   245,   192,
-     163,     3,     3,   163,   162,   298,     5,     3,   373,   360,
-      21,    23,   162,   249,     3,   163,   163,   163,   163,     3,
-     373,     3,   163,     3,    22,     3,   163,   162,   160,   336,
-     238,   202,   207,   208,   253,   249,     3,   201,   160,   206,
-     202,   162,   162,   179,   305,   162,   182,   182,   249,   163,
-     222,   220,     4,    21,   246,   247,   248,   249,   220,   245,
-     245,   220,   218,   245,   162,     3,   131,   182,   160,   245,
-     230,     5,   238,   163,     3,   239,    21,   163,   245,    27,
-     160,   278,   279,   249,   285,   286,   287,   289,   292,   293,
-     282,    91,   115,   308,   309,   330,    83,   311,   312,   316,
-     112,   162,   326,   107,   322,   325,   172,   267,   161,   163,
-       3,   249,   163,   363,   254,   365,   365,   365,     3,   363,
-     360,   360,   360,   360,   360,   293,   249,   163,   163,   163,
-     163,   163,   163,   163,   163,   163,   163,   163,   163,   163,
-     163,   163,   163,   163,   163,   163,     3,     3,     3,   249,
-     367,   249,   367,   249,   367,   163,   252,   249,   249,   249,
-     249,   249,   257,     4,     4,   249,   264,   265,   266,   163,
-     163,   267,   133,   160,   249,    35,    82,    88,   284,   249,
-     249,   121,   371,   163,   249,   266,   168,   245,   355,   371,
-     163,   267,   188,   249,   194,    22,     3,    19,    20,    21,
-     167,   268,   163,   160,   368,    22,   249,   249,   305,    21,
-     160,   163,   184,   185,    26,   177,   205,   249,     3,   163,
-       4,   267,    21,   233,   233,   217,   134,   135,   136,   243,
-     242,   245,   233,   163,   238,   239,   160,   163,     4,   122,
-       3,    36,   290,   295,   172,   172,   160,   162,    84,   312,
-     313,   314,   317,   172,     4,   249,   327,   328,   329,   160,
-     160,   299,   337,   347,     3,   163,   254,   364,   160,   368,
-     368,   368,   163,   272,     4,   249,     4,     3,   271,   245,
-     163,   162,   162,   163,     3,     5,   163,   356,   163,   202,
-     207,   207,   207,   207,     5,   163,   163,   163,     3,   163,
-     162,   183,   247,   248,   249,   162,   234,   249,   163,   233,
-       5,   122,   274,   239,   238,   160,   166,   280,   281,   160,
-     279,   294,    37,    38,   296,   297,   172,   249,   160,    85,
-     312,   318,   172,   299,   329,     3,   163,     4,   245,   368,
-     365,   163,   163,   163,   163,   249,     4,   249,   265,     3,
-     294,   249,   249,   257,   338,   249,    22,    82,   185,   163,
-     184,    21,   274,   249,   249,   122,     3,   163,   160,   160,
-     172,   288,   163,   160,   299,   328,   329,   245,   163,   249,
-       4,   249,   163,   163,     3,     3,   202,   163,   163,   160,
-     281,   160,   288,    82,   249,   249,   249,    22,   160,     3,
-     249
+     195,   196,   216,   194,   194,     4,   146,     3,   206,   638,
+     439,   464,     5,     3,   459,     3,   194,   473,     4,   206,
+     613,   206,   464,     5,     3,   476,   573,   658,   501,   260,
+     612,   103,   191,   206,   206,   206,   103,   206,   582,   583,
+     206,   193,   694,   707,   707,     5,     5,   506,   421,     3,
+      22,   194,     3,     4,     3,     3,   352,   360,   507,    21,
+       3,   429,     3,   320,   319,   501,   545,   617,   618,   194,
+       3,     4,   194,     5,   146,   311,   312,   194,   194,   194,
+     508,   313,   345,   432,   194,   391,   719,   222,   223,   225,
+       5,   218,   501,   501,   501,   501,   501,   501,   501,   501,
+     501,   501,   501,   501,   501,   501,   501,     5,    22,   217,
+     501,   501,     5,   501,     5,   501,   191,   651,   664,   665,
+     666,   667,   668,   191,   664,   206,   441,   463,   462,   206,
+     470,   627,   463,   480,   206,   206,   206,   194,     3,   206,
+     206,   191,   206,   191,   206,   700,   206,   511,   263,     3,
+     501,   191,   351,   353,   507,     4,   352,   355,   357,     4,
+      21,   362,   511,     5,   194,   508,   313,   345,   349,   219,
+     231,   220,   227,   227,   227,   501,   501,   501,   501,   501,
+     649,     3,   206,   260,   206,   194,   206,   194,   194,   506,
+      22,     4,     3,   194,   506,   194,   193,     4,   228,   229,
+     230,   501,   194,   194,   194,   206,   666,   206,     3,   414,
+     511,     3,     4,   501,     3,     4,   443,   506,   194,   506,
+     501,     4,   229,   501,     3,   501,     4,   506,   501
 };
 
@@ -3644 +4034 @@
   switch (yyn)
     {
-        case 7:
-/* Line 1807 of yacc.c  */
-#line 319 "fortran.y"
+        case 6:
+/* Line 1807 of yacc.c  */
+#line 517 "fortran.y"
     {yyerrok;yyclearin;}
     break;
 
-  case 18:
-/* Line 1807 of yacc.c  */
-#line 337 "fortran.y"
+  case 7:
+/* Line 1807 of yacc.c  */
+#line 520 "fortran.y"
+    {token_since_endofstmt = 0; increment_nbtokens = 0;}
+    break;
+
+  case 16:
+/* Line 1807 of yacc.c  */
+#line 533 "fortran.y"
     {
             if (inmoduledeclare == 0 )
@@ -3662 +4058 @@
     break;
 
-  case 20:
-/* Line 1807 of yacc.c  */
-#line 347 "fortran.y"
+  case 18:
+/* Line 1807 of yacc.c  */
+#line 558 "fortran.y"
     { pos_cur = setposcur(); }
     break;
 
-  case 21:
-/* Line 1807 of yacc.c  */
-#line 350 "fortran.y"
-    { isrecursive = 0; }
-    break;
-
-  case 22:
-/* Line 1807 of yacc.c  */
-#line 351 "fortran.y"
-    { isrecursive = 1; }
-    break;
-
-  case 23:
-/* Line 1807 of yacc.c  */
-#line 354 "fortran.y"
-    { is_result_present = 0; }
-    break;
-
   case 24:
 /* Line 1807 of yacc.c  */
-#line 355 "fortran.y"
-    { is_result_present = 1; }
-    break;
-
-  case 25:
-/* Line 1807 of yacc.c  */
-#line 359 "fortran.y"
-    {
-            insubroutinedeclare = 1;
-            if ( firstpass )
-                Add_SubroutineArgument_Var_1((yyvsp[(4) - (4)].l));
-            else
-                WriteBeginof_SubLoop();
-        }
-    break;
-
-  case 26:
-/* Line 1807 of yacc.c  */
-#line 367 "fortran.y"
-    {
-            insubroutinedeclare = 1;
-            inprogramdeclare = 1;
-            /* in the second step we should write the head of       */
-            /*    the subroutine sub_loop_<subroutinename>          */
-            if ( ! firstpass )
-                WriteBeginof_SubLoop();
-        }
+#line 582 "fortran.y"
+    { Add_Include_1((yyvsp[(1) - (1)].na)); }
     break;
 
   case 27:
 /* Line 1807 of yacc.c  */
-#line 376 "fortran.y"
-    {
-            insubroutinedeclare = 1;
-            strcpy(DeclType, "");
-            /* we should to list of the subroutine argument the  */
-            /*    name of the function which has to be defined   */
-            if ( firstpass )
-            {
-                Add_SubroutineArgument_Var_1((yyvsp[(4) - (5)].l));
-                if ( ! is_result_present )
-                    Add_FunctionType_Var_1((yyvsp[(3) - (5)].na));
-            }
-            else
-            /* in the second step we should write the head of    */
-            /*    the subroutine sub_loop_<subroutinename>       */
-                WriteBeginof_SubLoop();
-        }
+#line 1102 "fortran.y"
+    { strcpy((yyval.na),(yyvsp[(1) - (1)].na)); }
     break;
 
   case 28:
 /* Line 1807 of yacc.c  */
-#line 393 "fortran.y"
-    {
-            GlobalDeclaration = 0;
-            strcpy(curmodulename,(yyvsp[(2) - (2)].na));
-            strcpy(subroutinename,"");
-            Add_NameOfModule_1((yyvsp[(2) - (2)].na));
-            if ( inmoduledeclare == 0 )
-            {
-                /* To know if there are in the module declaration    */
-                inmoduledeclare = 1;
-                /* to know if a module has been met                  */
-                inmodulemeet = 1;
-                /* to know if we are after the keyword contains      */
-                aftercontainsdeclare = 0 ;
-            }
-        }
+#line 1103 "fortran.y"
+    { strcpy((yyval.na),(yyvsp[(1) - (1)].na)); }
+    break;
+
+  case 29:
+/* Line 1807 of yacc.c  */
+#line 1104 "fortran.y"
+    { sprintf((yyval.na),"%s%s",(yyvsp[(1) - (2)].na),(yyvsp[(2) - (2)].na)); }
+    break;
+
+  case 30:
+/* Line 1807 of yacc.c  */
+#line 1105 "fortran.y"
+    { sprintf((yyval.na),"%s%s",(yyvsp[(1) - (2)].na),(yyvsp[(2) - (2)].na)); }
     break;
 
   case 31:
 /* Line 1807 of yacc.c  */
-#line 415 "fortran.y"
-    { strcpy((yyval.na), (yyvsp[(1) - (1)].na)); strcpy(subroutinename, (yyvsp[(1) - (1)].na)); }
+#line 1106 "fortran.y"
+    { sprintf((yyval.na),"%s%s",(yyvsp[(1) - (2)].na),(yyvsp[(2) - (2)].na)); }
     break;
 
   case 32:
 /* Line 1807 of yacc.c  */
-#line 417 "fortran.y"
-    { Add_Include_1((yyvsp[(1) - (1)].na)); }
+#line 1108 "fortran.y"
+    { strcpy((yyval.na),"+"); }
     break;
 
   case 33:
 /* Line 1807 of yacc.c  */
-#line 419 "fortran.y"
-    { if ( firstpass ) (yyval.l)=NULL; }
+#line 1109 "fortran.y"
+    { strcpy((yyval.na),"-"); }
     break;
 
   case 34:
 /* Line 1807 of yacc.c  */
-#line 420 "fortran.y"
-    { if ( firstpass ) (yyval.l)=NULL; }
+#line 1113 "fortran.y"
+    { sprintf((yyval.na),"+%s",(yyvsp[(2) - (2)].na)); }
     break;
 
   case 35:
 /* Line 1807 of yacc.c  */
-#line 421 "fortran.y"
-    { if ( firstpass ) (yyval.l)=(yyvsp[(2) - (3)].l); }
+#line 1114 "fortran.y"
+    { sprintf((yyval.na),"-%s",(yyvsp[(2) - (2)].na)); }
+    break;
+
+  case 36:
+/* Line 1807 of yacc.c  */
+#line 1115 "fortran.y"
+    { sprintf((yyval.na),"*%s",(yyvsp[(2) - (2)].na)); }
+    break;
+
+  case 37:
+/* Line 1807 of yacc.c  */
+#line 1116 "fortran.y"
+    { sprintf((yyval.na),"%s%s",(yyvsp[(1) - (2)].na),(yyvsp[(2) - (2)].na)); }
     break;
 
   case 38:
 /* Line 1807 of yacc.c  */
-#line 425 "fortran.y"
-    { if ( firstpass ) Add_SubroutineArgument_Var_1((yyvsp[(2) - (3)].l)); }
+#line 1117 "fortran.y"
+    { sprintf((yyval.na),"%s%s",(yyvsp[(1) - (2)].na),(yyvsp[(2) - (2)].na)); }
     break;
 
   case 39:
 /* Line 1807 of yacc.c  */
-#line 428 "fortran.y"
-    {
-            if ( firstpass == 1 )
-            {
-                strcpy(nameinttypenameback,nameinttypename);
-                strcpy(nameinttypename,"");
-                curvar = createvar((yyvsp[(1) - (1)].na),NULL);
-                strcpy(nameinttypename,nameinttypenameback);
-                curlistvar = insertvar(NULL,curvar);
-                (yyval.l) = settype("",curlistvar);
-            }
-        }
+#line 1118 "fortran.y"
+    { sprintf((yyval.na),"%s%s",(yyvsp[(1) - (2)].na),(yyvsp[(2) - (2)].na)); }
     break;
 
   case 40:
 /* Line 1807 of yacc.c  */
-#line 440 "fortran.y"
-    {
-            if ( firstpass == 1 )
-            {
-                strcpy(nameinttypenameback,nameinttypename);
-                strcpy(nameinttypename,"");
-                curvar = createvar((yyvsp[(3) - (3)].na),NULL);
-                strcpy(nameinttypename,nameinttypenameback);
-                (yyval.l) = insertvar((yyvsp[(1) - (3)].l),curvar);
-            }
-        }
+#line 1119 "fortran.y"
+    { sprintf((yyval.na),"%s%s",(yyvsp[(1) - (2)].na),(yyvsp[(2) - (2)].na)); }
     break;
 
   case 41:
 /* Line 1807 of yacc.c  */
-#line 451 "fortran.y"
-    { strcpy((yyval.na),(yyvsp[(1) - (1)].na));  }
+#line 1120 "fortran.y"
+    { sprintf((yyval.na)," > %s",(yyvsp[(2) - (2)].na)); }
     break;
 
   case 42:
 /* Line 1807 of yacc.c  */
-#line 452 "fortran.y"
-    { strcpy((yyval.na),"*"); }
+#line 1121 "fortran.y"
+    { sprintf((yyval.na)," < %s",(yyvsp[(2) - (2)].na)); }
+    break;
+
+  case 43:
+/* Line 1807 of yacc.c  */
+#line 1122 "fortran.y"
+    { sprintf((yyval.na)," >= %s",(yyvsp[(3) - (3)].na)); }
     break;
 
   case 44:
 /* Line 1807 of yacc.c  */
-#line 455 "fortran.y"
-    { inside_type_declare = 1; }
+#line 1123 "fortran.y"
+    { sprintf((yyval.na)," <= %s",(yyvsp[(3) - (3)].na)); }
     break;
 
   case 45:
 /* Line 1807 of yacc.c  */
-#line 456 "fortran.y"
-    { inside_type_declare = 0; }
+#line 1124 "fortran.y"
+    { sprintf((yyval.na),"%s%s",(yyvsp[(1) - (2)].na),(yyvsp[(2) - (2)].na)); }
+    break;
+
+  case 46:
+/* Line 1807 of yacc.c  */
+#line 1125 "fortran.y"
+    { sprintf((yyval.na),"%s%s",(yyvsp[(1) - (2)].na),(yyvsp[(2) - (2)].na)); }
     break;
 
   case 47:
 /* Line 1807 of yacc.c  */
-#line 459 "fortran.y"
-    {
-            if ( ! inside_type_declare )
-            {
-                if ( firstpass )
-                {
-                    if ( insubroutinedeclare )  Add_Parameter_Var_1((yyvsp[(3) - (4)].l));
-                    else                        Add_GlobalParameter_Var_1((yyvsp[(3) - (4)].l));
-                }
-                else
-                {
-                    pos_end = setposcur();
-                    RemoveWordSET_0(fortran_out, pos_cur_decl, pos_end-pos_cur_decl);
-                }
-            }
-            VariableIsParameter =  0 ;
-        }
+#line 1126 "fortran.y"
+    { sprintf((yyval.na),"%s%s",(yyvsp[(1) - (2)].na),(yyvsp[(2) - (2)].na)); }
     break;
 
   case 48:
 /* Line 1807 of yacc.c  */
-#line 476 "fortran.y"
-    {
-            if ( ! inside_type_declare )
-            {
-                if ( firstpass )
-                {
-                    if ( insubroutinedeclare )  Add_Parameter_Var_1((yyvsp[(2) - (2)].l));
-                    else                        Add_GlobalParameter_Var_1((yyvsp[(2) - (2)].l));
-                }
-                else
-                {
-                    pos_end = setposcur();
-                    RemoveWordSET_0(fortran_out,pos_cur_decl,pos_end-pos_cur_decl);
-                }
-            }
-            VariableIsParameter =  0 ;
-        }
+#line 1127 "fortran.y"
+    { sprintf((yyval.na),"%s%s",(yyvsp[(1) - (2)].na),(yyvsp[(2) - (2)].na)); }
+    break;
+
+  case 49:
+/* Line 1807 of yacc.c  */
+#line 1128 "fortran.y"
+    { sprintf((yyval.na),"%s%s",(yyvsp[(1) - (2)].na),(yyvsp[(2) - (2)].na)); }
     break;
 
   case 50:
 /* Line 1807 of yacc.c  */
-#line 494 "fortran.y"
-    {
-            pos_end = setposcur();
-            RemoveWordSET_0(fortran_out,pos_cursave,pos_end-pos_cursave);
-        }
+#line 1129 "fortran.y"
+    { sprintf((yyval.na),"%s%s",(yyvsp[(1) - (2)].na),(yyvsp[(2) - (2)].na)); }
+    break;
+
+  case 51:
+/* Line 1807 of yacc.c  */
+#line 1130 "fortran.y"
+    { sprintf((yyval.na),"%s%s",(yyvsp[(1) - (2)].na),(yyvsp[(2) - (2)].na)); }
     break;
 
   case 52:
 /* Line 1807 of yacc.c  */
-#line 500 "fortran.y"
-    {
-            /* if the variable is a parameter we can suppose that is   */
-            /*    value is the same on each grid. It is not useless to */
-            /*    create a copy of it on each grid                     */
-            if ( ! inside_type_declare )
-            {
-                if ( firstpass )
-                {
-                    Add_Globliste_1((yyvsp[(1) - (1)].l));
-                    /* if variableparamlists has been declared in a subroutine   */
-                    if ( insubroutinedeclare )     Add_Dimension_Var_1((yyvsp[(1) - (1)].l));
-                }
-                else
-                {
-                    pos_end = setposcur();
-                    RemoveWordSET_0(fortran_out,pos_curdimension,pos_end-pos_curdimension);
-                }
-            }
-            PublicDeclare = 0;
-            PrivateDeclare = 0;
-            ExternalDeclare = 0;
-            strcpy(NamePrecision,"");
-            c_star = 0;
-            InitialValueGiven = 0 ;
-            strcpy(IntentSpec,"");
-            VariableIsParameter =  0 ;
-            Allocatabledeclare = 0 ;
-            Targetdeclare = 0 ;
-            SaveDeclare = 0;
-            pointerdeclare = 0;
-            optionaldeclare = 0 ;
-            dimsgiven=0;
-            c_selectorgiven=0;
-            strcpy(nameinttypename,"");
-            strcpy(c_selectorname,"");
-        }
+#line 1131 "fortran.y"
+    { sprintf((yyval.na),"%s%s",(yyvsp[(1) - (2)].na),(yyvsp[(2) - (2)].na)); }
     break;
 
   case 53:
 /* Line 1807 of yacc.c  */
-#line 537 "fortran.y"
-    {
-            if (firstpass == 0)
-            {
-                if ((yyvsp[(1) - (1)].lnn))
-                {
-                    removeglobfromlist(&((yyvsp[(1) - (1)].lnn)));
-                    pos_end = setposcur();
-                    RemoveWordSET_0(fortran_out,pos_cur,pos_end-pos_cur);
-                    writelistpublic((yyvsp[(1) - (1)].lnn));
-                }
-            }
-        }
+#line 1132 "fortran.y"
+    { sprintf((yyval.na),"%s",(yyvsp[(2) - (2)].na)); }
+    break;
+
+  case 54:
+/* Line 1807 of yacc.c  */
+#line 1133 "fortran.y"
+    { sprintf((yyval.na),"%s",(yyvsp[(2) - (2)].na)); }
+    break;
+
+  case 55:
+/* Line 1807 of yacc.c  */
+#line 1135 "fortran.y"
+    { strcpy((yyval.na),""); }
+    break;
+
+  case 56:
+/* Line 1807 of yacc.c  */
+#line 1136 "fortran.y"
+    { sprintf((yyval.na),"/%s",(yyvsp[(1) - (1)].na)); }
+    break;
+
+  case 57:
+/* Line 1807 of yacc.c  */
+#line 1137 "fortran.y"
+    { sprintf((yyval.na),"/= %s",(yyvsp[(2) - (2)].na));}
+    break;
+
+  case 58:
+/* Line 1807 of yacc.c  */
+#line 1138 "fortran.y"
+    { sprintf((yyval.na),"//%s",(yyvsp[(2) - (2)].na)); }
+    break;
+
+  case 59:
+/* Line 1807 of yacc.c  */
+#line 1141 "fortran.y"
+    { sprintf((yyval.na),"==%s",(yyvsp[(2) - (2)].na)); }
+    break;
+
+  case 60:
+/* Line 1807 of yacc.c  */
+#line 1142 "fortran.y"
+    { sprintf((yyval.na),"= %s",(yyvsp[(1) - (1)].na)); }
+    break;
+
+  case 61:
+/* Line 1807 of yacc.c  */
+#line 1145 "fortran.y"
+    { strcpy((yyval.na),(yyvsp[(1) - (1)].na)); }
     break;
 
   case 62:
 /* Line 1807 of yacc.c  */
-#line 558 "fortran.y"
-    {
-            /* we should remove the data declaration                */
-            pos_end = setposcur();
-            RemoveWordSET_0(fortran_out,pos_curdata,pos_end-pos_curdata);
-
-            if ( aftercontainsdeclare == 1  && firstpass == 0 )
-            {
-                ReWriteDataStatement_0(fortran_out);
-                pos_end = setposcur();
-            }
-        }
+#line 1146 "fortran.y"
+    { strcpy((yyval.na),(yyvsp[(1) - (1)].na)); }
+    break;
+
+  case 63:
+/* Line 1807 of yacc.c  */
+#line 1147 "fortran.y"
+    { strcpy((yyval.na),(yyvsp[(1) - (1)].na)); }
     break;
 
   case 64:
 /* Line 1807 of yacc.c  */
-#line 572 "fortran.y"
-    {
-            PublicDeclare = 0 ;
-            PrivateDeclare = 0 ;
-        }
-    break;
-
-  case 102:
-/* Line 1807 of yacc.c  */
-#line 630 "fortran.y"
-    {
-            /* if the variable is a parameter we can suppose that is*/
-            /*    value is the same on each grid. It is not useless */
-            /*    to create a copy of it on each grid               */
-            if ( ! inside_type_declare )
-            {
-                pos_end = setposcur();
-                RemoveWordSET_0(fortran_out,pos_cur_decl,pos_end-pos_cur_decl);
-                ReWriteDeclarationAndAddTosubroutine_01((yyvsp[(1) - (2)].l));
-                pos_cur_decl = setposcur();
-                if ( firstpass == 0 && GlobalDeclaration == 0
-                                    && insubroutinedeclare == 0 )
-                {
-                    fprintf(fortran_out,"\n#include \"Module_Declar_%s.h\"\n", curmodulename);
-                    sprintf(ligne, "Module_Declar_%s.h", curmodulename);
-                    module_declar = open_for_write(ligne);
-                    GlobalDeclaration = 1 ;
-                    pos_cur_decl = setposcur();
-                }
-                (yyval.l) = (yyvsp[(1) - (2)].l);
-
-                if ( firstpass )
-                {
-                    Add_Globliste_1((yyvsp[(1) - (2)].l));
-                    if ( insubroutinedeclare )
-                    {
-                        if ( pointerdeclare ) Add_Pointer_Var_From_List_1((yyvsp[(1) - (2)].l));
-                        Add_Parameter_Var_1((yyvsp[(1) - (2)].l));
-                    }
-                    else
-                        Add_GlobalParameter_Var_1((yyvsp[(1) - (2)].l));
-
-                    /* If there's a SAVE declaration in module's subroutines we should    */
-                    /*    remove it from the subroutines declaration and add it in the    */
-                    /*    global declarations                                             */
-                    if ( aftercontainsdeclare && SaveDeclare )
-                    {
-                        if ( inmodulemeet ) Add_SubroutineDeclarationSave_Var_1((yyvsp[(1) - (2)].l));
-                        else                Add_Save_Var_dcl_1((yyvsp[(1) - (2)].l));
-                    }
-                }
-            }
-            else
-            {
-                (yyval.l) = (listvar *) NULL;
-            }
-            PublicDeclare = 0;
-            PrivateDeclare = 0;
-            ExternalDeclare = 0;
-            strcpy(NamePrecision,"");
-            c_star = 0;
-            InitialValueGiven = 0 ;
-            strcpy(IntentSpec,"");
-            VariableIsParameter =  0 ;
-            Allocatabledeclare = 0 ;
-            Targetdeclare = 0 ;
-            SaveDeclare = 0;
-            pointerdeclare = 0;
-            optionaldeclare = 0 ;
-            dimsgiven=0;
-            c_selectorgiven=0;
-            strcpy(nameinttypename,"");
-            strcpy(c_selectorname,"");
-            GlobalDeclarationType = 0;
-        }
-    break;
-
-  case 103:
-/* Line 1807 of yacc.c  */
-#line 696 "fortran.y"
-    {
-            insubroutinedeclare = 1;
-
-            if ( firstpass )
-            {
-                Add_SubroutineArgument_Var_1((yyvsp[(3) - (3)].l));
-                Add_FunctionType_Var_1((yyvsp[(2) - (3)].na));
-            }
-            else
-                WriteBeginof_SubLoop();
-
-            strcpy(nameinttypename,"");
-        }
-    break;
-
-  case 104:
-/* Line 1807 of yacc.c  */
-#line 710 "fortran.y"
-    { functiondeclarationisdone = 1; }
-    break;
-
-  case 105:
-/* Line 1807 of yacc.c  */
-#line 712 "fortran.y"
-    { VariableIsParameter = 1; pos_curparameter = setposcur()-9; }
-    break;
-
-  case 109:
-/* Line 1807 of yacc.c  */
-#line 724 "fortran.y"
-    {
-            createstringfromlistname(ligne,(yyvsp[(3) - (4)].lnn));
-            if (firstpass == 1) Add_Data_Var_1(&List_Data_Var,(yyvsp[(1) - (4)].na),ligne);
-            else                Add_Data_Var_1(&List_Data_Var_Cur,(yyvsp[(1) - (4)].na),ligne);
-        }
-    break;
-
-  case 110:
-/* Line 1807 of yacc.c  */
-#line 730 "fortran.y"
-    {
-            if (firstpass == 1)  Add_Data_Var_Names_01(&List_Data_Var,(yyvsp[(1) - (4)].lnn),(yyvsp[(3) - (4)].lnn));
-            else                 Add_Data_Var_Names_01(&List_Data_Var_Cur,(yyvsp[(1) - (4)].lnn),(yyvsp[(3) - (4)].lnn));
-        }
-    break;
-
-  case 111:
-/* Line 1807 of yacc.c  */
-#line 735 "fortran.y"
-    {
-            createstringfromlistname(ligne,(yyvsp[(7) - (8)].lnn));
-            printf("###################################################################################################################\n");
-            printf("## CONV Error : data_implied_do statements (R537) are not yet supported. Please complain to the proper authorities.\n");
-            printf("l.%4d -- data_stmt_set : ( lhs , dospec ) /data_stmt_value_list/ -- lhs=|%s| dospec=|%s| data_stmt_value_list=|%s|\n",
-                line_num_input,(yyvsp[(2) - (8)].na),(yyvsp[(4) - (8)].na),ligne);
-            printf("## But, are you SURE you NEED a DATA construct ?\n");
-            printf("###################################################################################################################\n");
-            exit(1);
-        }
-    break;
-
-  case 112:
-/* Line 1807 of yacc.c  */
-#line 748 "fortran.y"
-    { (yyval.lnn) = Insertname(NULL,(yyvsp[(1) - (1)].na),0); }
-    break;
-
-  case 113:
-/* Line 1807 of yacc.c  */
-#line 749 "fortran.y"
-    { (yyval.lnn) = Insertname((yyvsp[(3) - (3)].lnn),(yyvsp[(1) - (3)].na),1);   }
-    break;
-
-  case 118:
-/* Line 1807 of yacc.c  */
-#line 758 "fortran.y"
-    { pos_cursave = setposcur()-4; }
-    break;
-
-  case 120:
-/* Line 1807 of yacc.c  */
-#line 761 "fortran.y"
-    { if ( ! inside_type_declare ) Add_Save_Var_1((yyvsp[(1) - (2)].na),(yyvsp[(2) - (2)].d)); }
-    break;
-
-  case 121:
-/* Line 1807 of yacc.c  */
-#line 764 "fortran.y"
-    { (yyval.lnn) = Insertname(NULL,(yyvsp[(1) - (1)].na),0); }
-    break;
-
-  case 122:
-/* Line 1807 of yacc.c  */
-#line 765 "fortran.y"
-    { printf("l.%4d -- INSTRUCTION NON TRAITEE : INITIALISATION DE DATA AVEC EXPRESSION\n",line_num_input); exit(0); }
-    break;
-
-  case 123:
-/* Line 1807 of yacc.c  */
-#line 766 "fortran.y"
-    { (yyval.lnn) = concat_listname((yyvsp[(1) - (3)].lnn),(yyvsp[(3) - (3)].lnn)); }
-    break;
-
-  case 124:
-/* Line 1807 of yacc.c  */
-#line 769 "fortran.y"
-    { sprintf((yyval.na),"%s%s",(yyvsp[(1) - (2)].na),(yyvsp[(2) - (2)].na));  }
-    break;
-
-  case 125:
-/* Line 1807 of yacc.c  */
-#line 770 "fortran.y"
-    { sprintf((yyval.na),"%s+%s",(yyvsp[(1) - (3)].na),(yyvsp[(3) - (3)].na)); }
-    break;
-
-  case 126:
-/* Line 1807 of yacc.c  */
-#line 771 "fortran.y"
-    { sprintf((yyval.na),"%s-%s",(yyvsp[(1) - (3)].na),(yyvsp[(3) - (3)].na)); }
-    break;
-
-  case 127:
-/* Line 1807 of yacc.c  */
-#line 772 "fortran.y"
-    { sprintf((yyval.na),"%s*%s",(yyvsp[(1) - (3)].na),(yyvsp[(3) - (3)].na)); }
-    break;
-
-  case 128:
-/* Line 1807 of yacc.c  */
-#line 773 "fortran.y"
-    { sprintf((yyval.na),"%s/%s",(yyvsp[(1) - (3)].na),(yyvsp[(3) - (3)].na)); }
-    break;
-
-  case 129:
-/* Line 1807 of yacc.c  */
-#line 775 "fortran.y"
-    { strcpy((yyval.na),""); }
-    break;
-
-  case 130:
-/* Line 1807 of yacc.c  */
-#line 776 "fortran.y"
-    { strcpy((yyval.na),(yyvsp[(1) - (1)].na)); }
-    break;
-
-  case 135:
-/* Line 1807 of yacc.c  */
-#line 786 "fortran.y"
-    {
-            positioninblock = 0;
-            pos_curdimension = setposcur()-9;
-        }
-    break;
-
-  case 136:
-/* Line 1807 of yacc.c  */
-#line 793 "fortran.y"
-    {
-            printf("l.%4d -- dimension : before_dimension opt_comma TOK_NAME = |%s| -- MHCHECK\n",line_num_input,(yyvsp[(3) - (5)].na));
-            if ( inside_type_declare ) break;
-            curvar = createvar((yyvsp[(3) - (5)].na),(yyvsp[(4) - (5)].d));
-            CreateAndFillin_Curvar("", curvar);
-            curlistvar=insertvar(NULL, curvar);
-            (yyval.l) = settype("",curlistvar);
-            strcpy(vallengspec,"");
-        }
-    break;
-
-  case 137:
-/* Line 1807 of yacc.c  */
-#line 803 "fortran.y"
-    {
-            printf("l.%4d -- dimension : dimension ',' TOK_NAME dims lengspec = |%s| -- MHCHECK\n",line_num_input,(yyvsp[(3) - (5)].na));
-            if ( inside_type_declare ) break;
-            curvar = createvar((yyvsp[(3) - (5)].na),(yyvsp[(4) - (5)].d));
-            CreateAndFillin_Curvar("", curvar);
-            curlistvar = insertvar((yyvsp[(1) - (5)].l), curvar);
-            (yyval.l) = curlistvar;
-            strcpy(vallengspec,"");
-        }
-    break;
-
-  case 140:
-/* Line 1807 of yacc.c  */
-#line 818 "fortran.y"
-    { (yyval.lnn) = (listname *) NULL; }
-    break;
-
-  case 141:
-/* Line 1807 of yacc.c  */
-#line 819 "fortran.y"
-    { (yyval.lnn) = (yyvsp[(3) - (3)].lnn); }
-    break;
-
-  case 142:
-/* Line 1807 of yacc.c  */
-#line 822 "fortran.y"
-    { (yyval.lnn) = Insertname(NULL,(yyvsp[(1) - (1)].na),0); }
-    break;
-
-  case 143:
-/* Line 1807 of yacc.c  */
-#line 823 "fortran.y"
-    { (yyval.lnn) = Insertname(NULL,(yyvsp[(1) - (1)].na),0); }
-    break;
-
-  case 144:
-/* Line 1807 of yacc.c  */
-#line 824 "fortran.y"
-    { (yyval.lnn) = Insertname((yyvsp[(1) - (3)].lnn),(yyvsp[(3) - (3)].na),0);   }
-    break;
-
-  case 145:
-/* Line 1807 of yacc.c  */
-#line 825 "fortran.y"
-    { (yyval.lnn) = Insertname((yyvsp[(1) - (3)].lnn),(yyvsp[(3) - (3)].na),0);   }
-    break;
-
-  case 146:
-/* Line 1807 of yacc.c  */
-#line 829 "fortran.y"
-    {
-            if ( inside_type_declare ) break;
-            pos_end = setposcur();
-            RemoveWordSET_0(fortran_out,pos_curcommon,pos_end-pos_curcommon);
-        }
-    break;
-
-  case 147:
-/* Line 1807 of yacc.c  */
-#line 835 "fortran.y"
-    {
-            if ( inside_type_declare ) break;
-            sprintf(charusemodule,"%s",(yyvsp[(2) - (3)].na));
-            Add_NameOfCommon_1((yyvsp[(2) - (3)].na),subroutinename);
-            pos_end = setposcur();
-            RemoveWordSET_0(fortran_out,pos_curcommon,pos_end-pos_curcommon);
-        }
-    break;
-
-  case 148:
-/* Line 1807 of yacc.c  */
-#line 843 "fortran.y"
-    {
-            if ( inside_type_declare ) break;
-            sprintf(charusemodule,"%s",(yyvsp[(3) - (5)].na));
-            Add_NameOfCommon_1((yyvsp[(3) - (5)].na),subroutinename);
-            pos_end = setposcur();
-            RemoveWordSET_0(fortran_out,pos_curcommon,pos_end-pos_curcommon);
-        }
-    break;
-
-  case 149:
-/* Line 1807 of yacc.c  */
-#line 852 "fortran.y"
-    { positioninblock = 0; pos_curcommon = setposcur()-6;   }
-    break;
-
-  case 150:
-/* Line 1807 of yacc.c  */
-#line 853 "fortran.y"
-    { positioninblock = 0; pos_curcommon = setposcur()-6-7; }
-    break;
-
-  case 151:
-/* Line 1807 of yacc.c  */
-#line 856 "fortran.y"
-    { if ( ! inside_type_declare ) Add_Common_var_1(); }
-    break;
-
-  case 152:
-/* Line 1807 of yacc.c  */
-#line 857 "fortran.y"
-    { if ( ! inside_type_declare ) Add_Common_var_1(); }
-    break;
-
-  case 153:
-/* Line 1807 of yacc.c  */
-#line 861 "fortran.y"
-    {
-            positioninblock = positioninblock + 1 ;
-            strcpy(commonvar,(yyvsp[(1) - (2)].na));
-            commondim = (yyvsp[(2) - (2)].d);
-        }
-    break;
-
-  case 154:
-/* Line 1807 of yacc.c  */
-#line 869 "fortran.y"
-    {
-            strcpy((yyval.na),"");
-            positioninblock=0;
-            strcpy(commonblockname,"");
-        }
-    break;
-
-  case 155:
-/* Line 1807 of yacc.c  */
-#line 875 "fortran.y"
-    {
-            strcpy((yyval.na),(yyvsp[(2) - (3)].na));
-            positioninblock=0;
-            strcpy(commonblockname,(yyvsp[(2) - (3)].na));
-        }
-    break;
-
-  case 158:
-/* Line 1807 of yacc.c  */
-#line 885 "fortran.y"
-    { (yyval.l)=insertvar(NULL,(yyvsp[(1) - (1)].v)); }
-    break;
-
-  case 159:
-/* Line 1807 of yacc.c  */
-#line 886 "fortran.y"
-    { (yyval.l)=insertvar((yyvsp[(1) - (3)].l),(yyvsp[(3) - (3)].v));   }
-    break;
-
-  case 160:
-/* Line 1807 of yacc.c  */
-#line 890 "fortran.y"
-    {
-            if ( inside_type_declare ) break;
-            curvar=(variable *) calloc(1,sizeof(variable));
-            Init_Variable(curvar);
-            curvar->v_VariableIsParameter = 1;
-            strcpy(curvar->v_nomvar,(yyvsp[(1) - (3)].na));
-            strcpy(curvar->v_subroutinename,subroutinename);
-            strcpy(curvar->v_modulename,curmodulename);
-            strcpy(curvar->v_initialvalue,(yyvsp[(3) - (3)].na));
-            strcpy(curvar->v_commoninfile,cur_filename);
-            Save_Length((yyvsp[(3) - (3)].na),14);
-            (yyval.v) = curvar;
-        }
-    break;
-
-  case 164:
-/* Line 1807 of yacc.c  */
-#line 913 "fortran.y"
-    {
-            if ( insubroutinedeclare == 1 )
-            {
-                Add_ImplicitNoneSubroutine_1();
-                pos_end = setposcur();
-                RemoveWordSET_0(fortran_out,pos_end-13,13);
-            }
-        }
-    break;
-
-  case 166:
-/* Line 1807 of yacc.c  */
-#line 924 "fortran.y"
-    {
-            if ( ! inside_type_declare )
-            {
-                if (dimsgiven == 1) curvar = createvar((yyvsp[(2) - (5)].na),curdim);
-                else                curvar = createvar((yyvsp[(2) - (5)].na),(yyvsp[(3) - (5)].d));
-                CreateAndFillin_Curvar(DeclType, curvar);
-                curlistvar = insertvar(NULL, curvar);
-                if (!strcasecmp(DeclType,"character"))
-                {
-                    if (c_selectorgiven == 1)
-                    {
-                        strcpy(c_selectordim.first,"1");
-                        strcpy(c_selectordim.last,c_selectorname);
-                        Save_Length(c_selectorname,1);
-                        change_dim_char(insertdim(NULL,c_selectordim),curlistvar);
-                    }
-                }
-                (yyval.l)=settype(DeclType,curlistvar);
-            }
-            strcpy(vallengspec,"");
-        }
-    break;
-
-  case 167:
-/* Line 1807 of yacc.c  */
-#line 946 "fortran.y"
-    {
-            if ( ! inside_type_declare )
-            {
-                if (dimsgiven == 1) curvar = createvar((yyvsp[(3) - (6)].na), curdim);
-                else                curvar = createvar((yyvsp[(3) - (6)].na), (yyvsp[(4) - (6)].d));
-                CreateAndFillin_Curvar((yyvsp[(1) - (6)].l)->var->v_typevar,curvar);
-                strcpy(curvar->v_typevar, (yyvsp[(1) - (6)].l)->var->v_typevar);
-                curvar->v_catvar = get_cat_var(curvar);
-                curlistvar = insertvar((yyvsp[(1) - (6)].l), curvar);
-                if (!strcasecmp(DeclType,"character"))
-                {
-                    if (c_selectorgiven == 1)
-                    {
-                        strcpy(c_selectordim.first,"1");
-                        strcpy(c_selectordim.last,c_selectorname);
-                        Save_Length(c_selectorname,1);
-                        change_dim_char(insertdim(NULL,c_selectordim),curlistvar);
-                    }
-                }
-                (yyval.l)=curlistvar;
-            }
-            strcpy(vallengspec,"");
-        }
-    break;
-
-  case 168:
-/* Line 1807 of yacc.c  */
-#line 970 "fortran.y"
-    { dimsgiven = 0; }
-    break;
-
-  case 169:
-/* Line 1807 of yacc.c  */
-#line 972 "fortran.y"
-    { strcpy(DeclType,(yyvsp[(1) - (2)].na));  }
-    break;
-
-  case 170:
-/* Line 1807 of yacc.c  */
-#line 973 "fortran.y"
-    { strcpy(DeclType,"character");  }
-    break;
-
-  case 171:
-/* Line 1807 of yacc.c  */
-#line 974 "fortran.y"
-    { strcpy(DeclType,(yyvsp[(1) - (3)].na)); strcpy(nameinttypename,(yyvsp[(3) - (3)].na));  }
-    break;
-
-  case 172:
-/* Line 1807 of yacc.c  */
-#line 975 "fortran.y"
-    { strcpy(DeclType,"type"); GlobalDeclarationType = 1;  }
-    break;
-
-  case 174:
-/* Line 1807 of yacc.c  */
-#line 978 "fortran.y"
-    { c_selectorgiven = 1; strcpy(c_selectorname,(yyvsp[(2) - (2)].na)); }
-    break;
-
-  case 175:
-/* Line 1807 of yacc.c  */
-#line 979 "fortran.y"
-    { c_star = 1;}
-    break;
-
-  case 180:
-/* Line 1807 of yacc.c  */
-#line 987 "fortran.y"
-    { pos_cur_decl = setposcur()-9; }
-    break;
-
-  case 181:
-/* Line 1807 of yacc.c  */
-#line 990 "fortran.y"
-    { strcpy((yyval.na),"integer"); pos_cur_decl = setposcur()-7; }
-    break;
-
-  case 182:
-/* Line 1807 of yacc.c  */
-#line 991 "fortran.y"
-    { strcpy((yyval.na),"logical"); pos_cur_decl = setposcur()-7; }
-    break;
-
-  case 183:
-/* Line 1807 of yacc.c  */
-#line 992 "fortran.y"
-    { strcpy((yyval.na),"real");    pos_cur_decl = setposcur()-4; }
-    break;
-
-  case 184:
-/* Line 1807 of yacc.c  */
-#line 993 "fortran.y"
-    { strcpy((yyval.na),"complex"); pos_cur_decl = setposcur()-7; }
-    break;
-
-  case 185:
-/* Line 1807 of yacc.c  */
-#line 994 "fortran.y"
-    { strcpy((yyval.na),"double complex"); pos_cur_decl = setposcur()-14; }
-    break;
-
-  case 186:
-/* Line 1807 of yacc.c  */
-#line 995 "fortran.y"
-    { pos_cur_decl = setposcur()-16; strcpy((yyval.na),"real"); strcpy(nameinttypename,"8"); }
-    break;
-
-  case 188:
-/* Line 1807 of yacc.c  */
-#line 998 "fortran.y"
-    {strcpy(vallengspec,(yyvsp[(2) - (2)].na));}
-    break;
-
-  case 189:
-/* Line 1807 of yacc.c  */
-#line 1001 "fortran.y"
-    { sprintf((yyval.na),"*%s",(yyvsp[(1) - (1)].na)); }
-    break;
-
-  case 190:
-/* Line 1807 of yacc.c  */
-#line 1002 "fortran.y"
-    { strcpy((yyval.na),"*(*)"); }
-    break;
-
-  case 197:
-/* Line 1807 of yacc.c  */
-#line 1014 "fortran.y"
-    {
-            if ( strstr((yyvsp[(3) - (3)].na),"0.d0") )
-            {
-                strcpy(nameinttypename,"8");
-                strcpy(NamePrecision,"");
-            }
-            else
-                sprintf(NamePrecision,"%s = %s",(yyvsp[(1) - (3)].na),(yyvsp[(3) - (3)].na));
-        }
-    break;
-
-  case 198:
-/* Line 1807 of yacc.c  */
-#line 1023 "fortran.y"
-    { strcpy(NamePrecision,(yyvsp[(1) - (1)].na)); }
-    break;
-
-  case 199:
-/* Line 1807 of yacc.c  */
-#line 1024 "fortran.y"
-    { strcpy(NamePrecision,(yyvsp[(1) - (1)].na)); }
-    break;
-
-  case 200:
-/* Line 1807 of yacc.c  */
-#line 1025 "fortran.y"
-    { strcpy(NamePrecision,(yyvsp[(1) - (1)].na)); }
-    break;
-
-  case 201:
-/* Line 1807 of yacc.c  */
-#line 1028 "fortran.y"
-    { strcpy(CharacterSize,(yyvsp[(1) - (1)].na));  strcpy((yyval.na),(yyvsp[(1) - (1)].na));  }
-    break;
-
-  case 202:
-/* Line 1807 of yacc.c  */
-#line 1029 "fortran.y"
-    { strcpy(CharacterSize,"*"); strcpy((yyval.na),"*"); }
-    break;
-
-  case 210:
-/* Line 1807 of yacc.c  */
-#line 1042 "fortran.y"
-    { VariableIsParameter = 1; }
-    break;
-
-  case 212:
-/* Line 1807 of yacc.c  */
-#line 1044 "fortran.y"
-    { Allocatabledeclare = 1; }
-    break;
-
-  case 213:
-/* Line 1807 of yacc.c  */
-#line 1045 "fortran.y"
-    { dimsgiven = 1; curdim = (yyvsp[(2) - (2)].d); }
-    break;
-
-  case 214:
-/* Line 1807 of yacc.c  */
-#line 1046 "fortran.y"
-    { ExternalDeclare = 1; }
-    break;
-
-  case 215:
-/* Line 1807 of yacc.c  */
-#line 1048 "fortran.y"
-    { strcpy(IntentSpec,(yyvsp[(3) - (4)].na)); }
-    break;
-
-  case 217:
-/* Line 1807 of yacc.c  */
-#line 1050 "fortran.y"
-    { optionaldeclare = 1 ; }
-    break;
-
-  case 218:
-/* Line 1807 of yacc.c  */
-#line 1051 "fortran.y"
-    { pointerdeclare = 1 ; }
-    break;
-
-  case 219:
-/* Line 1807 of yacc.c  */
-#line 1052 "fortran.y"
-    { SaveDeclare = 1 ; }
-    break;
-
-  case 220:
-/* Line 1807 of yacc.c  */
-#line 1053 "fortran.y"
-    { Targetdeclare = 1; }
-    break;
-
-  case 221:
-/* Line 1807 of yacc.c  */
-#line 1056 "fortran.y"
-    { strcpy((yyval.na),(yyvsp[(1) - (1)].na)); }
-    break;
-
-  case 222:
-/* Line 1807 of yacc.c  */
-#line 1057 "fortran.y"
-    { strcpy((yyval.na),(yyvsp[(1) - (1)].na)); }
-    break;
-
-  case 223:
-/* Line 1807 of yacc.c  */
-#line 1058 "fortran.y"
-    { strcpy((yyval.na),(yyvsp[(1) - (1)].na)); }
-    break;
-
-  case 224:
-/* Line 1807 of yacc.c  */
-#line 1061 "fortran.y"
-    { PublicDeclare = 1;  }
-    break;
-
-  case 225:
-/* Line 1807 of yacc.c  */
-#line 1062 "fortran.y"
-    { PrivateDeclare = 1; }
-    break;
-
-  case 226:
-/* Line 1807 of yacc.c  */
-#line 1064 "fortran.y"
-    { (yyval.d) = (listdim*) NULL; }
-    break;
-
-  case 227:
-/* Line 1807 of yacc.c  */
-#line 1066 "fortran.y"
-    {
-            (yyval.d) = (listdim*) NULL;
-            if ( inside_type_declare ) break;
-            if ( created_dimensionlist == 1 || agrif_parentcall == 1 )  (yyval.d)=(yyvsp[(2) - (3)].d);
-        }
-    break;
-
-  case 228:
-/* Line 1807 of yacc.c  */
-#line 1074 "fortran.y"
-    {
-            (yyval.d) = (listdim*) NULL;
-            if ( inside_type_declare ) break;
-            if ( created_dimensionlist == 1 || agrif_parentcall == 1 )  (yyval.d)=insertdim(NULL,(yyvsp[(1) - (1)].dim1));
-        }
-    break;
-
-  case 229:
-/* Line 1807 of yacc.c  */
-#line 1080 "fortran.y"
-    {
-            (yyval.d) = (listdim*) NULL;
-            if ( inside_type_declare ) break;
-            if ( (!inside_type_declare) && created_dimensionlist == 1 ) (yyval.d)=insertdim((yyvsp[(1) - (3)].d),(yyvsp[(3) - (3)].dim1));
-        }
-    break;
-
-  case 230:
-/* Line 1807 of yacc.c  */
-#line 1086 "fortran.y"
-    { strcpy((yyval.dim1).first,"1"); strcpy((yyval.dim1).last,(yyvsp[(1) - (1)].na)); Save_Length((yyvsp[(1) - (1)].na),1); }
-    break;
-
-  case 231:
-/* Line 1807 of yacc.c  */
-#line 1087 "fortran.y"
-    { strcpy((yyval.dim1).first,"");  strcpy((yyval.dim1).last,"");                    }
-    break;
-
-  case 232:
-/* Line 1807 of yacc.c  */
-#line 1088 "fortran.y"
-    { strcpy((yyval.dim1).first,(yyvsp[(1) - (2)].na));  Save_Length((yyvsp[(1) - (2)].na),2); strcpy((yyval.dim1).last,""); }
-    break;
-
-  case 233:
-/* Line 1807 of yacc.c  */
-#line 1089 "fortran.y"
-    { strcpy((yyval.dim1).first,"");  strcpy((yyval.dim1).last,(yyvsp[(2) - (2)].na)); Save_Length((yyvsp[(2) - (2)].na),1); }
-    break;
-
-  case 234:
-/* Line 1807 of yacc.c  */
-#line 1090 "fortran.y"
-    { strcpy((yyval.dim1).first,(yyvsp[(1) - (3)].na));  Save_Length((yyvsp[(1) - (3)].na),2); strcpy((yyval.dim1).last,(yyvsp[(3) - (3)].na)); Save_Length((yyvsp[(3) - (3)].na),1); }
-    break;
-
-  case 235:
-/* Line 1807 of yacc.c  */
-#line 1093 "fortran.y"
-    { strcpy((yyval.na),"*"); }
-    break;
-
-  case 236:
-/* Line 1807 of yacc.c  */
-#line 1094 "fortran.y"
-    { strcpy((yyval.na),(yyvsp[(1) - (1)].na));  }
-    break;
-
-  case 237:
-/* Line 1807 of yacc.c  */
-#line 1096 "fortran.y"
-    { strcpy((yyval.na),(yyvsp[(1) - (1)].na)); }
-    break;
-
-  case 238:
-/* Line 1807 of yacc.c  */
-#line 1097 "fortran.y"
-    { strcpy((yyval.na),(yyvsp[(1) - (1)].na)); }
-    break;
-
-  case 239:
-/* Line 1807 of yacc.c  */
-#line 1098 "fortran.y"
-    { strcpy((yyval.na),(yyvsp[(1) - (1)].na)); }
-    break;
-
-  case 240:
-/* Line 1807 of yacc.c  */
-#line 1099 "fortran.y"
-    { sprintf((yyval.na),"(%s)",(yyvsp[(2) - (3)].na)); }
-    break;
-
-  case 241:
-/* Line 1807 of yacc.c  */
-#line 1103 "fortran.y"
-    { sprintf((yyval.na),"SUM(%s)",(yyvsp[(2) - (3)].na));}
-    break;
-
-  case 242:
-/* Line 1807 of yacc.c  */
-#line 1104 "fortran.y"
-    { sprintf((yyval.na),"MAX(%s)",(yyvsp[(2) - (3)].na));}
-    break;
-
-  case 243:
-/* Line 1807 of yacc.c  */
-#line 1105 "fortran.y"
-    { sprintf((yyval.na),"TANH(%s)",(yyvsp[(3) - (4)].na));}
-    break;
-
-  case 244:
-/* Line 1807 of yacc.c  */
-#line 1106 "fortran.y"
-    { sprintf((yyval.na),"MAXVAL(%s)",(yyvsp[(3) - (4)].na));}
-    break;
-
-  case 245:
-/* Line 1807 of yacc.c  */
-#line 1107 "fortran.y"
-    { sprintf((yyval.na),"MIN(%s)",(yyvsp[(2) - (3)].na));}
-    break;
-
-  case 246:
-/* Line 1807 of yacc.c  */
-#line 1108 "fortran.y"
-    { sprintf((yyval.na),"MINVAL(%s)",(yyvsp[(3) - (4)].na));}
-    break;
-
-  case 247:
-/* Line 1807 of yacc.c  */
-#line 1109 "fortran.y"
-    { sprintf((yyval.na),"TRIM(%s)",(yyvsp[(3) - (4)].na));}
-    break;
-
-  case 248:
-/* Line 1807 of yacc.c  */
-#line 1110 "fortran.y"
-    { sprintf((yyval.na),"SQRT(%s)",(yyvsp[(2) - (3)].na));}
-    break;
-
-  case 249:
-/* Line 1807 of yacc.c  */
-#line 1111 "fortran.y"
-    { sprintf((yyval.na),"REAL(%s)",(yyvsp[(3) - (4)].na));}
-    break;
-
-  case 250:
-/* Line 1807 of yacc.c  */
-#line 1112 "fortran.y"
-    { sprintf((yyval.na),"NINT(%s)",(yyvsp[(3) - (4)].na));}
-    break;
-
-  case 251:
-/* Line 1807 of yacc.c  */
-#line 1113 "fortran.y"
-    { sprintf((yyval.na),"FLOAT(%s)",(yyvsp[(3) - (4)].na));}
-    break;
-
-  case 252:
-/* Line 1807 of yacc.c  */
-#line 1114 "fortran.y"
-    { sprintf((yyval.na),"EXP(%s)",(yyvsp[(3) - (4)].na));}
-    break;
-
-  case 253:
-/* Line 1807 of yacc.c  */
-#line 1115 "fortran.y"
-    { sprintf((yyval.na),"COS(%s)",(yyvsp[(3) - (4)].na));}
-    break;
-
-  case 254:
-/* Line 1807 of yacc.c  */
-#line 1116 "fortran.y"
-    { sprintf((yyval.na),"COSH(%s)",(yyvsp[(3) - (4)].na));}
-    break;
-
-  case 255:
-/* Line 1807 of yacc.c  */
-#line 1117 "fortran.y"
-    { sprintf((yyval.na),"ACOS(%s)",(yyvsp[(3) - (4)].na));}
-    break;
-
-  case 256:
-/* Line 1807 of yacc.c  */
-#line 1118 "fortran.y"
-    { sprintf((yyval.na),"SIN(%s)",(yyvsp[(3) - (4)].na));}
-    break;
-
-  case 257:
-/* Line 1807 of yacc.c  */
-#line 1119 "fortran.y"
-    { sprintf((yyval.na),"SINH(%s)",(yyvsp[(3) - (4)].na));}
-    break;
-
-  case 258:
-/* Line 1807 of yacc.c  */
-#line 1120 "fortran.y"
-    { sprintf((yyval.na),"ASIN(%s)",(yyvsp[(3) - (4)].na));}
-    break;
-
-  case 259:
-/* Line 1807 of yacc.c  */
-#line 1121 "fortran.y"
-    { sprintf((yyval.na),"LOG(%s)",(yyvsp[(3) - (4)].na));}
-    break;
-
-  case 260:
-/* Line 1807 of yacc.c  */
-#line 1122 "fortran.y"
-    { sprintf((yyval.na),"TAN(%s)",(yyvsp[(3) - (4)].na));}
-    break;
-
-  case 261:
-/* Line 1807 of yacc.c  */
-#line 1123 "fortran.y"
-    { sprintf((yyval.na),"ATAN(%s)",(yyvsp[(3) - (4)].na));}
-    break;
-
-  case 262:
-/* Line 1807 of yacc.c  */
-#line 1124 "fortran.y"
-    { sprintf((yyval.na),"ABS(%s)",(yyvsp[(2) - (3)].na));}
-    break;
-
-  case 263:
-/* Line 1807 of yacc.c  */
-#line 1125 "fortran.y"
-    { sprintf((yyval.na),"MOD(%s)",(yyvsp[(3) - (4)].na));}
-    break;
-
-  case 264:
-/* Line 1807 of yacc.c  */
-#line 1126 "fortran.y"
-    { sprintf((yyval.na),"SIGN(%s)",(yyvsp[(2) - (3)].na));}
-    break;
-
-  case 265:
-/* Line 1807 of yacc.c  */
-#line 1127 "fortran.y"
-    { sprintf((yyval.na),"MINLOC(%s)",(yyvsp[(3) - (4)].na));}
-    break;
-
-  case 266:
-/* Line 1807 of yacc.c  */
-#line 1128 "fortran.y"
-    { sprintf((yyval.na),"MAXLOC(%s)",(yyvsp[(3) - (4)].na));}
-    break;
-
-  case 267:
-/* Line 1807 of yacc.c  */
-#line 1130 "fortran.y"
-    {strcpy((yyval.na),(yyvsp[(1) - (1)].na));}
-    break;
-
-  case 268:
-/* Line 1807 of yacc.c  */
-#line 1131 "fortran.y"
-    { sprintf((yyval.na),"%s,%s",(yyvsp[(1) - (3)].na),(yyvsp[(3) - (3)].na)); }
-    break;
-
-  case 269:
-/* Line 1807 of yacc.c  */
-#line 1133 "fortran.y"
-    { strcpy((yyval.na),(yyvsp[(1) - (1)].na)); }
-    break;
-
-  case 270:
-/* Line 1807 of yacc.c  */
-#line 1134 "fortran.y"
-    { strcpy((yyval.na),(yyvsp[(1) - (1)].na)); }
-    break;
-
-  case 271:
-/* Line 1807 of yacc.c  */
-#line 1135 "fortran.y"
-    { strcpy((yyval.na),(yyvsp[(1) - (1)].na)); }
-    break;
-
-  case 272:
-/* Line 1807 of yacc.c  */
-#line 1136 "fortran.y"
-    { sprintf((yyval.na),"%s%s",(yyvsp[(1) - (2)].na),(yyvsp[(2) - (2)].na)); }
-    break;
-
-  case 273:
-/* Line 1807 of yacc.c  */
-#line 1137 "fortran.y"
-    { sprintf((yyval.na),"%s%s",(yyvsp[(1) - (2)].na),(yyvsp[(2) - (2)].na)); }
-    break;
-
-  case 274:
-/* Line 1807 of yacc.c  */
-#line 1138 "fortran.y"
-    { sprintf((yyval.na),"%s%s",(yyvsp[(1) - (2)].na),(yyvsp[(2) - (2)].na)); }
-    break;
-
-  case 275:
-/* Line 1807 of yacc.c  */
-#line 1140 "fortran.y"
-    { strcpy((yyval.na),"+"); }
-    break;
-
-  case 276:
-/* Line 1807 of yacc.c  */
-#line 1141 "fortran.y"
-    { strcpy((yyval.na),"-"); }
-    break;
-
-  case 277:
-/* Line 1807 of yacc.c  */
-#line 1145 "fortran.y"
-    { sprintf((yyval.na),"+%s",(yyvsp[(2) - (2)].na)); }
-    break;
-
-  case 278:
-/* Line 1807 of yacc.c  */
-#line 1146 "fortran.y"
-    { sprintf((yyval.na),"-%s",(yyvsp[(2) - (2)].na)); }
-    break;
-
-  case 279:
-/* Line 1807 of yacc.c  */
-#line 1147 "fortran.y"
-    { sprintf((yyval.na),"*%s",(yyvsp[(2) - (2)].na)); }
-    break;
-
-  case 280:
-/* Line 1807 of yacc.c  */
-#line 1148 "fortran.y"
-    { sprintf((yyval.na),"%s%s",(yyvsp[(1) - (2)].na),(yyvsp[(2) - (2)].na)); }
-    break;
-
-  case 281:
-/* Line 1807 of yacc.c  */
-#line 1149 "fortran.y"
-    { sprintf((yyval.na),"%s%s",(yyvsp[(1) - (2)].na),(yyvsp[(2) - (2)].na)); }
-    break;
-
-  case 282:
-/* Line 1807 of yacc.c  */
-#line 1150 "fortran.y"
-    { sprintf((yyval.na),"%s%s",(yyvsp[(1) - (2)].na),(yyvsp[(2) - (2)].na)); }
-    break;
-
-  case 283:
-/* Line 1807 of yacc.c  */
 #line 1151 "fortran.y"
-    { sprintf((yyval.na),"%s%s",(yyvsp[(1) - (2)].na),(yyvsp[(2) - (2)].na)); }
-    break;
-
-  case 284:
-/* Line 1807 of yacc.c  */
-#line 1152 "fortran.y"
-    { sprintf((yyval.na)," > %s",(yyvsp[(2) - (2)].na)); }
-    break;
-
-  case 285:
-/* Line 1807 of yacc.c  */
-#line 1153 "fortran.y"
-    { sprintf((yyval.na)," < %s",(yyvsp[(2) - (2)].na)); }
-    break;
-
-  case 286:
-/* Line 1807 of yacc.c  */
-#line 1154 "fortran.y"
-    { sprintf((yyval.na)," >= %s",(yyvsp[(3) - (3)].na)); }
-    break;
-
-  case 287:
-/* Line 1807 of yacc.c  */
-#line 1155 "fortran.y"
-    { sprintf((yyval.na)," <= %s",(yyvsp[(3) - (3)].na)); }
-    break;
-
-  case 288:
-/* Line 1807 of yacc.c  */
-#line 1156 "fortran.y"
-    { sprintf((yyval.na),"%s%s",(yyvsp[(1) - (2)].na),(yyvsp[(2) - (2)].na)); }
-    break;
-
-  case 289:
-/* Line 1807 of yacc.c  */
-#line 1157 "fortran.y"
-    { sprintf((yyval.na),"%s%s",(yyvsp[(1) - (2)].na),(yyvsp[(2) - (2)].na)); }
-    break;
-
-  case 290:
-/* Line 1807 of yacc.c  */
-#line 1158 "fortran.y"
-    { sprintf((yyval.na),"%s%s",(yyvsp[(1) - (2)].na),(yyvsp[(2) - (2)].na)); }
-    break;
-
-  case 291:
-/* Line 1807 of yacc.c  */
-#line 1159 "fortran.y"
-    { sprintf((yyval.na),"%s%s",(yyvsp[(1) - (2)].na),(yyvsp[(2) - (2)].na)); }
-    break;
-
-  case 292:
-/* Line 1807 of yacc.c  */
-#line 1160 "fortran.y"
-    { sprintf((yyval.na),"%s%s",(yyvsp[(1) - (2)].na),(yyvsp[(2) - (2)].na)); }
-    break;
-
-  case 293:
-/* Line 1807 of yacc.c  */
-#line 1161 "fortran.y"
-    { sprintf((yyval.na),"%s%s",(yyvsp[(1) - (2)].na),(yyvsp[(2) - (2)].na)); }
-    break;
-
-  case 294:
-/* Line 1807 of yacc.c  */
-#line 1162 "fortran.y"
-    { sprintf((yyval.na),"%s%s",(yyvsp[(1) - (2)].na),(yyvsp[(2) - (2)].na)); }
-    break;
-
-  case 295:
-/* Line 1807 of yacc.c  */
-#line 1163 "fortran.y"
-    { sprintf((yyval.na),"%s%s",(yyvsp[(1) - (2)].na),(yyvsp[(2) - (2)].na)); }
-    break;
-
-  case 296:
-/* Line 1807 of yacc.c  */
-#line 1164 "fortran.y"
-    { sprintf((yyval.na),"%s",(yyvsp[(2) - (2)].na)); }
-    break;
-
-  case 297:
-/* Line 1807 of yacc.c  */
-#line 1165 "fortran.y"
-    { sprintf((yyval.na),"%s",(yyvsp[(2) - (2)].na)); }
-    break;
-
-  case 298:
-/* Line 1807 of yacc.c  */
-#line 1167 "fortran.y"
-    { strcpy((yyval.na),""); }
-    break;
-
-  case 299:
-/* Line 1807 of yacc.c  */
-#line 1168 "fortran.y"
-    { sprintf((yyval.na),"/%s",(yyvsp[(1) - (1)].na)); }
-    break;
-
-  case 300:
-/* Line 1807 of yacc.c  */
-#line 1169 "fortran.y"
-    { sprintf((yyval.na),"/= %s",(yyvsp[(2) - (2)].na));}
-    break;
-
-  case 301:
-/* Line 1807 of yacc.c  */
-#line 1170 "fortran.y"
-    { sprintf((yyval.na),"//%s",(yyvsp[(2) - (2)].na)); }
-    break;
-
-  case 302:
-/* Line 1807 of yacc.c  */
-#line 1173 "fortran.y"
-    { sprintf((yyval.na),"==%s",(yyvsp[(2) - (2)].na)); }
-    break;
-
-  case 303:
-/* Line 1807 of yacc.c  */
-#line 1174 "fortran.y"
-    { sprintf((yyval.na),"= %s",(yyvsp[(1) - (1)].na)); }
-    break;
-
-  case 304:
-/* Line 1807 of yacc.c  */
-#line 1177 "fortran.y"
-    { strcpy((yyval.na),(yyvsp[(1) - (1)].na)); }
-    break;
-
-  case 305:
-/* Line 1807 of yacc.c  */
-#line 1178 "fortran.y"
-    { strcpy((yyval.na),(yyvsp[(1) - (1)].na)); }
-    break;
-
-  case 306:
-/* Line 1807 of yacc.c  */
-#line 1179 "fortran.y"
-    { strcpy((yyval.na),(yyvsp[(1) - (1)].na)); }
-    break;
-
-  case 307:
-/* Line 1807 of yacc.c  */
-#line 1183 "fortran.y"
     {
             agrif_parentcall = 0;
@@ -5201 +4306 @@
     break;
 
-  case 308:
-/* Line 1807 of yacc.c  */
-#line 1194 "fortran.y"
+  case 65:
+/* Line 1807 of yacc.c  */
+#line 1162 "fortran.y"
     { strcpy((yyval.na),(yyvsp[(1) - (1)].na)); if ( incalldeclare == 0 ) inagrifcallargument = 0;   }
     break;
 
-  case 309:
-/* Line 1807 of yacc.c  */
-#line 1195 "fortran.y"
+  case 66:
+/* Line 1807 of yacc.c  */
+#line 1163 "fortran.y"
     { sprintf((yyval.na)," %s %s ",(yyvsp[(1) - (2)].na),(yyvsp[(2) - (2)].na)); }
     break;
 
-  case 310:
-/* Line 1807 of yacc.c  */
-#line 1196 "fortran.y"
-    { sprintf((yyval.na)," %s ( %s )",(yyvsp[(1) - (4)].na),(yyvsp[(3) - (4)].na)); }
-    break;
-
-  case 311:
-/* Line 1807 of yacc.c  */
-#line 1197 "fortran.y"
-    { sprintf((yyval.na)," %s ( %s ) %s ",(yyvsp[(1) - (5)].na),(yyvsp[(3) - (5)].na),(yyvsp[(5) - (5)].na)); }
-    break;
-
-  case 312:
-/* Line 1807 of yacc.c  */
-#line 1201 "fortran.y"
+  case 67:
+/* Line 1807 of yacc.c  */
+#line 1164 "fortran.y"
+    {in_complex_literal=0;}
+    break;
+
+  case 68:
+/* Line 1807 of yacc.c  */
+#line 1164 "fortran.y"
+    { sprintf((yyval.na)," %s ( %s )",(yyvsp[(1) - (5)].na),(yyvsp[(4) - (5)].na)); }
+    break;
+
+  case 69:
+/* Line 1807 of yacc.c  */
+#line 1165 "fortran.y"
+    {in_complex_literal=0;}
+    break;
+
+  case 70:
+/* Line 1807 of yacc.c  */
+#line 1165 "fortran.y"
+    { sprintf((yyval.na)," %s ( %s ) %s ",(yyvsp[(1) - (6)].na),(yyvsp[(4) - (6)].na),(yyvsp[(6) - (6)].na)); }
+    break;
+
+  case 72:
+/* Line 1807 of yacc.c  */
+#line 1168 "fortran.y"
+    {in_complex_literal=0;}
+    break;
+
+  case 73:
+/* Line 1807 of yacc.c  */
+#line 1169 "fortran.y"
     {
             if ( inside_type_declare ) break;
-            sprintf((yyval.na)," %s ( %s )",(yyvsp[(1) - (4)].na),(yyvsp[(3) - (4)].na));
-            ModifyTheAgrifFunction_0((yyvsp[(3) - (4)].na));
+            sprintf((yyval.na)," %s ( %s )",(yyvsp[(1) - (5)].na),(yyvsp[(4) - (5)].na));
+            ModifyTheAgrifFunction_0((yyvsp[(4) - (5)].na));
             agrif_parentcall = 0;
         }
     break;
 
-  case 313:
-/* Line 1807 of yacc.c  */
-#line 1210 "fortran.y"
+  case 74:
+/* Line 1807 of yacc.c  */
+#line 1178 "fortran.y"
     {
             sprintf((yyval.na)," %s %% %s ",(yyvsp[(1) - (4)].na),(yyvsp[(4) - (4)].na));
@@ -5245 +4368 @@
     break;
 
-  case 314:
-/* Line 1807 of yacc.c  */
-#line 1216 "fortran.y"
-    { sprintf((yyval.na),"(/%s/)",(yyvsp[(2) - (3)].na)); }
-    break;
-
-  case 315:
-/* Line 1807 of yacc.c  */
-#line 1219 "fortran.y"
+  case 75:
+/* Line 1807 of yacc.c  */
+#line 1189 "fortran.y"
     { strcpy((yyval.na)," "); }
     break;
 
-  case 316:
-/* Line 1807 of yacc.c  */
-#line 1220 "fortran.y"
+  case 76:
+/* Line 1807 of yacc.c  */
+#line 1190 "fortran.y"
     { strcpy((yyval.na),(yyvsp[(2) - (2)].na)); }
     break;
 
-  case 317:
-/* Line 1807 of yacc.c  */
-#line 1223 "fortran.y"
+  case 77:
+/* Line 1807 of yacc.c  */
+#line 1193 "fortran.y"
     {  strcpy((yyval.na),(yyvsp[(1) - (1)].na)); }
     break;
 
-  case 318:
-/* Line 1807 of yacc.c  */
-#line 1224 "fortran.y"
+  case 78:
+/* Line 1807 of yacc.c  */
+#line 1194 "fortran.y"
     {  sprintf((yyval.na),"%s,%s",(yyvsp[(1) - (3)].na),(yyvsp[(3) - (3)].na)); }
     break;
 
-  case 319:
-/* Line 1807 of yacc.c  */
-#line 1227 "fortran.y"
+  case 79:
+/* Line 1807 of yacc.c  */
+#line 1197 "fortran.y"
     {strcpy((yyval.na),(yyvsp[(1) - (1)].na));}
     break;
 
-  case 320:
-/* Line 1807 of yacc.c  */
-#line 1228 "fortran.y"
+  case 80:
+/* Line 1807 of yacc.c  */
+#line 1198 "fortran.y"
     {strcpy((yyval.na),(yyvsp[(1) - (1)].na));}
     break;
 
-  case 321:
-/* Line 1807 of yacc.c  */
-#line 1231 "fortran.y"
+  case 81:
+/* Line 1807 of yacc.c  */
+#line 1201 "fortran.y"
     {  sprintf((yyval.na),"%s :%s",(yyvsp[(1) - (3)].na),(yyvsp[(3) - (3)].na));}
     break;
 
-  case 322:
-/* Line 1807 of yacc.c  */
-#line 1232 "fortran.y"
+  case 82:
+/* Line 1807 of yacc.c  */
+#line 1202 "fortran.y"
     {  sprintf((yyval.na),"%s :%s :%s",(yyvsp[(1) - (5)].na),(yyvsp[(3) - (5)].na),(yyvsp[(5) - (5)].na));}
     break;
 
-  case 323:
-/* Line 1807 of yacc.c  */
-#line 1233 "fortran.y"
+  case 83:
+/* Line 1807 of yacc.c  */
+#line 1203 "fortran.y"
     {  sprintf((yyval.na),":%s :%s",(yyvsp[(2) - (4)].na),(yyvsp[(4) - (4)].na));}
     break;
 
-  case 324:
-/* Line 1807 of yacc.c  */
-#line 1234 "fortran.y"
+  case 84:
+/* Line 1807 of yacc.c  */
+#line 1204 "fortran.y"
     {  sprintf((yyval.na),": : %s",(yyvsp[(3) - (3)].na));}
     break;
 
-  case 325:
-/* Line 1807 of yacc.c  */
-#line 1235 "fortran.y"
+  case 85:
+/* Line 1807 of yacc.c  */
+#line 1205 "fortran.y"
     {  sprintf((yyval.na),":%s",(yyvsp[(2) - (2)].na));}
     break;
 
-  case 326:
-/* Line 1807 of yacc.c  */
-#line 1236 "fortran.y"
+  case 86:
+/* Line 1807 of yacc.c  */
+#line 1206 "fortran.y"
     {  sprintf((yyval.na),"%s :",(yyvsp[(1) - (2)].na));}
     break;
 
-  case 327:
-/* Line 1807 of yacc.c  */
-#line 1237 "fortran.y"
+  case 87:
+/* Line 1807 of yacc.c  */
+#line 1207 "fortran.y"
     {  sprintf((yyval.na),":");}
     break;
 
-  case 328:
-/* Line 1807 of yacc.c  */
-#line 1240 "fortran.y"
+  case 88:
+/* Line 1807 of yacc.c  */
+#line 1210 "fortran.y"
     {
+       //  if (indeclaration == 1) break;
             if ( afterpercent == 0 )
             {
@@ -5377 +4495 @@
     break;
 
-  case 329:
-/* Line 1807 of yacc.c  */
-#line 1285 "fortran.y"
+  case 89:
+/* Line 1807 of yacc.c  */
+#line 1256 "fortran.y"
     { strcpy((yyval.na),".TRUE.");}
     break;
 
-  case 330:
-/* Line 1807 of yacc.c  */
-#line 1286 "fortran.y"
+  case 90:
+/* Line 1807 of yacc.c  */
+#line 1257 "fortran.y"
     { strcpy((yyval.na),".FALSE.");}
     break;
 
-  case 331:
-/* Line 1807 of yacc.c  */
-#line 1287 "fortran.y"
+  case 91:
+/* Line 1807 of yacc.c  */
+#line 1258 "fortran.y"
     { strcpy((yyval.na),"NULL()"); }
     break;
 
-  case 332:
-/* Line 1807 of yacc.c  */
-#line 1288 "fortran.y"
+  case 92:
+/* Line 1807 of yacc.c  */
+#line 1259 "fortran.y"
     { strcpy((yyval.na),(yyvsp[(1) - (1)].na)); }
     break;
 
-  case 333:
-/* Line 1807 of yacc.c  */
-#line 1289 "fortran.y"
+  case 93:
+/* Line 1807 of yacc.c  */
+#line 1260 "fortran.y"
     { strcpy((yyval.na),(yyvsp[(1) - (1)].na)); }
     break;
 
-  case 334:
-/* Line 1807 of yacc.c  */
-#line 1290 "fortran.y"
+  case 94:
+/* Line 1807 of yacc.c  */
+#line 1261 "fortran.y"
     { strcpy((yyval.na),(yyvsp[(1) - (1)].na)); }
     break;
 
-  case 335:
-/* Line 1807 of yacc.c  */
-#line 1292 "fortran.y"
+  case 95:
+/* Line 1807 of yacc.c  */
+#line 1263 "fortran.y"
     { sprintf((yyval.na),"%s%s",(yyvsp[(1) - (2)].na),(yyvsp[(2) - (2)].na)); }
     break;
 
-  case 337:
-/* Line 1807 of yacc.c  */
-#line 1296 "fortran.y"
+  case 97:
+/* Line 1807 of yacc.c  */
+#line 1267 "fortran.y"
     { strcpy((yyval.na),(yyvsp[(1) - (1)].na));}
     break;
 
-  case 339:
-/* Line 1807 of yacc.c  */
-#line 1298 "fortran.y"
+  case 99:
+/* Line 1807 of yacc.c  */
+#line 1269 "fortran.y"
     { strcpy((yyval.na),(yyvsp[(1) - (1)].na));}
     break;
 
-  case 340:
-/* Line 1807 of yacc.c  */
-#line 1299 "fortran.y"
+  case 100:
+/* Line 1807 of yacc.c  */
+#line 1270 "fortran.y"
     { strcpy((yyval.na),(yyvsp[(1) - (1)].na));}
     break;
 
-  case 341:
-/* Line 1807 of yacc.c  */
-#line 1301 "fortran.y"
+  case 101:
+/* Line 1807 of yacc.c  */
+#line 1272 "fortran.y"
     { strcpy((yyval.na)," ");}
     break;
 
-  case 342:
-/* Line 1807 of yacc.c  */
-#line 1302 "fortran.y"
+  case 102:
+/* Line 1807 of yacc.c  */
+#line 1273 "fortran.y"
     { strcpy((yyval.na),(yyvsp[(1) - (1)].na));}
     break;
 
-  case 343:
-/* Line 1807 of yacc.c  */
-#line 1305 "fortran.y"
-    { sprintf((yyval.na),"(%s :%s)",(yyvsp[(2) - (5)].na),(yyvsp[(4) - (5)].na));}
-    break;
-
-  case 344:
-/* Line 1807 of yacc.c  */
-#line 1307 "fortran.y"
+  case 103:
+/* Line 1807 of yacc.c  */
+#line 1283 "fortran.y"
     { strcpy((yyval.na)," ");}
     break;
 
-  case 345:
-/* Line 1807 of yacc.c  */
-#line 1308 "fortran.y"
+  case 104:
+/* Line 1807 of yacc.c  */
+#line 1284 "fortran.y"
     { strcpy((yyval.na),(yyvsp[(1) - (1)].na));}
     break;
 
-  case 346:
-/* Line 1807 of yacc.c  */
-#line 1311 "fortran.y"
-    { strcpy((yyval.na)," ");}
-    break;
-
-  case 347:
-/* Line 1807 of yacc.c  */
-#line 1312 "fortran.y"
-    { strcpy((yyval.na),(yyvsp[(1) - (1)].na));}
-    break;
-
-  case 348:
-/* Line 1807 of yacc.c  */
-#line 1314 "fortran.y"
-    { InitialValueGiven = 0; }
-    break;
-
-  case 349:
-/* Line 1807 of yacc.c  */
-#line 1316 "fortran.y"
-    {
-            if ( inside_type_declare ) break;
-            strcpy(InitValue,(yyvsp[(2) - (2)].na));
-            InitialValueGiven = 1;
-        }
-    break;
-
-  case 350:
-/* Line 1807 of yacc.c  */
-#line 1322 "fortran.y"
-    {
-            if ( inside_type_declare ) break;
-            strcpy(InitValue,(yyvsp[(2) - (2)].na));
-            InitialValueGiven = 2;
-        }
-    break;
-
-  case 351:
-/* Line 1807 of yacc.c  */
-#line 1329 "fortran.y"
-    {sprintf((yyval.na),"(%s,%s)",(yyvsp[(2) - (5)].na),(yyvsp[(4) - (5)].na)); }
-    break;
-
-  case 352:
-/* Line 1807 of yacc.c  */
-#line 1333 "fortran.y"
-    {
-            /* if variables has been declared in a subroutine       */
-            sprintf(charusemodule, "%s", (yyvsp[(2) - (2)].na));
-            if ( firstpass )
-            {
-                Add_NameOfModuleUsed_1((yyvsp[(2) - (2)].na));
-            }
-            else
-            {
-                if ( insubroutinedeclare )
-                    copyuse_0((yyvsp[(2) - (2)].na));
-
-                if ( inmoduledeclare == 0 )
-                {
-                    pos_end = setposcur();
-                    RemoveWordSET_0(fortran_out,pos_curuse,pos_end-pos_curuse);
-                }
-            }
-        }
-    break;
-
-  case 353:
-/* Line 1807 of yacc.c  */
-#line 1353 "fortran.y"
-    {
-            if ( firstpass )
-            {
-                if ( insubroutinedeclare )
-                {
-                    Add_CouplePointed_Var_1((yyvsp[(2) - (4)].na),(yyvsp[(4) - (4)].lc));
-                    coupletmp = (yyvsp[(4) - (4)].lc);
-                    strcpy(ligne,"");
-                    while ( coupletmp )
-                    {
-                        strcat(ligne, coupletmp->c_namevar);
-                        strcat(ligne, " => ");
-                        strcat(ligne, coupletmp->c_namepointedvar);
-                        coupletmp = coupletmp->suiv;
-                        if ( coupletmp ) strcat(ligne,",");
-                    }
-                    sprintf(charusemodule,"%s",(yyvsp[(2) - (4)].na));
-                }
-                Add_NameOfModuleUsed_1((yyvsp[(2) - (4)].na));
-            }
-            if ( inmoduledeclare == 0 )
-            {
-                pos_end = setposcur();
-                RemoveWordSET_0(fortran_out,pos_curuse,pos_end-pos_curuse);
-            }
-        }
-    break;
-
-  case 354:
-/* Line 1807 of yacc.c  */
-#line 1380 "fortran.y"
-    {
-            /* if variables has been declared in a subroutine       */
-            sprintf(charusemodule,"%s",(yyvsp[(2) - (6)].na));
-            if ( firstpass )
-            {
-                Add_NameOfModuleUsed_1((yyvsp[(2) - (6)].na));
-            }
-            else
-            {
-                if ( insubroutinedeclare )
-                    copyuseonly_0((yyvsp[(2) - (6)].na));
-
-                if ( inmoduledeclare == 0 )
-                {
-                    pos_end = setposcur();
-                    RemoveWordSET_0(fortran_out,pos_curuse,pos_end-pos_curuse);
-                }
-            }
-        }
-    break;
-
-  case 355:
-/* Line 1807 of yacc.c  */
-#line 1400 "fortran.y"
-    {
-            /* if variables has been declared in a subroutine      */
-            if ( firstpass )
-            {
-                if ( insubroutinedeclare )
-                {
-                    Add_CouplePointed_Var_1((yyvsp[(2) - (6)].na),(yyvsp[(6) - (6)].lc));
-                    coupletmp = (yyvsp[(6) - (6)].lc);
-                    strcpy(ligne,"");
-                    while ( coupletmp )
-                    {
-                        strcat(ligne,coupletmp->c_namevar);
-                        if ( strcasecmp(coupletmp->c_namepointedvar,"") )   strcat(ligne," => ");
-                        strcat(ligne,coupletmp->c_namepointedvar);
-                        coupletmp = coupletmp->suiv;
-                        if ( coupletmp ) strcat(ligne,",");
-                    }
-                    sprintf(charusemodule,"%s",(yyvsp[(2) - (6)].na));
-                }
-                Add_NameOfModuleUsed_1((yyvsp[(2) - (6)].na));
-            }
-            else /* if ( firstpass == 0 ) */
-            {
-                if ( inmoduledeclare == 0 )
-                {
-                    pos_end = setposcur();
-                    RemoveWordSET_0(fortran_out,pos_curuse,pos_end-pos_curuse);
-                    if (oldfortran_out)  variableisglobalinmodule((yyvsp[(6) - (6)].lc),(yyvsp[(2) - (6)].na),oldfortran_out,pos_curuseold);
-                }
-                else
-                {
-                    /* if we are in the module declare and if the    */
-                    /* onlylist is a list of global variable         */
-                    variableisglobalinmodule((yyvsp[(6) - (6)].lc), (yyvsp[(2) - (6)].na), fortran_out,pos_curuse);
-                }
-            }
-        }
-    break;
-
-  case 356:
-/* Line 1807 of yacc.c  */
-#line 1440 "fortran.y"
-    {
-            pos_curuse = setposcur()-strlen((yyvsp[(1) - (1)].na));
-            if (firstpass == 0 && oldfortran_out) pos_curuseold = setposcurname(oldfortran_out);
-        }
-    break;
-
-  case 357:
-/* Line 1807 of yacc.c  */
-#line 1447 "fortran.y"
-    {
-            (yyval.lc) = (yyvsp[(1) - (1)].lc);
-        }
-    break;
-
-  case 358:
-/* Line 1807 of yacc.c  */
-#line 1451 "fortran.y"
-    {
-            /* insert the variable in the list $1                 */
-            (yyvsp[(3) - (3)].lc)->suiv = (yyvsp[(1) - (3)].lc);
-            (yyval.lc) = (yyvsp[(3) - (3)].lc);
-        }
-    break;
-
-  case 359:
-/* Line 1807 of yacc.c  */
-#line 1458 "fortran.y"
-    {
-            coupletmp = (listcouple *) calloc(1,sizeof(listcouple));
-            strcpy(coupletmp->c_namevar,(yyvsp[(1) - (3)].na));
-            strcpy(coupletmp->c_namepointedvar,(yyvsp[(3) - (3)].na));
-            coupletmp->suiv = NULL;
-            (yyval.lc) = coupletmp;
-        }
-    break;
-
-  case 360:
-/* Line 1807 of yacc.c  */
-#line 1467 "fortran.y"
-    {  (yyval.lc) = (yyvsp[(1) - (1)].lc); }
-    break;
-
-  case 361:
-/* Line 1807 of yacc.c  */
-#line 1469 "fortran.y"
-    {
-            /* insert the variable in the list $1                 */
-            (yyvsp[(3) - (3)].lc)->suiv = (yyvsp[(1) - (3)].lc);
-            (yyval.lc) = (yyvsp[(3) - (3)].lc);
-        }
-    break;
-
-  case 362:
-/* Line 1807 of yacc.c  */
-#line 1477 "fortran.y"
-    {
-            coupletmp = (listcouple *)calloc(1,sizeof(listcouple));
-            strcpy(coupletmp->c_namevar,(yyvsp[(1) - (3)].na));
-            strcpy(coupletmp->c_namepointedvar,(yyvsp[(3) - (3)].na));
-            coupletmp->suiv = NULL;
-            (yyval.lc) = coupletmp;
-            pointedvar = 1;
-            Add_UsedInSubroutine_Var_1((yyvsp[(1) - (3)].na));
-        }
-    break;
-
-  case 363:
-/* Line 1807 of yacc.c  */
-#line 1487 "fortran.y"
-    {
-            coupletmp = (listcouple *)calloc(1,sizeof(listcouple));
-            strcpy(coupletmp->c_namevar,(yyvsp[(1) - (1)].na));
-            strcpy(coupletmp->c_namepointedvar,"");
-            coupletmp->suiv = NULL;
-            (yyval.lc) = coupletmp;
-        }
-    break;
-
-  case 380:
-/* Line 1807 of yacc.c  */
-#line 1522 "fortran.y"
-    { inallocate = 0; }
-    break;
-
-  case 381:
-/* Line 1807 of yacc.c  */
-#line 1523 "fortran.y"
-    { inallocate = 0; }
-    break;
-
-  case 388:
-/* Line 1807 of yacc.c  */
-#line 1531 "fortran.y"
-    {
-            GlobalDeclaration = 0 ;
-            if ( firstpass == 0 && strcasecmp(subroutinename,"") )
-            {
-                if ( module_declar && insubroutinedeclare == 0 )    fclose(module_declar);
-            }
-            if ( strcasecmp(subroutinename,"") )
-            {
-                if ( inmodulemeet == 1 )
-                {
-                    /* we are in a module                                */
-                    if ( insubroutinedeclare == 1 )
-                    {
-                        /* it is like an end subroutine <name>            */
-                        insubroutinedeclare = 0 ;
-                        pos_cur = setposcur();
-                        closeandcallsubloopandincludeit_0(1);
-                        functiondeclarationisdone = 0;
-                    }
-                    else
-                    {
-                        /* it is like an end module <name>                */
-                        inmoduledeclare = 0 ;
-                        inmodulemeet = 0 ;
-                    }
-                }
-                else
-                {
-                    insubroutinedeclare = 0;
-                    pos_cur = setposcur();
-                    closeandcallsubloopandincludeit_0(2);
-                    functiondeclarationisdone = 0;
-                }
-            }
-            strcpy(subroutinename,"");
-        }
-    break;
-
-  case 389:
-/* Line 1807 of yacc.c  */
-#line 1568 "fortran.y"
-    {
-            insubroutinedeclare = 0;
-            inprogramdeclare = 0;
-            pos_cur = setposcur();
-            closeandcallsubloopandincludeit_0(3);
-            functiondeclarationisdone = 0;
-            strcpy(subroutinename,"");
-        }
-    break;
-
-  case 390:
-/* Line 1807 of yacc.c  */
-#line 1577 "fortran.y"
-    {
-            if ( strcasecmp(subroutinename,"") )
-            {
-                insubroutinedeclare = 0;
-                pos_cur = setposcur();
-                closeandcallsubloopandincludeit_0(1);
-                functiondeclarationisdone = 0;
-                strcpy(subroutinename,"");
-            }
-        }
-    break;
-
-  case 391:
-/* Line 1807 of yacc.c  */
-#line 1588 "fortran.y"
-    {
-            insubroutinedeclare = 0;
-            pos_cur = setposcur();
-            closeandcallsubloopandincludeit_0(0);
-            functiondeclarationisdone = 0;
-            strcpy(subroutinename,"");
-        }
-    break;
-
-  case 392:
-/* Line 1807 of yacc.c  */
-#line 1596 "fortran.y"
+  case 168:
+/* Line 1807 of yacc.c  */
+#line 1481 "fortran.y"
     {
             /* if we never meet the contains keyword               */
@@ -5832 +4605 @@
     break;
 
+  case 188:
+/* Line 1807 of yacc.c  */
+#line 1534 "fortran.y"
+    {in_complex_literal=0;}
+    break;
+
+  case 191:
+/* Line 1807 of yacc.c  */
+#line 1558 "fortran.y"
+    {strcpy((yyval.na),"");}
+    break;
+
+  case 195:
+/* Line 1807 of yacc.c  */
+#line 1568 "fortran.y"
+    {strcpy((yyval.na),"");}
+    break;
+
+  case 196:
+/* Line 1807 of yacc.c  */
+#line 1570 "fortran.y"
+    {strcpy((yyval.na),(yyvsp[(1) - (1)].na));}
+    break;
+
+  case 201:
+/* Line 1807 of yacc.c  */
+#line 1590 "fortran.y"
+    {pos_cur_decl=my_position_before;}
+    break;
+
+  case 202:
+/* Line 1807 of yacc.c  */
+#line 1591 "fortran.y"
+    {strcpy((yyval.na),(yyvsp[(2) - (2)].na));}
+    break;
+
+  case 204:
+/* Line 1807 of yacc.c  */
+#line 1594 "fortran.y"
+    {strcpy(DeclType,"type"); GlobalDeclarationType = 1;  }
+    break;
+
+  case 205:
+/* Line 1807 of yacc.c  */
+#line 1598 "fortran.y"
+    {in_kind_selector = 1;}
+    break;
+
+  case 206:
+/* Line 1807 of yacc.c  */
+#line 1599 "fortran.y"
+    {sprintf((yyval.na),"%s%s",(yyvsp[(1) - (3)].na),(yyvsp[(3) - (3)].na));strcpy(DeclType,(yyvsp[(1) - (3)].na)); in_kind_selector =0;}
+    break;
+
+  case 207:
+/* Line 1807 of yacc.c  */
+#line 1600 "fortran.y"
+    {in_kind_selector = 1;}
+    break;
+
+  case 208:
+/* Line 1807 of yacc.c  */
+#line 1601 "fortran.y"
+    {sprintf((yyval.na),"%s%s",(yyvsp[(1) - (3)].na),(yyvsp[(3) - (3)].na));strcpy(DeclType,(yyvsp[(1) - (3)].na));in_kind_selector =0;}
+    break;
+
+  case 209:
+/* Line 1807 of yacc.c  */
+#line 1602 "fortran.y"
+    {in_kind_selector = 1;}
+    break;
+
+  case 210:
+/* Line 1807 of yacc.c  */
+#line 1603 "fortran.y"
+    {sprintf((yyval.na),"%s%s",(yyvsp[(1) - (3)].na),(yyvsp[(3) - (3)].na));strcpy(DeclType,"real"); strcpy(NamePrecision,"8");in_kind_selector =0;}
+    break;
+
+  case 211:
+/* Line 1807 of yacc.c  */
+#line 1604 "fortran.y"
+    {in_kind_selector = 1;}
+    break;
+
+  case 212:
+/* Line 1807 of yacc.c  */
+#line 1605 "fortran.y"
+    {sprintf((yyval.na),"%s%s",(yyvsp[(1) - (3)].na),(yyvsp[(3) - (3)].na));strcpy(DeclType,(yyvsp[(1) - (3)].na));in_kind_selector =0;}
+    break;
+
+  case 213:
+/* Line 1807 of yacc.c  */
+#line 1606 "fortran.y"
+    {in_char_selector = 1;}
+    break;
+
+  case 214:
+/* Line 1807 of yacc.c  */
+#line 1607 "fortran.y"
+    {sprintf((yyval.na),"%s%s",(yyvsp[(1) - (3)].na),(yyvsp[(3) - (3)].na));strcpy(DeclType,(yyvsp[(1) - (3)].na));in_char_selector = 0;}
+    break;
+
+  case 215:
+/* Line 1807 of yacc.c  */
+#line 1608 "fortran.y"
+    {in_kind_selector = 1;}
+    break;
+
+  case 216:
+/* Line 1807 of yacc.c  */
+#line 1609 "fortran.y"
+    {sprintf((yyval.na),"%s%s",(yyvsp[(1) - (3)].na),(yyvsp[(3) - (3)].na));strcpy(DeclType,(yyvsp[(1) - (3)].na));in_kind_selector =0;}
+    break;
+
+  case 217:
+/* Line 1807 of yacc.c  */
+#line 1613 "fortran.y"
+    {strcpy((yyval.na),"");strcpy(NamePrecision,"");}
+    break;
+
+  case 218:
+/* Line 1807 of yacc.c  */
+#line 1615 "fortran.y"
+    {strcpy((yyval.na),(yyvsp[(1) - (1)].na));}
+    break;
+
+  case 219:
+/* Line 1807 of yacc.c  */
+#line 1621 "fortran.y"
+    {sprintf((yyval.na),"(%s)",(yyvsp[(2) - (3)].na)); strcpy(NamePrecision,(yyvsp[(2) - (3)].na));}
+    break;
+
+  case 220:
+/* Line 1807 of yacc.c  */
+#line 1623 "fortran.y"
+    {sprintf((yyval.na),"(KIND=%s)",(yyvsp[(4) - (5)].na)); strcpy(NamePrecision,(yyvsp[(4) - (5)].na));}
+    break;
+
+  case 221:
+/* Line 1807 of yacc.c  */
+#line 1625 "fortran.y"
+    {sprintf((yyval.na),"*%s",(yyvsp[(2) - (2)].na));strcpy(NamePrecision,(yyvsp[(2) - (2)].na));}
+    break;
+
+  case 223:
+/* Line 1807 of yacc.c  */
+#line 1633 "fortran.y"
+    {sprintf((yyval.na),"%s%s",(yyvsp[(1) - (2)].na),(yyvsp[(2) - (2)].na));}
+    break;
+
+  case 225:
+/* Line 1807 of yacc.c  */
+#line 1639 "fortran.y"
+    {sprintf((yyval.na),"%s_%s",(yyvsp[(1) - (3)].na),(yyvsp[(3) - (3)].na));}
+    break;
+
+  case 229:
+/* Line 1807 of yacc.c  */
+#line 1662 "fortran.y"
+    {sprintf((yyval.na),"%s%s",(yyvsp[(1) - (2)].na),(yyvsp[(2) - (2)].na));}
+    break;
+
+  case 231:
+/* Line 1807 of yacc.c  */
+#line 1668 "fortran.y"
+    {sprintf((yyval.na),"%s_%s",(yyvsp[(1) - (3)].na),(yyvsp[(3) - (3)].na));}
+    break;
+
+  case 232:
+/* Line 1807 of yacc.c  */
+#line 1675 "fortran.y"
+    {sprintf((yyval.na),"(%s,%s)",(yyvsp[(2) - (5)].na),(yyvsp[(4) - (5)].na));}
+    break;
+
+  case 240:
+/* Line 1807 of yacc.c  */
+#line 1693 "fortran.y"
+    {char_length_toreset = 1;}
+    break;
+
+  case 241:
+/* Line 1807 of yacc.c  */
+#line 1697 "fortran.y"
+    {strcpy((yyval.na),"");}
+    break;
+
+  case 242:
+/* Line 1807 of yacc.c  */
+#line 1699 "fortran.y"
+    {strcpy((yyval.na),"");}
+    break;
+
+  case 248:
+/* Line 1807 of yacc.c  */
+#line 1712 "fortran.y"
+    {strcpy(CharacterSize,(yyvsp[(2) - (3)].na));}
+    break;
+
+  case 249:
+/* Line 1807 of yacc.c  */
+#line 1714 "fortran.y"
+    {strcpy(CharacterSize,(yyvsp[(4) - (5)].na));}
+    break;
+
+  case 252:
+/* Line 1807 of yacc.c  */
+#line 1721 "fortran.y"
+    {c_star=1; strcpy(CharacterSize,(yyvsp[(2) - (3)].na));}
+    break;
+
+  case 253:
+/* Line 1807 of yacc.c  */
+#line 1723 "fortran.y"
+    {c_selectorgiven = 1; strcpy(c_selectorname,(yyvsp[(1) - (1)].na));}
+    break;
+
+  case 259:
+/* Line 1807 of yacc.c  */
+#line 1738 "fortran.y"
+    { inside_type_declare = 1;}
+    break;
+
+  case 260:
+/* Line 1807 of yacc.c  */
+#line 1739 "fortran.y"
+    { inside_type_declare = 0;}
+    break;
+
+  case 292:
+/* Line 1807 of yacc.c  */
+#line 1814 "fortran.y"
+    {
+            PublicDeclare = 0;
+            PrivateDeclare = 0;
+            ExternalDeclare = 0;
+            strcpy(NamePrecision,"");
+            c_star = 0;
+            InitialValueGiven = 0 ;
+            strcpy(IntentSpec,"");
+            VariableIsParameter =  0 ;
+            Allocatabledeclare = 0 ;
+            Targetdeclare = 0 ;
+            SaveDeclare = 0;
+            pointerdeclare = 0;
+            optionaldeclare = 0 ;
+            dimsgiven=0;
+            c_selectorgiven=0;
+            strcpy(nameinttypename,"");
+            strcpy(c_selectorname,"");
+            GlobalDeclarationType = 0;
+         }
+    break;
+
+  case 302:
+/* Line 1807 of yacc.c  */
+#line 1857 "fortran.y"
+    {strcpy(my_dim.last,"");}
+    break;
+
+  case 303:
+/* Line 1807 of yacc.c  */
+#line 1862 "fortran.y"
+    {strcpy(NamePrecision,(yyvsp[(1) - (1)].na));}
+    break;
+
+  case 318:
+/* Line 1807 of yacc.c  */
+#line 1897 "fortran.y"
+    { sprintf((yyval.na),"(/%s/)",(yyvsp[(2) - (3)].na));}
+    break;
+
+  case 319:
+/* Line 1807 of yacc.c  */
+#line 1899 "fortran.y"
+    { sprintf((yyval.na),"[%s]",(yyvsp[(2) - (3)].na)); }
+    break;
+
+  case 324:
+/* Line 1807 of yacc.c  */
+#line 1927 "fortran.y"
+    {sprintf((yyval.na),"%s,%s",(yyvsp[(1) - (3)].na),(yyvsp[(3) - (3)].na));}
+    break;
+
+  case 327:
+/* Line 1807 of yacc.c  */
+#line 1937 "fortran.y"
+    {sprintf((yyval.na),"(%s,%s)",(yyvsp[(2) - (5)].na),(yyvsp[(4) - (5)].na));}
+    break;
+
+  case 328:
+/* Line 1807 of yacc.c  */
+#line 1942 "fortran.y"
+    {sprintf((yyval.na),"%s=%s,%s",(yyvsp[(1) - (5)].na),(yyvsp[(3) - (5)].na),(yyvsp[(5) - (5)].na));}
+    break;
+
+  case 329:
+/* Line 1807 of yacc.c  */
+#line 1944 "fortran.y"
+    {sprintf((yyval.na),"%s=%s,%s,%s",(yyvsp[(1) - (7)].na),(yyvsp[(3) - (7)].na),(yyvsp[(5) - (7)].na),(yyvsp[(7) - (7)].na));}
+    break;
+
+  case 331:
+/* Line 1807 of yacc.c  */
+#line 1952 "fortran.y"
+    {indeclaration=1;}
+    break;
+
+  case 332:
+/* Line 1807 of yacc.c  */
+#line 1953 "fortran.y"
+    {
+            /* if the variable is a parameter we can suppose that is*/
+            /*    value is the same on each grid. It is not useless */
+            /*    to create a copy of it on each grid               */
+            if ( ! inside_type_declare )
+            {
+                pos_end = setposcur();
+                //printf("POS = %d %d\n",pos_cur_decl,pos_end);
+                RemoveWordSET_0(fortran_out,pos_cur_decl,pos_end-pos_cur_decl);
+                ReWriteDeclarationAndAddTosubroutine_01((yyvsp[(4) - (4)].l));
+                pos_cur_decl = setposcur();
+                if ( firstpass == 0 && GlobalDeclaration == 0
+                                    && insubroutinedeclare == 0 )
+                {
+                    fprintf(fortran_out,"\n#include \"Module_Declar_%s.h\"\n", curmodulename);
+                    sprintf(ligne, "Module_Declar_%s.h", curmodulename);
+                    module_declar = open_for_write(ligne);
+                    GlobalDeclaration = 1 ;
+                    pos_cur_decl = setposcur();
+                }
+
+                if ( firstpass )
+                {
+                    Add_Globliste_1((yyvsp[(4) - (4)].l));
+                    if ( insubroutinedeclare )
+                    {
+                        if ( pointerdeclare ) Add_Pointer_Var_From_List_1((yyvsp[(4) - (4)].l));
+                        Add_Parameter_Var_1((yyvsp[(4) - (4)].l));
+                    }
+                    else
+                        Add_GlobalParameter_Var_1((yyvsp[(4) - (4)].l));
+
+                    /* If there's a SAVE declaration in module's subroutines we should    */
+                    /*    remove it from the subroutines declaration and add it in the    */
+                    /*    global declarations                                             */
+                                        
+                    if ( aftercontainsdeclare && SaveDeclare )
+                    {
+                        if ( inmodulemeet ) Add_SubroutineDeclarationSave_Var_1((yyvsp[(4) - (4)].l));
+                        else                Add_Save_Var_dcl_1((yyvsp[(4) - (4)].l));
+                    }
+                }
+            }
+            indeclaration = 0;
+            PublicDeclare = 0;
+            PrivateDeclare = 0;
+            ExternalDeclare = 0;
+            strcpy(NamePrecision,"");
+            c_star = 0;
+            InitialValueGiven = 0 ;
+            strcpy(IntentSpec,"");
+            VariableIsParameter =  0 ;
+            Allocatabledeclare = 0 ;
+            Targetdeclare = 0 ;
+            SaveDeclare = 0;
+            pointerdeclare = 0;
+            optionaldeclare = 0 ;
+            dimsgiven=0;
+            c_selectorgiven=0;
+            strcpy(nameinttypename,"");
+            strcpy(c_selectorname,"");
+            strcpy(DeclType,"");
+            GlobalDeclarationType = 0;
+        }
+    break;
+
+  case 341:
+/* Line 1807 of yacc.c  */
+#line 2036 "fortran.y"
+    { Allocatabledeclare = 1; }
+    break;
+
+  case 342:
+/* Line 1807 of yacc.c  */
+#line 2037 "fortran.y"
+    {in_complex_literal=0;}
+    break;
+
+  case 343:
+/* Line 1807 of yacc.c  */
+#line 2038 "fortran.y"
+    { dimsgiven = 1; curdim = (yyvsp[(4) - (5)].d); }
+    break;
+
+  case 344:
+/* Line 1807 of yacc.c  */
+#line 2040 "fortran.y"
+    { ExternalDeclare = 1; }
+    break;
+
+  case 345:
+/* Line 1807 of yacc.c  */
+#line 2041 "fortran.y"
+    {in_complex_literal=0;}
+    break;
+
+  case 346:
+/* Line 1807 of yacc.c  */
+#line 2042 "fortran.y"
+    { strcpy(IntentSpec,(yyvsp[(4) - (5)].na)); }
+    break;
+
+  case 348:
+/* Line 1807 of yacc.c  */
+#line 2045 "fortran.y"
+    { optionaldeclare = 1 ; }
+    break;
+
+  case 349:
+/* Line 1807 of yacc.c  */
+#line 2047 "fortran.y"
+    {VariableIsParameter = 1; }
+    break;
+
+  case 350:
+/* Line 1807 of yacc.c  */
+#line 2049 "fortran.y"
+    { pointerdeclare = 1 ; }
+    break;
+
+  case 351:
+/* Line 1807 of yacc.c  */
+#line 2051 "fortran.y"
+    { SaveDeclare = 1 ; }
+    break;
+
+  case 352:
+/* Line 1807 of yacc.c  */
+#line 2053 "fortran.y"
+    { Targetdeclare = 1; }
+    break;
+
+  case 353:
+/* Line 1807 of yacc.c  */
+#line 2058 "fortran.y"
+    {(yyval.l)=insertvar(NULL,(yyvsp[(1) - (1)].v));}
+    break;
+
+  case 354:
+/* Line 1807 of yacc.c  */
+#line 2060 "fortran.y"
+    {(yyval.l)=insertvar((yyvsp[(1) - (3)].l),(yyvsp[(3) - (3)].v));}
+    break;
+
+  case 355:
+/* Line 1807 of yacc.c  */
+#line 2065 "fortran.y"
+    {
+            if ( ! inside_type_declare )
+            {
+                if (dimsgiven == 1) curvar = createvar((yyvsp[(1) - (4)].na),curdim);
+                else                curvar = createvar((yyvsp[(1) - (4)].na),(yyvsp[(2) - (4)].d));
+                CreateAndFillin_Curvar(DeclType, curvar);
+                strcpy(curvar->v_typevar,DeclType);
+                curvar->v_catvar = get_cat_var(curvar);
+                
+                if (!strcasecmp(DeclType,"character"))
+                {
+                    if (c_selectorgiven == 1)
+                    {
+                        Save_Length(c_selectorname,1);
+                        strcpy(curvar->v_dimchar,c_selectorname);
+                    }
+                }
+            }
+            strcpy(vallengspec,"");
+            if (char_length_toreset == 1)
+            {
+            c_selectorgiven = 0;
+            c_star = 0;
+            strcpy(c_selectorname,"");
+            strcpy(CharacterSize,"");
+            char_length_toreset = 0;
+            }
+            (yyval.v)=curvar;
+        }
+    break;
+
+  case 358:
+/* Line 1807 of yacc.c  */
+#line 2104 "fortran.y"
+    {InitialValueGiven = 0; }
+    break;
+
+  case 360:
+/* Line 1807 of yacc.c  */
+#line 2110 "fortran.y"
+    {
+            if ( inside_type_declare ) break;
+            strcpy(InitValue,(yyvsp[(2) - (2)].na));
+            InitialValueGiven = 1;
+        }
+    break;
+
+  case 361:
+/* Line 1807 of yacc.c  */
+#line 2116 "fortran.y"
+    {
+            if ( inside_type_declare ) break;
+            strcpy(InitValue,(yyvsp[(2) - (2)].na));
+            InitialValueGiven = 2;
+        }
+    break;
+
+  case 362:
+/* Line 1807 of yacc.c  */
+#line 2122 "fortran.y"
+    {
+            if ( inside_type_declare ) break;
+            strcpy(InitValue,(yyvsp[(2) - (2)].na));
+            InitialValueGiven = 2;
+        }
+    break;
+
+  case 364:
+/* Line 1807 of yacc.c  */
+#line 2135 "fortran.y"
+    {PublicDeclare = 1;  }
+    break;
+
+  case 365:
+/* Line 1807 of yacc.c  */
+#line 2137 "fortran.y"
+    {PrivateDeclare = 1;  }
+    break;
+
+  case 366:
+/* Line 1807 of yacc.c  */
+#line 2141 "fortran.y"
+    {(yyval.d)=NULL;}
+    break;
+
+  case 367:
+/* Line 1807 of yacc.c  */
+#line 2142 "fortran.y"
+    {in_complex_literal=0;}
+    break;
+
+  case 368:
+/* Line 1807 of yacc.c  */
+#line 2143 "fortran.y"
+    {(yyval.d)=(yyvsp[(3) - (4)].d);}
+    break;
+
+  case 369:
+/* Line 1807 of yacc.c  */
+#line 2148 "fortran.y"
+    {(yyval.d)=(yyvsp[(1) - (1)].d);}
+    break;
+
+  case 370:
+/* Line 1807 of yacc.c  */
+#line 2150 "fortran.y"
+    {(yyval.d)=(yyvsp[(1) - (1)].d);}
+    break;
+
+  case 371:
+/* Line 1807 of yacc.c  */
+#line 2152 "fortran.y"
+    {(yyval.d)=(yyvsp[(1) - (1)].d);}
+    break;
+
+  case 372:
+/* Line 1807 of yacc.c  */
+#line 2154 "fortran.y"
+    {(yyval.d)=(yyvsp[(1) - (1)].d);}
+    break;
+
+  case 373:
+/* Line 1807 of yacc.c  */
+#line 2156 "fortran.y"
+    {(yyval.d)=(yyvsp[(1) - (1)].d);}
+    break;
+
+  case 374:
+/* Line 1807 of yacc.c  */
+#line 2160 "fortran.y"
+    {
+            (yyval.d) = (listdim*) NULL;
+            if ( inside_type_declare ) break;
+            if ( created_dimensionlist == 1 || agrif_parentcall == 1 )  (yyval.d)=insertdim(NULL,(yyvsp[(1) - (1)].dim1));
+        }
+    break;
+
+  case 375:
+/* Line 1807 of yacc.c  */
+#line 2166 "fortran.y"
+    {
+            (yyval.d) = (listdim*) NULL;
+            if ( inside_type_declare ) break;
+            if ( (!inside_type_declare) && created_dimensionlist == 1 ) (yyval.d)=insertdim((yyvsp[(1) - (3)].d),(yyvsp[(3) - (3)].dim1));
+        }
+    break;
+
+  case 376:
+/* Line 1807 of yacc.c  */
+#line 2175 "fortran.y"
+    {strcpy((yyval.dim1).first,(yyvsp[(1) - (3)].na));  Save_Length((yyvsp[(1) - (3)].na),2); strcpy((yyval.dim1).last,(yyvsp[(3) - (3)].na)); Save_Length((yyvsp[(3) - (3)].na),1); }
+    break;
+
+  case 377:
+/* Line 1807 of yacc.c  */
+#line 2177 "fortran.y"
+    {strcpy((yyval.dim1).first,"1"); strcpy((yyval.dim1).last,(yyvsp[(1) - (1)].na)); Save_Length((yyvsp[(1) - (1)].na),1);}
+    break;
+
+  case 378:
+/* Line 1807 of yacc.c  */
+#line 2182 "fortran.y"
+    {strcpy((yyval.na),(yyvsp[(1) - (1)].na));}
+    break;
+
+  case 380:
+/* Line 1807 of yacc.c  */
+#line 2191 "fortran.y"
+    {
+            (yyval.d) = (listdim*) NULL;
+            if ( inside_type_declare ) break;
+            if ( created_dimensionlist == 1 || agrif_parentcall == 1 )  (yyval.d)=insertdim(NULL,(yyvsp[(1) - (1)].dim1));
+        }
+    break;
+
+  case 381:
+/* Line 1807 of yacc.c  */
+#line 2197 "fortran.y"
+    {
+            (yyval.d) = (listdim*) NULL;
+            if ( inside_type_declare ) break;
+            if ( (!inside_type_declare) && created_dimensionlist == 1 ) (yyval.d)=insertdim((yyvsp[(1) - (3)].d),(yyvsp[(3) - (3)].dim1));
+        }
+    break;
+
+  case 382:
+/* Line 1807 of yacc.c  */
+#line 2206 "fortran.y"
+    { strcpy((yyval.dim1).first,"");  strcpy((yyval.dim1).last,"");  }
+    break;
+
+  case 383:
+/* Line 1807 of yacc.c  */
+#line 2208 "fortran.y"
+    { strcpy((yyval.dim1).first,(yyvsp[(1) - (2)].na));  Save_Length((yyvsp[(1) - (2)].na),2); strcpy((yyval.dim1).last,""); }
+    break;
+
+  case 384:
+/* Line 1807 of yacc.c  */
+#line 2213 "fortran.y"
+    {
+            (yyval.d) = (listdim*) NULL;
+            if ( inside_type_declare ) break;
+            if ( created_dimensionlist == 1 || agrif_parentcall == 1 )  (yyval.d)=insertdim(NULL,(yyvsp[(1) - (1)].dim1));
+        }
+    break;
+
+  case 385:
+/* Line 1807 of yacc.c  */
+#line 2219 "fortran.y"
+    {
+            (yyval.d) = (listdim*) NULL;
+            if ( inside_type_declare ) break;
+            if ( (!inside_type_declare) && created_dimensionlist == 1 ) (yyval.d)=insertdim((yyvsp[(1) - (3)].d),(yyvsp[(3) - (3)].dim1));
+        }
+    break;
+
+  case 386:
+/* Line 1807 of yacc.c  */
+#line 2228 "fortran.y"
+    { strcpy((yyval.dim1).first,"");  strcpy((yyval.dim1).last,"");  }
+    break;
+
+  case 387:
+/* Line 1807 of yacc.c  */
+#line 2233 "fortran.y"
+    {
+            (yyval.d) = (listdim*) NULL;
+            if ( inside_type_declare ) break;
+            if ( created_dimensionlist == 1 || agrif_parentcall == 1 ) 
+            {
+            if (!strcasecmp((yyvsp[(2) - (3)].na),""))
+            {
+            strcpy(my_dim.first,"1");
+            }
+            else
+            {
+            strcpy(my_dim.first,(yyvsp[(2) - (3)].na));
+            }
+            strcpy(my_dim.last,"*");
+            (yyval.d)=insertdim((yyvsp[(1) - (3)].d),my_dim);
+            strcpy(my_dim.first,"");
+            strcpy(my_dim.last,"");
+            }
+        }
+    break;
+
+  case 388:
+/* Line 1807 of yacc.c  */
+#line 2255 "fortran.y"
+    {(yyval.d) = (listdim *) NULL;}
+    break;
+
+  case 389:
+/* Line 1807 of yacc.c  */
+#line 2257 "fortran.y"
+    {(yyval.d) = (yyvsp[(1) - (2)].d);}
+    break;
+
+  case 390:
+/* Line 1807 of yacc.c  */
+#line 2275 "fortran.y"
+    {strcpy((yyval.na),"");}
+    break;
+
+  case 391:
+/* Line 1807 of yacc.c  */
+#line 2277 "fortran.y"
+    {strcpy((yyval.na),(yyvsp[(1) - (2)].na));}
+    break;
+
   case 395:
 /* Line 1807 of yacc.c  */
-#line 1620 "fortran.y"
+#line 2290 "fortran.y"
+    { strcpy((yyval.na),(yyvsp[(1) - (1)].na)); }
+    break;
+
+  case 396:
+/* Line 1807 of yacc.c  */
+#line 2292 "fortran.y"
+    { strcpy((yyval.na),(yyvsp[(1) - (1)].na)); }
+    break;
+
+  case 397:
+/* Line 1807 of yacc.c  */
+#line 2294 "fortran.y"
+    { strcpy((yyval.na),(yyvsp[(1) - (1)].na)); }
+    break;
+
+  case 398:
+/* Line 1807 of yacc.c  */
+#line 2299 "fortran.y"
+    {
+            if ((firstpass == 0) && (PublicDeclare == 1))
+            {
+                if ((yyvsp[(2) - (2)].lnn))
+                {
+                    removeglobfromlist(&((yyvsp[(2) - (2)].lnn)));
+                    pos_end = setposcur();
+                    RemoveWordSET_0(fortran_out,pos_cur,pos_end-pos_cur);
+                    writelistpublic((yyvsp[(2) - (2)].lnn));
+                }
+            }
+     PublicDeclare = 0;
+     PrivateDeclare = 0;
+     }
+    break;
+
+  case 400:
+/* Line 1807 of yacc.c  */
+#line 2317 "fortran.y"
+    {(yyval.lnn)=(listname *)NULL;}
+    break;
+
+  case 401:
+/* Line 1807 of yacc.c  */
+#line 2319 "fortran.y"
+    {(yyval.lnn)=(yyvsp[(2) - (2)].lnn);}
+    break;
+
+  case 402:
+/* Line 1807 of yacc.c  */
+#line 2323 "fortran.y"
+    {(yyval.lnn)=Insertname(NULL,(yyvsp[(1) - (1)].na),0);}
+    break;
+
+  case 403:
+/* Line 1807 of yacc.c  */
+#line 2325 "fortran.y"
+    {(yyval.lnn)=Insertname((yyvsp[(1) - (3)].lnn),(yyvsp[(3) - (3)].na),0);}
+    break;
+
+  case 406:
+/* Line 1807 of yacc.c  */
+#line 2335 "fortran.y"
+    {
+            /* we should remove the data declaration                */
+            pos_end = setposcur();
+            RemoveWordSET_0(fortran_out,pos_curdata,pos_end-pos_curdata);
+            if ( aftercontainsdeclare == 1  && firstpass == 0 )
+            {
+                ReWriteDataStatement_0(fortran_out);
+                pos_end = setposcur();
+            }
+            Init_List_Data_Var();
+        }
+    break;
+
+  case 412:
+/* Line 1807 of yacc.c  */
+#line 2359 "fortran.y"
+    {
+            if (firstpass == 1)  
+            {
+            Add_Data_Var_Names_01(&List_Data_Var,(yyvsp[(1) - (4)].l),(yyvsp[(3) - (4)].lnn));
+            }
+            else                 Add_Data_Var_Names_01(&List_Data_Var_Cur,(yyvsp[(1) - (4)].l),(yyvsp[(3) - (4)].lnn));
+        }
+    break;
+
+  case 413:
+/* Line 1807 of yacc.c  */
+#line 2369 "fortran.y"
+    { (yyval.l)=insertvar(NULL,(yyvsp[(1) - (1)].v)); }
+    break;
+
+  case 414:
+/* Line 1807 of yacc.c  */
+#line 2371 "fortran.y"
+    {
+     (yyval.l) = insertvar((yyvsp[(1) - (3)].l),(yyvsp[(3) - (3)].v));
+     }
+    break;
+
+  case 415:
+/* Line 1807 of yacc.c  */
+#line 2377 "fortran.y"
+    {(yyval.lnn)=Insertname(NULL,(yyvsp[(1) - (1)].na),0);}
+    break;
+
+  case 416:
+/* Line 1807 of yacc.c  */
+#line 2379 "fortran.y"
+    {(yyval.lnn) = Insertname((yyvsp[(1) - (3)].lnn),(yyvsp[(3) - (3)].na),1);   }
+    break;
+
+  case 419:
+/* Line 1807 of yacc.c  */
+#line 2389 "fortran.y"
+    {printf("DOVARIABLE = %s %s %s\n",(yyvsp[(4) - (9)].na),(yyvsp[(6) - (9)].na),(yyvsp[(8) - (9)].na));
+     printf("AUTRE = %s %s\n",(yyvsp[(2) - (9)].l)->var->v_nomvar,(yyvsp[(2) - (9)].l)->var->v_initialvalue_array);
+     Insertdoloop((yyvsp[(2) - (9)].l)->var,(yyvsp[(4) - (9)].na),(yyvsp[(6) - (9)].na),(yyvsp[(8) - (9)].na),"");
+     (yyval.v)=(yyvsp[(2) - (9)].l)->var;
+     }
+    break;
+
+  case 420:
+/* Line 1807 of yacc.c  */
+#line 2395 "fortran.y"
+    {
+     Insertdoloop((yyvsp[(2) - (11)].l)->var,(yyvsp[(4) - (11)].na),(yyvsp[(6) - (11)].na),(yyvsp[(8) - (11)].na),(yyvsp[(10) - (11)].na));
+     (yyval.v)=(yyvsp[(2) - (11)].l)->var;
+     }
+    break;
+
+  case 421:
+/* Line 1807 of yacc.c  */
+#line 2402 "fortran.y"
+    {(yyval.l)=insertvar(NULL,(yyvsp[(1) - (1)].v));}
+    break;
+
+  case 422:
+/* Line 1807 of yacc.c  */
+#line 2404 "fortran.y"
+    {(yyval.l) = insertvar((yyvsp[(1) - (3)].l),(yyvsp[(3) - (3)].v));}
+    break;
+
+  case 424:
+/* Line 1807 of yacc.c  */
+#line 2410 "fortran.y"
+    {(yyval.v)->v_initialvalue_array=Insertname((yyval.v)->v_initialvalue_array,my_dim.last,0);
+     strcpy(my_dim.last,"");
+     }
+    break;
+
+  case 427:
+/* Line 1807 of yacc.c  */
+#line 2423 "fortran.y"
+    {sprintf((yyval.na),"%s%s",(yyvsp[(1) - (2)].na),(yyvsp[(2) - (2)].na));}
+    break;
+
+  case 428:
+/* Line 1807 of yacc.c  */
+#line 2425 "fortran.y"
+    {sprintf((yyval.na),"%s%s",(yyvsp[(1) - (2)].na),(yyvsp[(2) - (2)].na));}
+    break;
+
+  case 429:
+/* Line 1807 of yacc.c  */
+#line 2427 "fortran.y"
+    {sprintf((yyval.na),"%s%s",(yyvsp[(1) - (2)].na),(yyvsp[(2) - (2)].na));}
+    break;
+
+  case 435:
+/* Line 1807 of yacc.c  */
+#line 2436 "fortran.y"
+    {strcpy((yyval.na),"");}
+    break;
+
+  case 436:
+/* Line 1807 of yacc.c  */
+#line 2438 "fortran.y"
+    {sprintf((yyval.na),"*%s",(yyvsp[(2) - (2)].na));}
+    break;
+
+  case 445:
+/* Line 1807 of yacc.c  */
+#line 2474 "fortran.y"
+    {strcpy(my_dim.last,"");}
+    break;
+
+  case 446:
+/* Line 1807 of yacc.c  */
+#line 2478 "fortran.y"
+    {positioninblock = 0; pos_curdimension = my_position_before;}
+    break;
+
+  case 447:
+/* Line 1807 of yacc.c  */
+#line 2480 "fortran.y"
+    {
+            /* if the variable is a parameter we can suppose that is   */
+            /*    value is the same on each grid. It is not useless to */
+            /*    create a copy of it on each grid                     */
+            if ( ! inside_type_declare )
+            {
+                if ( firstpass )
+                {
+                    Add_Globliste_1((yyvsp[(4) - (4)].l));
+                    /* if variableparamlists has been declared in a subroutine   */
+                    if ( insubroutinedeclare )     Add_Dimension_Var_1((yyvsp[(4) - (4)].l));
+                    
+                    /* Add it to the List_SubroutineDeclaration_Var list if not present */
+                    /* NB: if not done, a variable declared with DIMENSION but with no type given */
+                    /* will not be declared by the conv */
+                    ReWriteDeclarationAndAddTosubroutine_01((yyvsp[(4) - (4)].l));
+                }
+                else
+                {
+                    pos_end = setposcur();
+                    RemoveWordSET_0(fortran_out,pos_curdimension,pos_end-pos_curdimension);
+                    ReWriteDeclarationAndAddTosubroutine_01((yyvsp[(4) - (4)].l));
+                }
+            }
+            PublicDeclare = 0;
+            PrivateDeclare = 0;
+            ExternalDeclare = 0;
+            strcpy(NamePrecision,"");
+            c_star = 0;
+            InitialValueGiven = 0 ;
+            strcpy(IntentSpec,"");
+            VariableIsParameter =  0 ;
+            Allocatabledeclare = 0 ;
+            Targetdeclare = 0 ;
+            SaveDeclare = 0;
+            pointerdeclare = 0;
+            optionaldeclare = 0 ;
+            dimsgiven=0;
+            c_selectorgiven=0;
+            strcpy(nameinttypename,"");
+            strcpy(c_selectorname,"");
+        }
+    break;
+
+  case 449:
+/* Line 1807 of yacc.c  */
+#line 2525 "fortran.y"
+    {in_complex_literal = 0;}
+    break;
+
+  case 450:
+/* Line 1807 of yacc.c  */
+#line 2526 "fortran.y"
+    {
+        if ( inside_type_declare ) break;
+        curvar = createvar((yyvsp[(1) - (5)].na),(yyvsp[(4) - (5)].d));
+        CreateAndFillin_Curvar("", curvar);
+        curlistvar=insertvar(NULL, curvar);
+        (yyval.l) = settype("",curlistvar);
+        strcpy(vallengspec,"");
+     }
+    break;
+
+  case 451:
+/* Line 1807 of yacc.c  */
+#line 2534 "fortran.y"
+    {in_complex_literal = 0;}
+    break;
+
+  case 452:
+/* Line 1807 of yacc.c  */
+#line 2535 "fortran.y"
+    {
+        if ( inside_type_declare ) break;
+        curvar = createvar((yyvsp[(3) - (7)].na),(yyvsp[(6) - (7)].d));
+        CreateAndFillin_Curvar("", curvar);
+        curlistvar = insertvar((yyvsp[(1) - (7)].l), curvar);
+        (yyval.l) = curlistvar;
+        strcpy(vallengspec,"");
+        }
+    break;
+
+  case 453:
+/* Line 1807 of yacc.c  */
+#line 2547 "fortran.y"
+    { VariableIsParameter = 1; pos_curparameter = setposcur()-9; }
+    break;
+
+  case 454:
+/* Line 1807 of yacc.c  */
+#line 2548 "fortran.y"
+    {
+            if ( ! inside_type_declare )
+            {
+                if ( firstpass )
+                {
+                    if ( insubroutinedeclare )  Add_Parameter_Var_1((yyvsp[(4) - (5)].l));
+                    else                        Add_GlobalParameter_Var_1((yyvsp[(4) - (5)].l));
+                }
+                else
+                {
+                    pos_end = setposcur();
+                    RemoveWordSET_0(fortran_out, pos_curparameter, pos_end-pos_curparameter);
+                }
+            }
+            VariableIsParameter =  0 ;
+        }
+    break;
+
+  case 456:
+/* Line 1807 of yacc.c  */
+#line 2568 "fortran.y"
+    {(yyval.l)=insertvar(NULL,(yyvsp[(1) - (1)].v));}
+    break;
+
+  case 457:
+/* Line 1807 of yacc.c  */
+#line 2570 "fortran.y"
+    {(yyval.l)=insertvar((yyvsp[(1) - (3)].l),(yyvsp[(3) - (3)].v));}
+    break;
+
+  case 458:
+/* Line 1807 of yacc.c  */
+#line 2575 "fortran.y"
+    {
+            if ( inside_type_declare ) break;
+            curvar=(variable *) calloc(1,sizeof(variable));
+            Init_Variable(curvar);
+            curvar->v_VariableIsParameter = 1;
+            strcpy(curvar->v_nomvar,(yyvsp[(1) - (3)].na));
+            strcpy(curvar->v_subroutinename,subroutinename);
+            strcpy(curvar->v_modulename,curmodulename);
+            curvar->v_initialvalue=Insertname(curvar->v_initialvalue,(yyvsp[(3) - (3)].na),0);
+            strcpy(curvar->v_commoninfile,cur_filename);
+            Save_Length((yyvsp[(3) - (3)].na),14);
+            (yyval.v) = curvar;
+        }
+    break;
+
+  case 459:
+/* Line 1807 of yacc.c  */
+#line 2591 "fortran.y"
+    {pos_cursave = my_position_before;}
+    break;
+
+  case 460:
+/* Line 1807 of yacc.c  */
+#line 2592 "fortran.y"
+    {
+     pos_end = setposcur();
+     RemoveWordSET_0(fortran_out,pos_cursave,pos_end-pos_cursave);
+     }
+    break;
+
+  case 468:
+/* Line 1807 of yacc.c  */
+#line 2613 "fortran.y"
+    {if ( ! inside_type_declare ) Add_Save_Var_1((yyvsp[(1) - (1)].na),(listdim*) NULL); }
+    break;
+
+  case 472:
+/* Line 1807 of yacc.c  */
+#line 2623 "fortran.y"
+    {my_position = my_position_before;}
+    break;
+
+  case 474:
+/* Line 1807 of yacc.c  */
+#line 2629 "fortran.y"
+    {
+            if ( insubroutinedeclare == 1 )
+            {
+                Add_ImplicitNoneSubroutine_1();
+                pos_end = setposcur();
+                RemoveWordSET_0(fortran_out,my_position,pos_end-my_position);
+            }
+        }
+    break;
+
+  case 492:
+/* Line 1807 of yacc.c  */
+#line 2681 "fortran.y"
+    {in_complex_literal=0;}
+    break;
+
+  case 499:
+/* Line 1807 of yacc.c  */
+#line 2696 "fortran.y"
+    { positioninblock = 0; pos_curcommon = my_position_before; indeclaration=1;}
+    break;
+
+  case 500:
+/* Line 1807 of yacc.c  */
+#line 2697 "fortran.y"
+    {
+            indeclaration = 0;
+            if ( inside_type_declare ) break;
+            pos_end = setposcur();
+            RemoveWordSET_0(fortran_out,pos_curcommon,pos_end-pos_curcommon);
+     }
+    break;
+
+  case 503:
+/* Line 1807 of yacc.c  */
+#line 2708 "fortran.y"
+    {
+     if ( inside_type_declare ) break;
+     sprintf(charusemodule,"%s",(yyvsp[(1) - (1)].na));
+     Add_NameOfCommon_1((yyvsp[(1) - (1)].na),subroutinename);
+     }
+    break;
+
+  case 504:
+/* Line 1807 of yacc.c  */
+#line 2716 "fortran.y"
+    {
+            strcpy((yyval.na),"");
+            positioninblock=0;
+            strcpy(commonblockname,"");
+        }
+    break;
+
+  case 505:
+/* Line 1807 of yacc.c  */
+#line 2722 "fortran.y"
+    {
+            strcpy((yyval.na),(yyvsp[(2) - (3)].na));
+            positioninblock=0;
+            strcpy(commonblockname,(yyvsp[(2) - (3)].na));
+        }
+    break;
+
+  case 510:
+/* Line 1807 of yacc.c  */
+#line 2739 "fortran.y"
+    {if ( ! inside_type_declare ) Add_Common_var_1(); }
+    break;
+
+  case 511:
+/* Line 1807 of yacc.c  */
+#line 2741 "fortran.y"
+    {if ( ! inside_type_declare ) Add_Common_var_1(); }
+    break;
+
+  case 512:
+/* Line 1807 of yacc.c  */
+#line 2749 "fortran.y"
+    {
+            positioninblock = positioninblock + 1 ;
+            strcpy(commonvar,(yyvsp[(1) - (1)].na));
+            commondim = (listdim*) NULL;
+        }
+    break;
+
+  case 513:
+/* Line 1807 of yacc.c  */
+#line 2754 "fortran.y"
+    {in_complex_literal=0;}
+    break;
+
+  case 514:
+/* Line 1807 of yacc.c  */
+#line 2755 "fortran.y"
+    {
+            positioninblock = positioninblock + 1 ;
+            strcpy(commonvar,(yyvsp[(1) - (5)].na));
+            commondim = (yyvsp[(4) - (5)].d);
+        }
+    break;
+
+  case 518:
+/* Line 1807 of yacc.c  */
+#line 2767 "fortran.y"
+    {(yyval.v)=createvar((yyvsp[(1) - (1)].na),NULL);}
+    break;
+
+  case 520:
+/* Line 1807 of yacc.c  */
+#line 2779 "fortran.y"
+    {if (strcmp(my_dim.last,""))
+       {
+       (yyval.v)->v_initialvalue_array=Insertname(NULL,my_dim.last,0);
+       }
+       strcpy(my_dim.last,"");
+       }
+    break;
+
+  case 530:
+/* Line 1807 of yacc.c  */
+#line 2821 "fortran.y"
+    {sprintf((yyval.na),"%s(%s)",(yyvsp[(1) - (4)].na),(yyvsp[(3) - (4)].na));}
+    break;
+
+  case 531:
+/* Line 1807 of yacc.c  */
+#line 2823 "fortran.y"
+    {sprintf((yyval.na),"%s(%s)",(yyvsp[(1) - (4)].na),(yyvsp[(3) - (4)].na));}
+    break;
+
+  case 532:
+/* Line 1807 of yacc.c  */
+#line 2838 "fortran.y"
+    {sprintf((yyval.na),"%s:%s",(yyvsp[(1) - (3)].na),(yyvsp[(3) - (3)].na));}
+    break;
+
+  case 533:
+/* Line 1807 of yacc.c  */
+#line 2843 "fortran.y"
+    {sprintf((yyval.na),"%s%s",(yyvsp[(1) - (2)].v)->v_nomvar,(yyvsp[(2) - (2)].na));}
+    break;
+
+  case 534:
+/* Line 1807 of yacc.c  */
+#line 2847 "fortran.y"
+    {strcpy((yyval.na),"");}
+    break;
+
+  case 535:
+/* Line 1807 of yacc.c  */
+#line 2849 "fortran.y"
+    {sprintf((yyval.na),"%s%%%s",(yyvsp[(1) - (3)].na),(yyvsp[(3) - (3)].v)->v_nomvar);}
+    break;
+
+  case 536:
+/* Line 1807 of yacc.c  */
+#line 2854 "fortran.y"
+    {(yyval.v)=createvar((yyvsp[(1) - (1)].na),NULL);}
+    break;
+
+  case 537:
+/* Line 1807 of yacc.c  */
+#line 2855 "fortran.y"
+    {in_complex_literal=0;}
+    break;
+
+  case 538:
+/* Line 1807 of yacc.c  */
+#line 2856 "fortran.y"
+    {sprintf(ligne,"%s(%s)",(yyvsp[(1) - (5)].na),(yyvsp[(4) - (5)].na));(yyval.v)=createvar((yyvsp[(1) - (5)].na),NULL);strcpy(my_dim.last,(yyvsp[(4) - (5)].na));}
+    break;
+
+  case 540:
+/* Line 1807 of yacc.c  */
+#line 2872 "fortran.y"
+    {strcpy(my_dim.last,"");}
+    break;
+
+  case 541:
+/* Line 1807 of yacc.c  */
+#line 2877 "fortran.y"
+    {strcpy(my_dim.last,"");}
+    break;
+
+  case 542:
+/* Line 1807 of yacc.c  */
+#line 2882 "fortran.y"
+    {strcpy(my_dim.last,"");}
+    break;
+
+  case 543:
+/* Line 1807 of yacc.c  */
+#line 2884 "fortran.y"
+    {strcpy(my_dim.last,"");}
+    break;
+
+  case 544:
+/* Line 1807 of yacc.c  */
+#line 2890 "fortran.y"
+    {strcpy((yyval.na),"");}
+    break;
+
+  case 545:
+/* Line 1807 of yacc.c  */
+#line 2892 "fortran.y"
+    {strcpy((yyval.na),(yyvsp[(1) - (1)].na));}
+    break;
+
+  case 546:
+/* Line 1807 of yacc.c  */
+#line 2894 "fortran.y"
+    {sprintf((yyval.na),"%s,%s",(yyvsp[(1) - (3)].na),(yyvsp[(3) - (3)].na));}
+    break;
+
+  case 547:
+/* Line 1807 of yacc.c  */
+#line 2916 "fortran.y"
+    {sprintf((yyval.na),"%s%s",(yyvsp[(1) - (2)].na),(yyvsp[(2) - (2)].na));}
+    break;
+
+  case 548:
+/* Line 1807 of yacc.c  */
+#line 2918 "fortran.y"
+    {strcpy((yyval.na),":");}
+    break;
+
+  case 549:
+/* Line 1807 of yacc.c  */
+#line 2920 "fortran.y"
+    {sprintf((yyval.na),":%s",(yyvsp[(2) - (2)].na));}
+    break;
+
+  case 550:
+/* Line 1807 of yacc.c  */
+#line 2922 "fortran.y"
+    {sprintf((yyval.na),": :%s",(yyvsp[(3) - (3)].na));}
+    break;
+
+  case 551:
+/* Line 1807 of yacc.c  */
+#line 2924 "fortran.y"
+    {sprintf((yyval.na),":%s :%s",(yyvsp[(2) - (4)].na),(yyvsp[(4) - (4)].na));}
+    break;
+
+  case 552:
+/* Line 1807 of yacc.c  */
+#line 2926 "fortran.y"
+    {sprintf((yyval.na),"::%s",(yyvsp[(2) - (2)].na));}
+    break;
+
+  case 554:
+/* Line 1807 of yacc.c  */
+#line 2929 "fortran.y"
+    {sprintf((yyval.na),"%s=%s",(yyvsp[(1) - (3)].na),(yyvsp[(3) - (3)].na));}
+    break;
+
+  case 555:
+/* Line 1807 of yacc.c  */
+#line 2931 "fortran.y"
+    {sprintf((yyval.na),"%s=*%s",(yyvsp[(1) - (4)].na),(yyvsp[(4) - (4)].na));}
+    break;
+
+  case 556:
+/* Line 1807 of yacc.c  */
+#line 2933 "fortran.y"
+    {sprintf((yyval.na),"*%s",(yyvsp[(2) - (2)].na));}
+    break;
+
+  case 557:
+/* Line 1807 of yacc.c  */
+#line 2937 "fortran.y"
+    {strcpy((yyval.na),":");}
+    break;
+
+  case 558:
+/* Line 1807 of yacc.c  */
+#line 2939 "fortran.y"
+    {sprintf((yyval.na),":%s",(yyvsp[(2) - (2)].na));}
+    break;
+
+  case 559:
+/* Line 1807 of yacc.c  */
+#line 2941 "fortran.y"
+    {sprintf((yyval.na),": :%s",(yyvsp[(3) - (3)].na));}
+    break;
+
+  case 560:
+/* Line 1807 of yacc.c  */
+#line 2943 "fortran.y"
+    {sprintf((yyval.na),":%s :%s",(yyvsp[(2) - (4)].na),(yyvsp[(4) - (4)].na));}
+    break;
+
+  case 561:
+/* Line 1807 of yacc.c  */
+#line 2945 "fortran.y"
+    {sprintf((yyval.na),"::%s",(yyvsp[(2) - (2)].na));}
+    break;
+
+  case 562:
+/* Line 1807 of yacc.c  */
+#line 2947 "fortran.y"
+    {strcpy((yyval.na),"");}
+    break;
+
+  case 564:
+/* Line 1807 of yacc.c  */
+#line 2965 "fortran.y"
+    {in_complex_literal=0;}
+    break;
+
+  case 565:
+/* Line 1807 of yacc.c  */
+#line 2966 "fortran.y"
+    {inallocate = 0;}
+    break;
+
+  case 589:
+/* Line 1807 of yacc.c  */
+#line 3036 "fortran.y"
+    {in_complex_literal=0;}
+    break;
+
+  case 590:
+/* Line 1807 of yacc.c  */
+#line 3037 "fortran.y"
+    {inallocate = 0;}
+    break;
+
+  case 600:
+/* Line 1807 of yacc.c  */
+#line 3067 "fortran.y"
+    {
+      strcpy((yyval.na),(yyvsp[(1) - (1)].v)->v_nomvar);
+      if (strcasecmp(my_dim.last,""))
+      {
+      strcat((yyval.na),"(");
+      strcat((yyval.na),my_dim.last);
+      strcat((yyval.na),")");
+      }
+      }
+    break;
+
+  case 604:
+/* Line 1807 of yacc.c  */
+#line 3080 "fortran.y"
+    { sprintf((yyval.na),"(%s)",(yyvsp[(2) - (3)].na));}
+    break;
+
+  case 605:
+/* Line 1807 of yacc.c  */
+#line 3085 "fortran.y"
+    {strcpy(my_dim.last,"");}
+    break;
+
+  case 607:
+/* Line 1807 of yacc.c  */
+#line 3091 "fortran.y"
+    {sprintf((yyval.na),"%s**%s",(yyvsp[(1) - (3)].na),(yyvsp[(3) - (3)].na));}
+    break;
+
+  case 609:
+/* Line 1807 of yacc.c  */
+#line 3096 "fortran.y"
+    { sprintf((yyval.na),"%s%s%s",(yyvsp[(1) - (3)].na),(yyvsp[(2) - (3)].na),(yyvsp[(3) - (3)].na)); }
+    break;
+
+  case 611:
+/* Line 1807 of yacc.c  */
+#line 3104 "fortran.y"
+    { sprintf((yyval.na),"%s%s",(yyvsp[(1) - (2)].na),(yyvsp[(2) - (2)].na)); }
+    break;
+
+  case 612:
+/* Line 1807 of yacc.c  */
+#line 3106 "fortran.y"
+    { sprintf((yyval.na),"%s%s%s",(yyvsp[(1) - (3)].na),(yyvsp[(2) - (3)].na),(yyvsp[(3) - (3)].na)); }
+    break;
+
+  case 614:
+/* Line 1807 of yacc.c  */
+#line 3109 "fortran.y"
+    { sprintf((yyval.na),"%s%s",(yyvsp[(1) - (2)].na),(yyvsp[(2) - (2)].na)); }
+    break;
+
+  case 616:
+/* Line 1807 of yacc.c  */
+#line 3118 "fortran.y"
+    {strcpy((yyval.na),"*");}
+    break;
+
+  case 618:
+/* Line 1807 of yacc.c  */
+#line 3124 "fortran.y"
+    {strcpy((yyval.na),"+");}
+    break;
+
+  case 619:
+/* Line 1807 of yacc.c  */
+#line 3126 "fortran.y"
+    {strcpy((yyval.na),"-");}
+    break;
+
+  case 621:
+/* Line 1807 of yacc.c  */
+#line 3132 "fortran.y"
+    { sprintf((yyval.na),"%s%s%s",(yyvsp[(1) - (3)].na),(yyvsp[(2) - (3)].na),(yyvsp[(3) - (3)].na)); }
+    break;
+
+  case 624:
+/* Line 1807 of yacc.c  */
+#line 3141 "fortran.y"
+    { sprintf((yyval.na),"%s%s%s",(yyvsp[(1) - (3)].na),(yyvsp[(2) - (3)].na),(yyvsp[(3) - (3)].na)); }
+    break;
+
+  case 633:
+/* Line 1807 of yacc.c  */
+#line 3154 "fortran.y"
+    {strcpy((yyval.na),"<");}
+    break;
+
+  case 635:
+/* Line 1807 of yacc.c  */
+#line 3157 "fortran.y"
+    {strcpy((yyval.na),">");}
+    break;
+
+  case 638:
+/* Line 1807 of yacc.c  */
+#line 3165 "fortran.y"
+    { sprintf((yyval.na),"%s%s",(yyvsp[(1) - (2)].na),(yyvsp[(2) - (2)].na)); }
+    break;
+
+  case 640:
+/* Line 1807 of yacc.c  */
+#line 3172 "fortran.y"
+    { sprintf((yyval.na),"%s%s%s",(yyvsp[(1) - (3)].na),(yyvsp[(2) - (3)].na),(yyvsp[(3) - (3)].na)); }
+    break;
+
+  case 642:
+/* Line 1807 of yacc.c  */
+#line 3179 "fortran.y"
+    { sprintf((yyval.na),"%s%s%s",(yyvsp[(1) - (3)].na),(yyvsp[(2) - (3)].na),(yyvsp[(3) - (3)].na)); }
+    break;
+
+  case 644:
+/* Line 1807 of yacc.c  */
+#line 3185 "fortran.y"
+    { sprintf((yyval.na),"%s%s%s",(yyvsp[(1) - (3)].na),(yyvsp[(2) - (3)].na),(yyvsp[(3) - (3)].na)); }
+    break;
+
+  case 654:
+/* Line 1807 of yacc.c  */
+#line 3221 "fortran.y"
+    {strcpy((yyval.na),"");}
+    break;
+
+  case 657:
+/* Line 1807 of yacc.c  */
+#line 3230 "fortran.y"
+    {
+     strcpy((yyval.na),(yyvsp[(1) - (1)].na));
+     }
+    break;
+
+  case 658:
+/* Line 1807 of yacc.c  */
+#line 3237 "fortran.y"
+    {strcpy((yyval.na),(yyvsp[(1) - (1)].na));}
+    break;
+
+  case 786:
+/* Line 1807 of yacc.c  */
+#line 3609 "fortran.y"
+    {in_select_case_stmt++;}
+    break;
+
+  case 788:
+/* Line 1807 of yacc.c  */
+#line 3610 "fortran.y"
+    {in_select_case_stmt++;}
+    break;
+
+  case 792:
+/* Line 1807 of yacc.c  */
+#line 3619 "fortran.y"
+    {in_select_case_stmt--;}
+    break;
+
+  case 794:
+/* Line 1807 of yacc.c  */
+#line 3620 "fortran.y"
+    {in_select_case_stmt--;}
+    break;
+
+  case 796:
+/* Line 1807 of yacc.c  */
+#line 3625 "fortran.y"
+    {in_complex_literal=0;}
+    break;
+
+  case 820:
+/* Line 1807 of yacc.c  */
+#line 3688 "fortran.y"
+    {close_or_connect = 1;}
+    break;
+
+  case 821:
+/* Line 1807 of yacc.c  */
+#line 3688 "fortran.y"
+    {close_or_connect = 0;}
+    break;
+
+  case 838:
+/* Line 1807 of yacc.c  */
+#line 3718 "fortran.y"
+    {close_or_connect = 1;}
+    break;
+
+  case 839:
+/* Line 1807 of yacc.c  */
+#line 3719 "fortran.y"
+    {close_or_connect = 0;}
+    break;
+
+  case 905:
+/* Line 1807 of yacc.c  */
+#line 3852 "fortran.y"
+    {in_inquire=0;}
+    break;
+
+  case 907:
+/* Line 1807 of yacc.c  */
+#line 3855 "fortran.y"
+    {in_inquire=0;}
+    break;
+
+  case 909:
+/* Line 1807 of yacc.c  */
+#line 3859 "fortran.y"
+    {in_inquire=1;}
+    break;
+
+  case 924:
+/* Line 1807 of yacc.c  */
+#line 3886 "fortran.y"
+    {pos_endsubroutine=setposcur();}
+    break;
+
+  case 928:
+/* Line 1807 of yacc.c  */
+#line 3895 "fortran.y"
+    {
+            GlobalDeclaration = 0;
+            strcpy(curmodulename,(yyvsp[(2) - (2)].na));
+            strcpy(subroutinename,"");
+            Add_NameOfModule_1((yyvsp[(2) - (2)].na));
+            if ( inmoduledeclare == 0 )
+            {
+                /* To know if there are in the module declaration    */
+                inmoduledeclare = 1;
+                /* to know if a module has been met                  */
+                inmodulemeet = 1;
+                /* to know if we are after the keyword contains      */
+                aftercontainsdeclare = 0 ;
+            }
+        }
+    break;
+
+  case 930:
+/* Line 1807 of yacc.c  */
+#line 3915 "fortran.y"
+    {
+            /* if we never meet the contains keyword               */
+            if ( firstpass == 0 )
+            {
+                RemoveWordCUR_0(fortran_out, setposcur()-my_position);    // Remove word "end module"
+                if ( inmoduledeclare && ! aftercontainsdeclare )
+                {
+                    Write_Closing_Module(1);
+                }
+                fprintf(fortran_out,"\n      end module %s\n", curmodulename);
+                if ( module_declar && insubroutinedeclare == 0 )
+                {
+                    fclose(module_declar);
+                }
+            }
+            inmoduledeclare = 0 ;
+            inmodulemeet = 0 ;
+            aftercontainsdeclare = 1;
+            strcpy(curmodulename, "");
+            GlobalDeclaration = 0 ;
+        }
+    break;
+
+  case 945:
+/* Line 1807 of yacc.c  */
+#line 3967 "fortran.y"
+    {if (firstpass == 0 && oldfortran_out) pos_curuseold = setposcurname(oldfortran_out);}
+    break;
+
+  case 946:
+/* Line 1807 of yacc.c  */
+#line 3972 "fortran.y"
+    {
+            if ( firstpass )
+            {
+                if ( insubroutinedeclare )
+                {
+                    if ((yyvsp[(6) - (6)].lc)) {
+                      Add_CouplePointed_Var_1((yyvsp[(5) - (6)].na),(yyvsp[(6) - (6)].lc));
+                      coupletmp = (yyvsp[(6) - (6)].lc);
+                      strcpy(ligne,"");
+                      while ( coupletmp )
+                      {
+                        strcat(ligne, coupletmp->c_namevar);
+                        strcat(ligne, " => ");
+                        strcat(ligne, coupletmp->c_namepointedvar);
+                        coupletmp = coupletmp->suiv;
+                        if ( coupletmp ) strcat(ligne,",");
+                      }
+                      }
+                  sprintf(charusemodule,"%s",(yyvsp[(5) - (6)].na));
+                }
+                Add_NameOfModuleUsed_1((yyvsp[(5) - (6)].na));
+            }
+            else
+            {
+                if ( insubroutinedeclare )
+                {
+                  copyuse_0((yyvsp[(5) - (6)].na));
+                    }
+
+                if ( inmoduledeclare == 0 )
+                {
+                    pos_end = setposcur();
+                    RemoveWordSET_0(fortran_out,my_position,pos_end-my_position);
+                }
+            }
+    }
+    break;
+
+  case 948:
+/* Line 1807 of yacc.c  */
+#line 4010 "fortran.y"
+    {
+            if ( firstpass )
+            {
+                if ( insubroutinedeclare )
+                {
+                  if ((yyvsp[(9) - (9)].lc))
+                  {
+                    Add_CouplePointed_Var_1((yyvsp[(5) - (9)].na),(yyvsp[(9) - (9)].lc));
+                    coupletmp = (yyvsp[(9) - (9)].lc);
+                    strcpy(ligne,"");
+                    while ( coupletmp )
+                    {
+                        strcat(ligne,coupletmp->c_namevar);
+                        if ( strcasecmp(coupletmp->c_namepointedvar,"") )   strcat(ligne," => ");
+                        strcat(ligne,coupletmp->c_namepointedvar);
+                        coupletmp = coupletmp->suiv;
+                        if ( coupletmp ) strcat(ligne,",");
+                    }
+                  }
+                  sprintf(charusemodule,"%s",(yyvsp[(5) - (9)].na));
+                }
+                Add_NameOfModuleUsed_1((yyvsp[(5) - (9)].na));
+            }
+            else
+            {
+                if ( insubroutinedeclare )
+                    copyuseonly_0((yyvsp[(5) - (9)].na));
+
+                if ( inmoduledeclare == 0 )
+                {
+                    pos_end = setposcur();
+                    RemoveWordSET_0(fortran_out,my_position,pos_end-my_position);
+                    if ((yyvsp[(9) - (9)].lc))
+                    {
+                    if (oldfortran_out)  variableisglobalinmodule((yyvsp[(9) - (9)].lc),(yyvsp[(5) - (9)].na),oldfortran_out,pos_curuseold);
+                    }
+                }
+                else
+                {
+                  if ((yyvsp[(9) - (9)].lc))
+                  {
+                    /* if we are in the module declare and if the    */
+                    /* onlylist is a list of global variable         */
+                    variableisglobalinmodule((yyvsp[(9) - (9)].lc), (yyvsp[(5) - (9)].na), fortran_out,my_position);
+                  }
+                }
+            }
+    }
+    break;
+
+  case 953:
+/* Line 1807 of yacc.c  */
+#line 4067 "fortran.y"
+    {(yyval.lc)=NULL;}
+    break;
+
+  case 954:
+/* Line 1807 of yacc.c  */
+#line 4069 "fortran.y"
+    {(yyval.lc)=(yyvsp[(1) - (1)].lc);}
+    break;
+
+  case 960:
+/* Line 1807 of yacc.c  */
+#line 4086 "fortran.y"
+    {
+            strcpy(subroutinename,(yyvsp[(2) - (2)].na));
+            insubroutinedeclare = 1;
+            inprogramdeclare = 1;
+            /* in the second step we should write the head of       */
+            /*    the subroutine sub_loop_<subroutinename>          */
+            if ( ! firstpass )
+                WriteBeginof_SubLoop();
+        }
+    break;
+
+  case 962:
+/* Line 1807 of yacc.c  */
+#line 4099 "fortran.y"
+    {pos_endsubroutine=my_position_before;}
+    break;
+
+  case 963:
+/* Line 1807 of yacc.c  */
+#line 4100 "fortran.y"
+    {
+            insubroutinedeclare = 0;
+            inprogramdeclare = 0;
+            pos_cur = setposcur();
+            closeandcallsubloopandincludeit_0(3);
+            functiondeclarationisdone = 0;
+            strcpy(subroutinename,"");     
+     }
+    break;
+
+  case 970:
+/* Line 1807 of yacc.c  */
+#line 4122 "fortran.y"
+    {
+    (yyval.lc)=NULL;
+    }
+    break;
+
+  case 971:
+/* Line 1807 of yacc.c  */
+#line 4126 "fortran.y"
+    {
+    (yyval.lc)=(yyvsp[(2) - (2)].lc);
+    }
+    break;
+
+  case 972:
+/* Line 1807 of yacc.c  */
+#line 4132 "fortran.y"
+    {
+     (yyval.lc)=(yyvsp[(1) - (1)].lc);
+     }
+    break;
+
+  case 973:
+/* Line 1807 of yacc.c  */
+#line 4136 "fortran.y"
+    {
+     /* insert the variable in the list $1                 */
+     (yyvsp[(3) - (3)].lc)->suiv = (yyvsp[(1) - (3)].lc);
+     (yyval.lc)=(yyvsp[(3) - (3)].lc);
+     }
+    break;
+
+  case 974:
+/* Line 1807 of yacc.c  */
+#line 4145 "fortran.y"
+    {
+            coupletmp = (listcouple *) calloc(1,sizeof(listcouple));
+            strcpy(coupletmp->c_namevar,(yyvsp[(1) - (3)].na));
+            strcpy(coupletmp->c_namepointedvar,(yyvsp[(3) - (3)].na));
+            coupletmp->suiv = NULL;
+            (yyval.lc) = coupletmp;
+        }
+    break;
+
+  case 975:
+/* Line 1807 of yacc.c  */
+#line 4155 "fortran.y"
+    {(yyval.lc)=(yyvsp[(1) - (1)].lc);}
+    break;
+
+  case 976:
+/* Line 1807 of yacc.c  */
+#line 4157 "fortran.y"
+    {
+            /* insert the variable in the list $1                 */
+            (yyvsp[(3) - (3)].lc)->suiv = (yyvsp[(1) - (3)].lc);
+            (yyval.lc) = (yyvsp[(3) - (3)].lc);
+        }
+    break;
+
+  case 977:
+/* Line 1807 of yacc.c  */
+#line 4166 "fortran.y"
+    {
+            coupletmp = (listcouple *)calloc(1,sizeof(listcouple));
+            strcpy(coupletmp->c_namevar,(yyvsp[(1) - (1)].na));
+            strcpy(coupletmp->c_namepointedvar,"");
+            coupletmp->suiv = NULL;
+            (yyval.lc) = coupletmp;
+        }
+    break;
+
+  case 978:
+/* Line 1807 of yacc.c  */
+#line 4174 "fortran.y"
+    {
+            coupletmp = (listcouple *)calloc(1,sizeof(listcouple));
+            strcpy(coupletmp->c_namevar,(yyvsp[(1) - (1)].na));
+            strcpy(coupletmp->c_namepointedvar,"");
+            coupletmp->suiv = NULL;
+            (yyval.lc) = coupletmp;
+        }
+    break;
+
+  case 979:
+/* Line 1807 of yacc.c  */
+#line 4182 "fortran.y"
+    {
+     (yyval.lc)=(yyvsp[(1) - (1)].lc);
+     pointedvar = 1;
+      Add_UsedInSubroutine_Var_1((yyvsp[(1) - (1)].lc)->c_namevar);
+     }
+    break;
+
+  case 992:
+/* Line 1807 of yacc.c  */
+#line 4222 "fortran.y"
+    {in_complex_literal=0;}
+    break;
+
+  case 993:
+/* Line 1807 of yacc.c  */
+#line 4223 "fortran.y"
+    {sprintf((yyval.na),"%s(%s)",(yyvsp[(1) - (5)].na),(yyvsp[(4) - (5)].na));}
+    break;
+
+  case 994:
+/* Line 1807 of yacc.c  */
+#line 4229 "fortran.y"
+    {
+            inagrifcallargument = 0 ;
+            incalldeclare=0;
+            if ( oldfortran_out && (callagrifinitgrids == 1) && (firstpass == 0) )
+            {
+                pos_end = setposcur();
+                RemoveWordSET_0(fortran_out,pos_curcall,pos_end-pos_curcall);
+                strcpy(subofagrifinitgrids,subroutinename);
+            }
+            Instanciation_0(sameagrifname);
+        }
+    break;
+
+  case 996:
+/* Line 1807 of yacc.c  */
+#line 4242 "fortran.y"
+    {
+            inagrifcallargument = 0 ;
+            incalldeclare=0;
+            if ( oldfortran_out && (callagrifinitgrids == 1) && (firstpass == 0) )
+            {
+                pos_end = setposcur();
+                RemoveWordSET_0(fortran_out,pos_curcall,pos_end-pos_curcall);
+                strcpy(subofagrifinitgrids,subroutinename);
+            }
+            Instanciation_0(sameagrifname);
+        }
+    break;
+
+  case 998:
+/* Line 1807 of yacc.c  */
+#line 4254 "fortran.y"
+    {in_complex_literal=0;}
+    break;
+
+  case 999:
+/* Line 1807 of yacc.c  */
+#line 4255 "fortran.y"
+    {
+            inagrifcallargument = 0 ;
+            incalldeclare=0;
+            if ( oldfortran_out && (callagrifinitgrids == 1) && (firstpass == 0) )
+            {
+                pos_end = setposcur();
+                RemoveWordSET_0(fortran_out,pos_curcall,pos_end-pos_curcall);
+                strcpy(subofagrifinitgrids,subroutinename);
+            }
+            Instanciation_0(sameagrifname);
+        }
+    break;
+
+  case 1001:
+/* Line 1807 of yacc.c  */
+#line 4269 "fortran.y"
+    {pos_curcall=my_position_before-strlen((yyvsp[(1) - (2)].na))-4;}
+    break;
+
+  case 1002:
+/* Line 1807 of yacc.c  */
+#line 4270 "fortran.y"
+    {
+            if (!strcasecmp((yyvsp[(4) - (4)].na),"MPI_Init") )    callmpiinit = 1;
+            else                                callmpiinit = 0;
+
+            if (!strcasecmp((yyvsp[(4) - (4)].na),"Agrif_Init_Grids") )
+            {
+                callagrifinitgrids = 1;
+                strcpy(meetagrifinitgrids,subroutinename);
+            }
+            else
+            {
+                callagrifinitgrids = 0;
+            }
+            if ( Vartonumber((yyvsp[(4) - (4)].na)) == 1 )
+            {
+                incalldeclare = 0;
+                inagrifcallargument = 0 ;
+                Add_SubroutineWhereAgrifUsed_1(subroutinename, curmodulename);
+            }
+        }
+    break;
+
+  case 1007:
+/* Line 1807 of yacc.c  */
+#line 4301 "fortran.y"
+    {sprintf((yyval.na),"%s,%s",(yyvsp[(1) - (3)].na),(yyvsp[(3) - (3)].na));}
+    break;
+
+  case 1008:
+/* Line 1807 of yacc.c  */
+#line 4306 "fortran.y"
+    {
+            if ( callmpiinit == 1 )
+            {
+                strcpy(mpiinitvar,(yyvsp[(1) - (1)].na));
+                if ( firstpass == 1 )  Add_UsedInSubroutine_Var_1 (mpiinitvar);
+            }
+        }
+    break;
+
+  case 1009:
+/* Line 1807 of yacc.c  */
+#line 4314 "fortran.y"
+    {sprintf((yyval.na),"%s = %s",(yyvsp[(1) - (3)].na),(yyvsp[(3) - (3)].na));
+                 if ( callmpiinit == 1 )
+            {
+                strcpy(mpiinitvar,(yyvsp[(3) - (3)].na));
+                if ( firstpass == 1 )  Add_UsedInSubroutine_Var_1 (mpiinitvar);
+            }
+            }
+    break;
+
+  case 1011:
+/* Line 1807 of yacc.c  */
+#line 4326 "fortran.y"
+    {
+     strcpy((yyval.na),(yyvsp[(1) - (1)].v)->v_nomvar);
+     if ((yyvsp[(1) - (1)].v)->v_initialvalue_array)
+     {
+     strcat((yyval.na),"(");
+     strcat((yyval.na),(yyvsp[(1) - (1)].v)->v_initialvalue_array->n_name);
+     strcat((yyval.na),")");
+     }
+     }
+    break;
+
+  case 1013:
+/* Line 1807 of yacc.c  */
+#line 4338 "fortran.y"
+    {isrecursive = 0;}
+    break;
+
+  case 1017:
+/* Line 1807 of yacc.c  */
+#line 4349 "fortran.y"
+    {isrecursive = 0; functiondeclarationisdone = 1;}
+    break;
+
+  case 1018:
+/* Line 1807 of yacc.c  */
+#line 4351 "fortran.y"
+    {isrecursive = 0;}
+    break;
+
+  case 1019:
+/* Line 1807 of yacc.c  */
+#line 4353 "fortran.y"
+    {isrecursive = 1;}
+    break;
+
+  case 1021:
+/* Line 1807 of yacc.c  */
+#line 4362 "fortran.y"
+    {in_complex_literal=0;}
+    break;
+
+  case 1022:
+/* Line 1807 of yacc.c  */
+#line 4363 "fortran.y"
+    {
+            insubroutinedeclare = 1;
+            suborfun = 0;
+            /* we should to list of the subroutine argument the  */
+            /*    name of the function which has to be defined   */
+            if ( firstpass )
+            {
+                Add_SubroutineArgument_Var_1((yyvsp[(6) - (8)].l));
+                if ( ! is_result_present )
+                    Add_FunctionType_Var_1((yyvsp[(3) - (8)].na));
+            }
+            else
+            /* in the second step we should write the head of    */
+            /*    the subroutine sub_loop_<subroutinename>       */
+               {
+                if (todebug == 1) fprintf(fortran_out,"      !DEBUG: Avant Writebeginof subloop\n");
+                WriteBeginof_SubLoop();
+                if (todebug == 1) fprintf(fortran_out,"      !DEBUG: Apres Writebeginof subloop\n");
+                }
+     }
+    break;
+
+  case 1024:
+/* Line 1807 of yacc.c  */
+#line 4387 "fortran.y"
+    {
+     if (strcmp(subroutinename,""))
+     {
+     strcpy(old_subroutinename,subroutinename); // can occur in internal-subprogram
+     old_oldfortran_out=oldfortran_out;
+     }
+     else
+     {
+     old_oldfortran_out=(FILE *)NULL;
+     }
+     strcpy((yyval.na),(yyvsp[(1) - (1)].na));strcpy(subroutinename,(yyvsp[(1) - (1)].na));
+     }
+    break;
+
+  case 1025:
+/* Line 1807 of yacc.c  */
+#line 4412 "fortran.y"
+    {strcpy((yyval.na),(yyvsp[(1) - (1)].na));}
+    break;
+
+  case 1026:
+/* Line 1807 of yacc.c  */
+#line 4416 "fortran.y"
+    {is_result_present = 0; }
+    break;
+
+  case 1028:
+/* Line 1807 of yacc.c  */
+#line 4422 "fortran.y"
+    {is_result_present = 1;
+                 if ( firstpass == 1 )
+            {
+                strcpy(nameinttypenameback,nameinttypename);
+                strcpy(nameinttypename,"");
+                curvar = createvar((yyvsp[(3) - (4)].na),NULL);
+                strcpy(nameinttypename,nameinttypenameback);
+                strcpy(curvar->v_typevar,"");
+                curlistvar = insertvar(NULL,curvar);
+                Add_SubroutineArgument_Var_1(curlistvar);
+            }
+     }
+    break;
+
+  case 1029:
+/* Line 1807 of yacc.c  */
+#line 4438 "fortran.y"
+    {strcpy(DeclType, "");}
+    break;
+
+  case 1034:
+/* Line 1807 of yacc.c  */
+#line 4452 "fortran.y"
+    {
+            insubroutinedeclare = 1;
+            suborfun = 1;
+            if ( firstpass )
+                Add_SubroutineArgument_Var_1((yyvsp[(4) - (4)].l));
+            else
+              {
+                WriteBeginof_SubLoop();
+              }
+        }
+    break;
+
+  case 1036:
+/* Line 1807 of yacc.c  */
+#line 4467 "fortran.y"
+    {
+     if (strcmp(subroutinename,""))
+     {
+     strcpy(old_subroutinename,subroutinename); // can occur in internal-subprogram
+     old_oldfortran_out=oldfortran_out;
+     }
+     else
+     {
+     old_oldfortran_out=(FILE *)NULL;
+     }
+     strcpy((yyval.na),(yyvsp[(1) - (1)].na));strcpy(subroutinename,(yyvsp[(1) - (1)].na));
+     }
+    break;
+
+  case 1038:
+/* Line 1807 of yacc.c  */
+#line 4488 "fortran.y"
+    {pos_endsubroutine = my_position;
+            GlobalDeclaration = 0 ;
+            if ( firstpass == 0 && strcasecmp(subroutinename,"") )
+            {
+                if ( module_declar && insubroutinedeclare == 0 )    fclose(module_declar);
+            }
+            if ( strcasecmp(subroutinename,"") )
+            {
+                if ( inmodulemeet == 1 )
+                {
+                    /* we are in a module                                */
+                    if ( insubroutinedeclare == 1 )
+                    {
+                        /* it is like an end subroutine <name>            */
+                        insubroutinedeclare = 0 ;
+                        pos_cur = setposcur();
+                        closeandcallsubloopandincludeit_0(suborfun);
+                        functiondeclarationisdone = 0;
+                    }
+                    else
+                    {
+                        /* it is like an end module <name>                */
+                        inmoduledeclare = 0 ;
+                        inmodulemeet = 0 ;
+                    }
+                }
+                else
+                {
+                    insubroutinedeclare = 0;
+                    pos_cur = setposcur();
+                    closeandcallsubloopandincludeit_0(2);
+                    functiondeclarationisdone = 0;
+                }
+            }
+            strcpy(subroutinename,"");
+            if (strcmp(old_subroutinename,""))
+            {
+            strcpy(subroutinename,old_subroutinename);
+            strcpy(old_subroutinename,"");
+            oldfortran_out=old_oldfortran_out;
+            insubroutinedeclare=1;
+            }
+        }
+    break;
+
+  case 1041:
+/* Line 1807 of yacc.c  */
+#line 4537 "fortran.y"
+    {if (firstpass) (yyval.l)=NULL;}
+    break;
+
+  case 1042:
+/* Line 1807 of yacc.c  */
+#line 4538 "fortran.y"
+    {in_complex_literal=0;}
+    break;
+
+  case 1043:
+/* Line 1807 of yacc.c  */
+#line 4539 "fortran.y"
+    {if (firstpass) (yyval.l)=(yyvsp[(3) - (4)].l);}
+    break;
+
+  case 1044:
+/* Line 1807 of yacc.c  */
+#line 4543 "fortran.y"
+    {if (firstpass) (yyval.l)=NULL;}
+    break;
+
+  case 1045:
+/* Line 1807 of yacc.c  */
+#line 4545 "fortran.y"
+    {if (firstpass) (yyval.l)=(yyvsp[(1) - (1)].l);}
+    break;
+
+  case 1046:
+/* Line 1807 of yacc.c  */
+#line 4550 "fortran.y"
+    {
+            if ( firstpass == 1 )
+            {
+                strcpy(nameinttypenameback,nameinttypename);
+                strcpy(nameinttypename,"");
+                curvar = createvar((yyvsp[(1) - (1)].na),NULL);
+                strcpy(nameinttypename,nameinttypenameback);
+                curlistvar = insertvar(NULL,curvar);
+                (yyval.l) = settype("",curlistvar);
+            }
+        }
+    break;
+
+  case 1047:
+/* Line 1807 of yacc.c  */
+#line 4562 "fortran.y"
+    {
+            if ( firstpass == 1 )
+            {
+                strcpy(nameinttypenameback,nameinttypename);
+                strcpy(nameinttypename,"");
+                curvar = createvar((yyvsp[(3) - (3)].na),NULL);
+                strcpy(nameinttypename,nameinttypenameback);
+                (yyval.l) = insertvar((yyvsp[(1) - (3)].l),curvar);
+            }
+        }
+    break;
+
+  case 1048:
+/* Line 1807 of yacc.c  */
+#line 4576 "fortran.y"
+    {strcpy((yyval.na),(yyvsp[(1) - (1)].na));}
+    break;
+
+  case 1049:
+/* Line 1807 of yacc.c  */
+#line 4578 "fortran.y"
+    {strcpy((yyval.na),"*");}
+    break;
+
+  case 1052:
+/* Line 1807 of yacc.c  */
+#line 4588 "fortran.y"
     {
             if ( inside_type_declare ) break;
@@ -5865 +6970 @@
     break;
 
-  case 483:
-/* Line 1807 of yacc.c  */
-#line 1898 "fortran.y"
-    {
-            strcpy((yyval.na),(yyvsp[(1) - (1)].na));
-            pos_endsubroutine = setposcur()-strlen((yyvsp[(1) - (1)].na));
-            functiondeclarationisdone = 0;
-        }
-    break;
-
-  case 484:
-/* Line 1807 of yacc.c  */
-#line 1906 "fortran.y"
-    {
-            strcpy((yyval.na),(yyvsp[(1) - (1)].na));
-            pos_endsubroutine = setposcur()-strlen((yyvsp[(1) - (1)].na));
-        }
-    break;
-
-  case 485:
-/* Line 1807 of yacc.c  */
-#line 1913 "fortran.y"
-    {
-            strcpy((yyval.na),(yyvsp[(1) - (1)].na));
-            pos_endsubroutine = setposcur()-strlen((yyvsp[(1) - (1)].na));
-        }
-    break;
-
-  case 486:
-/* Line 1807 of yacc.c  */
-#line 1920 "fortran.y"
-    {
-            strcpy((yyval.na),(yyvsp[(1) - (1)].na));
-            pos_endsubroutine = setposcur()-strlen((yyvsp[(1) - (1)].na));
-        }
-    break;
-
-  case 487:
-/* Line 1807 of yacc.c  */
-#line 1926 "fortran.y"
+  case 1054:
+/* Line 1807 of yacc.c  */
+#line 4623 "fortran.y"
     {strcpy((yyval.na),"");}
     break;
 
-  case 488:
-/* Line 1807 of yacc.c  */
-#line 1927 "fortran.y"
+  case 1055:
+/* Line 1807 of yacc.c  */
+#line 4624 "fortran.y"
     {strcpy((yyval.na),(yyvsp[(1) - (1)].na));}
     break;
 
-  case 489:
-/* Line 1807 of yacc.c  */
-#line 1930 "fortran.y"
-    { created_dimensionlist = 0; }
-    break;
-
-  case 490:
-/* Line 1807 of yacc.c  */
-#line 1934 "fortran.y"
-    {
-            created_dimensionlist = 1;
-            if ( ((yyvsp[(3) - (4)].d) == NULL) || ((yyvsp[(4) - (4)].d) == NULL) ) break;
-            if  ( agrif_parentcall == 1 )
-            {
-                ModifyTheAgrifFunction_0((yyvsp[(3) - (4)].d)->dim.last);
-                agrif_parentcall = 0;
-                fprintf(fortran_out," = ");
-            }
-        }
-    break;
-
-  case 491:
-/* Line 1807 of yacc.c  */
-#line 1945 "fortran.y"
-    {
-            created_dimensionlist = 1;
-        }
-    break;
-
-  case 496:
-/* Line 1807 of yacc.c  */
-#line 1958 "fortran.y"
-    {
-            inagrifcallargument = 0 ;
-            incalldeclare=0;
-            if ( oldfortran_out && (callagrifinitgrids == 1) && (firstpass == 0) )
-            {
-                pos_end = setposcur();
-                RemoveWordSET_0(fortran_out,pos_curcall,pos_end-pos_curcall);
-                strcpy(subofagrifinitgrids,subroutinename);
-            }
-            Instanciation_0(sameagrifname);
-        }
-    break;
-
-  case 502:
-/* Line 1807 of yacc.c  */
-#line 1979 "fortran.y"
-    {
-            if (!strcasecmp((yyvsp[(2) - (2)].na),"MPI_Init") )    callmpiinit = 1;
-            else                                callmpiinit = 0;
-
-            if (!strcasecmp((yyvsp[(2) - (2)].na),"Agrif_Init_Grids") )
-            {
-                callagrifinitgrids = 1;
-                strcpy(meetagrifinitgrids,subroutinename);
-            }
-            else
-            {
-                callagrifinitgrids = 0;
-            }
-            if ( Vartonumber((yyvsp[(2) - (2)].na)) == 1 )
-            {
-                incalldeclare = 1;
-                inagrifcallargument = 1 ;
-                Add_SubroutineWhereAgrifUsed_1(subroutinename, curmodulename);
-            }
-        }
-    break;
-
-  case 503:
-/* Line 1807 of yacc.c  */
-#line 2000 "fortran.y"
-    { pos_curcall=setposcur()-4; }
-    break;
-
-  case 506:
-/* Line 1807 of yacc.c  */
-#line 2008 "fortran.y"
-    {
-            if ( callmpiinit == 1 )
-            {
-                strcpy(mpiinitvar,(yyvsp[(1) - (1)].na));
-                if ( firstpass == 1 )  Add_UsedInSubroutine_Var_1 (mpiinitvar);
-            }
-        }
-    break;
-
-  case 532:
-/* Line 1807 of yacc.c  */
-#line 2056 "fortran.y"
+  case 1061:
+/* Line 1807 of yacc.c  */
+#line 4752 "fortran.y"
     { afterpercent = 1; }
     break;
 
-  case 572:
-/* Line 1807 of yacc.c  */
-#line 2115 "fortran.y"
-    { strcpy((yyval.na),(yyvsp[(1) - (1)].na)); }
-    break;
-
-  case 573:
-/* Line 1807 of yacc.c  */
-#line 2116 "fortran.y"
-    { strcpy((yyval.na),(yyvsp[(1) - (1)].na)); }
-    break;
-
-  case 574:
-/* Line 1807 of yacc.c  */
-#line 2117 "fortran.y"
-    { strcpy((yyval.na),(yyvsp[(1) - (1)].na)); }
-    break;
-
-  case 575:
-/* Line 1807 of yacc.c  */
-#line 2118 "fortran.y"
-    { strcpy((yyval.na),(yyvsp[(1) - (1)].na)); }
-    break;
-
-  case 576:
-/* Line 1807 of yacc.c  */
-#line 2119 "fortran.y"
-    { sprintf((yyval.na),"%s,%s",(yyvsp[(1) - (3)].na),(yyvsp[(3) - (3)].na)); }
-    break;
-
-  case 577:
-/* Line 1807 of yacc.c  */
-#line 2120 "fortran.y"
-    { sprintf((yyval.na),"%s,%s",(yyvsp[(1) - (3)].na),(yyvsp[(3) - (3)].na)); }
-    break;
-
-  case 578:
-/* Line 1807 of yacc.c  */
-#line 2121 "fortran.y"
-    { sprintf((yyval.na),"%s,%s",(yyvsp[(1) - (3)].na),(yyvsp[(3) - (3)].na)); }
-    break;
-
-  case 579:
-/* Line 1807 of yacc.c  */
-#line 2122 "fortran.y"
-    { sprintf((yyval.na),"%s,%s",(yyvsp[(1) - (3)].na),(yyvsp[(3) - (3)].na)); }
-    break;
-
-  case 580:
-/* Line 1807 of yacc.c  */
-#line 2123 "fortran.y"
-    { sprintf((yyval.na),"%s,%s",(yyvsp[(1) - (3)].na),(yyvsp[(3) - (3)].na)); }
-    break;
-
-  case 581:
-/* Line 1807 of yacc.c  */
-#line 2124 "fortran.y"
-    { sprintf((yyval.na),"%s,%s",(yyvsp[(1) - (3)].na),(yyvsp[(3) - (3)].na)); }
-    break;
-
-  case 582:
-/* Line 1807 of yacc.c  */
-#line 2127 "fortran.y"
-    { sprintf((yyval.na),"(%s,%s)",(yyvsp[(2) - (5)].na),(yyvsp[(4) - (5)].na)); }
-    break;
-
-  case 583:
-/* Line 1807 of yacc.c  */
-#line 2128 "fortran.y"
-    { sprintf((yyval.na),"(%s,%s)",(yyvsp[(2) - (5)].na),(yyvsp[(4) - (5)].na)); }
-    break;
-
-  case 584:
-/* Line 1807 of yacc.c  */
-#line 2129 "fortran.y"
-    { sprintf((yyval.na),"(%s,%s)",(yyvsp[(2) - (5)].na),(yyvsp[(4) - (5)].na)); }
-    break;
-
-  case 585:
-/* Line 1807 of yacc.c  */
-#line 2131 "fortran.y"
-    { sprintf((yyval.na),"%s=%s,%s)",(yyvsp[(1) - (5)].na),(yyvsp[(3) - (5)].na),(yyvsp[(5) - (5)].na));}
-    break;
-
-  case 586:
-/* Line 1807 of yacc.c  */
-#line 2132 "fortran.y"
-    { sprintf((yyval.na),"%s=%s,%s,%s)",(yyvsp[(1) - (7)].na),(yyvsp[(3) - (7)].na),(yyvsp[(5) - (7)].na),(yyvsp[(7) - (7)].na));}
-    break;
-
-  case 591:
-/* Line 1807 of yacc.c  */
-#line 2142 "fortran.y"
-    { Add_Allocate_Var_1((yyvsp[(1) - (1)].na),curmodulename); }
-    break;
-
-
-/* Line 1807 of yacc.c  */
-#line 6110 "fortran.tab.c"
+
+/* Line 1807 of yacc.c  */
+#line 6993 "fortran.tab.c"
       default: break;
     }
@@ -6338 +7222 @@
 
 /* Line 2055 of yacc.c  */
-#line 2156 "fortran.y"
+#line 4849 "fortran.y"
 
 
@@ -6794 +7678 @@
    (yy_c_buf_p) = yy_cp;
 
-#define YY_NUM_RULES 176
-#define YY_END_OF_BUFFER 177
+#define YY_NUM_RULES 177
+#define YY_END_OF_BUFFER 178
 /* This struct is not used in this scanner,
    but its presence is necessary. */
@@ -6803 +7687 @@
    flex_int32_t yy_nxt;
    };
-static yyconst flex_int16_t yy_accept[1132] =
+static yyconst flex_int16_t yy_acclist[1577] =
     {   0,
-        0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
-        0,    0,  177,  176,  166,  164,  175,  176,  155,  158,
-      176,  176,  157,  157,  157,  160,  156,  144,  154,  157,
-      159,  162,  161,  163,  151,  151,  151,  151,  151,  151,
-      151,  151,  151,  151,  151,  151,  151,  151,  151,  151,
-      151,  151,  151,  151,  166,  164,  166,  175,  154,  151,
-      151,  151,  151,  151,  151,  176,  176,  172,  176,  176,
-      176,  157,  151,    0,    0,  166,    0,    0,  175,  175,
-      175,    0,  148,    0,    0,    0,  168,    0,    0,    0,
-        0,    0,  147,    0,    0,  141,   25,    0,  153,    0,
-
-        0,    0,    0,    0,    0,    0,  142,    0,  154,    0,
-      140,   23,  151,  151,  151,  151,  151,  151,  151,  151,
-      151,  151,  151,  151,  151,  151,  151,  151,   42,  151,
-      151,  151,  151,  151,  151,  151,  151,  151,  151,  151,
-      151,  151,  100,  151,   89,  151,  151,  151,  151,  151,
-      151,  151,  151,  151,  151,  151,  151,  151,  151,  151,
-      151,  151,  151,  151,  151,  151,  151,  151,  151,  151,
-      151,  151,  151,  151,    0,  166,  166,    0,  167,    0,
-        0,    0,    0,    0,    0,  165,  166,    0,  175,  174,
-      175,  175,  175,  167,  154,    0,  151,  151,  151,  151,
-
-       89,  151,  151,    0,  172,    0,    0,    0,    0,    0,
-        0,  173,   25,    0,    0,    0,  151,  151,  151,  151,
-      151,    0,    0,    0,  175,  175,    0,    0,    0,    0,
-        0,    0,    0,    0,  146,    0,    0,    0,    0,    0,
-        0,    0,    0,    0,    0,    0,    0,    0,  152,  152,
-        0,  153,  151,  151,  151,  151,  151,  151,  151,  151,
-      151,  151,  151,  151,  151,  151,  123,  151,  151,  151,
-      151,  151,  151,  151,   14,  151,  151,  151,  151,  122,
-      151,  151,  151,  151,  151,  151,  151,    0,  151,  151,
-      151,  151,  151,  151,  129,  151,  151,  134,  151,  151,
-
-      151,  151,  151,  151,  151,  151,   93,  151,  151,  151,
-      151,  151,  151,  151,  151,  151,  151,  151,  151,  151,
-      151,  126,  151,  151,  151,  151,  151,  130,  151,  151,
-      151,  151,  151,  151,  151,    0,  166,  166,    0,    0,
-        0,    0,    0,    0,    0,    0,    0,  166,    0,  167,
-      175,  175,  175,  154,    0,  151,  151,  151,  151,  151,
-      151,  151,    0,    0,    0,    0,  173,    0,    0,    0,
-      151,  151,  151,  151,  151,    0,    0,    0,  175,  175,
-        0,    0,    0,    0,    0,    0,    0,    0,  153,    0,
-       27,    0,   29,   28,   31,   30,   33,    0,    0,   35,
-
-        0,    0,  133,  125,  151,  151,  128,  151,  131,  151,
-      151,   20,  151,  151,  151,  151,  151,  151,  124,  151,
-      151,  151,  151,  151,  151,   98,    0,  115,  151,  151,
-      151,  151,  151,  151,  151,  151,    0,  116,  151,    0,
-      117,  151,  151,  151,  151,  151,  151,    0,  113,  151,
-      151,    0,   92,  151,  151,  151,  151,  151,  151,  151,
-        0,  102,  151,  151,    0,  119,  151,  151,  151,  151,
-      120,    0,  114,   19,  151,   63,   77,  151,  151,  151,
-      151,  151,  151,  151,  151,   82,   43,  151,  151,  151,
-      151,   72,  151,  151,  127,  151,   76,   57,  151,    0,
-
-      101,  103,  151,   96,  105,  151,  151,  151,  151,   47,
-      166,  166,    0,    0,    0,    0,    0,    0,    0,  166,
-        0,  167,  175,  175,  175,  154,    0,  108,  151,  151,
-      151,  151,  151,   16,    0,    0,    0,    0,    0,    0,
-      151,  151,  151,  151,    0,    0,    0,  175,  175,    0,
-        0,    0,    0,    0,    0,   37,   26,    0,   34,   36,
-      151,  151,  151,  151,  151,  151,   52,  151,  151,  151,
-      151,  132,  151,  151,  151,  151,  151,    0,  151,  151,
-        0,    0,    0,    0,    0,    0,    0,    0,   41,  151,
-       99,  151,  151,  151,  151,  151,  151,  151,  151,   79,
-
-       79,  151,    0,  111,  121,   85,  151,  151,   92,  151,
-      151,   94,  151,  151,  151,  151,  151,  151,  151,  151,
-      151,  151,  151,    0,    0,  151,  151,  151,   55,  151,
-       80,  151,  151,  151,    0,  151,  151,  151,  151,  151,
-        0,  135,  106,  151,  151,    0,  112,   58,   39,   84,
-      166,  166,  108,    0,    0,    0,    0,    0,  166,    0,
-      167,  175,  175,  175,  154,    0,  108,  151,   90,  151,
-      151,   74,   73,   74,    0,    0,    0,    0,    0,  151,
-       52,  151,  132,    0,   21,    0,  175,   21,    0,   21,
-       21,    0,   21,    0,   21,   21,   21,   32,  151,  151,
-
-      151,   21,  151,  151,   66,  151,  151,  151,  151,  151,
-      151,  151,  145,    0,    0,   97,  151,   41,    0,   99,
-        0,    0,    0,    0,    0,    0,  151,  151,  151,  151,
-      151,  151,  151,  151,    0,  118,  151,  151,  151,  151,
-      151,  151,  151,   69,  151,  151,  137,  104,  136,  138,
-       38,  151,    0,    6,  151,  151,  151,  151,  151,  151,
-       87,    0,  151,    8,   78,   17,  151,  151,   86,  166,
-      166,    0,    0,    0,  166,  175,  175,   21,    0,  151,
-      151,  151,    0,    0,    0,   21,    0,  151,   21,   22,
-        0,  169,   22,   22,   22,   22,   22,   22,   22,   22,
-
-      151,  151,  151,  151,   50,  151,  151,  151,  109,  151,
-        0,  151,  151,   97,    0,  151,    0,    0,    0,    0,
-        0,    0,    0,  151,  151,  151,  151,  151,   75,  151,
-      151,  151,    0,    0,  151,  151,   15,   53,   44,  151,
-       45,    0,  151,  151,    5,  151,  151,   70,   88,    3,
-        0,    0,  151,    0,  151,  151,    0,    0,    0,  175,
-       22,    0,  151,   67,  151,    0,    0,   22,    0,   22,
-      151,    4,  151,  151,  151,  151,   91,  151,  151,    0,
-        0,  151,  151,    0,  151,    0,    0,    0,    0,    0,
-       75,    0,  151,  151,  151,  151,  151,   59,  151,   68,
-
-        0,    0,    0,    0,  143,    9,   18,  151,    0,  151,
-       83,   71,  151,    0,  151,    0,  151,  151,    0,    0,
-      175,    0,   62,  151,    0,    0,    0,  151,  151,  139,
-       46,  151,  151,   54,    0,    0,  151,  151,    0,   61,
-        0,    0,    0,    0,    0,   59,  151,   11,  151,  110,
-      151,  151,    0,    0,    0,    0,    0,  143,   95,    0,
-      151,   64,    0,   65,    0,  151,  151,   62,    0,  175,
-        0,  149,    0,    0,    0,  151,  151,   40,    7,    0,
-        0,  151,  151,   61,    0,   60,    0,   11,    0,  110,
-        0,  151,   10,  151,  151,    0,    0,    0,  151,    0,
-
-        0,  107,    2,  149,  175,    0,    0,    0,    0,   51,
-        0,    0,    0,    0,  151,  151,    0,   10,    0,   13,
-      151,   56,    0,    0,    0,  151,    0,  107,  175,    0,
-        0,    0,    0,    0,    0,    0,    0,  151,  151,   13,
-        0,  151,    0,    0,    0,  151,    0,  175,    0,    0,
-        0,    0,    0,   24,    0,    0,   49,  151,    0,   12,
-        0,    0,    0,  151,    0,  175,    0,    0,    0,  150,
-        0,   49,    0,  151,   12,    0,    0,    0,    0,  151,
-        0,  175,    0,    0,    0,    0,   48,    0,    0,    0,
-       81,    1,  175,    0,    0,    0,   48,   81,  175,    0,
-
-        0,    0,  175,    0,    0,    0,  175,    0,    0,    0,
-      175,    0,    0,    0,  175,    0,    0,    0,  175,  170,
-        0,  170,    0,    0,  170,    0,    0,    0,    0,  171,
-        0
+      143,  143,  178,  177,  166,  177,  165,  177,  176,  177,
+      177,  155,  177,  159,  177,  169,  177,  177,  158,  177,
+      158,  177,  158,  177,  161,  177,  156,  177,  140,  177,
+      154,  177,  158,  177,  160,  177,  163,  177,  162,  177,
+      164,  177,  150,  177,  150,  177,  150,  177,  150,  177,
+      150,  177,  150,  177,  150,  177,  150,  177,  150,  177,
+      150,  177,  150,  177,  150,  177,  150,  177,  150,  177,
+      150,  177,  150,  177,  150,  177,  150,  177,  150,  177,
+      150,  177,  150,  177,  166,  177,  165,  175,  177,  176,
+      177,  150,  177,  150,  177,  150,  177,  150,  177,  150,
+
+      177,  177,  177,  173,  177,  177,  177,  177,  143,  177,
+      144,  177,  177,  165,  177,  150,  177,  150,  177,  150,
+      177,  150,  177,  150,  177,  150,  177,  150,  177,  150,
+      177,  150,  177,  150,  177,  150,  177,  150,  177,  150,
+      177,  150,  177,  150,  177,  150,  177,  150,  177,  150,
+      177,  150,  177,  150,  177,  150,  177,  165,  175,  177,
+      166,  177,  158,  177,  154,  177,  150,  177,  150,  177,
+      150,  177,  150,  177,  150,  177,  166,  177,  154,  177,
+      166,  176,  176,  176,  146,  169,  145,  138,   20,  153,
+      139,  137,   34,  154,  136,   35,   33,   18,   36,  150,
+
+      150,  150,  150,  150,  150,  150,  150,  150,  150,  150,
+      150,  150,  150,   42,  150,  150,  150,  150,  150,  150,
+      150,  150,  150,  150,  150,  150,  150,  150,  150,   91,
+      150,  150,  150,  150,  150,  150,  150,  150,  150,  150,
+      150,  150,  150,  150,  150,  150,  150,  150,  150,  150,
+      150,  150,  150,  150,  150,  150,  150,  150,  150,  166,
+      175,  176,  176,  176,  176,  150,  150,  150,  150,   91,
+      150,  150,  173,  143,  142,  150,  150,  150,  150,  150,
+      150,  150,  150,  150,  150,  150,  150,  150,  150,   42,
+      150,  150,  150,  150,  150,  150,  150,  150,  150,  150,
+
+      150,  150,  150,  150,  150,   91,  150,  150,  150,  150,
+      150,  150,  150,  150,  150,  150,  150,  150,  150,  150,
+      150,  150,  150,  150,  150,  150,  150,  150,  150,  150,
+      150,  150,  150,  150,  150,  175,  166,  166,  174,   20,
+      154,  174,  150,  150,  150,  150,  150,  150,  150,  150,
+      150,  150,   91,  150,  150,  166,  154,  176,  176,  141,
+      145,  152,  151,  152,  153,  153,  150,  150,  150,  150,
+      150,  150,  150,  150,  150,  150,  150,  150,  150,  150,
+      150,  150,  150,  150,  150,    9,  150,  150,  150,  150,
+      150,  150,  150,  150,  150,  150,  150,  150,  103,16485,
+
+      150,  150,  150,  150,  150,  150,  150,  150,  150,  150,
+      150,  150,  150,  150,  150,  150,  150,  150,  150,  150,
+       94,  150,  150,  150,  150,  150,  150,  150,  150,  150,
+      150,  150,  150,  150,  150,  150,  150,  150,  150,  150,
+      150,  150,  150,   11,  150,  150,  150,  150,  176,  176,
+      176,  150,  150,  150,  150,  150,  150,  150,  150,  150,
+      150,  150,  150,  150,  150,  150,  150,  150,  150,  150,
+      150,  150,  150,  150,  150,  150,    9,  150,  150,  150,
+      150,  150,  150,  150,  150,  150,  150,  150,  150,  150,
+      150,  150,  150,  150,  150,  150,  150,  150,  150,  150,
+
+      150,  150,  150,  150,  150,  150,  150,  150,  150,   94,
+      150,  150,  150,  150,  150,  150,  150,  150,  150,  150,
+      150,  150,  150,  150,  150,  150,  150,  150,  150,  150,
+      150,  150,   11,  150,  150,  150,  150,  166,  166,  154,
+      150,  150,  150,  150,  150,  150,  150,  150,  150,  150,
+      150,  150,  150,  176,  176,  153,   22,   24,   23,   26,
+       25,   28,   30,  150,  150,  150,  150,  150,  150,  150,
+       15,  150,  150,  150,  150,  150,  150,  150,  150,  150,
+      150,  150,   41,   41,  150,  150,   99,  150,  116,  150,
+      150,  150,  150,  150,  117,  150,  126,  150,  150,   79,
+
+      150,  150,  150,  150,  114,  150,  150,   93,  150,  150,
+      150,  150,  150,  150,  150,  150,  150,  150,  150,  118,
+      150,  150,  150,  150,  115,   14,  150,  150,   63,  150,
+       77,  150,  150,  150,  150,  150,  150,  150,  150,  150,
+      150,   83,  150,   43,  150,  130,  150,  150,  150,  150,
+      150,   72,  150,  150,  150,   76,  150,   57,  150,  150,
+      150,   97,  150,  150,  150,  150,  150,   47,  176,  176,
+      176,  105,  150,  150,  150,  150,  150,  150,16458,  150,
+      150,  150,  150,  150,  150,  150,   15,  150,  150,  150,
+      150,  150,  150,  150,  150,  150,  150,  150,   41,  150,
+
+      150,   99,  150,  150,  150,  150,  150,  150,  150,  150,
+      150,   79,  150,  150,  150,  150,  150,  150,   93,  150,
+      150,  150,  150,  150,  150,  150,  150,  150,  150,  150,
+      150,  150,  150,  150,   14,  150,  150,   63,  150,   77,
+      150,  150,  150,  150,  150,  150,  150,  150,  150,  150,
+       83,  150,   43,  150,  150,  150,  150,  150,  150,   72,
+      150,  150,  150,   76,  150,   57,  150,  150,  150,   97,
+      150,  150,  150,  150,  150,  166,  154,   15,  150,  105,
+      150,  150,  150,  150,  150,  150,  150,  150,  150,  150,
+      150,  150,  150,  150,16458,  176,  176,  157,   32,   21,
+
+       29,   31,  150,  150,  150,  150,  150,  150,  150,  150,
+       52,  150,  150,  150,  150,  150,  134,  150,  150,  150,
+      150,  150,  150,  150,   40,  150,  100,  150,  150,  150,
+      150,  150,  150,  150,  150,  108,   87,  150,  127,  150,
+       93,  102,  150,  150,   95,  150,  150,  150,  150,  150,
+      150,  150,  150,  119,  150,  150,  121,  128,  150,  150,
+      150,  150,  150,   55,  150,  150,  150,   80,  150,  150,
+      150,  150,   82,  129,  150,  150,  150,  150,  150,  150,
+      150,  150,  150,  112,   58,  150,   38,  150,   86,  150,
+      105,16458,  176,  176,  176,  105,  150,   92,  150,  150,
+
+     8266,   73, 8266,  150,  150,  150,  150,  150,  150,  150,
+      150,   52,  150,  150,  150,  150,  150,  134,  150,  150,
+      150,  150,  150,  150,  150,   40,  150,  100,  150,  150,
+      150,  150,  150,  150,  150,  150,   87,  150,  150,  150,
+      150,   95,  150,  150,  150,  150,  150,  150,  150,  150,
+      150,  150,  150,  150,  150,  150,  150,   55,  150,  150,
+      150,   80,  150,  150,  150,  150,  150,  150,  150,  150,
+      150,  150,  150,  150,  150,   58,  150,   38,  150,   86,
+      150,  166,  154,  105,  150,  150,   52,  150,  150,  150,
+      150,  150,  150,  150,  134,  150,  150,  150,   16,  176,
+
+       16,  176,   16,   16,  146,   16,   16,   16,  145,   16,
+       16,   16,   16,   16,   16,   27,  150,  150,  150,  150,
+      150,   16,  150,  150,  150,   66,  150,  150,  150,  150,
+      150,  150,  150,  150,   98,  150,  150,   40,  100,  150,
+      150,  150,  150,  150,  133,  150,  150,  102, 8293,  102,
+      150,  150,  150,  150,   69,  150,  150,  150,  124,  150,
+      150,   37,  150,  150,  150,  150,  150,  150,  150,  150,
+      150,  150,   89,  150,  150,    7,  150,   78,  150,   12,
+      150,  150,  150,  132,  150,  150,   88,  150,   85,  176,
+      176,   16,  176,  150,  150,  150,  150,  150,  150,  150,
+
+      150,   16,  150,  150,  150,   66,  150,  150,  150,  150,
+      150,  150,  150,  150,   98,  150,  150,  150,  150,  150,
+      150,  150,  150,  150,  150,  150,  150,  150,   69,  150,
+      150,  150,  150,  150,   37,  150,  150,  150,  150,  150,
+      150,  150,  150,  150,  150,   89,  150,  150,    7,  150,
+       78,  150,   12,  150,  150,  150,  132,  150,  150,   88,
+      150,   16,  150,  150,   66,  150,  150,  150,  150,  150,
+       16,  150,  150,  150,   17,   17,  176,   17,   17,  146,
+       17,   17,   17,  145,   17,   17,   17,   17,   17,   17,
+      109,  110,   17,  150,  150,  150,  150,  150,   50,  150,
+
+      150,  150,  150,  106,  150,  150,  150,  150,   98,  150,
+      150,   75,  150,  150,  150,  120,  150,  150, 8293,  150,
+       10,  150,   53,  150,   44,  150,  150,  150,  125,   45,
+      150,  150,  150,    5,  150,  113,  150,  150,   70,  150,
+      150,   90,  150,    2,  150,  150,  150,  122,  131,  150,
+      176,   17,  176,  150,   67,  150,  170,   17,  150,  150,
+      150,  150,  150,   50,  150,  150,  150,  150,  106,  150,
+      150,  150,  150,  150,  150,   75,  150,  150,  150,  150,
+      150,  150,   10,  150,   53,  150,   44,  150,  150,  150,
+       45,  150,  150,  150,    5,  150,  150,  150,   70,  150,
+
+      150,   90,  150,    2,  150,  150,  150,  150,  170,   17,
+       17,  150,  150,   50,  150,  150,  150,  150,  150,  150,
+        3,  150,  150,  150,  150,  150,    4,  150,  150,  150,
+      150,  150,  150,   75,  150,   59,  150,  150,   68,  150,
+        8,  150,   13,  150,  150,  150,  150,   84,  150,   71,
+      150,  150,  150,  150,  150,  150,  176,   62,  150,  150,
+      150,    3,  150,  150,  150,  150,  150,    4,  150,  150,
+      150,  150,  150,  150,  150,   59,  150,  150,   68,  150,
+        8,  150,   13,  150,  150,  150,  150,   84,  150,   71,
+      150,  150,  150,  150,  150,  150,  150,  150,   62,  150,
+
+        4,  150,  150,  137,  150,  150,  135,  150,   46,  150,
+      150,  150,   54,  150,  150,  150,   61,  150,   59,  107,
+      150,  150,   96,  150,  111,  150,   64,  150,  123,   65,
+      150,  150,  150,   62,  176,  147,  150,  149,  150,  150,
+      135,  150,   46,  150,  150,  150,   54,  150,  150,  150,
+       61,  150,  107,  150,  150,   96,  150,  150,   64,  150,
+       65,  150,  150,  150,   46,  150,  150,  147,  150,  168,
+      137,  150,  150,   39,  150,    6,  150,  150,  150,   61,
+       60,  107,  150,  150,  104,  150,    1,  150,  147,  176,
+      150,  150,   39,  150,    6,  150,  150,  150,  150,  150,
+
+      104,  150,    1,  150,  167,   39,  150,   51,  150,  150,
+      150,   56,  150,  150,  104,  176,   51,  150,  150,  150,
+       56,  150,  150,  168,  150,  150,  150,  176,  150,  150,
+      150,  167,   19,   49,  150,  150,  150,  176,  148,  173,
+       49,  150,  150,  150,  167,  167,   49,  150,  150,  176,
+      150,  150,   48,  150,   81,  150,  176,   48,  150,   81,
+      150,  167,   48,   81,  176,  176,  176,  176,  176,  176,
+      171,  171,  171,  174,  172,  173
+    } ;
+
+static yyconst flex_int16_t yy_accept[1850] =
+    {   0,
+        1,    1,    1,    1,    1,    1,    1,    1,    1,    2,
+        3,    3,    3,    3,    3,    4,    5,    7,    9,   11,
+       12,   14,   16,   18,   19,   21,   23,   25,   27,   29,
+       31,   33,   35,   37,   39,   41,   43,   45,   47,   49,
+       51,   53,   55,   57,   59,   61,   63,   65,   67,   69,
+       71,   73,   75,   77,   79,   81,   83,   85,   87,   90,
+       92,   94,   96,   98,  100,  102,  103,  104,  106,  107,
+      108,  109,  111,  113,  114,  116,  118,  120,  122,  124,
+      126,  128,  130,  132,  134,  136,  138,  140,  142,  144,
+      146,  148,  150,  152,  154,  156,  158,  161,  163,  165,
+
+      167,  169,  171,  173,  175,  177,  179,  181,  181,  181,
+      182,  183,  184,  185,  185,  186,  186,  186,  187,  187,
+      187,  187,  187,  188,  188,  188,  188,  188,  189,  189,
+      189,  189,  190,  190,  191,  191,  191,  191,  191,  191,
+      191,  191,  191,  191,  191,  192,  193,  194,  194,  195,
+      195,  196,  197,  198,  199,  200,  201,  202,  203,  204,
+      205,  206,  207,  208,  209,  210,  211,  212,  213,  214,
+      216,  217,  218,  219,  220,  221,  222,  223,  224,  225,
+      226,  227,  228,  229,  230,  232,  233,  234,  235,  236,
+      237,  238,  239,  240,  241,  242,  243,  244,  245,  246,
+
+      247,  248,  249,  250,  251,  252,  253,  254,  255,  256,
+      257,  258,  259,  260,  260,  261,  262,  262,  262,  262,
+      262,  262,  262,  262,  263,  263,  264,  265,  266,  266,
+      267,  268,  269,  270,  272,  273,  273,  274,  274,  274,
+      274,  274,  275,  275,  276,  276,  276,  276,  276,  276,
+      276,  277,  278,  279,  280,  281,  282,  283,  284,  285,
+      286,  287,  288,  289,  290,  292,  293,  294,  295,  296,
+      297,  298,  299,  300,  301,  302,  303,  304,  305,  306,
+      308,  309,  310,  311,  312,  313,  314,  315,  316,  317,
+      318,  319,  320,  321,  322,  323,  324,  325,  326,  327,
+
+      328,  329,  330,  331,  332,  333,  334,  335,  336,  336,
+      337,  337,  337,  338,  339,  339,  339,  340,  341,  341,
+      341,  341,  341,  342,  343,  343,  344,  345,  346,  347,
+      348,  349,  350,  351,  352,  353,  355,  356,  357,  357,
+      357,  358,  358,  358,  358,  359,  360,  360,  360,  360,
+      360,  360,  360,  360,  360,  362,  362,  362,  362,  362,
+      362,  362,  362,  362,  362,  362,  362,  362,  362,  362,
+      362,  362,  362,  362,  362,  362,  362,  362,  362,  362,
+      362,  362,  362,  362,  362,  363,  366,  366,  367,  368,
+      369,  370,  371,  372,  373,  374,  375,  376,  377,  378,
+
+      379,  380,  381,  382,  383,  383,  384,  385,  386,  388,
+      389,  390,  391,  392,  393,  394,  395,  396,  397,  398,
+      398,  399,  399,  401,  402,  403,  404,  405,  406,  407,
+      408,  409,  410,  411,  412,  413,  414,  415,  416,  417,
+      418,  419,  420,  421,  423,  424,  425,  426,  427,  428,
+      429,  430,  431,  432,  433,  434,  435,  436,  437,  438,
+      439,  440,  441,  442,  443,  444,  446,  447,  448,  449,
+      449,  449,  449,  449,  449,  449,  449,  449,  449,  450,
+      451,  452,  452,  453,  454,  455,  456,  457,  458,  458,
+      458,  458,  458,  458,  458,  458,  458,  458,  458,  458,
+
+      458,  459,  460,  461,  462,  463,  464,  465,  466,  467,
+      468,  469,  470,  471,  472,  473,  474,  475,  476,  477,
+      479,  480,  481,  482,  483,  484,  485,  486,  487,  488,
+      489,  490,  491,  492,  493,  494,  495,  496,  497,  498,
+      499,  500,  501,  502,  503,  504,  505,  506,  507,  508,
+      509,  510,  512,  513,  514,  515,  516,  517,  518,  519,
+      520,  521,  522,  523,  524,  525,  526,  527,  528,  529,
+      530,  531,  532,  533,  535,  536,  537,  538,  538,  538,
+      538,  538,  539,  539,  540,  540,  540,  540,  540,  540,
+      540,  541,  541,  542,  543,  544,  545,  546,  547,  548,
+
+      549,  550,  551,  552,  553,  554,  554,  554,  554,  554,
+      555,  556,  556,  556,  556,  556,  556,  556,  556,  556,
+      556,  556,  556,  556,  556,  556,  556,  556,  557,  557,
+      558,  558,  559,  560,  561,  562,  563,  563,  563,  564,
+      564,  564,  564,  564,  564,  564,  564,  564,  564,  564,
+      564,  565,  566,  567,  568,  569,  570,  571,  573,  574,
+      575,  576,  577,  578,  579,  580,  581,  582,  583,  584,
+      586,  587,  589,  589,  590,  591,  592,  593,  594,  595,
+      595,  596,  597,  597,  598,  599,  600,  602,  603,  604,
+      605,  605,  606,  607,  608,  608,  610,  610,  610,  610,
+
+      610,  611,  612,  613,  614,  615,  616,  617,  618,  619,
+      620,  620,  621,  622,  623,  624,  625,  625,  626,  628,
+      629,  631,  633,  634,  635,  636,  637,  638,  639,  640,
+      641,  642,  644,  646,  646,  647,  648,  649,  650,  651,
+      652,  654,  655,  656,  658,  660,  661,  662,  664,  665,
+      666,  667,  668,  669,  669,  669,  669,  669,  669,  669,
+      670,  671,  672,  672,  674,  675,  676,  677,  678,  680,
+      680,  680,  680,  680,  680,  680,  680,  680,  680,  681,
+      682,  683,  684,  685,  686,  687,  689,  690,  691,  692,
+      693,  694,  695,  696,  697,  698,  699,  701,  702,  704,
+
+      705,  706,  707,  708,  709,  710,  711,  712,  714,  715,
+      716,  717,  718,  719,  721,  722,  723,  724,  725,  726,
+      727,  728,  729,  730,  731,  732,  733,  734,  735,  737,
+      738,  740,  742,  743,  744,  745,  746,  747,  748,  749,
+      750,  751,  753,  755,  756,  757,  758,  759,  760,  762,
+      763,  764,  766,  768,  769,  770,  772,  773,  774,  775,
+      776,  776,  776,  776,  777,  777,  777,  777,  777,  777,
+      778,  778,  780,  782,  783,  784,  785,  786,  787,  788,
+      789,  790,  791,  792,  793,  794,  796,  796,  796,  796,
+      797,  798,  798,  798,  798,  798,  798,  799,  799,  799,
+
+      799,  799,  799,  799,  800,  801,  801,  802,  803,  803,
+      803,  803,  803,  803,  803,  804,  805,  806,  807,  808,
+      809,  810,  811,  813,  814,  815,  816,  817,  819,  820,
+      821,  822,  823,  823,  824,  825,  825,  825,  825,  825,
+      825,  827,  829,  830,  831,  832,  833,  834,  835,  836,
+      836,  837,  839,  839,  840,  841,  842,  842,  842,  842,
+      843,  844,  845,  847,  848,  849,  850,  851,  852,  853,
+      854,  854,  855,  856,  857,  857,  858,  858,  859,  860,
+      861,  862,  863,  864,  866,  867,  868,  870,  871,  872,
+      873,  873,  874,  874,  875,  876,  877,  878,  879,  880,
+
+      881,  882,  883,  884,  884,  885,  887,  889,  891,  892,
+      892,  892,  892,  892,  893,  894,  895,  896,  896,  897,
+      898,  899,  900,  901,  902,  903,  904,  904,  904,  904,
+      904,  904,  904,  905,  906,  907,  908,  909,  910,  911,
+      912,  914,  915,  916,  917,  918,  920,  921,  922,  923,
+      924,  925,  926,  928,  930,  931,  932,  933,  934,  935,
+      936,  937,  939,  940,  941,  942,  944,  945,  946,  947,
+      948,  949,  950,  951,  952,  953,  954,  955,  956,  957,
+      958,  960,  961,  962,  964,  965,  966,  967,  968,  969,
+      970,  971,  972,  973,  974,  975,  976,  978,  980,  982,
+
+      982,  982,  982,  983,  983,  983,  983,  983,  983,  984,
+      984,  985,  986,  987,  989,  990,  991,  992,  993,  994,
+      995,  997,  998,  999,  999,  999, 1000, 1001, 1003, 1003,
+     1004, 1006, 1006, 1007, 1008, 1010, 1010, 1010, 1010, 1010,
+     1011, 1012, 1013, 1014, 1015, 1016, 1017, 1017, 1017, 1017,
+     1017, 1018, 1019, 1020, 1021, 1022, 1024, 1025, 1026, 1028,
+     1029, 1030, 1031, 1032, 1033, 1034, 1035, 1035, 1035, 1037,
+     1038, 1039, 1040, 1040, 1040, 1040, 1041, 1042, 1043, 1044,
+     1045, 1045, 1046, 1047, 1048, 1048, 1049, 1049, 1049, 1049,
+     1049, 1050, 1051, 1052, 1053, 1054, 1055, 1057, 1058, 1059,
+
+     1059, 1060, 1061, 1062, 1064, 1065, 1066, 1067, 1068, 1069,
+     1070, 1071, 1072, 1073, 1075, 1076, 1078, 1080, 1082, 1083,
+     1084, 1086, 1087, 1089, 1089, 1090, 1090, 1090, 1090, 1091,
+     1092, 1094, 1094, 1095, 1096, 1097, 1097, 1097, 1097, 1097,
+     1097, 1097, 1098, 1099, 1100, 1101, 1102, 1104, 1105, 1106,
+     1108, 1109, 1110, 1111, 1112, 1113, 1114, 1115, 1117, 1118,
+     1119, 1120, 1121, 1122, 1123, 1124, 1125, 1126, 1127, 1128,
+     1129, 1131, 1132, 1133, 1134, 1135, 1137, 1138, 1139, 1140,
+     1141, 1142, 1143, 1144, 1145, 1146, 1148, 1149, 1151, 1153,
+     1155, 1156, 1157, 1159, 1160, 1162, 1162, 1162, 1162, 1162,
+
+     1163, 1163, 1164, 1165, 1167, 1168, 1169, 1170, 1171, 1173,
+     1174, 1175, 1175, 1176, 1178, 1179, 1181, 1182, 1183, 1185,
+     1185, 1186, 1187, 1188, 1189, 1190, 1191, 1191, 1191, 1191,
+     1191, 1191, 1192, 1192, 1193, 1195, 1196, 1197, 1198, 1199,
+     1201, 1202, 1203, 1204, 1206, 1207, 1207, 1208, 1209, 1210,
+     1210, 1211, 1211, 1211, 1211, 1212, 1214, 1215, 1216, 1216,
+     1217, 1218, 1219, 1220, 1220, 1220, 1221, 1223, 1225, 1227,
+     1228, 1229, 1229, 1230, 1232, 1232, 1233, 1234, 1236, 1236,
+     1237, 1238, 1239, 1241, 1242, 1244, 1246, 1247, 1247, 1248,
+     1248, 1249, 1249, 1250, 1251, 1251, 1251, 1251, 1252, 1254,
+
+     1254, 1255, 1256, 1257, 1257, 1257, 1257, 1258, 1258, 1258,
+     1260, 1261, 1262, 1263, 1264, 1266, 1267, 1268, 1269, 1271,
+     1272, 1273, 1274, 1275, 1276, 1278, 1279, 1280, 1281, 1282,
+     1283, 1285, 1287, 1289, 1290, 1291, 1293, 1294, 1295, 1297,
+     1298, 1299, 1301, 1302, 1304, 1306, 1307, 1308, 1309, 1309,
+     1310, 1310, 1311, 1311, 1313, 1314, 1316, 1317, 1318, 1319,
+     1320, 1320, 1320, 1320, 1320, 1320, 1321, 1323, 1324, 1325,
+     1326, 1327, 1329, 1330, 1331, 1331, 1331, 1332, 1333, 1333,
+     1334, 1334, 1335, 1335, 1336, 1338, 1339, 1341, 1343, 1343,
+     1345, 1346, 1347, 1347, 1348, 1350, 1352, 1353, 1354, 1355,
+
+     1355, 1356, 1357, 1357, 1357, 1358, 1358, 1360, 1361, 1361,
+     1361, 1361, 1361, 1361, 1362, 1364, 1365, 1366, 1367, 1368,
+     1370, 1371, 1372, 1373, 1374, 1375, 1376, 1378, 1379, 1381,
+     1383, 1385, 1386, 1387, 1388, 1390, 1392, 1393, 1394, 1395,
+     1396, 1397, 1397, 1397, 1397, 1398, 1399, 1401, 1403, 1404,
+     1404, 1404, 1404, 1404, 1404, 1404, 1404, 1405, 1406, 1407,
+     1409, 1411, 1412, 1413, 1415, 1415, 1415, 1416, 1417, 1417,
+     1419, 1419, 1420, 1422, 1423, 1425, 1425, 1426, 1426, 1427,
+     1429, 1429, 1430, 1432, 1432, 1433, 1434, 1435, 1435, 1436,
+     1436, 1438, 1438, 1438, 1438, 1439, 1440, 1441, 1443, 1445,
+
+     1446, 1447, 1449, 1450, 1451, 1453, 1455, 1456, 1458, 1459,
+     1461, 1463, 1464, 1465, 1465, 1465, 1465, 1467, 1468, 1470,
+     1470, 1470, 1471, 1471, 1471, 1471, 1472, 1473, 1474, 1476,
+     1478, 1478, 1478, 1479, 1480, 1481, 1481, 1482, 1483, 1484,
+     1484, 1485, 1485, 1487, 1489, 1490, 1491, 1491, 1491, 1491,
+     1492, 1493, 1495, 1497, 1498, 1499, 1500, 1501, 1503, 1505,
+     1505, 1505, 1505, 1506, 1506, 1508, 1508, 1508, 1508, 1508,
+     1508, 1508, 1510, 1510, 1510, 1510, 1510, 1511, 1512, 1514,
+     1514, 1515, 1516, 1517, 1517, 1517, 1517, 1519, 1520, 1521,
+     1523, 1524, 1524, 1524, 1524, 1524, 1524, 1524, 1524, 1524,
+
+     1524, 1524, 1524, 1525, 1525, 1525, 1525, 1525, 1526, 1527,
+     1527, 1528, 1529, 1529, 1529, 1529, 1530, 1531, 1532, 1532,
+     1532, 1532, 1532, 1532, 1532, 1532, 1532, 1532, 1532, 1532,
+     1533, 1533, 1533, 1533, 1533, 1533, 1534, 1534, 1534, 1536,
+     1537, 1537, 1538, 1539, 1539, 1539, 1539, 1541, 1543, 1544,
+     1545, 1545, 1545, 1545, 1545, 1545, 1545, 1546, 1546, 1546,
+     1546, 1547, 1547, 1547, 1547, 1547, 1548, 1548, 1549, 1549,
+     1550, 1551, 1551, 1551, 1552, 1553, 1553, 1553, 1553, 1553,
+     1553, 1553, 1553, 1553, 1553, 1553, 1553, 1555, 1555, 1557,
+     1558, 1558, 1558, 1560, 1562, 1562, 1562, 1562, 1562, 1562,
+
+     1562, 1563, 1563, 1564, 1565, 1566, 1566, 1566, 1566, 1566,
+     1566, 1566, 1566, 1566, 1567, 1567, 1567, 1567, 1567, 1567,
+     1567, 1567, 1567, 1568, 1568, 1568, 1568, 1568, 1569, 1569,
+     1569, 1569, 1570, 1570, 1570, 1570, 1571, 1572, 1572, 1573,
+     1573, 1573, 1575, 1575, 1575, 1575, 1575, 1577, 1577
     } ;
 
@@ -6938 +8077 @@
         1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
         1,    4,    5,    6,    7,    8,    9,   10,   11,   12,
-       13,   14,   15,   16,   17,   18,   19,   20,   21,   22,
-       23,   24,   25,   26,   27,   28,   29,   30,   31,   32,
-       33,   34,    1,    1,   35,   36,   37,   38,   39,   40,
-       41,   42,   43,   44,   45,   46,   47,   48,   49,   50,
-       51,   52,   53,   54,   55,   56,   57,   58,   59,   60,
-       61,    1,   62,    1,   63,    1,   64,   65,   66,   67,
-
-       68,   69,   70,   71,   72,   44,   73,   74,   75,   76,
-       77,   78,   79,   80,   81,   82,   83,   84,   85,   86,
-       87,   88,    1,   89,    1,    1,    1,    1,    1,    1,
+       13,   14,   15,   16,   17,   18,   19,   20,   20,   20,
+       20,   20,   20,   20,   20,   20,   20,   21,   22,   23,
+       24,   25,    1,    1,   26,   27,   28,   29,   30,   31,
+       32,   33,   34,   35,   36,   37,   38,   39,   40,   41,
+       42,   43,   44,   45,   46,   47,   48,   49,   50,   51,
+       52,    1,   53,    1,   54,    1,   55,   56,   57,   58,
+
+       59,   60,   61,   62,   63,   35,   64,   65,   66,   67,
+       68,   69,   70,   71,   72,   73,   74,   75,   76,   77,
+       78,   79,    1,   80,    1,    1,    1,    1,    1,    1,
         1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
         1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
@@ -6964 +8103 @@
     } ;
 
-static yyconst flex_int32_t yy_meta[90] =
+static yyconst flex_int32_t yy_meta[81] =
     {   0,
-        1,    1,    2,    1,    1,    3,    1,    1,    1,    1,
-        1,    4,    1,    1,    1,    1,    1,    3,    1,    5,
-        5,    5,    5,    5,    5,    5,    5,    5,    5,    1,
-        1,    1,    1,    1,    6,    7,    7,    5,    5,    8,
-        9,   10,   11,   11,   11,    9,   11,    9,   12,   11,
-       13,    9,    9,    9,    9,   11,   11,   11,   11,   11,
-        1,    1,   11,    6,    7,    7,    5,    5,    8,    9,
-       10,   11,   11,    9,   11,    9,   12,   11,   13,    9,
-        9,    9,    9,   11,   11,   11,   11,   11,    3
+        1,    2,    3,    2,    4,    5,    4,    4,    1,    4,
+        6,    7,    8,    4,    9,   10,   11,   12,   13,   14,
+        1,    4,    1,    1,    1,   15,   14,   14,   14,   14,
+       15,   16,   17,   17,   17,   17,   16,   17,   16,   16,
+       17,   17,   16,   16,   16,   16,   17,   17,   17,   17,
+       17,    1,    1,   18,   15,   14,   14,   14,   14,   15,
+       16,   17,   17,   17,   16,   17,   16,   16,   17,   17,
+       16,   16,   16,   16,   17,   17,   17,   17,   17,    5
     } ;
 
-static yyconst flex_int16_t yy_base[1171] =
+static yyconst flex_int16_t yy_base[2001] =
     {   0,
-        0,   88,    0,    0,    0,    0,  984,   93,    0,   85,
-        0,    0,  891,   64,   98,  103,   80,  129,   96,   99,
-      134,  137,  145,  133,  168,  135,  249,  180,  318,  136,
-      156,  172,  212,  239,  246,  297,  366,  341,  414,  461,
-      247,  294,  398,  334,  407,  476,  506,  517,  459,  566,
-      572,  522,  571,  367,  653,  226,  656,  658,  737,  638,
-      785,  655,  698,  806,  652, 4012,  878, 4012,  241,  116,
-      124,  455,  893,   59,   76,  229,  253,  256,    0,  122,
-      127,  872, 4012,  157,  188,  869,  866,  327,  302,  349,
-      740,  416, 4012,  768,  592, 4012, 4012,  981,  730,  147,
-
-      184,  438,  495,  328,  184,  190, 4012, 1048,  335,  969,
-     4012, 4012,    0,  269,  315,  149,  319,  486,  462,  248,
-      318,  325,  269,  426,  736,  336,  767,  470,  500,  518,
-      512,  403,  516,  525,  535,  801,  544,  620,  565,  570,
-      589,  768,  483,  589,  810,  592,  613,  638,  650,  664,
-      678,  736,  737,  740,  741,  949,  736,  788,  646,  956,
-      756,  999,  739,  753,  804,  749, 1043,  972,  962,  769,
-      813,  963,  972,  969,    0, 1057,    0,  839,  238, 1044,
-      986,  789,  956, 1030,  965,  429, 1109, 1136,  830, 4012,
-     1061, 1087, 1091, 1162, 1188,  990, 1095, 1120, 1006, 1042,
-
-     1170, 1050, 1046,  823, 4012, 1201, 1099, 1115, 1190,  797,
-      483, 4012,  790, 1167, 1100, 1194, 1269, 1358, 1255, 1254,
-     1195, 1103, 1098,  625, 1148, 1163, 1217, 1237, 1222, 1238,
-     1095, 1305, 1325, 1234, 4012, 1334, 1302, 1326, 1107, 1182,
-      738,  735,  731,  730, 1244, 1166,  713, 1242, 4012, 1428,
-     1374, 1389, 1419, 1244, 1252, 1261, 1263, 1192, 1266, 1301,
-     1333, 1333, 1352, 1352, 1387, 1392, 1388, 1389, 1390, 1404,
-     1401, 1405, 1407, 1404, 1506, 1471, 1417, 1476, 1430,    0,
-     1422, 1437, 1442, 1432, 1484, 1440, 1454, 1497, 1444, 1448,
-     1451, 1443, 1445, 1475, 1459, 1530, 1536, 1464, 1477, 1470,
-
-     1531, 1490, 1491, 1482, 1509, 1511,    0, 1526, 1513, 1519,
-     1524, 1527, 1524, 1555, 1516, 1519, 1522, 1546, 1557, 1564,
-     1558, 1565, 1555, 1557, 1562, 1561, 1615, 1573, 1575, 1573,
-     1576, 1570, 1574, 1582, 1576,  719,  351,  666, 1572,  713,
-     1580, 1587, 1584, 1593, 1589, 1596, 1608, 1658, 1684, 1710,
-     1652, 1645, 1661, 1741, 1626, 1629, 1635, 1634, 1637, 1703,
-     1653,  709, 1654, 1744,  707,  998, 4012, 1712, 1674, 1715,
-     1664, 1708, 1725, 1738, 1749, 1622, 1684, 1379, 1672, 1735,
-     1743, 1771, 1723, 1772, 1787, 1804, 1815, 1807, 1821,  656,
-     4012,  646, 4012, 4012, 4012, 4012, 4012, 1735,  614, 4012,
-
-      613, 1849, 4012,    0, 1741, 1751,    0, 1796,    0, 1799,
-     1799,    0, 1820, 1819, 1811, 1816, 1808, 1821,    0, 1826,
-     1822, 1814, 1822, 1825, 1819, 1871, 1955, 4012, 1825, 1821,
-     1837, 1830, 1829, 1850, 1823, 1844, 1899, 4012, 1836, 1909,
-     4012, 1841, 2040, 1856, 1915, 1858, 1874, 1920, 4012, 1886,
-     1872, 1878,    0, 1886, 1879, 1881, 1888, 1896, 1895, 1902,
-     1967, 4012, 1897, 1906, 1971, 4012, 1900, 1912, 1906, 1915,
-        0, 1980, 4012,    0, 1988,    0,    0, 1929, 1939, 1926,
-     1933, 1936, 1946, 1939, 1953,    0,  602, 1949, 1958, 1955,
-     1963,    0, 1960, 2063,    0,  598,    0,    0, 1985, 2064,
-
-     4012,    0, 1960,    0,    0, 2019, 2022, 2024, 2025, 4012,
-      792,  880, 2030, 2023, 2043, 2043, 2041, 2042,  581, 2092,
-     2118, 2144, 2079, 2080, 2084, 2170, 2045, 1005, 2060, 1022,
-     2071, 2134, 2199,  574, 2082, 2174, 2108, 2147, 2148, 2101,
-     2154, 2184, 2187, 2190, 2087,    0, 1422, 2144,    0, 2200,
-      138, 2202,  571, 2221, 2233, 4012, 4012,  514, 4012, 4012,
-     2174, 2192, 2051, 2289, 2080, 2193,    0, 2109, 2194, 2193,
-     2199,    0, 2201, 2207, 2204, 2195, 2198, 2270, 2240, 2240,
-     2215, 2229, 2246, 2239, 2258, 2275, 2258, 2276,    0, 2276,
-        0, 2287, 2279, 2283, 2295, 2283, 2295, 2300, 2335, 4012,
-
-        0, 2293, 2342, 4012,    0,    0, 2294, 2293, 4012, 2316,
-     2321,    0, 2297, 2323, 2312, 2319, 2335, 2334, 2327, 2337,
-     2333, 2341, 2338,  197,  451, 2343, 2337, 2347,    0, 2348,
-        0, 2335, 2355, 2355,  477, 2343, 2343, 2350, 2355, 2348,
-     2275, 4012, 4012, 2349, 2351, 2404, 4012,    0,    0,    0,
-     1140, 1249, 1797, 2376, 2082, 2379, 2366, 2432, 2263,  424,
-      569, 2417, 2420,  499, 2486, 2384, 2087, 2385, 2427, 2389,
-     2398, 2437, 4012, 2448, 2444, 2439, 2452,  479, 2451, 2431,
-     2410, 2565, 2416,    0, 4012, 2653,    0,    0,  475,  445,
-     4012,  441,  436, 2458, 2462, 2468, 4012, 4012, 2682, 2404,
-
-     2428,    0, 2441, 2444,    0, 2442, 2449, 2447, 2480, 2465,
-     2479, 2553,    0, 2487, 2489,    0, 2493, 4012, 2486, 4012,
-     2497, 2509, 2513, 2527, 2535, 2549, 2552, 2538, 2550, 2555,
-     2548, 2562, 2552, 2559, 2604, 4012, 2572, 2480, 2561, 2568,
-     2573, 2575, 2564,    0, 2569, 2578,    0,    0,    0,    0,
-     2660, 2572,  508, 4012, 2583, 2594, 2591, 2650, 2664, 2658,
-        0, 2536, 2663,    0,    0,    0, 2715, 2654,    0, 2539,
-     2479, 2668, 2663, 2678, 2644, 2682,  426,  421, 2680, 2677,
-     2540, 2686, 2701, 2720,  411,  365, 2721, 2790, 2691, 4012,
-     2725, 4012,    0,  343, 4012,  307, 2753, 2755, 4012,    0,
-
-     2747, 2692, 2702, 2706,    0, 2707, 2709, 2719,    0, 2685,
-     2776, 2708, 2732, 4012, 2748, 2737, 2773, 2763, 2773, 2780,
-     2773, 2788, 2777, 2776, 2785, 2780, 2796, 2786,    0, 2797,
-     2798, 2794, 2647, 2867, 2796, 2791,    0,    0,    0, 2795,
-        0, 2845, 2798, 2801,    0, 2815, 2825,    0,    0,    0,
-     2872, 2840, 2825, 2883, 2847, 2843, 2840, 2548, 2855,  827,
-      303,  239, 2841, 2765, 2855, 1020, 2888,  288, 1687, 2861,
-     2861,    0, 2851, 2861, 2850, 2855,    0, 2851, 2858, 2858,
-     2856, 2863, 2873, 2862, 2878, 2870, 2882, 2880, 2881, 2888,
-     4012, 2904, 2901, 2906, 2913, 2885, 2895,    0, 2903,    0,
-
-     2951, 2978, 2955, 2982, 2994,    0,    0, 2933, 2910, 2917,
-        0,    0, 2923,  248, 2932, 2941, 2930, 2939, 2936, 2956,
-     2998, 2964,    0, 2967, 3005, 3006, 3007, 2966, 2959,    0,
-        0, 2960, 2979,    0, 2973, 2982, 2973, 2987, 2986, 3025,
-     2983, 2989, 2995, 2978, 2978, 4012, 2985,    0, 2991,    0,
-     2985, 3006, 3066, 3074, 3078, 3090, 3094, 3106,    0, 3009,
-     3019,    0, 3041,    0, 3018, 3050, 3056, 4012, 3062, 3076,
-     3056,    0, 3087, 3103, 3099, 3072, 3111,    0,    0, 3064,
-     3080, 3075, 3079, 3124, 3125, 4012, 3082, 4012, 3085, 4012,
-     3080, 3093,    0, 3096, 3104, 3152, 3171, 3113, 3118,  245,
-
-     3119,    0,    0, 4012, 1737,  184, 3142, 3141, 1922,    0,
-     3181, 3186, 3115, 3122, 3127, 3111, 3122, 4012, 3128,    0,
-     3129,    0, 3208, 3211, 3152, 3158, 3150, 4012, 3194, 3154,
-     2097, 3179, 3201, 3224, 3231, 3169, 3153, 3159, 3179, 4012,
-     3183, 3184, 3251, 3258, 3191, 3183,  207, 3229, 3207, 3237,
-      194, 3233, 3261, 4012, 3209, 3200,    0, 3220, 3211,    0,
-     3309, 3283, 3218, 3228, 3221, 3285, 3236, 3273,  142, 4012,
-     3286, 4012, 3243, 3250, 4012, 3339, 3342, 3367, 3248, 3286,
-      108, 2482,   40, 2606, 2838, 3273,    0, 3395, 3399, 3290,
-        0, 4012, 3302, 3294, 3311, 3350, 4012, 4012, 3299, 3320,
-
-     3357, 3358, 3375, 3318, 3359, 3380, 3404, 3376, 3300, 3412,
-     3362, 3363, 3370, 3415, 3418, 3423, 3420, 3426, 3433, 4012,
-     3447, 4012, 3428, 3451, 4012, 3430, 3439, 3454, 3457, 4012,
-     4012, 3521, 3534, 3547, 3560, 3573, 3586, 3595, 3608, 3621,
-     3634, 3647, 3656, 3669, 3678, 3686, 3699, 3712, 3725, 3738,
-     3751, 3764, 3777, 3790, 3803, 3816, 3829, 3842, 3855, 3868,
-     3881, 3894, 3907, 3920, 3933, 3946, 3959, 3972, 3985, 3998
+        0,   79,    0,    0,    0,  151, 3195,   84,   88,   91,
+      224,  303,    0,  375, 3194,   65,   99, 9211,   73,  100,
+       74,   90,  308,  117,  325,  126,  137,  133,  447,  386,
+      382,  144,  143,  285,  390,  302,  425,  449,  499,  497,
+      547,  594,  443,  324,  535,  495,  503,  582,  618,  630,
+      639,  398,  685,  688,  697,  689,  450,  769,  216,  538,
+      583,  749,  745,  800,  802, 9211, 3186, 9211,  789,  114,
+      155,   96, 9211, 3164,  851,  841,  692,  912,  860,  961,
+      910,  853,  858,  948,  895,  896,  977, 1009, 1020, 1036,
+     1033, 1069, 1085, 1081, 1118, 1123, 1162,  203,  908,  316,
+
+     1219,   71, 1145,  100, 1274,  339,  363,  106,  127,  198,
+        0,  140,  144, 3153, 3107,  308,  348,  347, 3104,  181,
+      698,  415, 3066,  434,  899,  631,  819, 9211, 1300, 1317,
+     1342, 9211,  847,  697,  307,  331,  446,  607,  613,  363,
+      425, 1050, 1361, 1167, 9211, 9211, 9211, 1311, 1358,  304,
+     9211, 9211, 9211, 9211, 9211,    0,  831,  302,  435,  473,
+      508,  359,  516,  367,  542,  749,  411,  906,  550, 1142,
+      549,  489,  576,  624,  653,  926,  698,  692,  723,  735,
+      804, 1040, 1301,  805, 1352, 1361,  860,  955,  489,  976,
+      959,  965,  970,  981, 1013, 1060, 1011, 1138, 1311, 1089,
+
+      570, 1386, 1011, 1033, 1062, 1364,  573, 1088,  615,  649,
+      765, 1343,  807,    0, 1278, 1190, 3073, 1353,  891, 1136,
+     1135, 1386, 1195, 3024, 1345,  993, 1398, 1407,  957, 1400,
+     1400, 1322, 1383, 1428, 1405, 3008, 9211, 1445, 1442, 1437,
+     1457,  209, 2996, 2992, 1201, 1485, 1450, 2991, 2987, 1503,
+     1480, 1498, 1504, 1517, 1506, 1524, 1455, 1547, 1544, 1548,
+     1568, 1557, 1598, 1594, 1599, 1605, 1618, 1595, 1591, 1641,
+     1654, 1659, 1661, 1652, 1665, 1674, 1701, 1738, 1692, 1711,
+     1732, 1743, 1757, 1758, 1780, 1784, 1790, 1795, 1814, 1821,
+     1700, 1815, 1839, 1820, 1861, 1846, 1883, 1869, 1880, 1876,
+
+     1920, 1924, 1919, 1913, 1939, 1959, 1977, 1972, 1519, 2023,
+     1606, 2956, 1776,  318,  782, 2938, 9211, 2932, 1513, 1439,
+     1964, 1999, 2037, 2044, 1628, 2107, 2187, 2016, 2101, 2025,
+     2096, 2033, 2113, 1926, 2016, 2185, 2108, 1306, 2212, 2213,
+     2218, 1560, 1432, 1596, 1620, 1649, 2879, 1833, 1746, 2866,
+     1492, 2144, 2172, 1752, 2853, 2852, 2253, 2161,  497,  880,
+     2266, 2267, 2833, 2277, 2287, 1124, 1042, 1697, 2832, 2801,
+     2798, 2795, 1943, 1681, 2778, 1785, 1475, 2296, 1489, 2771,
+     2752, 2324, 2335, 2692, 9211, 2326, 2670, 2656, 1076, 1267,
+     1796, 1867, 1348, 1936, 1979, 2017, 2020, 2020, 2037, 2278,
+
+     2037, 2102, 1360, 1497, 2305, 2328, 1517, 1631, 2400, 1677,
+     1658, 2292, 2107, 1816, 1846, 2114, 1797, 2180, 1951, 2315,
+     2183, 2019, 1887, 2189, 2192, 2187, 2188, 2322, 1979, 2193,
+     2229, 2192, 2355, 2241, 2234, 2286, 2317, 2362, 2332, 2330,
+     2319, 2331, 2337,    0, 2348, 2333, 2341, 2348, 2360, 2351,
+     2350, 2381, 2418, 2343, 2363, 2356, 2364, 2384, 2370, 2376,
+     2384, 2383, 2396, 2392, 2387,    0, 2390, 2401, 2395, 2660,
+     2397, 2643, 2406, 2412, 2407, 2416, 2417, 2424, 2464, 2433,
+     2466, 2439, 2444, 2449, 2455, 2455, 2456, 2455, 2484, 2505,
+     2622, 2081, 2500, 2621, 2572, 2515, 2527, 2519, 2562, 2553,
+
+     2488, 2494, 2498, 2486, 2510, 2492, 2531, 2533, 2534, 2530,
+     2540, 2543, 2539, 2545, 2546, 2549, 2583, 2556, 2555, 2655,
+     2587, 2558, 2615, 2590, 2566, 2577, 2550, 2627, 2561, 2610,
+     2612, 2617, 2623, 2594, 2620, 2634, 2639, 2629, 2638, 2646,
+     2641, 2644, 2645, 2658, 2667, 2706, 2682, 2669, 2671, 2647,
+     2689, 2548, 2699, 2652, 2712, 2714, 2717, 2726, 2729, 2730,
+     2736, 2719, 2732, 2734, 2739, 2740, 2733, 2741, 2742, 2747,
+     2759, 2750, 2758, 2547, 2769, 2743, 2760, 2819, 2823, 2485,
+     2832, 2888, 2707,  388, 2828, 2837, 2778, 2799, 2840, 2845,
+     2854, 2768, 2961, 3041, 2822, 2808, 2836, 2868, 2959, 2840,
+
+     2845, 2852, 2874, 2885, 2891, 2717, 2860, 2867, 2888, 2881,
+     2893, 2937, 2896, 2851, 2985, 2419, 2989, 3009, 3006, 3013,
+     3065, 3020, 2938, 2989, 3068, 3071, 2396, 2386, 2357, 9211,
+     2354, 9211, 9211, 9211, 9211, 9211, 2882, 2318, 9211, 2294,
+     3033, 3093, 2289, 2263, 3101, 3113, 3132, 2242, 2238, 3142,
+     2888, 2957, 2957, 2974, 3047, 3051, 2962,    0, 3073, 3072,
+     3056, 3089, 3083, 3075, 3084, 3102, 3102, 3110, 2208, 2199,
+     3113, 3151, 3226, 9211, 3116, 3102, 3128, 3110, 3130, 3162,
+     9211, 3118, 3167, 9211, 3124, 3127,    0, 3130, 3178, 3141,
+     3193, 9211, 3202, 3134, 3141,    0, 3207, 2171, 2156, 3220,
+
+     3149, 3144, 3163, 3171, 3206, 3177, 3174, 3193, 3203, 3244,
+     3245, 9211, 3215, 3194, 3259, 3273, 3262, 9211,    0, 3217,
+        0, 3222, 3217, 3224, 3223, 3220, 3231, 3233, 3253, 3244,
+     3254, 3299,    0, 3290, 9211, 3303, 3248, 3258, 3253, 3270,
+        0, 3284, 3285, 3270,    0, 3278, 3290,    0, 3324, 3291,
+     3292, 3295, 9211, 3299, 3286, 3306, 3306, 3304, 3305, 3327,
+     3333, 3336, 3297,  462, 3319,  602, 3317, 3341, 3367, 3344,
+     3387, 3353, 3392, 3399, 3405, 3409, 2140, 2134, 3362, 3378,
+     3372, 3396, 3390, 3397, 3373, 2097, 3416, 3422, 3420, 3425,
+     3383, 3429, 3428, 3430, 3423, 3427,  427, 3433, 3445, 3432,
+
+     3451, 3456, 3434, 3440, 3438, 3452, 3458, 2096, 3435, 3514,
+     3471, 3523, 3462, 2091, 3465, 3474, 3477, 3480, 3498, 3506,
+     3507, 3473, 3516, 3549, 3526, 3520, 3558, 3564, 2084, 3529,
+     2065, 3546, 3538, 3541, 3561, 3536, 3542, 3552, 3567, 3553,
+     3555, 3596, 2049, 3608, 3574, 3577, 3583, 3591, 2030, 3599,
+     3600, 3587, 2017, 3581, 3601, 2011, 3635, 3610, 3613, 3616,
+     3648, 3660, 3314, 3674, 3664, 3669, 3678, 3641, 3667, 3710,
+     3644, 3780, 3860, 3679, 3691, 3686, 3739, 3763, 3760, 3825,
+     3697, 3718,  685, 3718, 3854, 3809, 3557, 3637,    0, 3674,
+        0, 3712,  532, 3828, 3747, 2309, 9211, 3887, 3888, 1978,
+
+     3632, 3900, 3959, 9211, 9211, 1976, 9211, 9211, 3770, 3812,
+     3924, 3934, 1975, 3986, 3681, 3769, 3677, 3723, 3770, 4043,
+     3774, 3790,    0, 3781, 3793, 3779, 3787,    0, 3854, 3858,
+     3852, 3794, 3953, 3872, 3884, 3879, 3902, 3926, 3908, 3959,
+        0,    0, 3957, 3954, 3967, 3972, 3967, 3907, 3963, 4013,
+     9211,    0, 4016, 9211, 3969, 9211, 4067, 4068, 4085, 4091,
+     3976, 3977,    0, 3965, 3979, 4001, 4034, 4002, 4075, 4041,
+     4103, 9211, 4064, 4063, 4108, 9211, 4109, 9211, 4082, 4086,
+     4091, 4085, 4091,    0, 4095, 4092,    0, 4083, 4103, 4102,
+     4132, 9211, 4133, 9211, 4094, 4094, 4101, 4102, 4096, 4113,
+
+     4098, 4105, 4108, 4159, 9211,    0,    0, 4172, 1158, 4136,
+     1531, 4138, 4130, 4173, 4175, 4177, 1971, 4148, 1928, 4152,
+     2140, 4151, 4159, 4196, 9211, 4202, 4192, 4184, 3840, 3946,
+     4220, 4226, 4189, 4193, 4207, 4194, 4196, 4266, 4224, 4283,
+     1954, 4253, 4291, 4255, 4256, 1936, 4259, 4293, 4261, 4294,
+     4297, 4298, 1933, 1920, 4299, 4300, 4304, 4306, 4305, 4311,
+     4303, 1912, 4309, 4319, 4322, 1878, 4313, 4314, 4326, 4335,
+     4307, 4379, 4342, 4349, 4359, 4345, 4346, 4356, 4352, 4362,
+     1877, 4364, 4375, 1841, 4351, 4385, 4392, 4383, 4387, 4390,
+     4404, 4394, 4395, 4397, 4398, 4402, 1829, 1810, 4238, 4241,
+
+     4249, 4379, 4474, 2558, 4432, 4433, 4423, 1803, 4469, 4425,
+     3757, 4547, 4627, 4177, 4455, 4438, 4453, 4452, 4479, 4707,
+     4385, 4409, 4453, 4396,    0, 9211,    0,    0, 1208, 1785,
+     1781, 4530, 4564, 4570, 1756, 4599, 4574, 4448, 4787, 4580,
+     4587, 4593, 4606, 4652, 1728, 9211, 4512, 4521, 4659, 4671,
+     4581, 4663, 4867, 4385, 4463,    0, 4465, 4534,    0, 4537,
+     4545, 4544, 4564, 4612, 4625, 4699, 4635, 4638,    0, 4674,
+     9211, 9211, 4621, 4636, 4704, 4705, 4706, 4695, 4702, 4745,
+     4746, 9211, 4716, 4704, 4813, 4738, 4818, 4766, 3843, 1687,
+     4841, 4835, 4711, 4716, 4727, 4709,    0, 4710, 4740, 4812,
+
+     9211, 4825, 4786, 4853, 4788, 4784, 4893, 4844, 4851, 4857,
+     4861, 4857, 4864,    0, 4869,    0,    0,    0, 4903, 4902,
+     4909, 4863,    0, 4613, 9211, 4875, 4875, 4879, 4911, 1691,
+     1671, 4892, 4879, 2805, 4899, 4924, 4931, 2934, 3088, 4540,
+     4687, 4941, 4946, 4990, 4965, 4950, 1656, 4932, 4972, 1615,
+     4969, 4976, 4974, 5021, 4977, 5018, 5023, 1595, 5025, 5026,
+     5027, 5020, 5028, 5030, 5032, 5033, 5034, 5036, 5037, 5056,
+     1584, 5038, 5057, 5101, 5069, 5072, 5050, 5058, 5113, 5074,
+     5066, 5076, 5080, 5059, 5085, 1554, 5087, 1538, 1511, 1481,
+     5129, 5140, 5150, 5095, 1473, 4694, 5156, 4911, 1468, 1458,
+
+     5125, 5186, 5266, 5346, 4892, 4914, 5068, 5092,    0, 4774,
+     5123, 5100, 9211,    0, 1397, 1385, 4953, 4971, 1373, 5163,
+     5167, 5210, 5232, 5238, 5239, 1348, 3487, 4074, 5213, 5293,
+     5220, 9211, 5227, 9211,    0, 5274, 5116, 5127, 5147,    0,
+     5190, 5203, 5209,    0, 5179, 5338, 5197, 5251, 9211, 5269,
+     5259, 5275, 5276, 5265, 5281,    0, 5284, 5285, 5321, 9211,
+     5276, 5333, 5372, 5360, 5389, 5335,    0,    0,    0, 5347,
+     5349, 5401, 9211,    0, 5386, 5343, 5349,    0, 5413, 9211,
+     5379, 5353,    0, 5379,    0,    0, 5372, 5426, 5383, 5419,
+     9211, 5427, 9211, 5386, 5393, 4739, 5398,  582, 1358, 1274,
+
+     5389, 4817, 5406,  796, 5432, 4859, 9211, 4974, 5110, 1309,
+     5436, 5438, 5439, 5442, 1303, 5447, 5454, 5433, 1215, 5453,
+     5462, 5455, 5461, 5471, 1214, 5470, 5475, 5445, 5468, 5467,
+     1135, 1114, 1109, 5482, 5476, 1094, 5477, 5473, 1078, 5478,
+     5511, 1024, 5483,  962,  931, 5484, 5516, 5489, 5177,  904,
+     5444,  889,  804,    0, 5478,    0, 5494, 5467, 5495, 5530,
+     5545, 5322, 5558, 5562, 5580, 5500,    0, 5512, 5514, 5520,
+     5530,    0, 5529, 5536, 5536, 5535, 5542, 5556, 5545, 5559,
+     5564, 9211, 5563, 5550,    0, 5557,    0,    0, 5596,    0,
+     5573, 5603, 5567, 5572,    0,    0, 5571, 5615, 5595, 5600,
+
+     5584, 5590, 5587, 5604, 5631, 5604,    0, 5605, 5633, 5634,
+     5639, 5643,    0, 5643,  878, 5646, 5647, 5648, 5649,  874,
+     5650, 5663, 5655, 5666, 5668, 5664,  834, 5665,  822,  817,
+      808, 5669, 5676, 5670,  778,  774, 5671, 5679, 5681, 5684,
+     5683, 5731, 5703, 5714, 5647, 5662,    0,    0, 5709, 5742,
+     1312, 5743, 5226, 5755, 5759, 5777, 5773, 5687, 5721,    0,
+        0, 5722, 5690,    0, 5732, 5725, 5730, 5736, 5743, 5799,
+     5740, 9211,    0, 5758,    0, 5786, 9211, 5749, 5763,    0,
+     5802, 9211,    0, 5753, 5770, 5775, 9211, 5777, 5805, 5769,
+        0, 5809, 5813, 5817,    0, 5815, 5811,  751,  743, 5820,
+
+     5824,  726, 5821, 5825, 5828,  703, 5830,  690, 5832,  638,
+      627, 5839, 5840, 5845, 5250, 5835,    0, 5799,  602, 1570,
+     5892, 1581, 5904, 5908, 5914,  596, 5820, 5859,    0,    0,
+     5805, 5831, 5827, 5852, 5918, 5924, 9211, 9211, 5870, 5885,
+     5891, 5895,    0,    0, 9211,  938,  540, 5928, 5931, 5932,
+     5935,  549,  451, 5929, 5937, 5938, 5940,  383,  379, 5307,
+     5970, 5977, 5942,  979,    0, 5999, 6003, 5943, 6015, 6019,
+      369,    0, 5965, 5961, 5924, 5930, 5980, 5939,    0, 5984,
+     5986, 9211, 5989, 5987, 1003, 6027,  368, 6028, 5992,  322,
+     6032, 6044, 6063, 6048,  312,  198, 6068, 6090, 6072, 5993,
+
+     6086, 6103, 6099, 6113, 6119, 6010, 6007, 6006, 6011, 6030,
+     6051, 6095, 6061, 6081,  178, 6077, 6108, 6111, 6136, 6144,
+      173,  166, 6148, 6162, 6176, 6174, 6185, 6189, 6201, 6197,
+     6128, 6213, 6225, 6221, 5947, 9211, 6078, 6099,    0, 6105,
+     6123, 6150, 6167, 6149, 6180,  146, 9211,  126, 6205, 6198,
+     6242, 6247, 6251, 6255, 6229, 6272, 6268, 6276, 6288, 6293,
+     6291, 6305, 6309, 6314, 6260, 9211, 6169, 6233, 6277, 6203,
+     1153,   69, 1740, 6296, 6322, 6324, 6334, 6351, 6355, 6367,
+     6380, 6331, 6393, 6337, 1772, 6282,    0, 6316,    0, 6328,
+     6306, 6371,  106,   82, 5168, 6438, 6409, 6413, 6389, 6462,
+
+     6417, 6359, 9211, 9211, 6364, 6357, 6384, 6384, 6466, 6518,
+     6483, 6433, 6402, 6418, 6399, 6453, 6429, 6497, 6471, 6501,
+     6542, 6450, 6457, 6477, 1866, 6546, 6510, 6512, 6433, 6513,
+     6522, 6558, 6571, 6534, 6576, 6579, 6585, 6589, 9211, 6566,
+     6597, 9211, 6581, 6561, 6600, 6606, 9211, 9211, 6636, 6654,
+     6672, 6690, 6708, 6725, 6729, 6747, 6765, 6783, 6799, 6817,
+     6835, 6853, 6871, 6889, 6907, 6924, 6941, 6946,  101, 6964,
+     6982, 7000, 7018, 7036, 7054, 7072, 7090, 7108, 7126, 7144,
+     7162, 7180, 7198, 7216, 7233, 7249, 7254, 7271, 7289, 7307,
+     7325, 7330, 7348, 7361, 7376, 7394, 7412, 7430, 7448, 7466,
+
+     7484, 7502, 7518, 7536, 7554, 7572, 7590, 7608, 7626, 7644,
+     7662, 7679, 7695, 7712, 7730, 7748, 7766, 7784, 7789, 7807,
+     7825, 7843, 7861, 7879, 7897, 7915, 7933, 7951, 7969, 7987,
+     8005, 8023, 8041, 8059, 8077, 8094, 8099, 8115, 8132, 8150,
+     8168, 8186, 8204, 8222, 8240, 8258, 8276, 8294, 8312, 8330,
+     8348, 8366, 8384, 8402, 8420, 8438, 8456, 8474, 8492, 8510,
+     8528, 8545, 8563, 8580, 8596, 8601, 8618, 8636, 8654, 8672,
+     8690, 8708, 8726, 8744, 8761, 8778, 8796, 8814, 8832, 8850,
+     8868, 8886, 8904, 8921, 8938, 8954, 8971, 8976, 8994, 9012,
+     9030, 9048, 9066, 9084, 9102, 9120, 9138, 9156, 9174, 9192
+
     } ;
 
-static yyconst flex_int16_t yy_def[1171] =
+static yyconst flex_int16_t yy_def[2001] =
     {   0,
-     1131,    1, 1132, 1132,    1,    2, 1133, 1133,    1,    2,
-        1,    2, 1131, 1131, 1131, 1131, 1134, 1135, 1131, 1131,
-     1136, 1137, 1131, 1131, 1131, 1131, 1131, 1131, 1131, 1131,
-     1131, 1131, 1131, 1131, 1138, 1138, 1138, 1138, 1138, 1138,
-     1138, 1138, 1138, 1138, 1138,   40, 1138, 1138, 1138, 1138,
-     1138, 1138, 1138, 1138, 1131, 1131,   55, 1139, 1131,   37,
-     1138, 1138, 1138, 1138, 1138, 1131, 1140, 1131, 1140, 1140,
-     1140, 1141, 1131, 1131, 1131, 1131, 1131, 1131, 1134, 1134,
-     1134, 1135, 1131, 1135, 1135, 1136, 1131, 1136, 1136, 1137,
-     1142, 1137, 1131, 1137, 1137, 1131, 1131, 1131, 1143, 1131,
-
-     1131, 1131, 1131, 1131, 1131, 1131, 1131, 1144,   29, 1131,
-     1131, 1131, 1138, 1138, 1138, 1138, 1138, 1138, 1138, 1138,
-     1138, 1138, 1138, 1138, 1138, 1138, 1138, 1138, 1138, 1138,
-     1138, 1138, 1138, 1138, 1138, 1138, 1138, 1138, 1138, 1138,
-     1138, 1138, 1138, 1138, 1138, 1138, 1138, 1138, 1138, 1138,
-     1138, 1138, 1138, 1138, 1138, 1138, 1138, 1138, 1138, 1138,
-     1138, 1138, 1138, 1138, 1138, 1138, 1138, 1138, 1138, 1138,
-     1138, 1138, 1138, 1138, 1145,   55,  176, 1146, 1131, 1131,
-     1131, 1131, 1131, 1131, 1131, 1131,  176, 1131, 1139, 1131,
-     1139, 1139, 1139, 1131, 1131, 1131, 1138, 1138, 1138, 1138,
-
-     1138, 1138, 1138, 1140, 1131, 1140, 1140, 1140, 1140, 1147,
-     1147, 1131, 1147, 1147, 1147, 1147, 1148, 1148,  218,  218,
-      218, 1131, 1131, 1131, 1134, 1134, 1135, 1135, 1136, 1136,
-     1142, 1142, 1142, 1142, 1131, 1137, 1137, 1131, 1131, 1131,
-     1131, 1131, 1131, 1131, 1131, 1131, 1131, 1131, 1131, 1144,
-     1131, 1131, 1138, 1138, 1138, 1138, 1138, 1138, 1138, 1138,
-     1138, 1138, 1138, 1138, 1138, 1138, 1138, 1138, 1138, 1138,
-     1138, 1138, 1138, 1138, 1138, 1138, 1138, 1138, 1138, 1138,
-     1138, 1138, 1138, 1138, 1138, 1138, 1138, 1131, 1138, 1138,
-     1138, 1138, 1138, 1138, 1138, 1138, 1138, 1138, 1138, 1138,
-
-     1138, 1138, 1138, 1138, 1138, 1138, 1138, 1138, 1138, 1138,
-     1138, 1138, 1138, 1138, 1138, 1138, 1138, 1138, 1138, 1138,
-     1138, 1138, 1138, 1138, 1138, 1138, 1138, 1138, 1138, 1138,
-     1138, 1138, 1138, 1138, 1138, 1145,  176,  176, 1131, 1146,
-     1131, 1131, 1131, 1131, 1131, 1131, 1131,  187, 1131, 1131,
-     1139, 1139, 1139, 1131, 1131, 1138, 1138, 1138, 1138, 1138,
-     1138, 1138, 1140, 1140, 1147, 1147, 1131, 1147, 1147, 1147,
-      218,  218,  218,  218,  218, 1131, 1131, 1131, 1134, 1134,
-     1135, 1135, 1136, 1136, 1142, 1137, 1137, 1131, 1131, 1131,
-     1131, 1131, 1131, 1131, 1131, 1131, 1131, 1131, 1131, 1131,
-
-     1131, 1131, 1131, 1138, 1138, 1138, 1138, 1138, 1138, 1138,
-     1138, 1138, 1138, 1138, 1138, 1138, 1138, 1138, 1138, 1138,
-     1138, 1138, 1138, 1138, 1138, 1138, 1131, 1131, 1138, 1138,
-     1138, 1138, 1138, 1138, 1138, 1138, 1131, 1131, 1138, 1131,
-     1131, 1138, 1149, 1138, 1138, 1138, 1138, 1131, 1131, 1138,
-     1138, 1131, 1138, 1138, 1138, 1138, 1138, 1138, 1138, 1138,
-     1131, 1131, 1138, 1138, 1131, 1131, 1138, 1138, 1138, 1138,
-     1138, 1131, 1131, 1138, 1138, 1138, 1138, 1138, 1138, 1138,
-     1138, 1138, 1138, 1138, 1138, 1138, 1138, 1138, 1138, 1138,
-     1138, 1138, 1138, 1138, 1138, 1138, 1138, 1138, 1138, 1131,
-
-     1131, 1138, 1138, 1138, 1138, 1138, 1138, 1138, 1138, 1131,
-      176,  176, 1131, 1131, 1131, 1131, 1131, 1131, 1131,  187,
-     1131, 1131, 1139, 1139, 1139, 1131, 1131, 1138, 1138, 1138,
-     1138, 1138, 1138, 1131, 1140, 1140, 1140, 1147, 1147, 1147,
-      218,  218,  218,  218, 1131, 1150, 1131, 1134, 1151, 1135,
-     1152, 1136, 1153, 1137, 1154, 1131, 1131, 1131, 1131, 1131,
-     1138, 1138, 1138, 1155, 1138, 1138, 1138, 1138, 1138, 1138,
-     1138, 1138, 1138, 1138, 1138, 1138, 1138, 1131, 1138, 1138,
-     1131, 1131, 1131, 1131, 1131, 1131, 1131, 1131, 1138, 1138,
-     1138, 1138, 1138, 1138, 1138, 1138, 1138, 1138, 1138, 1131,
-
-     1138, 1138, 1131, 1131, 1138, 1138, 1138, 1138, 1131, 1138,
-     1138, 1138, 1138, 1138, 1138, 1138, 1138, 1138, 1138, 1138,
-     1138, 1138, 1138, 1131, 1131, 1138, 1138, 1138, 1138, 1138,
-     1138, 1138, 1138, 1138, 1131, 1138, 1138, 1138, 1138, 1138,
-     1131, 1131, 1131, 1138, 1138, 1131, 1131, 1138, 1138, 1138,
-      176,  176, 1131, 1131, 1131, 1131, 1131, 1131,  176, 1131,
-     1131, 1139, 1139, 1156, 1131, 1131, 1131, 1138, 1131, 1138,
-     1138, 1131, 1131, 1131, 1140, 1140, 1147, 1157, 1147,  218,
-      218, 1158,  218, 1159, 1131, 1131, 1160, 1134, 1161, 1135,
-     1131, 1162, 1136, 1163, 1137, 1137, 1131, 1131, 1164, 1138,
-
-     1138, 1138, 1138, 1138, 1138, 1138, 1138, 1138, 1138, 1138,
-     1138, 1138, 1138, 1131, 1131, 1138, 1138, 1131, 1131, 1131,
-     1131, 1131, 1131, 1131, 1131, 1131, 1138, 1138, 1138, 1138,
-     1138, 1138, 1138, 1138, 1131, 1131, 1138, 1138, 1138, 1138,
-     1138, 1138, 1138, 1138, 1138, 1138, 1138, 1138, 1138, 1138,
-     1138, 1138, 1131, 1131, 1138, 1138, 1138, 1138, 1138, 1138,
-     1138, 1131, 1138, 1138, 1138, 1138, 1138, 1138, 1138,  176,
-      176, 1131, 1131, 1131,  176, 1139, 1165, 1139, 1131, 1138,
-     1138, 1138, 1140, 1140, 1166, 1147, 1147, 1167,  218, 1131,
-     1131, 1131, 1134, 1135, 1131, 1136, 1137, 1137, 1131, 1138,
-
-     1138, 1138, 1138, 1138, 1138, 1138, 1138, 1138, 1138, 1138,
-     1131, 1138, 1138, 1131, 1131, 1138, 1131, 1131, 1131, 1131,
-     1131, 1131, 1131, 1138, 1138, 1138, 1138, 1138, 1138, 1138,
-     1138, 1138, 1131, 1168, 1138, 1138, 1138, 1138, 1138, 1138,
-     1138, 1131, 1138, 1138, 1138, 1138, 1138, 1138, 1138, 1138,
-     1131, 1131, 1138, 1131, 1138, 1138, 1131, 1131, 1131, 1139,
-     1139, 1131, 1138, 1131, 1138, 1140, 1140, 1147, 1147,  218,
-     1138, 1138, 1138, 1138, 1138, 1138, 1138, 1138, 1138, 1131,
-     1131, 1138, 1138, 1131, 1138, 1131, 1131, 1131, 1131, 1131,
-     1131, 1131, 1138, 1138, 1138, 1138, 1138, 1138, 1138, 1138,
-
-     1168, 1168, 1131, 1169, 1168, 1138, 1138, 1138, 1131, 1138,
-     1138, 1138, 1138, 1131, 1138, 1131, 1138, 1138, 1131, 1131,
-     1139, 1131, 1138, 1138, 1140, 1140, 1147, 1138, 1138, 1138,
-     1138, 1138, 1138, 1138, 1131, 1131, 1138, 1138, 1131, 1138,
-     1131, 1131, 1131, 1131, 1131, 1131, 1138, 1138, 1138, 1138,
-     1138, 1138, 1131, 1169, 1169, 1168, 1169, 1169, 1138, 1131,
-     1138, 1138, 1131, 1138, 1131, 1138, 1138, 1131, 1131, 1139,
-     1131, 1138, 1140, 1140, 1147, 1138, 1138, 1138, 1138, 1131,
-     1131, 1138, 1138, 1131, 1131, 1131, 1131, 1131, 1131, 1131,
-     1131, 1138, 1138, 1138, 1138, 1131, 1168, 1131, 1138, 1131,
-
-     1131, 1138, 1138, 1131, 1139, 1131, 1140, 1140, 1147, 1138,
-     1131, 1131, 1131, 1131, 1138, 1138, 1131, 1131, 1131, 1138,
-     1138, 1138, 1131, 1168, 1131, 1138, 1131, 1131, 1139, 1131,
-     1140, 1140, 1147, 1131, 1131, 1131, 1131, 1138, 1138, 1131,
-     1131, 1138, 1131, 1168, 1131, 1138, 1131, 1139, 1131, 1140,
-     1170, 1147, 1131, 1131, 1131, 1131, 1138, 1138, 1131, 1138,
-     1131, 1168, 1131, 1138, 1131, 1139, 1131, 1140, 1170, 1131,
-     1147, 1131, 1131, 1138, 1131, 1131, 1168, 1168, 1131, 1138,
-     1131, 1139, 1131, 1140, 1147, 1131, 1138, 1168, 1169, 1131,
-     1138, 1131, 1139, 1131, 1140, 1147, 1131, 1131, 1139, 1131,
-
-     1140, 1147, 1139, 1131, 1140, 1147, 1139, 1131, 1140, 1147,
-     1139, 1131, 1140, 1147, 1139, 1131, 1140, 1147, 1139, 1131,
-     1131, 1131, 1140, 1147, 1131, 1140, 1140, 1140, 1140, 1131,
-        0, 1131, 1131, 1131, 1131, 1131, 1131, 1131, 1131, 1131,
-     1131, 1131, 1131, 1131, 1131, 1131, 1131, 1131, 1131, 1131,
-     1131, 1131, 1131, 1131, 1131, 1131, 1131, 1131, 1131, 1131,
-     1131, 1131, 1131, 1131, 1131, 1131, 1131, 1131, 1131, 1131
+     1848,    1, 1849, 1849,    1,    1, 1850, 1850, 1849, 1849,
+     1848,   11,    1,    1, 1848, 1848, 1848, 1848, 1851, 1852,
+     1848, 1848, 1848, 1853, 1854, 1848, 1848, 1848, 1848, 1848,
+     1848, 1848, 1848, 1848, 1848, 1848, 1855, 1855, 1855, 1855,
+     1855, 1855, 1855, 1855, 1855, 1855, 1855, 1855, 1855, 1855,
+       49, 1855, 1855, 1855, 1855, 1855, 1855, 1848, 1848, 1856,
+       39, 1855, 1855, 1855, 1855, 1848, 1857, 1848, 1857, 1857,
+     1857, 1848, 1848, 1858, 1848, 1859, 1859, 1859, 1859,   79,
+       79,   79, 1859, 1859,   79,   79,   79,   79, 1859,   88,
+       79,   79, 1859,   89, 1859, 1859, 1848,   58, 1860,   31,
+
+     1848,   79,   79,   84,   78,   58,   31, 1848, 1848, 1848,
+     1861, 1861, 1861, 1862, 1848, 1862, 1862, 1848, 1863, 1864,
+     1865, 1864, 1848, 1864, 1864, 1866, 1866, 1848, 1866, 1866,
+     1866, 1848, 1848, 1848, 1848, 1848, 1848, 1848, 1848, 1848,
+     1848, 1848, 1848, 1848, 1848, 1848, 1848, 1867, 1848, 1848,
+     1848, 1848, 1848, 1848, 1848, 1868, 1868, 1868, 1868, 1868,
+     1868, 1868, 1868, 1868, 1868, 1868, 1868, 1868, 1868, 1868,
+     1868, 1868, 1868, 1868, 1868, 1868, 1868, 1868, 1868, 1868,
+     1868, 1868, 1868, 1868, 1868, 1868, 1868, 1868, 1868, 1868,
+     1868, 1868, 1868, 1868, 1868, 1868, 1868, 1868, 1868, 1868,
+
+     1868, 1868, 1868, 1868, 1868, 1868, 1868, 1868, 1868, 1868,
+     1868, 1868, 1868, 1869,   58, 1848, 1870, 1848, 1848, 1848,
+     1848, 1848, 1848, 1871, 1848, 1871, 1871, 1871, 1848, 1868,
+     1868, 1868, 1868, 1868, 1868, 1872, 1848, 1872, 1872, 1872,
+     1872, 1848, 1873, 1848, 1848, 1848, 1848, 1874, 1875, 1848,
+       84,   84,  252,  252,  252,  252,  252,  252,  252,  252,
+      252,  252,  252,  252,  252,  252,  252,  252,  252,  252,
+      252,  252,  252,  252,  252,  252,  252,  252,  252,  252,
+      252,  252,  252,  252,  252,  252,  252,  252,  252,  252,
+      252,  252,  252,  252,  252,  252,  252,  252,  252,  252,
+
+      252,  252,  252,  252,  252,  252,  252,  252, 1848, 1848,
+     1848, 1876,  215,  313, 1848, 1877, 1848, 1877, 1877, 1877,
+     1848, 1848, 1848, 1848, 1877, 1878, 1878,  327,  327,  327,
+      327,  327,  327,  252,  252,  252,  252,  215, 1848, 1848,
+     1848, 1848, 1848, 1848, 1879, 1879, 1880, 1880, 1880, 1881,
+     1882, 1882, 1882, 1882, 1848, 1883, 1884, 1884, 1848, 1885,
+     1848, 1886, 1887, 1886, 1886, 1848, 1848, 1848, 1848, 1848,
+     1848, 1848, 1848, 1848, 1848, 1848, 1848, 1848, 1848, 1888,
+     1889, 1848, 1848, 1890, 1848, 1891, 1848, 1848, 1892, 1892,
+     1892, 1892, 1892, 1892, 1892, 1892, 1892, 1892, 1892, 1892,
+
+     1892, 1892, 1892, 1892, 1848, 1892, 1892, 1892, 1892, 1892,
+     1892, 1892, 1892, 1892, 1892, 1892, 1892, 1892, 1892, 1848,
+     1892, 1848, 1893, 1892, 1892, 1892, 1892, 1892, 1892, 1892,
+     1892, 1892, 1892, 1892, 1892, 1892, 1892, 1892, 1892, 1892,
+     1892, 1892, 1892, 1892, 1892, 1892, 1892, 1892, 1892, 1892,
+     1892, 1892, 1892, 1892, 1892, 1892, 1892, 1892, 1892, 1892,
+     1892, 1892, 1892, 1892, 1892, 1892, 1892, 1892, 1892, 1894,
+     1848, 1895, 1848, 1848, 1848, 1848, 1848, 1848, 1896, 1896,
+     1896, 1848, 1892, 1892, 1892, 1892, 1892, 1892, 1897, 1897,
+     1898, 1848, 1848, 1899, 1900, 1848, 1848, 1848, 1901, 1902,
+
+     1903, 1903, 1903, 1903, 1903, 1903, 1903, 1903, 1903, 1903,
+     1903, 1903, 1903, 1903, 1903, 1903, 1903, 1903, 1903, 1903,
+     1903, 1903, 1903, 1903, 1903, 1903, 1903, 1903, 1903, 1903,
+     1903, 1903, 1903, 1903, 1903, 1903, 1903, 1903, 1903, 1903,
+     1903, 1903, 1903, 1903, 1903, 1903, 1903, 1903, 1903, 1903,
+     1903, 1903, 1903, 1903, 1903, 1903, 1903, 1903, 1903, 1903,
+     1903, 1903, 1903, 1903, 1903, 1903, 1903, 1903, 1903, 1903,
+     1903, 1903, 1903, 1903, 1903, 1903, 1903, 1848, 1848, 1904,
+     1848, 1848, 1848,  582, 1848, 1848, 1905, 1905, 1848, 1848,
+     1848, 1905, 1906, 1906,  594,  594,  594,  594,  594,  594,
+
+      594, 1903, 1903, 1903, 1903, 1848, 1848, 1848, 1848, 1907,
+     1907, 1908, 1908, 1909, 1910, 1911, 1910, 1910, 1912, 1912,
+     1912, 1848, 1848, 1913, 1914, 1914, 1848, 1848, 1848, 1848,
+     1848, 1848, 1848, 1848, 1848, 1848, 1848, 1848, 1848, 1848,
+     1848, 1848, 1915, 1916, 1848, 1848, 1848, 1917, 1918, 1848,
+     1919, 1919, 1919, 1919, 1919, 1919, 1919, 1919, 1919, 1919,
+     1919, 1919, 1919, 1919, 1919, 1919, 1919, 1919, 1848, 1919,
+     1919, 1919, 1848, 1848, 1919, 1919, 1919, 1919, 1919, 1848,
+     1848, 1919, 1848, 1848, 1919, 1919, 1919, 1919, 1919, 1919,
+     1848, 1848, 1919, 1919, 1848, 1919, 1920, 1921, 1922, 1920,
+
+     1919, 1919, 1919, 1919, 1919, 1919, 1919, 1919, 1919, 1919,
+     1848, 1848, 1919, 1919, 1919, 1919, 1848, 1848, 1919, 1919,
+     1919, 1919, 1919, 1919, 1919, 1919, 1919, 1919, 1919, 1919,
+     1919, 1919, 1919, 1848, 1848, 1919, 1919, 1919, 1919, 1919,
+     1919, 1919, 1919, 1919, 1919, 1919, 1919, 1919, 1919, 1919,
+     1919, 1919, 1848, 1848, 1848, 1848, 1848, 1848, 1848, 1923,
+     1923, 1923, 1848, 1919, 1919, 1919, 1919, 1919, 1919, 1924,
+     1924, 1924, 1848, 1848, 1848, 1848, 1925, 1926, 1903, 1903,
+     1903, 1903, 1903, 1903, 1903, 1903, 1903, 1903, 1903, 1903,
+     1903, 1903, 1903, 1903, 1903, 1903, 1903, 1903, 1903, 1903,
+
+     1903, 1903, 1903, 1903, 1903, 1903, 1903, 1903, 1903, 1903,
+     1903, 1903, 1903, 1903, 1903, 1903, 1903, 1903, 1903, 1903,
+     1903, 1903, 1903, 1903, 1903, 1903, 1903, 1903, 1903, 1903,
+     1903, 1903, 1903, 1903, 1903, 1903, 1903, 1903, 1903, 1903,
+     1903, 1903, 1903, 1903, 1903, 1903, 1903, 1903, 1903, 1903,
+     1903, 1903, 1903, 1903, 1903, 1903, 1903, 1903, 1903, 1903,
+     1848, 1848, 1848, 1848, 1848, 1848, 1848, 1927, 1927, 1848,
+     1927, 1928, 1928,  873,  873,  873,  873,  873,  873,  873,
+      873,  873, 1903, 1903, 1903, 1903, 1848, 1848, 1929, 1930,
+     1931, 1932, 1933, 1934, 1935, 1848, 1848, 1848, 1936, 1937,
+
+     1938, 1939, 1940, 1848, 1848, 1848, 1848, 1848, 1848, 1848,
+     1848, 1848, 1941, 1848, 1919, 1919, 1919, 1919, 1919, 1942,
+     1919, 1919, 1919, 1919, 1919, 1919, 1919, 1919, 1919, 1919,
+     1919, 1919, 1848, 1919, 1919, 1848, 1848, 1848, 1848, 1848,
+     1919, 1919, 1919, 1919, 1919, 1919, 1919, 1919, 1919, 1848,
+     1848, 1919, 1848, 1848, 1919, 1848, 1943, 1944, 1945, 1946,
+     1919, 1919, 1919, 1919, 1919, 1919, 1919, 1919, 1919, 1919,
+     1848, 1848, 1919, 1919, 1848, 1848, 1848, 1848, 1919, 1919,
+     1919, 1919, 1919, 1919, 1919, 1919, 1919, 1919, 1919, 1919,
+     1848, 1848, 1848, 1848, 1919, 1919, 1919, 1919, 1919, 1919,
+
+     1919, 1919, 1919, 1848, 1848, 1919, 1919, 1919, 1848, 1848,
+     1848, 1848, 1848, 1848, 1947, 1947, 1948, 1848, 1848, 1919,
+     1848, 1919, 1919, 1848, 1848, 1848, 1949, 1949, 1848, 1848,
+     1848, 1848, 1903, 1903, 1903, 1903, 1903, 1950, 1903, 1903,
+     1903, 1903, 1903, 1903, 1903, 1903, 1903, 1903, 1903, 1903,
+     1903, 1903, 1903, 1903, 1903, 1903, 1903, 1903, 1903, 1903,
+     1903, 1903, 1903, 1903, 1903, 1903, 1903, 1903, 1903, 1903,
+     1903, 1903, 1903, 1903, 1903, 1903, 1903, 1903, 1903, 1903,
+     1903, 1903, 1903, 1903, 1903, 1903, 1903, 1903, 1903, 1903,
+     1903, 1903, 1903, 1903, 1903, 1903, 1903, 1903, 1903, 1848,
+
+     1848, 1848, 1848, 1848, 1848, 1848, 1951, 1952, 1848, 1951,
+     1951, 1953, 1953, 1113, 1113, 1113, 1113, 1113, 1113, 1954,
+     1113, 1903, 1903, 1848, 1955, 1848, 1956, 1957, 1958, 1959,
+     1848, 1960, 1961, 1961, 1848, 1848, 1848, 1962, 1963, 1848,
+     1964, 1848, 1965, 1965, 1966, 1848, 1848, 1848, 1848, 1848,
+     1919, 1919, 1967, 1919, 1919, 1919, 1919, 1919, 1919, 1919,
+     1919, 1919, 1919, 1919, 1919, 1919, 1848, 1848, 1919, 1919,
+     1848, 1848, 1848, 1848, 1848, 1919, 1919, 1919, 1919, 1919,
+     1848, 1848, 1919, 1919, 1968, 1968, 1969, 1970, 1971, 1970,
+     1971, 1971, 1919, 1919, 1919, 1919, 1919, 1919, 1919, 1848,
+
+     1848, 1919, 1919, 1919, 1919, 1919, 1919, 1919, 1919, 1919,
+     1919, 1919, 1919, 1919, 1919, 1919, 1919, 1919, 1919, 1919,
+     1919, 1919, 1919, 1848, 1848, 1848, 1848, 1848, 1972, 1973,
+     1972, 1848, 1919, 1919, 1919, 1974, 1974, 1848, 1975, 1848,
+     1848, 1903, 1903, 1976, 1903, 1903, 1903, 1903, 1903, 1903,
+     1903, 1903, 1903, 1903, 1903, 1903, 1903, 1903, 1903, 1903,
+     1903, 1903, 1903, 1903, 1903, 1903, 1903, 1903, 1903, 1903,
+     1903, 1903, 1903, 1903, 1903, 1903, 1903, 1903, 1903, 1903,
+     1903, 1903, 1903, 1903, 1903, 1903, 1903, 1903, 1903, 1903,
+     1903, 1903, 1903, 1903, 1903, 1848, 1975, 1848, 1977, 1978,
+
+     1978, 1979, 1980, 1980, 1304, 1304, 1304, 1304, 1304, 1903,
+     1903, 1848, 1848, 1981, 1982, 1848, 1983, 1983, 1848, 1984,
+     1848, 1964, 1848, 1965, 1965, 1966, 1848, 1985, 1848, 1848,
+     1848, 1848, 1848, 1848, 1919, 1919, 1919, 1919, 1919, 1919,
+     1919, 1919, 1919, 1919, 1919, 1848, 1919, 1919, 1848, 1848,
+     1919, 1848, 1848, 1848, 1919, 1919, 1919, 1919, 1848, 1848,
+     1919, 1919, 1970, 1970, 1971, 1919, 1919, 1919, 1919, 1919,
+     1919, 1848, 1848, 1919, 1848, 1919, 1919, 1919, 1848, 1848,
+     1919, 1919, 1919, 1919, 1919, 1919, 1919, 1848, 1919, 1848,
+     1848, 1848, 1848, 1919, 1848, 1848, 1848, 1972, 1972, 1848,
+
+     1919, 1848, 1919, 1974, 1974, 1848, 1848, 1848, 1986, 1903,
+     1903, 1903, 1903, 1903, 1903, 1903, 1903, 1903, 1903, 1903,
+     1903, 1903, 1903, 1903, 1903, 1903, 1903, 1903, 1903, 1903,
+     1903, 1903, 1903, 1903, 1903, 1903, 1903, 1903, 1903, 1903,
+     1903, 1903, 1903, 1903, 1903, 1903, 1903, 1903, 1848, 1987,
+     1848, 1978, 1978, 1304, 1304, 1304, 1304, 1304, 1304, 1903,
+     1848, 1848, 1848, 1848, 1985, 1919, 1919, 1919, 1919, 1919,
+     1919, 1919, 1919, 1919, 1848, 1848, 1919, 1919, 1848, 1919,
+     1848, 1848, 1848, 1919, 1919, 1919, 1919, 1919, 1970, 1919,
+     1919, 1919, 1848, 1919, 1919, 1919, 1919, 1919, 1919, 1848,
+
+     1919, 1919, 1848, 1848, 1972, 1848, 1919, 1919, 1974, 1974,
+     1848, 1848, 1988, 1903, 1903, 1903, 1903, 1903, 1903, 1903,
+     1903, 1903, 1903, 1903, 1903, 1903, 1903, 1903, 1903, 1903,
+     1903, 1903, 1903, 1903, 1903, 1903, 1903, 1903, 1903, 1903,
+     1903, 1848, 1848, 1978, 1304, 1304, 1304, 1304, 1903, 1848,
+     1989, 1848, 1848, 1848, 1990, 1848, 1848, 1919, 1919, 1919,
+     1919, 1919, 1919, 1919, 1848, 1848, 1919, 1919, 1848, 1919,
+     1848, 1848, 1919, 1919, 1919, 1848, 1848, 1848, 1919, 1919,
+     1848, 1848, 1919, 1848, 1919, 1919, 1848, 1848, 1972, 1848,
+     1919, 1974, 1974, 1848, 1988, 1903, 1903, 1903, 1903, 1903,
+
+     1903, 1903, 1903, 1903, 1903, 1903, 1903, 1903, 1903, 1903,
+     1903, 1903, 1903, 1848, 1991, 1978, 1304, 1304, 1903, 1989,
+     1989, 1989, 1848, 1990, 1990, 1990, 1919, 1919, 1919, 1919,
+     1848, 1848, 1919, 1919, 1848, 1848, 1848, 1848, 1919, 1848,
+     1919, 1848, 1919, 1919, 1848, 1972, 1848, 1974, 1974, 1903,
+     1903, 1903, 1903, 1903, 1903, 1903, 1903, 1903, 1903, 1991,
+     1848, 1991, 1991, 1978, 1304, 1989, 1989, 1992, 1990, 1848,
+     1990, 1919, 1848, 1848, 1848, 1848, 1919, 1919, 1919, 1848,
+     1919, 1848, 1972, 1848, 1974, 1974, 1903, 1903, 1903, 1903,
+     1903, 1848, 1848, 1848, 1993, 1994, 1991, 1991, 1995, 1978,
+
+     1992, 1992, 1992, 1848, 1848, 1848, 1848, 1919, 1919, 1848,
+     1919, 1972, 1848, 1974, 1996, 1903, 1903, 1903, 1848, 1848,
+     1993, 1994, 1991, 1991, 1991, 1997, 1998, 1995, 1995, 1995,
+     1978, 1992, 1989, 1992, 1848, 1848, 1848, 1848, 1919, 1919,
+     1848, 1919, 1972, 1848, 1974, 1996, 1848, 1903, 1903, 1903,
+     1848, 1848, 1991, 1991, 1997, 1997, 1997, 1998, 1848, 1998,
+     1998, 1995, 1991, 1995, 1978, 1848, 1848, 1919, 1848, 1919,
+     1972, 1848, 1974, 1903, 1903, 1848, 1848, 1991, 1991, 1997,
+     1991, 1997, 1998, 1999, 1978, 1848, 1919, 1848, 1919, 1972,
+     1848, 1974, 1903, 1903, 1848, 1991, 1991, 1991, 1999, 1999,
+
+     1999, 1978, 1848, 1848, 1972, 1848, 1974, 1848, 1991, 2000,
+     1999, 1999, 1978, 1972, 1848, 1974, 1848, 1991, 1995, 1991,
+     1991, 1978, 1972, 1848, 1974, 1991, 1978, 1972, 1848, 1974,
+     1978, 1972, 1848, 1974, 1978, 1972, 1848, 1848, 1848, 1974,
+     1978, 1848, 1974, 1974, 1974, 1974, 1848,    0, 1848, 1848,
+     1848, 1848, 1848, 1848, 1848, 1848, 1848, 1848, 1848, 1848,
+     1848, 1848, 1848, 1848, 1848, 1848, 1848, 1848, 1848, 1848,
+     1848, 1848, 1848, 1848, 1848, 1848, 1848, 1848, 1848, 1848,
+     1848, 1848, 1848, 1848, 1848, 1848, 1848, 1848, 1848, 1848,
+     1848, 1848, 1848, 1848, 1848, 1848, 1848, 1848, 1848, 1848,
+
+     1848, 1848, 1848, 1848, 1848, 1848, 1848, 1848, 1848, 1848,
+     1848, 1848, 1848, 1848, 1848, 1848, 1848, 1848, 1848, 1848,
+     1848, 1848, 1848, 1848, 1848, 1848, 1848, 1848, 1848, 1848,
+     1848, 1848, 1848, 1848, 1848, 1848, 1848, 1848, 1848, 1848,
+     1848, 1848, 1848, 1848, 1848, 1848, 1848, 1848, 1848, 1848,
+     1848, 1848, 1848, 1848, 1848, 1848, 1848, 1848, 1848, 1848,
+     1848, 1848, 1848, 1848, 1848, 1848, 1848, 1848, 1848, 1848,
+     1848, 1848, 1848, 1848, 1848, 1848, 1848, 1848, 1848, 1848,
+     1848, 1848, 1848, 1848, 1848, 1848, 1848, 1848, 1848, 1848,
+     1848, 1848, 1848, 1848, 1848, 1848, 1848, 1848, 1848, 1848
+
     } ;
 
-static yyconst flex_int16_t yy_nxt[4102] =
+static yyconst flex_int16_t yy_nxt[9292] =
     {   0,
-       14,   15,   16,   15,   17,   18,   14,   19,   20,   21,
-       22,   23,   24,   25,   24,   26,   24,   27,   28,   29,
-       29,   29,   29,   29,   29,   29,   29,   29,   29,   30,
-       31,   32,   33,   34,   35,   36,   37,   38,   39,   40,
-       41,   42,   43,   42,   42,   44,   45,   46,   47,   48,
-       42,   49,   50,   51,   52,   42,   53,   42,   42,   54,
-       24,   24,   42,   35,   36,   37,   38,   39,   40,   41,
-       42,   43,   42,   44,   45,   46,   47,   48,   42,   49,
-       50,   51,   52,   42,   53,   42,   42,   54,   14,   55,
-       56,   57,   58,  222,   69,   68,   69,   70,   72,   76,
-
-       77,   76, 1094,   74,   78,   77,   78,   59,   59,   59,
-       59,   59,   59,   59,   59,   59,   59,   75,  205,   80,
-     1092,   73,  222,  208,   60,   61,  205,  223,   62,   70,
-       63,   71,   74,   81,   83,   74,   87,   74,   74,   91,
-       82,   64,   65,  691, 1070,   75,   92,   93,   80,   75,
-       73,   75,   75,   60,   61,  223,  225,   62,   70,   63,
-       71,   81,   83,   96,   74,  111,   74,   74,   84,   64,
-       65,  209,   74,   88,   74,   74,   94,   75,  226,   75,
-       75,   97,   85,  255,   74,  225,   75,   89,   75,   75,
-       95,  227,  107,   83,  239,   74, 1070,   84,   75,  209,
-
-      624,   74,   88,   74,   74,   94,  226,   74,  625,   75,
-       85,   74,  255,   74,   75,   89,   75,   75,   95,   74,
-      227,   75,  239, 1065,   74,   75,   75,   78,   77,   78,
-       76,   77,   76,   75,  240,  247,   74,   75,  248,  228,
-       74,  179,  206,  205,  206,  112, 1030,  179,   74,   75,
-       98,   74,   98,   75,   78,   77,   78,  224,   77,  224,
-     1027,   75,  240,  247,  963,   75,  248,  228,   99,   99,
-       99,   99,   99,   99,   99,   99,   99,   99,   74,  207,
-       74,  114,  115,  100,  261,  116,  116,  101,   74,  102,
-      212,  117,   75,   75,  103,  142,  104,  105,  118,  119,
-
-      121,  922,   75,  263,   87,  190,  106,   74,  207,   87,
-      114,  115,  100,  261,  116,  116,  101,   74,  102,  117,
-       75,  253,  103,  142,  104,  105,  118,  119,  121,   87,
-       75,  120,  263,  116,  106,  108,  116,  109,  109,  109,
-      109,  109,  109,  109,  109,  109,  109,  121,   83,  253,
-      121,   91,  511,  230,  512,  110,  110,   74,   92,   93,
-      120,  229,  116,  254,  256,  116,  245,  212,  110,  260,
-      262,   75,  268,  116, 1131,  121,  246,  175,  121,  127,
-      116,  230,  146,  128,  110,  110,   74,  121, 1131,  129,
-      229,  254,  256,  130,  121,  245,  110,  260,  262,   75,
-
-      122,  268,  116, 1131,  246,  116,  116,  123,  127,  116,
-      146,  124,  128,  212,  125,  121, 1131,  129,   91,  121,
-      121,  130,  121,  190,  126,   92,   93,  179,  190,  122,
-       78,   77,   78,  179,  116,  116,  123,  143,   87,  124,
-      275,  147,  125,   87,  144,  145,  116,  121,  121,  148,
-       83,  121,  126,  116,  753,  149,  211,  212,  211,  131,
-      121,  132,  133,  754,  134,  135,  143,  121,  213,  275,
-      147,  136,  144,  145,  264,  116,  241,   82,  148,  121,
-      795,  212,  116,  149,  366,  367,  366,  131,  121,  132,
-      133,  242,  134,  135,  214,  121,  259,  162,  116,  136,
-
-      116,  190,  264,  137,  762,  241,  138,  139,  215,  140,
-      150,  753,  121,  260,  121,  141,  271,  255,  151,  242,
-      754,  113,  152,  214,  153,  259,  162,  116,  257,  116,
-      154,  698,  137,  243,  138,  139,  215,  140,  258,  150,
-      121,  260,  121,  141,  271,  116,  255,  151,  244,  113,
-      152,  158,  153,  155,  272,  156,  116,  257,  154,  121,
-      157,  116,  243,  273,  274,  159,  258,  276,  160,  172,
-      121,  161,  179,   87,  116,  121,  244,  534,  179,  277,
-      158,  155,  272,  156,  534,  116,  278,  121,  157,  282,
-      116,  273,  274,  159,   91,  276,  160,  172,  121,  161,
-
-      163,   92,   93,  121,  164,  116,  169,  277,  165,  643,
-      116,  116,  173,  170,  278,  635,  166,  282,  285,  167,
-      168,  286,  174,  171,  121,  121,  378,   77,  378,  163,
-      560,  559,  295,  164,  116,  169,  287,  165,  290,  116,
-      116,  173,  170,  237,  166,  196,  285,  167,  168,  286,
-      174,  171,  121,  121,  176,   77,  177,  178,  186,  187,
-      190,  295,  179,  557,  287,  191,  290,  511,  283,  512,
-      296,  237,  197,  556,  284,  188,  188,  188,  188,  188,
-      188,  188,  188,  188,  188,  297,  198,  298,  310,  180,
-      181,  116,   74,  182,  116,  183,  283,  192,  296,  172,
-
-      200,  197,  284,  142,  203,  121,  184,  185,  121,  212,
-      299,  193,  534,  297,  198,  190,  298,  310,  180,  181,
-      116,   74,  182,  116,  183,  300,  192,  172,  200,  510,
-      400,  142,  203,  121,  184,  185,  121,  143,  299,  193,
-      194,  232,  233,  232,  144,  201,  179,  396,  395,  234,
-      235,  121,  394,  300,  108,  393,  195,  195,  195,  195,
-      195,  195,  195,  195,  195,  195,  143,  238,  238,  288,
-       91,  288,  144,  201,  110,  110,   74,   92,   93,  121,
-      238,  301,  265,  266,  302,  303,  304,  110,  267,  307,
-       75,  313,  212,  651,  319,  652,  238,  238,  320,  212,
-
-      323,  269,  236,  110,  110,   74,  270,  330,  238,  301,
-      265,  266,  302,  303,  304,  110,  267,  307,   75,  199,
-      313,  289,  319,  127,  116,  205,  320,  128,  323,  190,
-      269,  236,  190,  129,  344,  270,  330,  130,  121,  308,
-      169,  190,  309,  279,  321,  116,  291,  170,  199,  289,
-      280,  322,  127,  116,  281,  331,  128,  171,  292,  121,
-      293,  129,  344,  294,  202,  130,  121,  308,   87,  169,
-      309,   87,  279,  321,  116,  291,  170,   83,  280,  322,
-      205,  651,  281,  652,  331,  171,  292,  121,  293,  921,
-     1131,  294,  202,  210,  211,  212,  211,  210,  210,  210,
-
-      216,  210,  210,  210,  210,  210,  210,  210,  210,  210,
-      210,  210,  217,  217,  217,  217,  217,  217,  217,  217,
-      217,  217,  210,  210,  210,  210,  210,  197,  217,  217,
-      217,  217,  218,  217,  123,  217,  217,  217,  219,  217,
-      217,  198,  217,  217,  217,  217,  220,  217,  217,  217,
-      217,  221,  217,  210,  210,  217,  197,  217,  217,  217,
-      217,  218,  217,  123,  217,  217,  219,  217,  217,  198,
-      217,  217,  217,  217,  220,  217,  217,  217,  217,  221,
-      217,  210,   98,  251,   98,  251,   68,  305,  252,  252,
-      252,  252,  252,  252,  252,  252,  252,  252,  311,  366,
-
-      367,  366,  306,  345,  312,  332,  667,  326,  667,  328,
-      333,  335, 1131,  329,  334,  100,  305,  347,  327,  101,
-      343,  102,  205,  669,  355,  669,  103,  311,  104,  105,
-      306,  345,  312,  314,  332,  315,  326,  328,  106,  333,
-      335,  329, 1131,  334,  100,  347,  327, 1131,  101,  343,
-      102,  316,  317,  355,  103,  318,  104,  105,  337,  358,
-      338, 1131,  314,  190,  315, 1131,  106,  250,  250,  250,
-      250,  250,  250,  250,  250,  250,  250,  324,  341,  316,
-      317,  223,  925,  318,  362,  110,  110,  358,  346,  190,
-      359,  325,  342,  190,  260,  351, 1131,  233,  110,  361,
-
-     1131,  205,  212, 1131,  385,  235,  324,  341, 1131,  223,
-      339,  186,  348,  362,  110,  110,  346,  205,  359,  325,
-      342,  352,  260, 1131,  351, 1131,  110,  361,  349,  349,
-      349,  349,  349,  349,  349,  349,  349,  349,  339,  350,
-      262,  770,  353,  771,  390,  179,  209,  356,  376,  363,
-      352,  369,  377, 1131, 1131,  349,  349,  349,  349,  349,
-      349,  349,  349,  349,  349,  350,  265,  357,  262,  212,
-      353,  179,  267,  390,  209,  356,  376, 1131,  363,  369,
-      377,  349,  349,  349,  349,  349,  349,  349,  349,  349,
-      349,  350,  205,  379,  265,  357,  212,  179, 1131,  391,
-
-      267,  368,  206,  205,  206,  108,  291,  354,  354,  354,
-      354,  354,  354,  354,  354,  354,  354,  380,  292,  399,
-      293,  379,   83,  360,   87,  110,  110,  364,  370,  371,
-      368,  375, 1131, 1131,  408,  291,  233,  392,  110,  207,
-       87, 1131,   83,  385,  235,  380,  292,  399,  293, 1131,
-      770,  360,  771, 1131,  110,  110,  364,  370,  371, 1131,
-      375,  397,  381,  408, 1131,  392,  110,  383,  207,  365,
-      365,  212,  365,  365,  365,  365,  365,  365,  365,  365,
-      365,  365,  365,  365,  365,  365,  365,  365,  371,  371,
-      381,  382,  384,  401,  398,  383,  404,  405,  365,  365,
-
-      365,  365,  365,  373,   91,  374,  232,  233,  232,  406,
-      407,   92,   93,  409,  234,  235, 1131,  371,  371,  382,
-      384,  401,  398, 1131,  404,  405,  232,  233,  232,  365,
-      365,  373, 1131,  374,  234,  235,   91,  406,  407, 1131,
-      388,  409,  388,   92,   93,  389,  389,  389,  389,  389,
-      389,  389,  389,  389,  389,  410,  387,  365,  365,  365,
-      212,  365,  365,  365,  365,  365,  365,  365,  365,  365,
-      365,  365,  365,  365,  365,  365,  365,  411,  412,  386,
-      547,   77,  547,  410,  387, 1131, 1131,  365,  365,  365,
-      365,  365,  372,  252,  252,  252,  252,  252,  252,  252,
-
-      252,  252,  252,  413,  414,  411,  412,  386,  252,  252,
-      252,  252,  252,  252,  252,  252,  252,  252,  365,  365,
-      402,  372,  402,  686,   77,  686, 1131, 1131,  417,  419,
-      403,  413,  414,  415,  420,  421,  416, 1131,  422,  423,
-      424,  425,  426, 1131, 1131,  418,  365,  250,  250,  250,
-      250,  250,  250,  250,  250,  250,  250,  417,  419,  439,
-      444,  415,  420,  421,  416,  238,  238,  422,  423,  424,
-      425,  426,  437,  418,  437,  445,  446,  440,  238,  440,
-     1131, 1131,  442,  443,  447,  448,  450,  448,  439,  444,
-      451, 1131,  453,  454,  238,  238,  455,  456,  288,  457,
-
-      288,  460, 1131,  438,  445,  446,  238,  427,  441,  427,
-      442,  443,  447,  458,  450,  470,  449, 1131,  469,  451,
-      453,  454, 1131,  471,  455,  456,  459,  457,  474, 1131,
-      460,  461,  472,  461,  472, 1131,  475,  465,  428,  465,
-      476,  462,  458,  429,  470,  430,  469,  466,  431, 1131,
-      452,  471,  432,  478,  459,  433,  477,  474,  434,  435,
-      479, 1131,  436,  473,  475,  480,  481,  484,  476,  485,
-      488,  482,  429,  489,  430,  463,  490,  431,  452,  483,
-      432,  467,  478,  433,  477,  464,  434,  435,  491,  479,
-      436,  468,  486,  480,  481,  492,  484,  485,  488,  482,
-
-      487,  489,  493,  463,  490,  494,  495,  483,  496,  467,
-      497,  498,  499,  464,  502,  503,  500,  491,  500,  468,
-      504,  486,  505,  506,  492,  507,  501,  508,  487,  509,
-      346,  493,  513,  494,  514,  495,  496,  515,  497,  498,
-      499,  516,  517,  502,  503,  518,  519,  190,  504, 1131,
-      505,  506, 1131,  507,  190,  508,  205,  509,  346,  511,
-      513,  520,  514,  190, 1131,  515,  527,  528,  530,  516,
-      517,  417,  531,  518,  545,  519,  212,  521,  521,  521,
-      521,  521,  521,  521,  521,  521,  521,  522,  529,  212,
-      524,  533,  523,  179,  535,  527,  528,  530,  371, 1131,
-
-      417,  531,  545,  521,  521,  521,  521,  521,  521,  521,
-      521,  521,  521,  522,  212,  525,  529,  212,  524,  179,
-      533,  523,  546,  535,  548,   87, 1131,  371,  539,  521,
-      521,  521,  521,  521,  521,  521,  521,  521,  521,  190,
-     1131,  532,  371,  525,  522,  536,  205,  536,   83,  927,
-      179,  546,  548,  541,  459,  540,  539,  538,  108,  371,
-      526,  526,  526,  526,  526,  526,  526,  526,  526,  526,
-      532,  371,  371,  549,   87,  552,   83,  542,  110,  110,
-     1131,  541,  459,  371,  540,  538,  537,  562,  371,  233,
-      558,  110,  543,  561,  544,  550,  385,  235,  667, 1029,
-
-      667,  371,  549,  552, 1131,  542,   91,  110,  110,  551,
-      553, 1131,  371,   92,   93,  537,  562,   91,  558,  110,
-      543,  561,  544,  550,   92,   93,  389,  389,  389,  389,
-      389,  389,  389,  389,  389,  389,  563,  564,  551,  553,
-      389,  389,  389,  389,  389,  389,  389,  389,  389,  389,
-      402,  565,  402,  555,  566, 1131,  554,  567, 1131,  568,
-      403,  569,  570,  571,  572,  563,  564,  573,  574,  575,
-      576,  577,  578,  589,  578,  590,  591, 1131,  592,  565,
-      593,  596,  555,  566,  554,  597,  567,  568,  594,  569,
-      570,  598,  571,  572,  599,  573,  574,  575,  576,  577,
-
-      437,  589,  437,  590,  595,  591,  592,  602,  593,  596,
-      440,  605,  440,  579,  597,  606,  603,  594,  603,  598,
-      607,  448,  599,  448,  212,  608,  609,  580,  610, 1131,
-      613,  438,  595,  611,  612,  602,  614,  616,  617,  605,
-      619,  441,  579,  615,  606,  618,  621,  604,  620,  607,
-     1131,  622,  449,  608,  609,  580,  427,  610,  427,  613,
-      623,  611,  612, 1131,  629,  614,  616,  617,  461,  619,
-      461,  615,  465,  618,  465,  621,  620,  627,  462,  622,
-      632,  472,  466,  472, 1033,  628,  630,  428,  623,  631,
-      633,  624,  581,  629,  582,  634,  640,  583,  645,  625,
-
-      636,  584, 1131,  637,  585,  627,  638,  586,  587,  632,
-      639,  588,  473,  628,  630, 1131, 1131,  631,  633, 1131,
-      646,  581,  646,  582,  634,  640,  583,  645,  636,  584,
-      626,  637,  585,  644,  638,  586,  587, 1131,  639,  588,
-      600,  600,  600,  600,  600,  600,  600,  600,  600,  600,
-      600,  647,  600,  600,  600,  600,  600,  600,  600,  626,
-      648,  644,  649,  650,  641,  500,  641,  500,  653,  600,
-      600,  600,  600,  600,  642,  501,  654,  655,  656,  657,
-      658,  190,  190,  669,  205,  669,  190, 1131,  667,  648,
-      667,  649,  650,  651,  668,  659,  666,  653,  701,  205,
-
-      600,  600,  571,  212,  654,  670,  655,  656,  657,  658,
-      205,  660,  660,  660,  660,  660,  660,  660,  660,  660,
-      660,  661,  664,  668,  666,  684,  701,  179,  600,  703,
-      662,  571,  663,  675,  670, 1131, 1131,  660,  660,  660,
-      660,  660,  660,  660,  660,  660,  660,  661, 1131,  212,
-      212,  664,  679,  179,  684,  676,  705,  703,  662, 1050,
-      663,  675, 1131,  660,  660,  660,  660,  660,  660,  660,
-      660,  660,  660,  661,  614,  536,  205,  536, 1131,  179,
-      679,  615,  687,  676,  705,  671,  678,  108,  371,  665,
-      665,  665,  665,  665,  665,  665,  665,  665,  665,  677,
-
-      672, 1131,  672,  614,   87,   83,  680,  110,  110,  615,
-      673,  687,  699,  671,  674,  678,  537,  371,  371, 1131,
-      110,  371,  681,   91,  371,  682,  700,  677,  683,  704,
-       92,   93,  706,  712,  680,   91,  110,  110,  689,  713,
-      692,  699,  696,  697,  707,  537,  708,  371,  110,  709,
-      371,  681,  710,  371,  682,  700,  711,  683,  704,  694,
-     1131,  706,  712,  718,  770,  186,  775,  689,  713,  692,
-     1131,  578,  707,  578,  708, 1131,  641,  709,  641,  716,
-      710,  717, 1131,  719,  711,  720,  642,  721,  694,  685,
-      685,  718,  685,  685,  685,  685,  685,  685,  685,  685,
-
-      685,  685,  685,  685,  685,  685,  685,  685,  716,  722,
-      717,  719,  714,  723,  720,  721,  725,  726,  685,  685,
-      685,  685,  685,  727,  728, 1131,  715,  729,  730,  724,
-      731, 1131,  732,  733,  734,  739,  735,  722,  735, 1131,
-      737,  714,  723,  603,  725,  603,  726,  738,  742,  685,
-      685,  727,  740,  728,  715,  729,  730,  724,  741,  731,
-      732,  743,  733,  734,  739,  744,  745,  736,  737,  746,
-      747, 1131,  748,  749,  604,  738,  742,  685,  750,  751,
-      752,  740,  755, 1131,  756,  757,  758,  741,  759,  760,
-      743,  761,  766,  744,  745,  763,  764,  765,  746,  747,
-
-      748,  767,  749,  768,  769,  646,  750,  646,  751,  752,
-      772,  755,  756,  773,  757,  758,  759,  774,  760,  190,
-      761,  766,  190,  763,  764,  765,  779,  780,  669,  767,
-      669,  768,  769,  672,  781,  672,  647,  782,  672,  772,
-      672,  205,  773,  673,  371,  774,  205,  674,  673,  674,
-      371,  674,  674,  212,  212,  779,  780,  801,  777,  776,
-       91, 1131,  781,  674,   91,  371,  782,  798,  799,  788,
-       91,   92,   93,  371,  802,  803, 1131,   92,   93,  371,
-      770,  833,  771,  833,  190,  801,  783,  777,  776,  179,
-      785,  834,  784,  787,  371,  179, 1131,  804,  788,  805,
-
-      806,  807,  802,  108,  803,  109,  109,  109,  109,  109,
-      109,  109,  109,  109,  109,  783,  808, 1131,  809,  785,
-      784,  810,  787,  110,  110,  804,  814,  805,  806,  807,
-      815,  816, 1131,  817,  818, 1131,  110,  851, 1131,  851,
-      770,  864,  770,  864, 1093,  808,  809,  852, 1131,  864,
-      810,  864,  110,  110,  811,  814,  811,  819,  820,  815,
-      816,  817,  821,  818,  110,  786,  786,  212,  786,  786,
-      786,  786,  786,  786,  786,  786,  786,  786,  786,  786,
-      786,  786,  786,  786,  822,  819,  820,  823,  824,  812,
-      826,  821,  825,  827,  786,  786,  786,  786,  786,  828,
-
-      829, 1131,  813,  830,  831,  735,  832,  735,  205,  835,
-      836,  837,  822,  838, 1131,  839,  823,  824,  812,  826,
-      825,  840,  827,  841,  844,  786,  786,  828,  846,  829,
-      813,  830,  831, 1131, 1131,  832,  736,  835, 1131,  836,
-      837,  845,  838,  839,  847,  770,  186,  775,  833,  840,
-      833,  841,  844,  786,  791,   77,  791,  846,  834,  792,
-      792,  842,  792,  842, 1131, 1131,  792,  792, 1095,  845,
-      792, 1131,  847,  792,  792,  792,  792,  792,  792,  792,
-      792,  792,  790,  790,  190,  790,  790,  790,  790,  790,
-      790,  790,  790,  790,  790,  790,  790,  790,  790,  790,
-
-      790,  848,  849,  205,  850,  853, 1131,  856,  858,  843,
-      857,  790,  790,  790,  790,  790,  854,  859,  854,  862,
-      865,  860,  205,  212,  863,  371,  791,   77,  791,  848,
-      873,  849,  850,  879,  853,  856,  858,  843,  874,  857,
-      866, 1131,  790,  790,  875,  876,  859,  877,  862,  865,
-      860,  855,  863,  878,  371,   91,  882,   91,  867,  873,
-      869,  879,   92,   93,   92,   93,  864,  874,  864,  866,
-      790, 1131, 1131,  875,  876, 1131,  877,  811, 1131,  811,
-      855,  871,  878,  883,  882,  872,  884,  867,  885,  869,
-      868,  868,  212,  868,  868,  868,  868,  868,  868,  868,
-
-      868,  868,  868,  868,  868,  868,  868,  868,  868,  886,
-      871,  883,  880,  888,  872,  884,  885,  887,  889,  868,
-      868,  868,  868,  868,  890,  881,  891, 1131,  892,  893,
-      894,  895,  896, 1131,  897,  898,  899,  908,  886,  900,
-      212,  880,  888,  906,  907,  887,  842,  889,  842,  910,
-      868,  868,  890,  881,  911,  891,  892,  893,  894,  895,
-      912,  896,  897,  913,  898,  899,  908,  900,  902,  903,
-      902,  906,  907,  851,  914,  851,  904,  910,  868,  905,
-      915,  917,  911,  852,  854,  918,  854,  919,  912,  920,
-      205,  924,  913,  923,  909,  371,  928, 1131,  929,  930,
-
-     1096,  931,  932,  914,  933,  934,  935,  936,  915,  937,
-      917,  938, 1131,  939,  918,  919,  940,  944,  920,  916,
-      924,  923,  909,  941,  371,  928,  929,  942,  930,  931,
-      932,  943,  933,  934,  935,  936,  945,  937,  950,  926,
-      938,  939,  946,  947,  948,  940,  944,  949,  916,  951,
-      952,  941,  902,  903,  902,  942,  953,  903,  953,  943,
-      904,  960, 1131,  905,  945,  961,  950,  926, 1131,  959,
-      964,  946,  947,  948,  962,  965,  949,  951,  952,  902,
-      903,  902,  966,  955,  956,  955,  967,  904,  968,  960,
-      905,  957,  969,  961,  958,  902,  903,  902,  959,  964,
-
-      190,  971,  962,  904,  965,  972,  905,  205,  205,  212,
-      966,  976,  977,  978,  967, 1131,  968,  979, 1131,  980,
-      981,  969,  982,  983,  984,  987,  985,  988,  985,  989,
-      971,  990,  991,  992,  972,  970,  986,  993,  994,  976,
-      977,  978,  995,  973,  975,  974,  979,  980, 1131,  981,
-      982, 1131,  983,  984,  987,  999,  988,  998,  989,  990,
-      991,  992, 1131, 1131,  970,  993,  994,  996,  903,  996,
-     1001,  995,  973,  975,  974,  955,  956,  955,  190,  955,
-      956,  955, 1000,  957,  999,  998,  958,  957, 1002,  205,
-      958,  997,  956,  997, 1003,  955,  956,  955, 1001,  904,
-
-     1004,  212,  905,  957, 1006,  205,  958,  955,  956,  955,
-     1010, 1000, 1011, 1013, 1011,  957, 1014, 1002,  958, 1131,
-     1015, 1016, 1012, 1003, 1005,  985,  985,  985,  985, 1004,
-     1017, 1018, 1006, 1019, 1007,  986,  986, 1008, 1021, 1010,
-     1020, 1013, 1022,  205,  205, 1014, 1131, 1009, 1015, 1025,
-     1016, 1131, 1005, 1023,  903, 1023, 1026, 1028, 1017, 1018,
-     1036, 1019, 1007, 1039, 1037, 1038, 1008, 1021, 1020, 1040,
-     1041, 1022, 1024,  903, 1024, 1009, 1042, 1032, 1025, 1031,
-      904,  205, 1011,  905, 1011, 1026, 1028, 1034, 1036, 1034,
-     1045, 1039, 1012, 1037, 1038, 1046,  190, 1040, 1047, 1041,
-
-     1035, 1049, 1035,  212, 1042, 1056, 1032, 1055, 1031, 1043,
-      903, 1043, 1044,  903, 1044, 1131, 1057, 1051, 1035, 1045,
-      904, 1058, 1060,  905, 1046, 1034, 1047, 1034, 1063, 1049,
-     1059,  190, 1053, 1056, 1053,  212, 1055, 1064, 1035,  205,
-     1035, 1048, 1073, 1054, 1057, 1035, 1051, 1035, 1052, 1075,
-     1058, 1060, 1061,  903, 1061, 1067, 1035, 1063, 1059, 1062,
-      903, 1062, 1053, 1035, 1053, 1064, 1072,  904, 1074, 1048,
-      905, 1073, 1079, 1054, 1068,  205, 1052, 1066, 1075, 1080,
-     1081, 1071, 1131, 1067, 1078,  903, 1078,  190,  212, 1083,
-     1131, 1086,  904, 1131, 1072,  905, 1074, 1087, 1131, 1090,
-
-     1079,  190,  205, 1068,  190, 1066, 1131, 1080, 1081, 1071,
-     1076,  903, 1076,  205, 1131, 1077, 1077, 1083, 1077, 1086,
-     1097, 1084, 1077, 1077, 1091, 1087, 1077, 1090, 1098, 1077,
-     1077, 1077, 1077, 1077, 1077, 1077, 1077, 1077, 1082, 1085,
-     1076,  903, 1076,  902,  903,  902, 1131, 1100, 1097, 1084,
-     1103,  904,  212, 1091,  905, 1099, 1108, 1098, 1101,  205,
-      212,  205, 1113, 1131,  190, 1131, 1082, 1085,  902,  903,
-      902, 1104,  205, 1088, 1088, 1100, 1089,  190, 1103,  905,
-     1088, 1088,  212, 1099, 1088, 1108, 1101, 1088, 1088, 1088,
-     1088, 1088, 1088, 1088, 1088, 1088,  902,  903,  902, 1104,
-
-      955,  956,  955, 1102,  904, 1105,  190,  905,  957, 1106,
-     1112,  958, 1109, 1107,  212, 1115, 1116,  212, 1110, 1119,
-     1120, 1119,  205, 1117, 1121, 1122, 1121, 1124, 1125, 1124,
-      205, 1102,  205, 1105, 1119, 1120, 1119, 1106, 1111, 1112,
-     1109,  205, 1107, 1115, 1116, 1131, 1114, 1110, 1121, 1122,
-     1121, 1117, 1124, 1125, 1124, 1129, 1130, 1129, 1129, 1130,
-     1129, 1131, 1131, 1131, 1127, 1131, 1126, 1111, 1118, 1131,
-     1131, 1123, 1131, 1131, 1131, 1114, 1131, 1131, 1131, 1131,
-     1131, 1131, 1131, 1131, 1131, 1131, 1131, 1131, 1131, 1131,
-     1131, 1131, 1128, 1127, 1131, 1126, 1118, 1131, 1131, 1123,
-
-     1131, 1131, 1131, 1131, 1131, 1131, 1131, 1131, 1131, 1131,
-     1131, 1131, 1131, 1131, 1131, 1131, 1131, 1131, 1131, 1131,
-     1128,   66,   66,   66,   66,   66,   66,   66,   66,   66,
+       16,   17,   18,   17,   19,   20,   16,   21,   22,   23,
+       24,   25,   26,   27,   26,   28,   26,   29,   30,   31,
+       32,   33,   34,   35,   36,   37,   38,   39,   40,   41,
+       42,   43,   44,   45,   44,   46,   47,   48,   49,   50,
+       51,   44,   52,   53,   54,   55,   44,   56,   44,   44,
+       57,   26,   26,   26,   37,   38,   39,   40,   41,   42,
+       43,   44,   45,   46,   47,   48,   49,   50,   51,   44,
+       52,   53,   54,   55,   44,   56,   44,   44,   57,   16,
+       58,   59,   58,   60,  250,   69,   68,   69,   70,   72,
+       73,   72,   72,   73,   72,  108,  334,  242,   74,  242,
+
+      110,   74,  110,  112,  108,  115,   61,   62,  250,  109,
+       63,   70,   64,   71,  470,  470,  237,  113,  109,  121,
+      108,  240, 1791,   65,  108,  334,  122,  123,  250,  108,
+      116,  343,  112,  108,  109,   61,   62,  109,  336,   63,
+       70,   64,   71,  109,  117,  113,  109,  124, 1747,  108,
+      132,   65,   58,   59,   58,   60,  108,  237,  108,  116,
+      343,  125,  109,  108,  151,  345,  336,  108, 1693,  344,
+      109,  109,  117,  108,  108, 1693,  124,  109,   61,   62,
+     1747,  109,   63,  121,   64,  108,  346,  109,  109,  125,
+      122,  123,  108,  241,  345,   65,  108,  344,  109,  110,
+
+     1693,  110,  108,  108,  313,  109,  314,   61,   62,  109,
+      242,   63,  242,   64,  346,  109,  109,  223,  216,  223,
+      217,  241,  315,   65,   16,   17,   75,   17,   19,   20,
+       16,   21,   22,   23,   24,   25,   26,   27,   26,   28,
+       26,   29,   30,   31,   32,   33,   34,   35,   36,   76,
+       77,   78,   79,   80,   81,   82,   83,   84,   83,   85,
+       86,   87,   88,   89,   90,   83,   91,   92,   93,   94,
+       83,   95,   83,   83,   96,   26,   26,   26,   76,   77,
+       78,   79,   80,   81,   82,   83,   84,   85,   86,   87,
+       88,   89,   90,   83,   91,   92,   93,   94,   83,   95,
+
+       83,   83,   96,   16,   58,   97,   98,   60,  152,  118,
+      118,  118,  119,  115, 1693,  108,   99,  321,  387,  322,
+      387,  584,  100,  388,  250,  155,  126,  391,  126,  109,
+      101,  102,  108,  348,  103,  323,  104,  585,  108,  127,
+      338,  127,  338,  128,  108,  367,  109,  105,  118,  118,
+      118,  119,  109,  115,  158,  130,  391,  109,  339,  101,
+      102,  108,  348,  103,  340,  104,  340,  108,  161,  131,
+      250,  650,  368,  367,  109,  105,  106,   59,  106,   60,
+      109,  250,  341,  158,  130,  250,  395,  142,  143,  142,
+      349,  864,  397,  342,  107,  144,  161,  131,  145,  148,
+
+      368,  149,   61,   62,  146,  375,   63,  865,   64,  147,
+      150,  150,  108,  153,  154,  395,  108,  121,  349,   65,
+      108,  397,  342,  150,  122,  123,  109,  202,  158,  250,
+      109,   61,   62,  375,  109,   63,  121,   64,  401,  150,
+      150,  108,  161,  122,  123,  108,  797,   65,  133,  108,
+      133,  150,  157,  250,  109,  158,  202,  158,  109,  357,
+      214,  159,  109, 1019,  376, 1019,  134,  401,  160,  161,
+      161,  392,  135,  158,  162,  369,  136,  108,  137,  158,
+      158,  157,  182,  138,  158,  139,  140,  161,  357,  159,
+      370,  109,  376,  161,  161,  141,  160,  161,  359,  392,
+
+      359,  135,  158,  162,  369,  136,  108,  137,  158,  158,
+      182,  138,  360,  139,  140,  161,  393,  409,  370,  109,
+      434,  161,  161,  141,  163,  158,  168,  158,  187,  158,
+      169,  164,  188,  158,  114,  165,  170, 1131,  166,  161,
+      225,  161,  189,  161,  393,  226,  409,  161,  167,  434,
+      394,  250,  396,  163,  158,  168,  158,  187,  158,  169,
+      164,  188,  158,  165,  170,  183,  166,  161,  227,  161,
+      189,  161,  184,  185,  186,  161,  167,  158,  394,  161,
+      396,  398,  228,  171,  225,  172,  173,  404,  174,  175,
+      229,  161,  408, 1684,  183,  176,  451,  227,  650,  462,
+
+      184,  185,  186, 1021,  250, 1021,  158,  161,  230,  398,
+      228,  171,  158,  172,  173,  404,  174,  175,  410,  161,
+      408,  190,  231,  176,  158,  451,  161,  177,  462,  250,
+      178,  179,  126,  180,  126, 1505,  371,  230,  161,  181,
+      250,  158,  373,  191,  464,  127,  410,  127,  158,  190,
+      231,  372,  374,  158,  161,  192,  177,  193,  178,  179,
+      158,  180,  161,  194,  198,  371,  161,  181,  195,  411,
+      196,  373,  191,  464,  161,  197,  156,  158,  199,  372,
+      374,  200,  465,  192,  201,  193, 1021,  250, 1021,  158,
+      161,  194,  250,  198,  250,  412,  195,  411,  196,  352,
+
+      353,  352,  161,  197,  156,  250,  199,  354,  355,  200,
+      203,  465,  201,  208,  204,  158,  134,  257,  158,  158,
+      209,  212,  253,  412,  205,  366,  366,  158,  250,  206,
+      207,  213,  161,  161,  415,  210,  256,  416,  366,  203,
+      211,  161,  208,  204,  158,  250,  257,  158,  158,  209,
+      212,  253,  205,  250,  366,  366,  158,  206,  207,  213,
+      161,  161,  415,  210,  256,  416,  366,  417,  211,  161,
+      215,  216,  215,  217,  232,  158,  250,  418,  168,  158,
+      250,  233,  169,  321,  182,  586,  399,  400,  170,  161,
+      238,  237,  238,  161,  466,  417,  218,  219,  237,  108,
+
+      220,  585,  221,  232,  158,  418,  317,  168,  158,  233,
+      250,  169,  182,  222,  399,  400,  170,  161,  239,  250,
+     1848,  161, 1848,  466,  250,  218,  219,  208,  108,  220,
+      183,  221,  158, 1848,  209, 1848,  250,  184,  234,  186,
+      469,  222,  419,  250,  161,  424,  161,  239,  133, 1509,
+      133,  235,  245,  246,  247,  248,  208, 1544,  389,  183,
+      250,  158,  250,  209,  249,  184,  234,  186,  252,  469,
+      419,  253,  161,  424,  161,  390,  250,  254,  249,  235,
+      250,  619,  251,  619,  255,  256,  251,  389,  253,  263,
+      253,  317,  277,  264,  620,  141,  620,  252,  432,  265,
+
+      253,  121,  256,  390,  256,  254,  225,  249,  122,  123,
+      317,  251,  255,  256,  250,  251,  475,  253,  263,  253,
+      277,  318,  264,  141,  251,  283,  432,  265,  282,  251,
+      256,  402,  256,  250,  251,  284,  403,  258,  319,  251,
+      225,  358,  253,  272,  259,  475,  273,  274,  260,  275,
+      250,  261,  320,  251,  283,  276,  256,  282,  251,  413,
+      402,  262,  251,  284,  250,  403,  258,  319,  251,  358,
+      414,  253,  272,  259,  273,  274,  260,  275,  278,  261,
+      320,  317,  482,  276,  256,  279,  280,  281,  413,  262,
+      251, 1683,  256,  433,  251,  225,  437,  266,  414,  267,
+
+      268,  438,  269,  270,  435,  237,  251,  278,  439,  271,
+      251,  482,  436,  279,  280,  281,  285,  440,  479,  251,
+      256,  433,  250,  251,  437,  266,  250,  267,  268,  438,
+      269,  270, 1700,  435,  286,  251,  439,  271,  251,  251,
+      436,  420,  251,  420,  285,  440,  287,  479,  288,  441,
+      253,  142,  143,  142,  289,  444, 1714,  457,  290,  144,
+      291,  293,  297,  286,  256,  292,  251,  251,  146,  458,
+      629,  251,  251,  251,  287,  294,  288,  441,  295,  253,
+      250,  296,  289,  444,  421,  457,  290,  250,  291,  442,
+      293,  297,  256,  292,  298,  251,  250,  458,  299,  629,
+
+      251,  251,  251,  294,  443,  651,  295,  459,  300,  296,
+      303,  250,  421,  301,  302,  253,  250,  304,  442,  305,
+      250,  251,  449,  298,  306,  250,  251,  299,  450,  256,
+      463,  251,  443,  214,  651,  459,  300,  250,  627,  303,
+      627,  301,  302,  628,  253,  405,  304,  305,  253,  251,
+      307,  449,  306,  253,  251,  225,  450,  256,  463, 1019,
+      308, 1019,  256,  309,  310,  311,  312,  256,  382,  383,
+      382,  384,  476,  477,  251,  249,  144,  253,  251,  307,
+      445,  335,  253,  446,  277,  146,  406,  407,  308,  249,
+      256,  223,  216,  223,  217,  256,  223,  216,  223,  217,
+
+      476,  477,  492,  251,  492,  248, 1790,  251,  445,  335,
+      114,  446,  277, 1316,  406,  407,  250,  250,  249,  316,
+      316,  324,  316,  316,  316,  316,  325,  316,  316,  316,
+      316,  316,  316,  316,  316,  316,  316,  316,  326,  316,
+      316,  316,  316,  316,  327,  326,  326,  326,  326,  328,
+      326,  329,  326,  326,  326,  330,  326,  326,  331,  326,
+      326,  326,  326,  332,  326,  326,  326,  326,  333,  326,
+      316,  316,  326,  327,  326,  326,  326,  326,  328,  326,
+      329,  326,  326,  330,  326,  326,  331,  326,  326,  326,
+      326,  332,  326,  326,  326,  326,  333,  326,  316,  303,
+
+      652,  359,  422,  359,  422,  250,  304,  338, 1848,  338,
+      251,  250,  423,  251, 1848,  360, 1848,  361,  359,  362,
+      359, 1621,  471,  337, 1622,  339,  391, 1506,  303,  652,
+      386, 1848,  360, 1848,  361,  304,  362, 1848,  251,  150,
+      150,  251,  364,  359,  447,  359,  223,  216,  223,  217,
+      471,  337,  150,  363,  448,  391, 1848,  360, 1848,  361,
+      225,  362,  377,  378,  379,  380,  485,  623,  150,  150,
+      363,  364,  467,  447,  381,  148,  468,  149,  473,  425,
+      150,  655,  448,  356,  365,  667,  150,  150,  381,  460,
+      347,  426,  474,  427,  485,  363,  428,  429,  430,  150,
+
+      225,  467,  115,  461,  431,  468,  394,  473,  425,  225,
+      655,  452,  365,  453,  667,  150,  150,  381,  460,  426,
+      474,  427,  486,  480,  428,  429,  430,  150,  344,  454,
+      455,  461,  431,  456,  394,  478,  396,  399,  484,  237,
+      452,  317,  453,  483,  237,  488,  238,  237,  238,  481,
+      486,  492,  480,  493,  248,  425,  344,  454,  455,  237,
+      317,  456,  489,  478,  396,  399,  484,  426,  608,  427,
+      317,  483,  487,  488,  239,  250,  641,  481,  641,  380,
+      241,  588,  507,  250,  425,  490,  245,  246,  247,  248,
+      641,  489,  642,  380,  353,  426,  608,  427,  249,  251,
+
+      487,  614,  355,  239,  496,  497,  498,  499,  241,  588,
+      251,  507,  249,  250,  490,  317,  500,  251,  251,  251,
+      578,  216,  578,  312,  251,  501,  668,  251,  251,  503,
+      500,  251, 1021,  251, 1021,  251,  251,  251,  587,  251,
+      250,  249,  502,  671,  251,  251,  251,  251,  251,  505,
+      251,  251,  251,  504,  501,  668,  250,  251,  503,  500,
+      251,  251,  251,  251,  251,  251,  506,  587,  251,  509,
+      502,  251,  671,  251,  251,  251,  251,  505,  251, 1621,
+      251,  504, 1622,  508,  513,  343,  250,  510,  251,  251,
+     1621,  251,  251, 1622,  506,  251,  251,  250,  509,  607,
+
+      251,  251,  405,  251,  251,  511,  512,  578,  216,  579,
+      312,  508,  251,  513,  343,  510,  251,  250,  251,  251,
+      251,  251,  251,  514,  251,  251,  251,  607,  515,  251,
+      317,  516,  251,  511,  512,  251,  522,  521,  251,  251,
+      251,  609,  251,  517,  518,  251,  520,  251,  519,  251,
+      251,  251,  514,  592,  251,  251,  610,  515,  250,  516,
+      672,  251,  251,  251,  522,  521,  251,  251,  251,  609,
+      251,  517,  518,  225,  251,  520,  519,  251,  680,  251,
+      680,  251,  592,  523,  610,  251,  251,  524,  251,  672,
+      251,  682,  251,  225,  611,  526,  528,  251,  525, 1363,
+
+      681,  251,  420,  251,  420,  251,  527,  529,  251,  251,
+      251,  523,  530,  251,  630,  251,  524,  251,  251,  251,
+      682,  251,  611,  526,  528,  638,  525,  251,  251,  550,
+      251,  251,  532,  251,  527,  529,  251,  251,  533,  422,
+      530,  422,  237,  631,  551,  531,  251,  623,  251,  423,
+      534,  115,  535,  638,  353,  536,  251,  251,  550,  251,
+      532,  614,  355,  503,  251,  251,  356,  533,  537,  538,
+      251,  631,  551,  531,  317,  539,  251,  582,  534,  582,
+      535,  540,  251,  536,  251,  251,  347,  251,  251,  542,
+      115,  613,  503, 1792,  251,  541,  537,  538,  691,  251,
+
+      691,  251,  251,  539,  251,  317,  583,  251,  543,  540,
+      251,  251,  250,  251,  251,  251,  544,  251,  542,  613,
+      692,  545,  251,  541,  251, 1802,  546,  640,  251,  251,
+      251,  250,  653,  547,  251,  583,  251,  543,  115,  251,
+      251,  251,  251,  250,  544,  688,  251,  251,  251,  545,
+      548,  251,  251,  555,  546,  640,  251,  549,  251,  552,
+      653,  547,  251,  556,  251,  251,  251,  251,  237,  612,
+      251,  251,  559,  251,  688,  689,  251,  251,  548,  250,
+      250,  553,  555,  251,  554,  549,  251,  552,  251,  698,
+      251,  556,  251,  251,  557,  251,  251,  612,  699,  700,
+
+      558,  559,  251,  251,  689,  251,  654,  251,  560,  553,
+      561,  251,  554,  251,  250,  565,  566,  251,  251, 1830,
+      251,  567,  250,  557,  251,  251,  562,  563,  558, 1019,
+      564, 1019,  251,  251,  654,  250,  251,  560,  250,  561,
+      251,  251,  572,  565,  566,  568,  251,  251,  251,  567,
+      570,  251,  251,  251,  562,  563,  250,  251,  564,  569,
+      636,  571,  506,  251,  251,  589,  251,  589,  251,  251,
+      602,  572,  573,  225,  568,  251,  251,  914,  694,  570,
+      251,  656,  251,  251,  637,  251,  251,  569,  574,  571,
+      506,  251,  251, 1146,  583,  251,  251, 1137,  602,  251,
+
+      589,  573,  590,  251,  251,  577,  575,  694,  707,  656,
+      576,  251,  637,  250,  657,  251,  251,  574,  585,  250,
+      422,  251,  422,  583,  309,  310,  311,  312,  251,  583,
+      423,  251,  250,  251,  577,  575,  249,  707,  321,  576,
+      586,  595,  657,  251,  251,  496,  497,  498,  499,  251,
+      249,  250,  326,  658,  148,  603,  591,  500,  583,  326,
+      251,  326,  659,  660,  597,  150,  150,  250,  326,  326,
+      595,  500,  251,  665,  661,  600,  326,  662,  150,  249,
+      326,  658,  773,  603,  773,  248,  250,  326,  251,  326,
+      659,  660,  597,  250,  150,  150,  326,  326,  250,  250,
+
+      500,  665,  661,  600,  326,  662,  150,  316,  316,  324,
+      316,  316,  316,  316,  316,  316,  316,  316,  316,  316,
+      316,  316,  316,  316,  316,  316,  596,  316,  316,  316,
+      316,  316,  326,  598,  599,  251,  497,  326,  666,  326,
+      601, 1021,  497, 1021,  326,  352,  353,  352,  605,  326,
+      686,  687,  251,  354,  355,  596,  326,  690,  316,  316,
+      326,  598,  599,  121,  251,  326,  666,  326,  958,  601,
+      122,  123,  326,  352,  353,  352,  605,  326,  686,  687,
+      251,  354,  355,  957,  326,  690,  316,  316,  316,  324,
+      316,  316,  316,  316,  316,  316,  316,  316,  316,  316,
+
+      316,  316,  316,  316,  316,  316,  618,  316,  316,  316,
+      316,  316,  533,  340,  340,  340,  340,  693,  670,  340,
+      710,  340,  696,  593,  534,  701,  535,  669,  702,  604,
+      594,  339,  703,  704,  618,  148,  708,  341,  316,  316,
+      650,  533,  606,  606,  914,  693,  150,  150,  606,  710,
+      696,  593,  534,  701,  535,  121,  702,  604,  594,  150,
+      703,  704,  122,  123,  708,  378,  316,  359,  359,  359,
+      359,  606,  606,  709,  713,  150,  150,  606,  359,  714,
+      359,  360,  360,  361,  361,  622,  362,  150,  359,  617,
+      359,  378,  360,  683,  361,  683,  362,  377,  378,  379,
+
+      380,  709,  360,  713,  361,  663,  362,  714,  405,  381,
+      896,  908,  896,  625,  715,  684,  420,  617,  420,  363,
+      363,  897,  664,  381,  669,  382,  383,  382,  384,  685,
+      363,  405,  626,  144,  663,  907,  645,  646,  647,  648,
+      363,  625,  146,  715,  144,  386,  716,  670,  381,  405,
+      664,  705,  381,  146,  366,  366,  711,  685,  711,  695,
+      626,  719,  381,  717,  706,  717,  720,  366,  721,  722,
+      723,  905,  406,  724,  904,  716,  725,  405,  712,  726,
+      705,  727,  730,  366,  366,  718,  731,  695,  738,  740,
+      719,  381,  706,  741,  720,  366,  721,  722,  728,  723,
+
+      406,  673,  724,  673,  725,  628,  729,  726,  739,  732,
+      727,  730,  743,  742,  731,  628,  738,  733,  740,  734,
+      744,  734,  741,  674,  745,  746,  728,  747,  675,  123,
+      748,  749,  750,  676,  729,  225,  739,  751,  732,  752,
+      743,  735,  742,  677,  678,  733,  478,  679,  744,  754,
+      755,  756,  745,  746,  736,  757,  747,  675,  748,  749,
+      750,  758,  676,  737,  759,  751,  225,  752,  225,  761,
+      763,  677,  678,  764,  478,  679,  663,  754,  755,  756,
+      766,  767,  736,  757,  769,  768,  237,  581,  250,  758,
+      250,  737,  759,  765,  250,  760,  250,  761,  706,  763,
+
+      250,  773,  764,  774,  248,  663,  771,  237,  771,  766,
+      767,  762,  250,  769,  768,  770,  775,  779,  775,  499,
+      775,  765,  776,  499,  760,  782,  706,  780,  496,  497,
+      498,  499,  250,  250,  781,  250,  250,  784,  772,  762,
+      500,  250,  250,  783,  770,  250,  779,  250,  250,  250,
+      250,  250,  250,  782,  500,  497,  780,  250,  250,  321,
+      250,  321,  781,  250,  497,  784,  785,  772,  250,  786,
+      791,  795,  783,  788,  246,  793,  787,  789,  796,  250,
+      790,  794,  798,  500,  799,  250,  405,  792,  680,  250,
+      680,  805,  250,  811,  785,  809,  250,  786,  812,  791,
+
+      795,  788,  797,  793,  787,  789,  810,  796,  790,  794,
+      681,  798,  250,  799,  250,  792,  683,  250,  683,  250,
+      805,  811,  250,  246,  809,  250,  812,  517,  691,  250,
+      691,  250,  244,  807,  808,  810,  250,  813,  684,  817,
+      250,  250,  711,  250,  711,  225,  250,  250,  250,  250,
+      692,  814,  806,  815,  250,  517,  673,  250,  673,  816,
+      250,  807,  808,  819,  712,  818,  813,  817,  821,  250,
+      753,  250,  822,  250,  824,  388,  820,  825,  674,  814,
+      806,  815,  823,  800,  250,  832,  827,  816,  801,  388,
+      826,  250,  819,  818,  650,  835,  828,  821,  802,  803,
+
+      822,  250,  804,  824,  820,  830,  825,  717,  250,  717,
+      823,  829,  800,  832,  250,  827,  250,  801,  826,  250,
+      831,  250,  833,  835,  834,  828,  802,  803,  250,  718,
+      804,  250,  250,  830,  250,  250,  250,  734,  250,  734,
+      829,  250,  250,  250,  250,  250,  863,  837,  831,  250,
+      836,  833,  250,  834,  378,  838,  607,  840,  842,  735,
+      250,  250,  250,  839,  846,  841,  843,  848,  849,  850,
+      317,  250,  844,  378,  863,  851,  837,  847,  836,  859,
+      317,  845,  853,  838,  607,  852,  840,  842,  856,  854,
+      855,  839,  846,  841,  843,  639,  848,  849,  850,  871,
+
+      844,  317,  857,  851,  860,  847, 1402,  859, 1402,  845,
+      853,  858,  635,  852,  868,  634,  856,  854,  633,  855,
+      861,  216,  861,  312,  861,  216,  862,  312,  871,  321,
+      857,  866,  860,  309,  310,  311,  312,  326,  589,  858,
+      867,  589,  868,  589,  869,  249,  589,  865,  867,  632,
+      875,  326,  623,  353,  250,  321,  865,  866,  874,  249,
+      614,  355,  123,  615,  865,  326,  326,  583,  118,  326,
+      583,  148,  869,  870,  326,  583,  250,  883,  875,  876,
+      326,  882,  150,  150,  115,  881,  874,  250,  249,  582,
+      216,  582,  217,  250,  326,  150,  583,  326,  326,  583,
+
+      884,  115,  887,  326,  583,  877,  883,  876,  878,  882,
+      888,  150,  150,  881,  885,  218,  219,  889,  583,  220,
+      886,  221,  891,  150,  890,  893,  326,  820,  906,  884,
+      887,  915,  471,  877,  317, 1406,  878, 1406,  888,  359,
+      317,  359,  115,  885,  218,  219,  889,  583,  220,  886,
+      221,  891,  890,  360,  893,  820,  906,  623,  581,  915,
+      471,  316,  316,  324,  316,  316,  316,  316,  316,  316,
+      316,  316,  316,  316,  316,  316,  316,  316,  316,  316,
+      892,  316,  316,  316,  316,  316,  879,  121,  326,  246,
+      359,  121,  359,  246,  122,  123,  916,  872,  122,  123,
+
+      917,  918,  491,  880,  360,  921,  244,  619,  892,  619,
+      237,  121,  316,  316, 1848,  879, 1848,  326,  122,  123,
+      620,  359,  620,  359,  916,  872,  225, 1848,  917, 1848,
+      918,  880,  894,  921,  909,  360,  909,  380,  895,  622,
+      316,  316,  316,  324,  316,  316,  316,  316,  316,  316,
+      316,  316,  316,  316,  316,  316,  316,  316,  316,  316,
+      894,  316,  316,  316,  316,  316,  896,  895,  896,  359,
+      873,  359,  359,  363,  359,  225,  356,  897,  919, 1848,
+      920, 1848,  898,  360,  899,  361,  360,  362,  361, 1406,
+      362, 1406,  316,  316,  909,  924,  910,  380,  922,  873,
+
+      903,  923,  911,  383,  911,  648,  118,  919,  927,  920,
+      144,  902,  347,  928,  645,  646,  647,  648,  900,  146,
+      316,  363,  144,  924,  363,  925,  381,  922,  926,  903,
+      923,  146,  942,  911,  383,  912,  648,  927,  929,  902,
+      381,  144,  928,  382,  383,  382,  384,  930,  931,  932,
+      146,  144,  933,  925,  933,  941,  926,  943,  115,  944,
+      146,  942,  945,  680,  946,  680,  929,  947,  683,  381,
+      683,  948,  949,  952,  244,  930,  931,  932,  955,  950,
+      956,  950,  961,  941,  934,  681,  943,  944,  237,  962,
+      684,  945,  946, 1848,  691,  947,  691,   68,  935,  948,
+
+      949,  951,  952,  953,  964,  953,  955,  963,  956,  698,
+      967,  961,  968,  934, 1848, 1848,  692,  962,  699,  700,
+     1848,  959,  698,  959,  969,  954,  935,  673,  970,  673,
+      974,  699,  700,  964,  960,  963,  960,  965, 1848,  967,
+      968, 1848,  973,  960,  966,  971,  711,  971,  711,  674,
+      980,  981,  984,  969,  936, 1848,  982,  970,  974,  937,
+      975,  983,  975,  717,  985,  717,  965,  972,  712,  938,
+      939,  973,  966,  940,  977,  986,  977,  987,  988,  980,
+      981,  984,  976,  936,  982,  718,  989,  990,  937,  983,
+      995,  734,  985,  734,  996,  997,  978,  938,  939,  960,
+
+      991,  940,  991,  986,  993,  987,  993,  988,  998,  979,
+      992,  999, 1000,  735,  989, 1001,  990, 1002,  995, 1003,
+     1006, 1007,  996,  997, 1008, 1004,  994, 1004, 1009,  225,
+     1010, 1011, 1012, 1013, 1014,  225,  998,  979,  225, 1018,
+      999, 1000, 1022, 1001, 1020, 1002,  237, 1005, 1003, 1006,
+     1007, 1848,  927, 1008, 1848,  237, 1102, 1009, 1010, 1848,
+     1011, 1012, 1013, 1014,  250, 1017, 1848, 1018, 1024, 1015,
+     1024, 1022,  965, 1020,  250,  250, 1016, 1848, 1025,  966,
+      250,  927, 1026, 1023, 1102,  250, 1027, 1026,  771,  237,
+      771, 1028,  250, 1029, 1017, 1029,  248, 1015,  250,  250,
+
+     1029,  965, 1030,  248, 1016, 1033, 1031,  966, 1031,  499,
+     1031, 1023, 1032,  499, 1027, 1035, 1039, 1034,  250, 1028,
+      772, 1037,  250, 1036,  250,  250, 1038,  250, 1044,  250,
+      250,  250,  250, 1033,  250,  250,  250,  250, 1848, 1848,
+      250, 1040,  250, 1035, 1039, 1034,  933,  250,  933,  772,
+     1037, 1041, 1036,  250,  250, 1038, 1044, 1046,  250, 1042,
+      250, 1043, 1045, 1848,  250, 1049, 1047,  250, 1048, 1050,
+     1040, 1053, 1057,  250, 1848,  250,  250, 1061, 1051,  250,
+     1041, 1054,  250, 1056, 1058, 1055, 1046, 1042, 1462, 1043,
+     1462, 1045, 1052, 1049, 1047, 1059, 1048, 1050, 1064, 1053,
+
+      250, 1057, 1060, 1062, 1072, 1061, 1063, 1051,  250,  250,
+     1054, 1056, 1058, 1067, 1055,  950,  250,  950,  250, 1065,
+     1052, 1066,  250, 1059,  953,  250,  953, 1064,  250, 1068,
+     1060,  250, 1062, 1072, 1063, 1848, 1069,  951,  250, 1070,
+      250, 1073, 1067,  250,  250, 1071,  954, 1065,  250, 1066,
+      971,  250,  971, 1074,  250,  250, 1075,  250, 1068,  975,
+      250,  975, 1077,  250, 1069,  977,  250,  977, 1070,  250,
+     1073, 1848,  972, 1071, 1848, 1078,  250, 1079, 1080,  250,
+     1082,  976, 1074,  250, 1075,  250, 1083,  978, 1087,  250,
+     1081, 1077, 1085,  250, 1124, 1086, 1084,  991,  250,  991,
+
+     1076,  250,  250,  250, 1078, 1079, 1080,  992, 1082,  993,
+      250,  993,  250, 1089, 1083,  250, 1088, 1087,  250, 1081,
+     1095, 1085, 1124, 1086, 1084, 1090, 1092, 1093, 1076, 1091,
+     1096,  994, 1094,  359, 1848,  359, 1004,  250, 1004, 1097,
+     1848, 1089, 1098,  317, 1088, 1099,  317,  360, 1095, 1100,
+      216, 1100,  312, 1090, 1848, 1092, 1093, 1091, 1005, 1096,
+     1094, 1100,  216, 1101,  312,  321, 1125, 1105, 1097,  317,
+      589, 1098, 1106, 1848, 1099,  582,  216, 1103,  217,  589,
+      316, 1106,  316, 1104, 1107, 1848, 1110,  316, 1104,  316,
+     1848, 1848,  316, 1104,  316, 1125, 1108, 1104,  316,  583,
+
+      316,  218,  219, 1127,  583,  220, 1153,  221,  583, 1848,
+     1848,  321, 1107, 1105, 1110, 1114, 1113,  115,  471,  316,
+      250,  316, 1112, 1848, 1151, 1108, 1120,  148,  583, 1109,
+      218,  219, 1127,  583,  220, 1153,  221,  583,  150,  150,
+      316, 1129,  316, 1122, 1114, 1113,  471, 1121, 1154,  121,
+     1112,  150, 1151, 1848, 1848, 1120, 1134, 1135, 1111,  317,
+     1111,  316, 1848,  316,  316, 1848,  316,  150,  150, 1848,
+     1129, 1147, 1122, 1147,  380, 1848, 1121, 1154, 1115,  150,
+      316,  316,  324,  316,  316,  316,  316,  316,  316,  316,
+      316,  316,  316,  316,  316,  316,  316,  316,  316, 1116,
+
+      316,  316,  316,  316,  316, 1117, 1115, 1152, 1155, 1848,
+     1024,  250, 1024, 1147, 1157, 1148,  380, 1158, 1848, 1159,
+     1025, 1161, 1160, 1166, 1026, 1162,  316, 1116,  316, 1026,
+      121,  316,  316, 1117, 1848, 1152, 1155,  122,  123, 1848,
+     1848, 1238, 1157, 1238,  248,  698, 1158, 1159, 1848, 1161,
+     1118, 1160, 1166, 1162, 1190, 1191,  250, 1132, 1119,  316,
+      316, 1111,  324, 1111,  316,  316,  316,  316,  316,  316,
+      316,  316,  316,  316,  316,  316,  316,  316,  316, 1118,
+      316,  316,  316,  316,  316, 1068, 1132, 1119,  896,  896,
+      896,  896, 1069, 1163, 1164, 1165, 1123, 1848, 1848,  897,
+
+      897,  359, 1169,  359,  898,  898, 1136,  899, 1181, 1848,
+     1181,  316,  316, 1848, 1068,  360, 1170,  361, 1171,  362,
+     1069, 1163, 1164, 1165, 1123, 1149,  383, 1149,  648, 1139,
+     1182, 1169, 1172,  144, 1848, 1149,  383, 1150,  648,  316,
+      900,  900,  146,  144, 1848, 1170, 1171, 1238, 1848, 1239,
+      248, 1848,  146,  363,  933, 1173,  933, 1174, 1139, 1126,
+     1140, 1172, 1140, 1126, 1126, 1126, 1126, 1126, 1126, 1126,
+     1126, 1126, 1126, 1126, 1141, 1126, 1142, 1126, 1143, 1126,
+     1126, 1126, 1126, 1126, 1173, 1174, 1167,  645,  646,  647,
+      648, 1175, 1848, 1176, 1177,  144, 1178, 1179, 1180,  381,
+
+     1168, 1183, 1184, 1193,  146, 1194, 1848, 1195, 1196, 1848,
+     1126, 1126, 1145,  381,  950, 1167,  950,  953, 1848,  953,
+     1175, 1176, 1177, 1848, 1848, 1178, 1179, 1180, 1168, 1183,
+     1848, 1184, 1193, 1199, 1194, 1195,  951, 1196, 1126,  954,
+     1848, 1848,  381, 1126, 1126, 1197, 1126, 1126, 1126, 1126,
+     1126, 1126, 1126, 1126, 1126, 1126, 1126, 1126, 1126, 1126,
+     1126, 1126, 1199, 1126, 1126, 1126, 1126, 1126, 1185, 1187,
+     1185, 1187, 1198, 1197, 1848, 1462, 1200, 1462, 1200,  957,
+      958, 1186, 1188, 1186, 1188, 1202,  959,  698,  959, 1203,
+     1186, 1188, 1204,  698, 1126, 1126,  699,  700, 1201,  960,
+
+     1198,  960, 1190, 1191,  971, 1192,  971, 1192,  960,  975,
+      977,  975,  977, 1202, 1192, 1205, 1206, 1848, 1203, 1207,
+     1209, 1204, 1126, 1208, 1210, 1211,  972, 1212, 1213, 1214,
+     1218,  976,  978,  991,  993,  991,  993, 1215, 1216, 1217,
+     1219, 1221, 1220,  992, 1205, 1206, 1186, 1188, 1207, 1209,
+     1222, 1208, 1223, 1210, 1211, 1212,  994, 1213, 1214, 1218,
+     1004, 1226, 1004, 1227,  960, 1215, 1216, 1217, 1219, 1221,
+     1192, 1220, 1228, 1224, 1024, 1224, 1024,  225, 1222,  225,
+     1223, 1232, 1005, 1225, 1025, 1233,  237, 1234, 1026, 1235,
+     1226,  250, 1227, 1026,  237,  250,  250, 1024,  250, 1024,
+
+     1228, 1848, 1848, 1026,  326, 1026, 1230, 1025, 1229,  250,
+     1232, 1026, 1848, 1848, 1233, 1234, 1026, 1026, 1235, 1245,
+     1848, 1240, 1026, 1240,  499, 1236,  250, 1240, 1237, 1241,
+      499, 1243, 1242,  326, 1246, 1230, 1244, 1229, 1848, 1224,
+      250, 1224, 1296,  216, 1296,  312, 1848, 1848, 1245, 1225,
+     1296,  216, 1297,  312, 1236,  250, 1237,  250,  250, 1243,
+     1242,  250, 1246,  250, 1248, 1244, 1126, 1126,  250, 1126,
+     1126, 1126, 1126, 1126, 1126, 1126, 1126, 1126, 1126, 1126,
+     1126, 1126, 1126, 1126, 1126,  250, 1126, 1126, 1126, 1126,
+     1126, 1250, 1248,  250, 1253,  250,  250, 1252, 1254,  250,
+
+      250,  250,  250, 1848, 1256,  250,  250,  250,  250,  250,
+     1249,  250, 1181,  250, 1181,  250,  250, 1126, 1126, 1250,
+     1251,  250, 1253, 1257,  250, 1252, 1254, 1258,  250, 1255,
+     1259, 1263, 1256, 1262, 1182, 1260, 1264,  250, 1273, 1249,
+     1261, 1265, 1266, 1270,  250, 1126, 1267,  250,  250, 1251,
+     1268,  250, 1257,  250,  250, 1269, 1258, 1255,  250, 1259,
+     1263,  250, 1262, 1260,  250, 1264,  250, 1273, 1261, 1265,
+     1271, 1266, 1270, 1272, 1275, 1267, 1278,  250, 1277, 1268,
+     1200,  250, 1200, 1269, 1279,  250, 1274,  250, 1276,  250,
+     1280, 1281,  250, 1282,  250, 1284,  250,  250, 1271,  250,
+
+      250, 1272, 1201, 1275,  250, 1278,  250, 1277, 1283, 1848,
+     1285,  250,  326, 1279, 1274, 1848, 1298, 1276, 1280, 1286,
+     1281, 1312, 1282, 1284, 1292,  317, 1287,  317, 1289, 1336,
+     1848, 1288, 1290,  589,  589,  589,  589, 1283, 1291, 1285,
+     1293,  326, 1848, 1294, 1298, 1310, 1295, 1848, 1286,  896,
+     1312,  896, 1299, 1292, 1287,  250, 1289, 1336, 1301, 1288,
+      897, 1290,  583,  583, 1848,  326, 1291, 1305, 1293, 1848,
+      321, 1294,  321, 1310, 1295,  582,  216,  582,  217,  326,
+      326, 1299,  326, 1311, 1848, 1307,  148, 1301,  149, 1848,
+     1338,  583,  583, 1304,  326, 1306, 1305,  150,  150, 1848,
+
+     1337,  218,  219, 1848,  583,  220,  326,  221,  326,  326,
+      150,  326, 1311, 1327, 1307, 1327,  380, 1308,  471, 1338,
+     1848, 1304, 1327, 1306, 1328,  380,  150,  150, 1337, 1848,
+      218,  219,  121,  583,  220,  326,  221, 1848,  150, 1318,
+     1319, 1408, 1848, 1408,  499, 1308,  471,  316,  316,  324,
+      316,  316,  316,  316,  316,  316,  316,  316,  316,  316,
+      316,  316,  316,  316,  316,  316,  121,  316,  316,  316,
+      316,  316,  121,  122,  123,  896, 1302,  896, 1339,  122,
+      123,  359, 1331,  359, 1331, 1340,  897, 1341,  619, 1342,
+      619, 1343, 1848, 1137,  359,  360,  359, 1848,  316,  316,
+
+      896,  620,  896,  620, 1332, 1302, 1339,  359,  360,  359,
+      361,  897,  622, 1340, 1224, 1341, 1224, 1342, 1136, 1848,
+     1343,  360, 1848,  361, 1225,  362,  316,  316,  316,  324,
+      316,  316,  316,  316,  316,  316,  316,  316,  316,  316,
+      316,  316,  316,  316,  316,  316,  363,  316,  316,  316,
+      316,  316,  900,  359, 1303,  359, 1344, 1352, 1345,  363,
+     1329,  383, 1329,  648, 1333, 1349, 1333,  360,  144,  361,
+     1350,  362, 1329,  383, 1330,  648, 1353,  146,  316,  316,
+      144, 1848, 1848, 1303, 1344, 1352, 1334, 1345, 1408,  146,
+     1409,  499, 1848, 1848, 1349, 1449,  216, 1449,  217, 1350,
+
+     1346, 1848, 1346, 1351, 1353,  363,  316, 1300, 1300,  324,
+     1300, 1300, 1300, 1300, 1300, 1300, 1300, 1300, 1300, 1300,
+     1300, 1300, 1300, 1300, 1300, 1300, 1347, 1300, 1300, 1300,
+     1300, 1300, 1351, 1354, 1355, 1356, 1848, 1357, 1358, 1348,
+     1402, 1361, 1402, 1362, 1366, 1367, 1359, 1181, 1359, 1181,
+      957, 1369, 1186, 1370, 1186, 1347, 1368, 1848, 1300, 1300,
+     1848, 1186, 1354, 1355, 1356, 1357, 1358, 1348, 1360, 1182,
+     1361, 1362, 1848, 1366, 1367, 1402,  250, 1402, 1363, 1369,
+     1364, 1370, 1364, 1848, 1371, 1368, 1300, 1313, 1321, 1364,
+     1321, 1313, 1313, 1313, 1313, 1313, 1313, 1313, 1313, 1313,
+
+     1313, 1313, 1322, 1313, 1323, 1313, 1324, 1313, 1313, 1313,
+     1313, 1313, 1371, 1200, 1185, 1200, 1185, 1186, 1402, 1187,
+     1402, 1187, 1374, 1848, 1848,  957, 1372, 1186, 1372, 1186,
+      958, 1377, 1188, 1378, 1188, 1201, 1186,  698, 1313, 1313,
+     1326, 1188, 1365,  698, 1365, 1364, 1190, 1191, 1373, 1192,
+     1374, 1192, 1190, 1191, 1375, 1192, 1375, 1192, 1192, 1377,
+     1511, 1378, 1511,  248, 1192, 1848, 1313, 1313, 1313, 1381,
+     1313, 1313, 1313, 1313, 1313, 1313, 1313, 1313, 1313, 1313,
+     1313, 1313, 1313, 1313, 1313, 1313, 1385, 1313, 1313, 1313,
+     1313, 1313, 1186, 1376, 1379, 1382, 1379, 1188, 1381, 1383,
+
+     1384, 1386, 1387, 1390, 1388, 1390, 1388, 1394, 1395, 1397,
+     1392, 1396, 1392,  225, 1192, 1385, 1380, 1401, 1313, 1313,
+     1192, 1376, 1400, 1382, 1403, 1391,  237, 1383, 1384, 1386,
+     1389, 1387, 1393,  237,  250, 1394, 1451, 1395, 1397, 1396,
+     1456, 1398, 1331,  250, 1331, 1401, 1313, 1333,  250, 1333,
+     1848, 1400,  250, 1403, 1404,  121, 1457, 1413, 1848, 1389,
+     1405, 1848,  122,  123, 1332, 1451, 1848,  250, 1456, 1334,
+     1398,  250, 1848,  121,  250, 1512,  250, 1512,  250,  250,
+      122,  123, 1848, 1404, 1457, 1848, 1413, 1412, 1848, 1405,
+     1313, 1313,  250, 1313, 1313, 1313, 1313, 1313, 1313, 1313,
+
+     1313, 1313, 1313, 1313, 1313, 1313, 1313, 1313, 1313, 1411,
+     1313, 1313, 1313, 1313, 1313, 1412, 1414, 1415, 1416, 1417,
+      250, 1419,  250,  250, 1346,  250, 1346,  250,  250,  250,
+      250, 1359,  250, 1359,  250,  250,  250, 1411,  250,  250,
+      250, 1313, 1313, 1848, 1414, 1415, 1416, 1417, 1418, 1419,
+     1421, 1420,  250, 1360, 1423, 1424, 1425, 1428,  250,  250,
+      250,  250, 1426, 1422, 1427, 1431, 1432, 1430,  250, 1313,
+     1848,  250, 1429, 1375,  250, 1375,  250, 1418,  250, 1421,
+     1420, 1434,  250, 1423, 1424, 1425, 1428,  250, 1444,  250,
+     1426, 1422, 1427, 1438, 1431, 1432, 1430,  250, 1433, 1440,
+
+     1429, 1435, 1372,  250, 1372, 1436, 1458, 1439, 1848, 1434,
+     1441, 1512, 1437, 1512, 1379,  250, 1379, 1444, 1442, 1443,
+     1446, 1438, 1445, 1848, 1373,  250, 1433,  317, 1440, 1435,
+     1388,  250, 1388, 1436, 1458, 1439, 1380, 1459, 1441, 1448,
+     1437, 1390,  250, 1390, 1461, 1468, 1442, 1443, 1460, 1446,
+     1445, 1392,  250, 1392, 1469, 1453, 1447, 1449,  216, 1449,
+     1450, 1848, 1848, 1391,  896, 1459,  896, 1448,  359, 1808,
+      359, 1808, 1461, 1393, 1468,  897, 1470, 1460, 1542,  216,
+     1542,  312,  360, 1469, 1453, 1447, 1452, 1452,  324, 1452,
+     1452, 1452, 1452, 1452, 1452, 1452, 1452, 1452, 1452, 1452,
+
+     1452, 1452, 1452, 1452, 1452, 1470, 1452, 1452, 1452, 1452,
+     1452,  619, 1848,  619, 1464,  383, 1464,  648, 1474, 1471,
+     1848, 1331,  144, 1331,  620, 1848,  620, 1553, 1333, 1553,
+     1333,  146, 1472,  359, 1473,  359, 1477, 1452, 1452,  359,
+      359,  359,  359, 1332,  146, 1848, 1474,  360, 1471,  361,
+     1334,  622, 1661,  360,  360,  361,  361,  362,  362, 1662,
+     1848, 1472, 1663, 1473, 1477, 1452,  316,  316,  324,  316,
+      316,  316,  316,  316,  316,  316,  316,  316,  316,  316,
+      316,  316,  316,  316,  316,  363,  316,  316,  316,  316,
+      316,  363,  363, 1478, 1464,  383, 1465,  648, 1479, 1466,
+
+     1848, 1480,  144, 1467, 1481, 1482, 1848, 1483, 1484, 1661,
+     1455,  146, 1487, 1485, 1486, 1848, 1662,  316,  316, 1663,
+     1848, 1478, 1359, 1552, 1359, 1552,  380, 1479, 1466, 1480,
+     1848, 1848, 1467, 1481, 1482, 1483, 1848, 1484, 1455, 1346,
+     1487, 1346, 1485, 1486, 1360,  316,  316,  316,  324,  316,
+      316,  316,  316,  316,  316,  316,  316,  316,  316,  316,
+      316,  316,  316,  316,  316, 1475,  316,  316,  316,  316,
+      316, 1488, 1363, 1489, 1364, 1489, 1364, 1848, 1476, 1490,
+     1491, 1492, 1497, 1364, 1363, 1494, 1364, 1375, 1364, 1375,
+     1365,  698, 1365, 1495, 1475, 1364, 1848,  316,  316, 1488,
+
+     1190, 1191, 1372, 1192, 1372, 1192, 1476, 1490, 1501, 1491,
+     1492, 1497, 1192, 1494, 1379, 1496, 1379, 1498, 1499, 1502,
+     1390, 1495, 1390, 1504, 1373,  316, 1493, 1388, 1392, 1388,
+     1392, 1503, 1507, 1508,  237,  250, 1380, 1501,  250, 1364,
+      250,  250, 1391, 1496,  250, 1498, 1499,  250, 1502,  250,
+     1393, 1364, 1504, 1500, 1493,  250,  250,  250, 1521, 1503,
+     1507, 1514, 1508,  250,  250, 1515, 1517, 1516, 1192,  250,
+      250, 1518,  250,  250, 1510,  250, 1519,  250,  250,  250,
+      250, 1529, 1500, 1520,  250,  250,  250, 1521, 1543, 1848,
+     1514,  250, 1522, 1848, 1515, 1517, 1516, 1524, 1526, 1527,
+
+     1518, 1523, 1510, 1525, 1528, 1519, 1530, 1545, 1533, 1529,
+     1547, 1531, 1520,  250, 1536, 1532, 1543, 1535,  250, 1534,
+     1522, 1538, 1541, 1546, 1548, 1524, 1558, 1526, 1527, 1523,
+     1539, 1525,  250, 1528, 1530, 1848, 1545, 1533, 1547, 1531,
+     1537, 1540, 1536, 1560, 1532, 1535, 1550, 1534, 1550, 1538,
+     1559, 1541, 1546, 1548, 1848, 1558, 1551, 1549, 1539, 1553,
+      143, 1553, 1561, 1554,  383, 1554,  384,  144, 1562, 1537,
+     1540,  144, 1560, 1563, 1564, 1565,  146, 1566, 1559, 1567,
+      146, 1554,  383, 1554, 1555, 1568, 1549, 1569, 1570, 1556,
+     1561, 1571, 1572, 1848, 1573, 1574, 1562, 1489, 1557, 1489,
+
+     1575, 1563, 1564, 1565, 1576, 1566, 1576, 1567, 1363, 1578,
+     1364, 1579, 1364, 1580, 1568, 1569, 1581, 1570, 1581, 1364,
+     1571, 1572, 1573, 1574, 1583, 1584, 1577, 1585, 1586, 1575,
+     1587, 1588, 1590,  225, 1591,  237,  237, 1578, 1582, 1579,
+     1511, 1580, 1511,  248, 1594,  250, 1594,  499,  250,  250,
+      250,  250,  250, 1583, 1584, 1585, 1586,  250, 1587, 1589,
+     1588, 1590, 1592, 1591, 1593,  250,  250,  250,  250, 1596,
+      250,  250,  250,  250, 1848, 1364, 1598, 1576,  250, 1576,
+     1581,  250, 1581,  250, 1597,  250,  250, 1600, 1589, 1617,
+     1599, 1592, 1603, 1593, 1601, 1604, 1608, 1605, 1596, 1577,
+
+     1618, 1602, 1582, 1607, 1614, 1598, 1614, 1848, 1606, 1609,
+     1611,  250, 1597, 1610, 1615, 1600,  317, 1617, 1599, 1630,
+     1603, 1613, 1601, 1627, 1604, 1608, 1605, 1612, 1618, 1602,
+     1848, 1607, 1542,  216, 1542,  312, 1606, 1609, 1619, 1611,
+     1848, 1610, 1616, 1550, 1552, 1550, 1552,  380, 1630, 1613,
+     1848, 1627, 1848, 1551, 1632, 1612, 1623,  383, 1623,  648,
+     1624,  383, 1624, 1634,  144, 1628, 1629, 1619, 1625, 1631,
+     1633, 1616, 1635,  146, 1553,  143, 1553, 1626,  382,  383,
+      382,  384,  144, 1632, 1638, 1639,  144, 1576, 1640, 1576,
+     1641,  146, 1634, 1628, 1629,  146, 1642, 1631, 1633, 1643,
+
+     1636, 1635, 1636, 1581, 1644, 1581, 1645,  225, 1647, 1577,
+     1637,  237, 1638,  250, 1639,  237, 1640,  250, 1594, 1641,
+     1594,  499,  250,  250, 1642, 1582,  250,  250, 1643, 1636,
+      250, 1636,  250, 1644,  250, 1645, 1647,  317, 1649, 1637,
+     1848,  250,  250, 1665, 1646, 1675, 1614, 1648, 1614, 1672,
+     1848, 1650, 1655, 1653, 1848, 1651, 1615, 1656, 1676, 1657,
+     1673, 1654, 1673, 1677, 1652, 1848, 1848, 1649, 1658, 1659,
+     1674, 1665, 1646, 1675, 1664, 1648, 1848, 1848, 1672, 1650,
+     1848, 1655, 1653, 1651, 1848, 1678, 1656, 1676, 1657, 1654,
+     1848, 1677, 1652, 1666, 1667, 1666, 1668, 1658, 1659, 1679,
+
+     1848, 1621, 1664, 1848, 1622, 1623,  383, 1623,  648, 1624,
+      650, 1624, 1680,  144, 1678, 1669, 1670, 1669, 1671, 1636,
+     1681, 1636,  146, 1625, 1682, 1636, 1626, 1636, 1679, 1637,
+      237,  250, 1626,  237,  250, 1637, 1673,  250, 1673,  250,
+      250, 1680,  250, 1848, 1661, 1667, 1674, 1848, 1735, 1681,
+     1735, 1662, 1702, 1682, 1663, 1703, 1685, 1848, 1686, 1736,
+     1706, 1687, 1704, 1707, 1704, 1688, 1673, 1690, 1673, 1691,
+     1689, 1692, 1693, 1694, 1695, 1705, 1674, 1705, 1697, 1698,
+     1697, 1699, 1709, 1696, 1705, 1685, 1662, 1686, 1706, 1663,
+     1687,  225, 1707, 1688,  250,  317, 1690, 1696, 1691, 1689,
+
+     1666, 1667, 1666, 1668, 1666, 1667, 1666, 1668, 1621, 1708,
+     1709, 1622, 1621, 1710, 1711, 1622, 1669, 1670, 1669, 1671,
+      645,  646,  647,  648, 1625, 1713, 1696, 1712,  144,  237,
+      250, 1731,  381, 1626,  250, 1717, 1848,  146, 1708, 1737,
+     1848, 1848, 1710, 1711, 1740, 1719,  381, 1719, 1695, 1719,
+     1738, 1720, 1695, 1713, 1739, 1712, 1715, 1716, 1741, 1731,
+     1718, 1848, 1848, 1717, 1692, 1693, 1694, 1695, 1737, 1697,
+     1698, 1697, 1699, 1740, 1698,  381, 1696, 1662, 1738,  250,
+     1663, 1729, 1739,  237, 1730, 1715, 1716, 1741, 1667, 1718,
+     1696, 1723, 1724, 1725, 1726, 1702, 1742,  225, 1703, 1662,
+
+     1744, 1667, 1663, 1727, 1732, 1733, 1732, 1734, 1702, 1745,
+      250, 1703, 1702,  250, 1704, 1703, 1704, 1727, 1848, 1696,
+     1735, 1848, 1735, 1848, 1742, 1748, 1766, 1705, 1744, 1705,
+      317, 1736, 1767, 1705, 1743, 1705, 1705, 1751, 1745, 1751,
+     1695, 1749, 1705, 1848, 1768, 1751, 1727, 1752, 1695, 1753,
+     1698, 1753, 1726, 1748, 1766, 1848, 1750, 1662, 1848, 1848,
+     1663, 1767, 1743, 1723, 1724, 1725, 1726, 1765, 1769,  225,
+     1749, 1662, 1768, 1848, 1663, 1727, 1724, 1753, 1698, 1754,
+     1726, 1848,  237, 1756, 1750, 1662, 1757, 1759, 1663, 1727,
+     1848, 1698, 1770, 1772, 1760, 1765, 1769, 1761, 1729, 1698,
+
+      250, 1730, 1762, 1763, 1762, 1764, 1729,  250, 1786, 1730,
+     1729, 1771, 1848, 1730, 1732, 1733, 1732, 1734, 1727, 1773,
+     1770, 1772, 1702, 1667, 1848, 1703, 1666, 1667, 1666, 1668,
+     1702, 1724, 1789, 1703, 1621, 1848, 1786, 1622, 1756, 1771,
+     1775, 1757, 1848, 1776, 1774, 1776, 1695, 1773, 1776, 1848,
+     1777, 1695, 1778, 1698, 1778, 1726, 1778, 1698, 1779, 1726,
+     1662, 1789,  317, 1663, 1662, 1848, 1848, 1663, 1775, 1848,
+     1724, 1787, 1774, 1780, 1781, 1780, 1782, 1756, 1759, 1848,
+     1757, 1756, 1848, 1848, 1757, 1760, 1848, 1848, 1761, 1692,
+     1693, 1694, 1695, 1759, 1783, 1724, 1783, 1784,  250, 1787,
+
+     1760, 1696, 1760, 1761, 1785, 1761, 1762, 1763, 1762, 1764,
+     1723, 1724, 1725, 1726, 1729, 1696, 1698, 1730, 1662, 1788,
+     1803, 1663, 1727, 1729,  250, 1795, 1730, 1795, 1695, 1848,
+      225, 1848, 1785, 1724, 1793, 1795, 1727, 1796, 1695, 1724,
+     1756, 1848, 1848, 1757, 1696, 1804, 1800, 1788, 1803, 1801,
+     1806, 1794, 1797, 1698, 1797, 1726, 1797, 1698, 1798, 1726,
+     1662,  317, 1793, 1663, 1662, 1727,  225, 1663, 1780, 1781,
+     1780, 1782, 1805,  237, 1804, 1848, 1756, 1848, 1806, 1757,
+     1794, 1723, 1724, 1725, 1726, 1817,  237, 1817, 1695, 1662,
+     1848, 1724, 1663, 1727, 1783, 1724, 1783, 1784, 1800, 1815,
+
+     1805, 1801, 1760, 1813,  317, 1761, 1814, 1727, 1848, 1807,
+     1809, 1698, 1809, 1726, 1809, 1698, 1810, 1726, 1662, 1724,
+      225, 1663, 1662, 1816, 1848, 1663, 1800, 1815, 1824, 1801,
+     1817, 1813, 1817, 1695, 1814, 1724, 1727, 1807, 1848, 1808,
+     1848, 1808, 1800, 1848, 1822, 1801, 1848, 1823, 1848, 1848,
+     1848, 1816,  317, 1848, 1848,  237, 1848, 1824, 1848,  225,
+     1848, 1848, 1848, 1811, 1781, 1811, 1812, 1818, 1698, 1818,
+     1699, 1800, 1822, 1698, 1801, 1662, 1823, 1833, 1663, 1827,
+     1729, 1848, 1828, 1730, 1811, 1781, 1811, 1812, 1848, 1848,
+     1848, 1848, 1800, 1848, 1848, 1801, 1848, 1825, 1826, 1698,
+
+     1826, 1726, 1829, 1661, 1848, 1833, 1662, 1848, 1827, 1663,
+     1662, 1828,  317, 1663,  225,  237, 1848, 1848, 1660, 1818,
+     1698, 1818, 1819, 1660,  317, 1825, 1660, 1821, 1660, 1660,
+     1663, 1829, 1848, 1660, 1660, 1831,  237, 1848, 1660, 1848,
+     1660, 1660, 1660, 1697, 1698, 1697, 1699, 1826, 1698, 1826,
+     1726, 1662, 1848, 1848, 1663, 1662, 1832, 1834, 1663, 1836,
+     1837, 1836, 1848,  237, 1831, 1848, 1835, 1848,  237, 1660,
+     1660, 1660, 1838, 1839, 1838, 1848, 1840, 1841, 1842, 1841,
+     1836, 1837, 1836,  237, 1832, 1834,  223,  216,  223,  217,
+     1838, 1839, 1838, 1848, 1835, 1843, 1848, 1660, 1841, 1842,
+
+     1841, 1846, 1847, 1846, 1840, 1845, 1844, 1846, 1847, 1846,
+     1848, 1848, 1848, 1848, 1848, 1848, 1848, 1848, 1848, 1848,
+     1848, 1848, 1848, 1848, 1843, 1848, 1848, 1848, 1848, 1848,
+     1848, 1848, 1848, 1845, 1848, 1844,   66,   66,   66,   66,
+       66,   66,   66,   66,   66,   66,   66,   66,   66,   66,
        66,   66,   66,   66,   67,   67,   67,   67,   67,   67,
-       67,   67,   67,   67,   67,   67,   67,   79, 1131,   79,
-       79,   79,   79,   79,   79,   79,   79,   79,   79,   79,
-       82,   82,   82,   82,   82,   82,   82,   82,   82,   82,
-       82,   82,   82,   86,   86,   86,   86,   86,   86,   86,
-       86,   86,   86,   86,   86,   86,   90,   90,   90,   90,
-       90,   90,   90,   90,   90,   90,   90,   90,   90,  113,
-
-      113,  113,  113,  113,  113,  113,  113,  113,  189,  189,
-      189,  189,  189,  189,  189,  189,  189,  189,  189,  189,
-      189,  204,  204,  204,  204,  204,  204,  204,  204,  204,
-      204,  204,  204,  204,  210,  210,  210,  210,  210, 1131,
-      210,  210,  210, 1131,  210, 1131,  210,  231,  231,  231,
-      231,  231,  231,  231,  231,  231,  231,  231,  231,  231,
-       99, 1131, 1131, 1131, 1131, 1131, 1131, 1131,   99,  249,
-      249, 1131,  249,  249, 1131,  249, 1131, 1131,  249,  249,
-     1131,  249,  336,  336,  336,  336,  340,  340,  340,  340,
-      340,  340,  340,  340,  340,  340,  340,  340,  340,  365,
-
-      365,  365,  365,  365,  365,  365,  365,  365,  365,  365,
-      365,  365,  371,  371,  371,  371,  371,  371,  371,  371,
-      371,  371,  371,  371,  371,  601,  601,  601, 1131,  601,
-      601,  601,  601,  601,  601,  601,  601,  601,  685, 1131,
-      685,  685,  685,  685,  685,  685,  685,  685,  685,  685,
-      685,  688, 1131,  688,  688,  688,  688,  688,  688,  688,
-      688,  688,  688,  688,  690,  690,  690,  690,  690,  690,
-      690,  690,  690,  690,  690,  690,  690,  693,  693,  693,
-      693,  693,  693,  693,  693,  693,  693,  693,  693,  693,
-      695,  695,  695,  695,  695,  695,  695,  695,  695,  695,
-
-      695,  695,  695,  702, 1131,  702,  702,  702,  702,  702,
-      702,  702,  702,  702,  702,  702,  778,  778,  778,  778,
-      778,  778,  778,  778,  778,  778,  778,  778,  778,  786,
-      786,  786,  786,  786,  786,  786,  786,  786,  786,  786,
-      786,  786,  789,  789,  789,  789,  789,  789,  789,  789,
-      789,  789,  789,  789,  789,  790, 1131,  790,  790,  790,
-      790,  790,  790,  790,  790,  790,  790,  790,  793, 1131,
-      793,  793,  793,  793,  793,  793,  793,  793,  793,  793,
-      793,  794,  794,  794,  794,  794,  794,  794,  794,  794,
-      794,  794,  794,  794,  796,  796,  796,  796,  796,  796,
-
-      796,  796,  796,  796,  796,  796,  796,  797,  797,  797,
-      797,  797,  797,  797,  797,  797,  797,  797,  797,  797,
-      800, 1131,  800,  800,  800,  800,  800,  800,  800,  800,
-      800,  800,  800,  861,  861,  861,  861,  861,  861,  861,
-      861,  861,  861,  861,  861,  861,  868,  868,  868,  868,
-      868,  868,  868,  868,  868,  868,  868,  868,  868,  870,
-      870,  870,  870,  870,  870,  870,  870,  870,  870,  870,
-      870,  870,  901,  901,  901,  901,  901,  901,  901,  901,
-      901,  901,  901,  901,  901,  954,  954,  954,  954,  954,
-      954,  954,  954,  954,  954,  954,  954,  954, 1069, 1069,
-
-     1069, 1069, 1069, 1069, 1069, 1069, 1069, 1069, 1069, 1069,
-     1069,   13, 1131, 1131, 1131, 1131, 1131, 1131, 1131, 1131,
-     1131, 1131, 1131, 1131, 1131, 1131, 1131, 1131, 1131, 1131,
-     1131, 1131, 1131, 1131, 1131, 1131, 1131, 1131, 1131, 1131,
-     1131, 1131, 1131, 1131, 1131, 1131, 1131, 1131, 1131, 1131,
-     1131, 1131, 1131, 1131, 1131, 1131, 1131, 1131, 1131, 1131,
-     1131, 1131, 1131, 1131, 1131, 1131, 1131, 1131, 1131, 1131,
-     1131, 1131, 1131, 1131, 1131, 1131, 1131, 1131, 1131, 1131,
-     1131, 1131, 1131, 1131, 1131, 1131, 1131, 1131, 1131, 1131,
-     1131, 1131, 1131, 1131, 1131, 1131, 1131, 1131, 1131, 1131,
-
-     1131
+       67,   67,   67,   67,   67,   67,   67,   67,   67,   67,
+       67,   67,  111,  111, 1848,  111,  111,  111,  111,  111,
+      111,  111,  111,  111,  111,  111,  111,  111,  111,  111,
+      114,  114,  114,  114,  114,  114,  114,  114,  114,  114,
+
+      114,  114,  114,  114,  114,  114,  114,  114,  120,  120,
+      120,  120,  120,  120,  120,  120,  120,  120,  120,  120,
+      120,  120,  120,  120,  120,  120,  129, 1848, 1848, 1848,
+     1848, 1848, 1848,  129, 1848,  129, 1848,  129,  129,  129,
+      129,  129,  156,  156,  156,  156,  156,  224,  224,  224,
+      224,  224,  224,  224,  224,  224,  224,  224,  224,  224,
+      224,  224,  224,  224,  224,  236,  236,  236,  236,  236,
+      236,  236,  236,  236,  236,  236,  236,  236,  236,  236,
+      236,  236,  236,  243,  243,  243,  243,  243,  243,  243,
+      243,  243,  243,  243,  243,  243,  243,  243,  243,  243,
+
+      243,  251, 1848, 1848, 1848, 1848, 1848, 1848, 1848, 1848,
+     1848, 1848,  251,  251,  251,  251,  251,  316,  316,  316,
+      316,  316,  316,  316,  316,  316,  316,  316,  316,  316,
+      316,  316,  316,  316,  316,  111,  111, 1848,  111,  111,
+      111,  111,  111,  111,  111,  111,  111,  111,  111,  111,
+      111,  111,  111,  114,  114,  114,  114,  114,  114,  114,
+      114,  114,  114,  114,  114,  114,  114,  114,  114,  114,
+      114,  350,  350,  350,  350,  350,  350,  350,  350,  350,
+      350,  350,  350,  350,  350,  350,  350,  350,  350,  120,
+      120,  120,  120,  120,  120,  120,  120,  120,  120,  120,
+
+      120,  120,  120,  120,  120,  120,  120,  351,  351,  351,
+      351,  351,  351,  351,  351,  351,  351,  351,  351,  351,
+      351,  351,  351,  351,  351,  129, 1848, 1848, 1848, 1848,
+     1848, 1848,  129, 1848,  129, 1848, 1848,  129,  129,  129,
+      129,  385,  385,  385,  385, 1848,  385,  385,  385,  385,
+      385,  385, 1848,  385,  385, 1848, 1848,  385,  385,  156,
+      156,  156,  156,  156,  472,  472,  472,  472,  472,  472,
+      472,  472,  472,  472,  472,  472,  472,  472,  472,  472,
+      472,  472,  224,  224,  224,  224,  224,  224,  224,  224,
+      224,  224,  224,  224,  224,  224,  224,  224,  224,  224,
+
+      236,  236,  236,  236,  236,  236,  236,  236,  236,  236,
+      236,  236,  236,  236,  236,  236,  236,  236,  243,  243,
+      243,  243,  243,  243,  243,  243,  243,  243,  243,  243,
+      243,  243,  243,  243,  243,  243,  494,  494,  494,  494,
+      494,  494,  494,  494,  494,  494,  494,  494,  494,  494,
+      494,  494,  494,  494,  495,  495,  495,  495,  495,  495,
+      495,  495,  495,  495,  495,  495,  495,  495,  495,  495,
+      495,  495,  580,  580,  580,  580,  580,  580,  580,  580,
+      580,  580,  580,  580,  580,  580,  580,  580,  580,  580,
+      316,  316,  316,  316,  316,  316,  316,  316,  316,  316,
+
+      316,  316,  316,  316,  316,  316,  316,  316,  326,  326,
+      326,  326,  326,  326,  326,  326,  326,  326,  326,  326,
+      326,  326,  326,  326,  326,  326,  111,  111, 1848,  111,
+      111,  111,  111,  111,  111,  111,  111,  111,  111,  111,
+      111,  111,  111,  111,  114,  114,  114,  114,  114,  114,
+      114,  114,  114,  114,  114,  114,  114,  114,  114,  114,
+      114,  114,  350,  350,  350,  350,  350,  350,  350,  350,
+      350,  350,  350,  350,  350,  350,  350,  350,  350,  350,
+      351,  351,  351,  351,  351,  351,  351,  351,  351,  351,
+      351,  351,  351,  351,  351,  351,  351,  351,  616,  616,
+
+      616,  616,  616,  616,  616,  616,  616,  616,  616,  616,
+      616,  616,  616,  616,  616,  616,  120,  120,  120,  120,
+      120,  120,  120,  120,  120,  120,  120,  120,  120,  120,
+      120,  120,  120,  120,  621, 1848, 1848, 1848, 1848, 1848,
+     1848,  621, 1848,  621, 1848, 1848,  621,  621,  621,  621,
+      129, 1848, 1848, 1848, 1848, 1848, 1848, 1848,  129, 1848,
+      129, 1848,  129,  129,  129,  129,  129,  624,  624,  624,
+      624,  643,  643,  643,  643,  643,  643,  643,  643,  643,
+      643,  643,  643,  643,  643,  643,  643,  643,  643,  644,
+      644,  644,  644,  644,  644,  644,  644,  644,  644,  644,
+
+      644,  644,  644,  644,  644,  644,  644,  649,  649,  649,
+      649,  649,  649,  649,  649,  649,  649,  649,  649,  649,
+      649,  649,  649,  649,  649,  385,  385,  385,  385, 1848,
+      385,  385,  385,  385,  385,  385, 1848,  385,  385, 1848,
+     1848,  385,  385,  156,  156,  156,  156,  156,  697,  697,
+      697,  697,  697,  697,  697,  697,  697,  697,  697,  697,
+      697,  697,  697,  697,  697,  697,  470, 1848, 1848, 1848,
+     1848, 1848, 1848, 1848,  470,  470,  472,  472,  472,  472,
+      472,  472,  472,  472,  472,  472,  472,  472,  472,  472,
+      472,  472,  472,  472,  224,  224,  224,  224,  224,  224,
+
+      224,  224,  224,  224,  224,  224,  224,  224,  224,  224,
+      224,  224,  236,  236,  236,  236,  236,  236,  236,  236,
+      236,  236,  236,  236,  236,  236,  236,  236,  236,  236,
+      243,  243,  243,  243,  243,  243,  243,  243,  243,  243,
+      243,  243,  243,  243,  243,  243,  243,  243,  494,  494,
+      494,  494,  494,  494,  494,  494,  494,  494,  494,  494,
+      494,  494,  494,  494,  494,  494,  495,  495,  495,  495,
+      495,  495,  495,  495,  495,  495,  495,  495,  495,  495,
+      495,  495,  495,  495,  777,  777,  777,  777,  777,  777,
+      777,  777,  777,  777,  777,  777,  777,  777,  777,  777,
+
+      777,  777,  778,  778,  778,  778,  778,  778,  778,  778,
+      778,  778,  778,  778,  778,  778,  778,  778,  778,  778,
+      251, 1848, 1848, 1848, 1848, 1848, 1848, 1848, 1848, 1848,
+     1848,  251,  251,  251,  251,  251,  580,  580,  580,  580,
+      580,  580,  580,  580,  580,  580,  580,  580,  580,  580,
+      580,  580,  580,  580,  316,  316,  316,  316,  316,  316,
+      316,  316,  316,  316,  316,  316,  316,  316,  316,  316,
+      316,  316,  326,  326,  326,  326,  326,  326,  326,  326,
+      326,  326,  326,  326,  326,  326,  326,  326,  326,  326,
+      111,  111, 1848,  111,  111,  111,  111,  111,  111,  111,
+
+      111,  111,  111,  111,  111,  111,  111,  111,  114,  114,
+      114,  114,  114,  114,  114,  114,  114,  114,  114,  114,
+      114,  114,  114,  114,  114,  114,  351,  351,  351,  351,
+      351,  351,  351,  351,  351,  351,  351,  351,  351,  351,
+      351,  351,  351,  351,  120,  120,  120,  120,  120,  120,
+      120,  120,  120,  120,  120,  120,  120,  120,  120,  120,
+      120,  120,  616,  616,  616,  616,  616,  616,  616,  616,
+      616,  616,  616,  616,  616,  616,  616,  616,  616,  616,
+      621, 1848, 1848, 1848, 1848, 1848, 1848,  621, 1848,  621,
+     1848, 1848,  621,  621,  621,  621,  901, 1848, 1848, 1848,
+
+     1848, 1848, 1848, 1848,  901, 1848, 1848, 1848,  901,  901,
+      901,  901,  901,  129, 1848, 1848, 1848, 1848, 1848, 1848,
+     1848,  129, 1848,  129, 1848,  129,  129,  129,  129,  129,
+      643,  643,  643,  643,  643,  643,  643,  643,  643,  643,
+      643,  643,  643,  643,  643,  643,  643,  643,  644,  644,
+      644,  644,  644,  644,  644,  644,  644,  644,  644,  644,
+      644,  644,  644,  644,  644,  644,  913,  913,  913,  913,
+      913,  913,  913,  913,  913,  913,  913,  913,  913,  913,
+      913,  913,  913,  913,  649,  649,  649,  649,  649,  649,
+      649,  649,  649,  649,  649,  649,  649,  649,  649,  649,
+
+      649,  649,  156,  156,  156,  156,  156,  697,  697,  697,
+      697,  697,  697,  697,  697,  697,  697,  697,  697,  697,
+      697,  697,  697,  697,  697,  698,  698,  698,  698,  698,
+      698, 1848,  698,  698,  698,  698,  698,  698,  698,  698,
+      698,  698,  698,  699,  699, 1848,  699,  699,  699,  699,
+      699,  699,  699,  699,  699,  699,  699,  699,  699,  699,
+      699,  224,  224,  224,  224,  224,  224,  224,  224,  224,
+      224,  224,  224,  224,  224,  224,  224,  224,  224,  236,
+      236,  236,  236,  236,  236,  236,  236,  236,  236,  236,
+      236,  236,  236,  236,  236,  236,  236,  777,  777,  777,
+
+      777,  777,  777,  777,  777,  777,  777,  777,  777,  777,
+      777,  777,  777,  777,  777,  778,  778,  778,  778,  778,
+      778,  778,  778,  778,  778,  778,  778,  778,  778,  778,
+      778,  778,  778,  316,  316,  316,  316,  316,  316,  316,
+      316,  316,  316,  316,  316,  316,  316,  316,  316,  316,
+      316,  326,  326,  326,  326,  326,  326,  326,  326,  326,
+      326,  326,  326,  326,  326,  326,  326,  326,  326, 1126,
+     1126, 1848, 1126, 1126, 1126, 1126, 1126, 1126, 1126, 1126,
+     1126, 1126, 1126, 1126, 1126, 1126, 1126,  111,  111, 1848,
+      111,  111,  111,  111,  111,  111,  111,  111,  111,  111,
+
+      111,  111,  111,  111,  111, 1128, 1128, 1848, 1128, 1128,
+     1128, 1128, 1128, 1128, 1128, 1128, 1128, 1128, 1128, 1128,
+     1128, 1128, 1128,  114,  114,  114,  114,  114,  114,  114,
+      114,  114,  114,  114,  114,  114,  114,  114,  114,  114,
+      114, 1130, 1130, 1130, 1130, 1130, 1130, 1130, 1130, 1130,
+     1130, 1130, 1130, 1130, 1130, 1130, 1130, 1130, 1130,  120,
+      120,  120,  120,  120,  120,  120,  120,  120,  120,  120,
+      120,  120,  120,  120,  120,  120,  120, 1133, 1133, 1133,
+     1133, 1133, 1133, 1133, 1133, 1133, 1133, 1133, 1133, 1133,
+     1133, 1133, 1133, 1133, 1133,  621, 1848, 1848, 1848, 1848,
+
+     1848,  621, 1848, 1848, 1848,  621, 1848,  621,  621,  621,
+      621,  621, 1138, 1138, 1138, 1138,  901, 1848, 1848, 1848,
+     1848, 1848, 1848, 1848,  901, 1848, 1848, 1848,  901,  901,
+      901,  901,  901,  129, 1848, 1848, 1848, 1848, 1848, 1848,
+     1848,  129, 1848,  129, 1848,  129,  129,  129,  129,  129,
+     1144, 1144, 1848, 1144, 1144, 1144, 1144, 1144, 1144, 1144,
+     1144, 1144, 1144, 1144, 1144, 1144, 1144, 1144,  913,  913,
+      913,  913,  913,  913,  913,  913,  913,  913,  913,  913,
+      913,  913,  913,  913,  913,  913, 1156, 1156, 1848, 1156,
+     1156, 1156, 1156, 1156, 1156, 1156, 1156, 1156, 1156, 1156,
+
+     1156, 1156, 1156, 1156,  698,  698,  698,  698,  698,  698,
+     1848,  698,  698,  698,  698,  698,  698,  698,  698,  698,
+      698,  698,  699,  699, 1848,  699,  699,  699,  699,  699,
+      699,  699,  699,  699,  699,  699,  699,  699,  699,  699,
+      697,  697,  697,  697,  697,  697,  697,  697,  697,  697,
+      697,  697,  697,  697,  697,  697,  697,  697, 1189, 1189,
+     1189, 1189, 1189, 1189, 1189, 1189, 1189, 1189, 1189, 1189,
+     1189, 1189, 1189, 1189, 1189, 1189,  224,  224,  224,  224,
+      224,  224,  224,  224,  224,  224,  224,  224,  224,  224,
+      224,  224,  224,  224, 1231, 1231, 1231, 1231, 1231, 1231,
+
+     1231, 1231, 1231, 1231, 1231, 1231, 1231, 1231, 1231, 1231,
+     1231, 1231,  236,  236,  236,  236,  236,  236,  236,  236,
+      236,  236,  236,  236,  236,  236,  236,  236,  236,  236,
+     1247, 1247, 1247, 1247, 1247, 1247, 1247, 1247, 1247, 1247,
+     1247, 1247, 1247, 1247, 1247, 1247, 1247, 1247,  316,  316,
+      316,  316,  316,  316,  316,  316,  316,  316,  316,  316,
+      316,  316,  316,  316,  316,  316, 1300, 1300, 1300, 1300,
+     1300, 1300, 1300, 1300, 1300, 1300, 1300, 1300, 1300, 1300,
+     1300, 1300, 1300, 1300,  326,  326,  326,  326,  326,  326,
+      326,  326,  326,  326,  326,  326,  326,  326,  326,  326,
+
+      326,  326, 1309, 1309, 1309, 1309, 1309, 1309, 1309, 1309,
+     1309, 1309, 1309, 1309, 1309, 1309, 1309, 1309, 1309, 1309,
+     1313, 1313, 1848, 1313, 1313, 1313, 1313, 1313, 1313, 1313,
+     1313, 1313, 1313, 1313, 1313, 1313, 1313, 1313, 1314, 1314,
+     1848, 1314, 1314, 1314, 1314, 1314, 1314, 1314, 1314, 1314,
+     1314, 1314, 1314, 1314, 1314, 1314,  111,  111, 1848,  111,
+      111,  111,  111,  111,  111,  111,  111,  111,  111,  111,
+      111,  111,  111,  111, 1315, 1315, 1315, 1315, 1315, 1315,
+     1315, 1315, 1315, 1315, 1315, 1315, 1315, 1315, 1315, 1315,
+     1315, 1315,  114,  114,  114,  114,  114,  114,  114,  114,
+
+      114,  114,  114,  114,  114,  114,  114,  114,  114,  114,
+     1317, 1317, 1317, 1317, 1317, 1317, 1317, 1317, 1317, 1317,
+     1317, 1317, 1317, 1317, 1317, 1317, 1317, 1317,  120,  120,
+      120,  120,  120,  120,  120,  120,  120,  120,  120,  120,
+      120,  120,  120,  120,  120,  120, 1320, 1848, 1848, 1848,
+     1848, 1848, 1320, 1848, 1848, 1848, 1848, 1848, 1320, 1320,
+     1320, 1320, 1320, 1325, 1325, 1848, 1325, 1325, 1325, 1325,
+     1325, 1325, 1325, 1325, 1325, 1325, 1325, 1325, 1325, 1325,
+     1325,  621, 1848, 1848, 1848, 1848, 1848, 1848,  621, 1848,
+      621, 1848, 1848,  621,  621,  621,  621,  129, 1848, 1848,
+
+     1848, 1848, 1848, 1848, 1848,  129, 1848,  129, 1848,  129,
+      129,  129,  129,  129,  624,  624,  624,  624, 1335, 1335,
+     1848, 1335, 1335, 1335, 1335, 1335, 1335, 1335, 1335, 1335,
+     1335, 1335, 1335, 1335, 1335, 1335,  698,  698,  698,  698,
+      698,  698, 1848,  698,  698,  698,  698,  698,  698,  698,
+      698,  698,  698,  698,  699,  699, 1848,  699,  699,  699,
+      699,  699,  699,  699,  699,  699,  699,  699,  699,  699,
+      699,  699, 1190, 1190, 1848, 1190, 1190, 1190, 1190, 1190,
+     1190, 1190, 1190, 1190, 1190, 1190, 1190, 1190, 1190, 1190,
+     1189, 1189, 1189, 1189, 1189, 1189, 1189, 1189, 1189, 1189,
+
+     1189, 1189, 1189, 1189, 1189, 1189, 1189, 1189,  224,  224,
+      224,  224,  224,  224,  224,  224,  224,  224,  224,  224,
+      224,  224,  224,  224,  224,  224, 1399, 1399, 1399, 1399,
+     1399, 1399, 1399, 1399, 1399, 1399, 1399, 1399, 1399, 1399,
+     1399, 1399, 1399, 1399,  236,  236,  236,  236,  236,  236,
+      236,  236,  236,  236,  236,  236,  236,  236,  236,  236,
+      236,  236, 1407, 1848, 1407, 1848, 1848, 1848, 1848, 1407,
+     1848, 1848, 1407, 1407, 1407, 1407, 1407, 1407, 1410, 1410,
+     1410, 1410, 1410, 1410, 1410, 1410, 1410, 1410, 1410, 1410,
+     1410, 1410, 1410, 1410, 1410, 1410, 1452, 1452, 1452, 1452,
+
+     1452, 1452, 1452, 1452, 1452, 1452, 1452, 1452, 1452, 1452,
+     1452, 1452, 1452, 1452,  316,  316,  316,  316,  316,  316,
+      316,  316,  316,  316,  316,  316,  316,  316,  316,  316,
+      316,  316, 1454, 1454, 1454, 1454, 1454, 1454, 1454, 1454,
+     1454, 1454, 1454, 1454, 1454, 1454, 1454, 1454, 1454, 1454,
+      326,  326,  326,  326,  326,  326,  326,  326,  326,  326,
+      326,  326,  326,  326,  326,  326,  326,  326,  111,  111,
+     1848,  111,  111,  111,  111,  111,  111,  111,  111,  111,
+      111,  111,  111,  111,  111,  111,  114,  114,  114,  114,
+      114,  114,  114,  114,  114,  114,  114,  114,  114,  114,
+
+      114,  114,  114,  114,  120,  120,  120,  120,  120,  120,
+      120,  120,  120,  120,  120,  120,  120,  120,  120,  120,
+      120,  120, 1320, 1848, 1848, 1848, 1848, 1848, 1320, 1848,
+     1848, 1848, 1848, 1848, 1320, 1320, 1320, 1320, 1320, 1463,
+     1848, 1463, 1848, 1848, 1848, 1848, 1463, 1848, 1848, 1463,
+     1463, 1463, 1463, 1463, 1463, 1513, 1848, 1513, 1848, 1848,
+     1848, 1848, 1513, 1848, 1848, 1513, 1513, 1513, 1513, 1513,
+     1513,  472,  472,  472,  472,  472,  472,  472,  472,  472,
+      472,  472,  472,  472,  472,  472,  472,  472,  472, 1595,
+     1595, 1595, 1595, 1595, 1620, 1620, 1848, 1620, 1620, 1620,
+
+     1620, 1620, 1620, 1620, 1620, 1620, 1620, 1620, 1620, 1620,
+     1620, 1620,  649,  649,  649,  649,  649,  649,  649,  649,
+      649,  649,  649,  649,  649,  649,  649,  649,  649,  649,
+     1660, 1660, 1660, 1660, 1660, 1660, 1660, 1660, 1660, 1660,
+     1660, 1660, 1660, 1660, 1660, 1660, 1660, 1660, 1701, 1701,
+     1701, 1701, 1701, 1701, 1701, 1701, 1701, 1701, 1701, 1701,
+     1701, 1701, 1701, 1701, 1701, 1701, 1721, 1721, 1721, 1721,
+     1721, 1721, 1721, 1721, 1721, 1721, 1721, 1721, 1721, 1721,
+     1721, 1721, 1721, 1721, 1722, 1722, 1722, 1722, 1722, 1722,
+     1722, 1722, 1722, 1722, 1722, 1722, 1722, 1722, 1722, 1722,
+
+     1722, 1722, 1728, 1728, 1728, 1728, 1728, 1728, 1728, 1728,
+     1728, 1728, 1728, 1728, 1728, 1728, 1728, 1728, 1728, 1728,
+     1746, 1746, 1746, 1746, 1746, 1746, 1746, 1746, 1746, 1746,
+     1746, 1746, 1746, 1746, 1746, 1746, 1746, 1746, 1755, 1755,
+     1755, 1755, 1755, 1755, 1755, 1755, 1755, 1755, 1755, 1755,
+     1755, 1755, 1755, 1755, 1755, 1755, 1758, 1758, 1758, 1758,
+     1758, 1758, 1758, 1758, 1758, 1758, 1758, 1758, 1758, 1758,
+     1758, 1758, 1758, 1758, 1799, 1799, 1799, 1799, 1799, 1799,
+     1799, 1799, 1799, 1799, 1799, 1799, 1799, 1799, 1799, 1799,
+     1799, 1799, 1820, 1820, 1820, 1820, 1820, 1820, 1820, 1820,
+
+     1820, 1820, 1820, 1820, 1820, 1820, 1820, 1820, 1820, 1820,
+       15, 1848, 1848, 1848, 1848, 1848, 1848, 1848, 1848, 1848,
+     1848, 1848, 1848, 1848, 1848, 1848, 1848, 1848, 1848, 1848,
+     1848, 1848, 1848, 1848, 1848, 1848, 1848, 1848, 1848, 1848,
+     1848, 1848, 1848, 1848, 1848, 1848, 1848, 1848, 1848, 1848,
+     1848, 1848, 1848, 1848, 1848, 1848, 1848, 1848, 1848, 1848,
+     1848, 1848, 1848, 1848, 1848, 1848, 1848, 1848, 1848, 1848,
+     1848, 1848, 1848, 1848, 1848, 1848, 1848, 1848, 1848, 1848,
+     1848, 1848, 1848, 1848, 1848, 1848, 1848, 1848, 1848, 1848,
+     1848
+
     } ;
 
-static yyconst flex_int16_t yy_chk[4102] =
+static yyconst flex_int16_t yy_chk[9292] =
     {   0,
         1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
@@ -7707 +9600 @@
         1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
         1,    1,    1,    1,    1,    1,    1,    1,    1,    1,
-        1,    1,    1,    1,    1,    1,    1,    1,    1,    2,
-        2,    2,    2,   74,    8,    8,    8,    8,   10,   15,
-
-       15,   15, 1083,   14,   16,   16,   16,    2,    2,    2,
-        2,    2,    2,    2,    2,    2,    2,   14,   70,   17,
-     1081,   10,   74,   70,    2,    2,   71,   75,    2,    8,
-        2,    8,   14,   17,   18,   19,   21,   15,   20,   22,
-      551,    2,    2,  551, 1069,   14,   22,   22,   17,   19,
-       10,   15,   20,    2,    2,   75,   80,    2,    8,    2,
-        8,   17,   84,   23,   19,   30,   15,   20,   18,    2,
-        2,   71,   24,   21,   26,   30,   22,   19,   81,   15,
-       20,   25,   18,  116,   23,   80,   24,   21,   26,   30,
-       22,   84,   28,   85,  100,   31, 1051,   18,   23,   71,
-
-      624,   24,   21,   26,   30,   22,   81,   25,  624,   31,
-       18,   32,  116,   23,   24,   21,   26,   30,   22,   28,
-       84,   25,  100, 1047,   31,   32,   23,   56,   56,   56,
-       76,   76,   76,   28,  101,  105,   25,   31,  106,   85,
-       32,  179,   69,   69,   69,   33, 1006,  179,   28,   25,
-       27,   33,   27,   32,   77,   77,   77,   78,   78,   78,
-     1000,   28,  101,  105,  914,   33,  106,   85,   27,   27,
-       27,   27,   27,   27,   27,   27,   27,   27,   34,   69,
-       33,   35,   35,   27,  120,   35,   41,   27,   27,   27,
-      868,   35,   34,   33,   27,   41,   27,   27,   35,   35,
-
-       41,  862,   27,  123,   89,  861,   27,   34,   69,  796,
-       35,   35,   27,  120,   35,   41,   27,   27,   27,   35,
-       34,  114,   27,   41,   27,   27,   35,   35,   41,   88,
-       27,   36,  123,   42,   27,   29,   36,   29,   29,   29,
-       29,   29,   29,   29,   29,   29,   29,   42,  794,  114,
-       36,   90,  337,   89,  337,   29,   29,   29,   90,   90,
-       36,   88,   42,  115,  117,   36,  104,  786,   29,  121,
-      122,   29,  126,   44,  109,   42,  104,   54,   36,   38,
-       38,   89,   44,   38,   29,   29,   29,   44,  109,   38,
-       88,  115,  117,   38,   38,  104,   29,  121,  122,   29,
-
-       37,  126,   44,  109,  104,   37,   54,   37,   38,   38,
-       44,   37,   38,  785,   37,   44,  109,   38,   92,   37,
-       54,   38,   38,  778,   37,   92,   92,  660,  777,   37,
-      186,  186,  186,  660,   37,   54,   37,   43,  693,   37,
-      132,   45,   37,  692,   43,   43,   45,   37,   54,   45,
-      690,   43,   37,   39,  625,   45,   72,   72,   72,   39,
-       45,   39,   39,  625,   39,   39,   43,   39,   72,  132,
-       45,   39,   43,   43,  124,   45,  102,  689,   45,   43,
-      689,  678,   39,   45,  211,  211,  211,   39,   45,   39,
-       39,  102,   39,   39,   72,   39,  119,   49,   49,   39,
-
-       40,  664,  124,   40,  635,  102,   40,   40,   72,   40,
-       46,  753,   49,  119,   40,   40,  128,  143,   46,  102,
-      753,   46,   46,   72,   46,  119,   49,   49,  118,   40,
-       46,  558,   40,  103,   40,   40,   72,   40,  118,   46,
-       49,  119,   40,   40,  128,   47,  143,   46,  103,   46,
-       46,   48,   46,   47,  129,   47,   48,  118,   46,   47,
-       47,   52,  103,  130,  131,   48,  118,  133,   48,   52,
-       48,   48,  661,  553,   47,   52,  103,  534,  661,  134,
-       48,   47,  129,   47,  519,   48,  135,   47,   47,  137,
-       52,  130,  131,   48,   95,  133,   48,   52,   48,   48,
-
-       50,   95,   95,   52,   50,   50,   51,  134,   50,  496,
-       53,   51,   53,   51,  135,  487,   50,  137,  139,   50,
-       50,  140,   53,   51,   53,   51,  224,  224,  224,   50,
-      401,  399,  146,   50,   50,   51,  141,   50,  144,   53,
-       51,   53,   51,   95,   50,   60,  139,   50,   50,  140,
-       53,   51,   53,   51,   55,   55,   55,   55,   57,   57,
-       58,  146,   55,  392,  141,   58,  144,  338,  138,  338,
-      147,   95,   60,  390,  138,   57,   57,   57,   57,   57,
-       57,   57,   57,   57,   57,  148,   60,  149,  159,   55,
-       55,   65,   55,   55,   62,   55,  138,   58,  147,   65,
-
-       62,   60,  138,   62,   65,   65,   55,   55,   62,  365,
-      150,   58,  362,  148,   60,  340,  149,  159,   55,   55,
-       65,   55,   55,   62,   55,  151,   58,   65,   62,  336,
-      247,   62,   65,   65,   55,   55,   62,   63,  150,   58,
-       59,   91,   91,   91,   63,   63,   59,  244,  243,   91,
-       91,   63,  242,  151,   59,  241,   59,   59,   59,   59,
-       59,   59,   59,   59,   59,   59,   63,   99,   99,  142,
-       94,  142,   63,   63,   59,   59,   59,   94,   94,   63,
-       99,  152,  125,  125,  153,  154,  155,   59,  125,  157,
-       59,  161,  213,  511,  163,  511,   99,   99,  164,  210,
-
-      166,  127,   94,   59,   59,   59,  127,  170,   99,  152,
-      125,  125,  153,  154,  155,   59,  125,  157,   59,   61,
-      161,  142,  163,   61,   61,  204,  164,   61,  166,  860,
-      127,   94,  189,   61,  182,  127,  170,   61,   61,  158,
-       64,  178,  158,  136,  165,   64,  145,   64,   61,  142,
-      136,  165,   61,   61,  136,  171,   61,   64,  145,   64,
-      145,   61,  182,  145,   64,   61,   61,  158,   87,   64,
-      158,   86,  136,  165,   64,  145,   64,   82,  136,  165,
-       67,  512,  136,  512,  171,   64,  145,   64,  145,  860,
-       13,  145,   64,   73,   73,   73,   73,   73,   73,   73,
-
-       73,   73,   73,   73,   73,   73,   73,   73,   73,   73,
-       73,   73,   73,   73,   73,   73,   73,   73,   73,   73,
-       73,   73,   73,   73,   73,   73,   73,   73,   73,   73,
-       73,   73,   73,   73,   73,   73,   73,   73,   73,   73,
-       73,   73,   73,   73,   73,   73,   73,   73,   73,   73,
-       73,   73,   73,   73,   73,   73,   73,   73,   73,   73,
-       73,   73,   73,   73,   73,   73,   73,   73,   73,   73,
-       73,   73,   73,   73,   73,   73,   73,   73,   73,   73,
-       73,   73,   98,  110,   98,  110,    7,  156,  110,  110,
-      110,  110,  110,  110,  110,  110,  110,  110,  160,  366,
-
-      366,  366,  156,  183,  160,  172,  528,  168,  528,  169,
-      173,  174,    0,  169,  173,   98,  156,  185,  168,   98,
-      181,   98,  866,  530,  196,  530,   98,  160,   98,   98,
-      156,  183,  160,  162,  172,  162,  168,  169,   98,  173,
-      174,  169,    0,  173,   98,  185,  168,    0,   98,  181,
-       98,  162,  162,  196,   98,  162,   98,   98,  176,  199,
-      176,    0,  162,  191,  162,    0,   98,  108,  108,  108,
-      108,  108,  108,  108,  108,  108,  108,  167,  180,  162,
-      162,  184,  866,  162,  203,  108,  108,  199,  184,  192,
-      200,  167,  180,  193,  167,  191,  176,  231,  108,  202,
-
-        0,  207,  215,    0,  231,  231,  167,  180,    0,  184,
-      176,  187,  187,  203,  108,  108,  184,  208,  200,  167,
-      180,  192,  167,    0,  191,  176,  108,  202,  187,  187,
-      187,  187,  187,  187,  187,  187,  187,  187,  176,  188,
-      197,  651,  193,  651,  239,  188,  207,  197,  222,  208,
-      192,  215,  223,    0,    0,  188,  188,  188,  188,  188,
-      188,  188,  188,  188,  188,  194,  198,  198,  197,  214,
-      193,  194,  198,  239,  207,  197,  222,    0,  208,  215,
-      223,  194,  194,  194,  194,  194,  194,  194,  194,  194,
-      194,  195,  209,  225,  198,  198,  216,  195,    0,  240,
-
-      198,  214,  206,  206,  206,  195,  201,  195,  195,  195,
-      195,  195,  195,  195,  195,  195,  195,  226,  201,  246,
-      201,  225,  227,  201,  229,  195,  195,  209,  216,  221,
-      214,  221,    0,    0,  258,  201,  234,  240,  195,  206,
-      230,    0,  228,  234,  234,  226,  201,  246,  201,    0,
-      652,  201,  652,    0,  195,  195,  209,  216,  221,    0,
-      221,  245,  227,  258,    0,  240,  195,  229,  206,  217,
-      217,  217,  217,  217,  217,  217,  217,  217,  217,  217,
-      217,  217,  217,  217,  217,  217,  217,  217,  220,  219,
-      227,  228,  230,  248,  245,  229,  254,  255,  217,  217,
-
-      217,  217,  217,  219,  237,  220,  232,  232,  232,  256,
-      257,  237,  237,  259,  232,  232,    0,  220,  219,  228,
-      230,  248,  245,    0,  254,  255,  233,  233,  233,  217,
-      217,  219,    0,  220,  233,  233,  236,  256,  257,    0,
-      238,  259,  238,  236,  236,  238,  238,  238,  238,  238,
-      238,  238,  238,  238,  238,  260,  237,  217,  218,  218,
-      218,  218,  218,  218,  218,  218,  218,  218,  218,  218,
-      218,  218,  218,  218,  218,  218,  218,  261,  262,  236,
-      378,  378,  378,  260,  237,    0,    0,  218,  218,  218,
-      218,  218,  218,  251,  251,  251,  251,  251,  251,  251,
-
-      251,  251,  251,  263,  264,  261,  262,  236,  252,  252,
-      252,  252,  252,  252,  252,  252,  252,  252,  218,  218,
-      253,  218,  253,  547,  547,  547,    0,    0,  266,  267,
-      253,  263,  264,  265,  268,  269,  265,    0,  270,  271,
-      272,  273,  274,    0,    0,  266,  218,  250,  250,  250,
-      250,  250,  250,  250,  250,  250,  250,  266,  267,  277,
-      281,  265,  268,  269,  265,  250,  250,  270,  271,  272,
-      273,  274,  276,  266,  276,  282,  283,  278,  250,  278,
-        0,    0,  279,  279,  284,  285,  286,  285,  277,  281,
-      287,    0,  289,  290,  250,  250,  291,  292,  288,  293,
-
-      288,  295,    0,  276,  282,  283,  250,  275,  278,  275,
-      279,  279,  284,  294,  286,  299,  285,    0,  298,  287,
-      289,  290,    0,  300,  291,  292,  294,  293,  302,    0,
-      295,  296,  301,  296,  301,    0,  303,  297,  275,  297,
-      304,  296,  294,  275,  299,  275,  298,  297,  275,    0,
-      288,  300,  275,  306,  294,  275,  305,  302,  275,  275,
-      308,    0,  275,  301,  303,  309,  310,  312,  304,  313,
-      315,  311,  275,  316,  275,  296,  317,  275,  288,  311,
-      275,  297,  306,  275,  305,  296,  275,  275,  318,  308,
-      275,  297,  314,  309,  310,  319,  312,  313,  315,  311,
-
-      314,  316,  320,  296,  317,  321,  322,  311,  323,  297,
-      324,  325,  326,  296,  328,  329,  327,  318,  327,  297,
-      330,  314,  331,  332,  319,  333,  327,  334,  314,  335,
-      339,  320,  341,  321,  342,  322,  323,  343,  324,  325,
-      326,  344,  345,  328,  329,  346,  347,  352,  330,    0,
-      331,  332,    0,  333,  351,  334,  363,  335,  339,  348,
-      341,  348,  342,  353,    0,  343,  355,  356,  358,  344,
-      345,  357,  359,  346,  376,  347,  369,  348,  348,  348,
-      348,  348,  348,  348,  348,  348,  348,  349,  357,  869,
-      352,  361,  351,  349,  363,  355,  356,  358,  371,    0,
-
-      357,  359,  376,  349,  349,  349,  349,  349,  349,  349,
-      349,  349,  349,  350,  368,  353,  357,  370,  352,  350,
-      361,  351,  377,  363,  379,  383,    0,  371,  369,  350,
-      350,  350,  350,  350,  350,  350,  350,  350,  350, 1005,
-        0,  360,  372,  353,  354,  364,  364,  364,  381,  869,
-      354,  377,  379,  372,  360,  370,  369,  368,  354,  373,
-      354,  354,  354,  354,  354,  354,  354,  354,  354,  354,
-      360,  372,  374,  380,  384,  383,  382,  373,  354,  354,
-        0,  372,  360,  375,  370,  368,  364,  406,  373,  385,
-      398,  354,  374,  405,  375,  381,  385,  385,  653, 1005,
-
-      653,  374,  380,  383,    0,  373,  386,  354,  354,  382,
-      384,    0,  375,  386,  386,  364,  406,  387,  398,  354,
-      374,  405,  375,  381,  387,  387,  388,  388,  388,  388,
-      388,  388,  388,  388,  388,  388,  408,  410,  382,  384,
-      389,  389,  389,  389,  389,  389,  389,  389,  389,  389,
-      402,  411,  402,  387,  413,    0,  386,  414,    0,  415,
-      402,  416,  417,  418,  420,  408,  410,  421,  422,  423,
-      424,  425,  426,  429,  426,  430,  431,    0,  432,  411,
-      433,  435,  387,  413,  386,  436,  414,  415,  434,  416,
-      417,  439,  418,  420,  442,  421,  422,  423,  424,  425,
-
-      437,  429,  437,  430,  434,  431,  432,  444,  433,  435,
-      440,  446,  440,  426,  436,  447,  445,  434,  445,  439,
-      450,  448,  442,  448, 1009,  451,  452,  426,  454,    0,
-      457,  437,  434,  455,  456,  444,  458,  459,  460,  446,
-      464,  440,  426,  458,  447,  463,  468,  445,  467,  450,
-        0,  469,  448,  451,  452,  426,  427,  454,  427,  457,
-      470,  455,  456,    0,  480,  458,  459,  460,  461,  464,
-      461,  458,  465,  463,  465,  468,  467,  478,  461,  469,
-      483,  472,  465,  472, 1009,  479,  481,  427,  470,  482,
-      484,  475,  427,  480,  427,  485,  493,  427,  503,  475,
-
-      488,  427,    0,  489,  427,  478,  490,  427,  427,  483,
-      491,  427,  472,  479,  481,    0,    0,  482,  484,    0,
-      506,  427,  506,  427,  485,  493,  427,  503,  488,  427,
-      475,  489,  427,  499,  490,  427,  427,    0,  491,  427,
-      443,  443,  443,  443,  443,  443,  443,  443,  443,  443,
-      443,  506,  443,  443,  443,  443,  443,  443,  443,  475,
-      507,  499,  508,  509,  494,  500,  494,  500,  513,  443,
-      443,  443,  443,  443,  494,  500,  514,  515,  516,  517,
-      518,  523,  524,  655,  535,  655,  525,    0,  667,  507,
-      667,  508,  509,  520,  529,  520,  527,  513,  563, 1031,
-
-      443,  443,  529,  540,  514,  531,  515,  516,  517,  518,
-      537,  520,  520,  520,  520,  520,  520,  520,  520,  520,
-      520,  521,  525,  529,  527,  545,  563,  521,  443,  565,
-      523,  529,  524,  535,  531,    0,    0,  521,  521,  521,
-      521,  521,  521,  521,  521,  521,  521,  522,    0,  538,
-      539,  525,  540,  522,  545,  537,  568,  565,  523, 1031,
-      524,  535,    0,  522,  522,  522,  522,  522,  522,  522,
-      522,  522,  522,  526,  532,  536,  536,  536,    0,  526,
-      540,  532,  548,  537,  568,  532,  539,  526,  541,  526,
-      526,  526,  526,  526,  526,  526,  526,  526,  526,  538,
-
-      533,    0,  533,  532,  552,  550,  541,  526,  526,  532,
-      533,  548,  561,  532,  533,  539,  536,  541,  542,    0,
-      526,  543,  542,  554,  544,  543,  562,  538,  544,  566,
-      554,  554,  569,  576,  541,  555,  526,  526,  550,  577,
-      552,  561,  555,  555,  570,  536,  571,  542,  526,  573,
-      543,  542,  574,  544,  543,  562,  575,  544,  566,  554,
-        0,  569,  576,  581,  659,  659,  659,  550,  577,  552,
-        0,  578,  570,  578,  571,    0,  641,  573,  641,  579,
-      574,  580,    0,  582,  575,  583,  641,  584,  554,  564,
-      564,  581,  564,  564,  564,  564,  564,  564,  564,  564,
-
-      564,  564,  564,  564,  564,  564,  564,  564,  579,  585,
-      580,  582,  578,  586,  583,  584,  587,  588,  564,  564,
-      564,  564,  564,  590,  592,    0,  578,  593,  594,  586,
-      595,    0,  596,  597,  598,  608,  599,  585,  599,    0,
-      602,  578,  586,  603,  587,  603,  588,  607,  613,  564,
-      564,  590,  610,  592,  578,  593,  594,  586,  611,  595,
-      596,  614,  597,  598,  608,  615,  616,  599,  602,  617,
-      618,    0,  619,  620,  603,  607,  613,  564,  621,  622,
-      623,  610,  626,    0,  627,  628,  630,  611,  632,  633,
-      614,  634,  639,  615,  616,  636,  637,  638,  617,  618,
-
-      619,  640,  620,  644,  645,  646,  621,  646,  622,  623,
-      654,  626,  627,  656,  628,  630,  632,  657,  633,  662,
-      634,  639,  663,  636,  637,  638,  666,  668,  669,  640,
-      669,  644,  645,  658,  670,  658,  646,  671,  672,  654,
-      672,  676,  656,  658,  681,  657,  675,  658,  672,  674,
-      683,  674,  672,  679,  677,  666,  668,  700,  663,  662,
-      694,    0,  670,  674,  695,  680,  671,  694,  694,  680,
-      696,  695,  695,  681,  701,  703,    0,  696,  696,  683,
-      771,  738,  771,  738, 1082,  700,  675,  663,  662,  665,
-      677,  738,  676,  679,  680,  665,    0,  704,  680,  706,
-
-      707,  708,  701,  665,  703,  665,  665,  665,  665,  665,
-      665,  665,  665,  665,  665,  675,  709,    0,  710,  677,
-      676,  711,  679,  665,  665,  704,  714,  706,  707,  708,
-      715,  717,    0,  719,  721,    0,  665,  762,    0,  762,
-      770,  781,  770,  781, 1082,  709,  710,  762,  770,  858,
-      711,  858,  665,  665,  712,  714,  712,  722,  723,  715,
-      717,  719,  724,  721,  665,  682,  682,  682,  682,  682,
-      682,  682,  682,  682,  682,  682,  682,  682,  682,  682,
-      682,  682,  682,  682,  725,  722,  723,  726,  727,  712,
-      729,  724,  728,  730,  682,  682,  682,  682,  682,  731,
-
-      732,    0,  712,  733,  734,  735,  737,  735, 1084,  739,
-      740,  741,  725,  742,    0,  743,  726,  727,  712,  729,
-      728,  745,  730,  746,  752,  682,  682,  731,  756,  732,
-      712,  733,  734,    0,    0,  737,  735,  739,    0,  740,
-      741,  755,  742,  743,  757,  775,  775,  775,  833,  745,
-      833,  746,  752,  682,  686,  686,  686,  756,  833,  686,
-      686,  751,  686,  751,    0,    0,  686,  686, 1084,  755,
-      686,    0,  757,  686,  686,  686,  686,  686,  686,  686,
-      686,  686,  699,  699,  776,  699,  699,  699,  699,  699,
-      699,  699,  699,  699,  699,  699,  699,  699,  699,  699,
-
-      699,  758,  759,  783,  760,  763,    0,  768,  773,  751,
-      772,  699,  699,  699,  699,  699,  767,  774,  767,  779,
-      782,  776,  784,  787,  780,  789,  791,  791,  791,  758,
-      802,  759,  760,  810,  763,  768,  773,  751,  803,  772,
-      783,    0,  699,  699,  804,  806,  774,  807,  779,  782,
-      776,  767,  780,  808,  789,  797,  812,  798,  784,  802,
-      787,  810,  797,  797,  798,  798,  864,  803,  864,  783,
-      699,    0,    0,  804,  806,    0,  807,  811,    0,  811,
-      767,  801,  808,  813,  812,  801,  815,  784,  816,  787,
-      788,  788,  788,  788,  788,  788,  788,  788,  788,  788,
-
-      788,  788,  788,  788,  788,  788,  788,  788,  788,  817,
-      801,  813,  811,  819,  801,  815,  816,  818,  820,  788,
-      788,  788,  788,  788,  821,  811,  822,    0,  823,  824,
-      825,  826,  827,    0,  828,  830,  831,  840,  817,  832,
-     1085,  811,  819,  835,  836,  818,  842,  820,  842,  843,
-      788,  788,  821,  811,  844,  822,  823,  824,  825,  826,
-      846,  827,  828,  847,  830,  831,  840,  832,  834,  834,
-      834,  835,  836,  851,  852,  851,  834,  843,  788,  834,
-      853,  855,  844,  851,  854,  856,  854,  857,  846,  859,
-      867,  865,  847,  863,  842,  870,  871,    0,  873,  874,
-
-     1085,  875,  876,  852,  878,  879,  880,  881,  853,  882,
-      855,  883,    0,  884,  856,  857,  885,  889,  859,  854,
-      865,  863,  842,  886,  870,  871,  873,  887,  874,  875,
-      876,  888,  878,  879,  880,  881,  890,  882,  896,  867,
-      883,  884,  892,  893,  894,  885,  889,  895,  854,  897,
-      899,  886,  901,  901,  901,  887,  903,  903,  903,  888,
-      901,  909,    0,  901,  890,  910,  896,  867,    0,  908,
-      915,  892,  893,  894,  913,  916,  895,  897,  899,  902,
-      902,  902,  917,  904,  904,  904,  918,  902,  919,  909,
-      902,  904,  920,  910,  904,  905,  905,  905,  908,  915,
-
-      921,  922,  913,  905,  916,  924,  905,  925,  926,  927,
-      917,  928,  929,  932,  918,    0,  919,  933,    0,  935,
-      936,  920,  937,  938,  939,  941,  940,  942,  940,  943,
-      922,  944,  945,  947,  924,  921,  940,  949,  951,  928,
-      929,  932,  952,  925,  927,  926,  933,  935,    0,  936,
-      937,    0,  938,  939,  941,  961,  942,  960,  943,  944,
-      945,  947,    0,    0,  921,  949,  951,  953,  953,  953,
-      965,  952,  925,  927,  926,  954,  954,  954,  970,  955,
-      955,  955,  963,  954,  961,  960,  954,  955,  966,  973,
-      955,  956,  956,  956,  967,  957,  957,  957,  965,  956,
-
-      969,  975,  956,  957,  971,  974,  957,  958,  958,  958,
-      976,  963,  977,  980,  977,  958,  981,  966,  958,    0,
-      982,  983,  977,  967,  970,  984,  985,  984,  985,  969,
-      987,  989,  971,  991,  973,  984,  985,  974,  994,  976,
-      992,  980,  995, 1008, 1007,  981,    0,  975,  982,  998,
-      983,    0,  970,  996,  996,  996,  999, 1001,  987,  989,
-     1013,  991,  973, 1016, 1014, 1015,  974,  994,  992, 1017,
-     1019,  995,  997,  997,  997,  975, 1021, 1008,  998, 1007,
-      997, 1032, 1011,  997, 1011,  999, 1001, 1012, 1013, 1012,
-     1025, 1016, 1011, 1014, 1015, 1026, 1029, 1017, 1027, 1019,
-
-     1012, 1030, 1012, 1033, 1021, 1037, 1008, 1036, 1007, 1023,
-     1023, 1023, 1024, 1024, 1024,    0, 1038, 1032, 1012, 1025,
-     1024, 1039, 1042, 1024, 1026, 1034, 1027, 1034, 1045, 1030,
-     1041, 1048, 1035, 1037, 1035, 1052, 1036, 1046, 1034, 1050,
-     1034, 1029, 1056, 1035, 1038, 1035, 1032, 1035, 1033, 1059,
-     1039, 1042, 1043, 1043, 1043, 1049, 1034, 1045, 1041, 1044,
-     1044, 1044, 1053, 1035, 1053, 1046, 1055, 1044, 1058, 1029,
-     1044, 1056, 1063, 1053, 1050, 1068, 1033, 1048, 1059, 1064,
-     1065, 1052,    0, 1049, 1062, 1062, 1062, 1066, 1071, 1067,
-        0, 1073, 1062,    0, 1055, 1062, 1058, 1074,    0, 1079,
-
-     1063, 1099, 1109, 1050, 1093, 1048,    0, 1064, 1065, 1052,
-     1061, 1061, 1061, 1095,    0, 1061, 1061, 1067, 1061, 1073,
-     1086, 1068, 1061, 1061, 1080, 1074, 1061, 1079, 1090, 1061,
-     1061, 1061, 1061, 1061, 1061, 1061, 1061, 1061, 1066, 1071,
-     1076, 1076, 1076, 1077, 1077, 1077,    0, 1094, 1086, 1068,
-     1099, 1077, 1096, 1080, 1077, 1093, 1104, 1090, 1095, 1101,
-     1102, 1105, 1109,    0, 1111,    0, 1066, 1071, 1078, 1078,
-     1078, 1100, 1113, 1078, 1078, 1094, 1078, 1103, 1099, 1078,
-     1078, 1078, 1106, 1093, 1078, 1104, 1095, 1078, 1078, 1078,
-     1078, 1078, 1078, 1078, 1078, 1078, 1088, 1088, 1088, 1100,
-
-     1089, 1089, 1089, 1096, 1088, 1101, 1107, 1088, 1089, 1102,
-     1108, 1089, 1105, 1103, 1110, 1111, 1112, 1114, 1106, 1115,
-     1115, 1115, 1117, 1113, 1116, 1116, 1116, 1118, 1118, 1118,
-     1123, 1096, 1126, 1101, 1119, 1119, 1119, 1102, 1107, 1108,
-     1105, 1127, 1103, 1111, 1112,    0, 1110, 1106, 1121, 1121,
-     1121, 1113, 1124, 1124, 1124, 1128, 1128, 1128, 1129, 1129,
-     1129,    0,    0,    0, 1126,    0, 1123, 1107, 1114,    0,
-        0, 1117,    0,    0,    0, 1110,    0,    0,    0,    0,
+        2,    2,    2,    2, 1794,    8,    8,    8,    8,    9,
+        9,    9,   10,   10,   10,   16,  102,   72,    9,   72,
+
+       17,   10,   17,   19,   21,   20,    2,    2, 1793,   16,
+        2,    8,    2,    8, 1869, 1869,   70,   19,   21,   24,
+       22,   70, 1772,    2,   16,  102,   24,   24, 1748,   17,
+       20,  108,   19,   21,   22,    2,    2,   16,  104,    2,
+        8,    2,    8,   17,   20,   19,   21,   24, 1746,   22,
+       27,    2,    6,    6,    6,    6,   26,   71,   17,   20,
+      108,   24,   22,   28,   32,  112,  104,   27, 1722,  109,
+       26,   17,   20,   33,   32, 1721,   24,   28,    6,    6,
+     1715,   27,    6,  120,    6,   26,  113,   33,   32,   24,
+      120,  120,   28,   71,  112,    6,   27,  109,   26,  110,
+
+     1696,  110,   33,   32,   98,   28,   98,    6,    6,   27,
+      242,    6,  242,    6,  113,   33,   32,   59,   59,   59,
+       59,   71,   98,    6,   11,   11,   11,   11,   11,   11,
+       11,   11,   11,   11,   11,   11,   11,   11,   11,   11,
+       11,   11,   11,   11,   11,   11,   11,   11,   11,   11,
+       11,   11,   11,   11,   11,   11,   11,   11,   11,   11,
+       11,   11,   11,   11,   11,   11,   11,   11,   11,   11,
+       11,   11,   11,   11,   11,   11,   11,   11,   11,   11,
+       11,   11,   11,   11,   11,   11,   11,   11,   11,   11,
+       11,   11,   11,   11,   11,   11,   11,   11,   11,   11,
+
+       11,   11,   11,   11,   12,   12,   12,   12,   34,   23,
+       23,   23,   23,  116, 1695,   34,   12,  100,  150,  100,
+      150,  314,   12,  150, 1690,   36,   25,  158,   25,   34,
+       12,   12,   36,  116,   12,  100,   12,  314,   23,   25,
+      106,   25,  106,   25,   34,  135,   36,   12,  118,  118,
+      118,  118,   23,  117,   44,   25,  158,   34,  106,   12,
+       12,   36,  116,   12,  107,   12,  107,   23,   44,   25,
+     1687, 1671,  136,  135,   36,   12,   14,   14,   14,   14,
+       23, 1659,  107,   44,   25, 1658,  162,   30,   30,   30,
+      117,  584,  164,  107,   14,   30,   44,   25,   30,   31,
+
+      136,   31,   14,   14,   30,  140,   14,  584,   14,   30,
+       31,   31,   31,   35,   35,  162,   30,  122,  117,   14,
+       35,  164,  107,   31,  122,  122,   31,   52,   52,  797,
+       30,   14,   14,  140,   35,   14,  124,   14,  167,   31,
+       31,   31,   52,  124,  124,   30,  797,   14,   29,   35,
+       29,   31,   37, 1653,   31,   37,   52,   52,   30,  124,
+       57,   37,   35,  764,  141,  764,   29,  167,   37,   37,
+       52,  159,   29,   43,   38,  137,   29,   29,   29,   38,
+       57,   37,   43,   29,   37,   29,   29,   43,  124,   37,
+      137,   29,  141,   38,   57,   29,   37,   37,  359,  159,
+
+      359,   29,   43,   38,  137,   29,   29,   29,   38,   57,
+       43,   29,  359,   29,   29,   43,  160,  172,  137,   29,
+      189,   38,   57,   29,   39,   46,   40,   40,   46,   39,
+       40,   39,   47,   47,  893,   39,   40,  893,   39,   46,
+       60,   40,   47,   39,  160,   60,  172,   47,   39,  189,
+      161, 1652,  163,   39,   46,   40,   40,   46,   39,   40,
+       39,   47,   47,   39,   40,   45,   39,   46,   60,   40,
+       47,   39,   45,   45,   45,   47,   39,   41,  161,   45,
+      163,  165,   60,   41, 1398,   41,   41,  169,   41,   41,
+       61,   41,  171, 1647,   45,   41,  201,   60, 1626,  207,
+
+       45,   45,   45,  766, 1619,  766,   41,   45,   61,  165,
+       60,   41,   48,   41,   41,  169,   41,   41,  173,   41,
+      171,   48,   61,   41,   42,  201,   48,   42,  207, 1611,
+       42,   42,  126,   42,  126, 1398,  138,   61,   42,   42,
+     1610,   48,  139,   49,  209,  126,  173,  126,   49,   48,
+       61,  138,  139,   42,   48,   49,   42,   49,   42,   42,
+       50,   42,   49,   49,   51,  138,   42,   42,   50,  174,
+       50,  139,   49,  209,   50,   50,   51,   49,   51,  138,
+      139,   51,  210,   49,   51,   49,  883,  883,  883,   50,
+       49,   49, 1608,   51,   77,  175,   50,  174,   50,  121,
+
+      121,  121,   50,   50,   51, 1606,   51,  121,  121,   51,
+       53,  210,   51,   54,   53,   53,  134,   77,   54,   56,
+       54,   56,   77,  175,   53,  134,  134,   55, 1602,   53,
+       53,   56,   54,   56,  177,   55,   77,  178,  134,   53,
+       55,   55,   54,   53,   53, 1599,   77,   54,   56,   54,
+       56,   77,   53, 1598,  134,  134,   55,   53,   53,   56,
+       54,   56,  177,   55,   77,  178,  134,  179,   55,   55,
+       58,   58,   58,   58,   62,   63, 1536,  180,   62,   62,
+     1535,   63,   62,  315,   63,  315,  166,  166,   62,   63,
+       69,   69,   69,   62,  211,  179,   58,   58, 1404,   58,
+
+       58,  315,   58,   62,   63,  180, 1453,   62,   62,   63,
+     1531,   62,   63,   58,  166,  166,   62,   63,   69, 1530,
+      127,   62,  127,  211, 1529,   58,   58,   65,   58,   58,
+       64,   58,   65,  127,   65,  127, 1527,   64,   64,   64,
+      213,   58,  181,   76,   64,  184,   65,   69,  133, 1404,
+      133,   65,   75,   75,   75,   75,   65, 1453,  157,   64,
+       83,   65,   79,   65,   75,   64,   64,   64,   76,  213,
+      181,   76,   64,  184,   65,  157, 1520,   76,   75,   65,
+     1515,  360,   82,  360,   76,   76,   82,  157,   83,   79,
+       79, 1452,   82,   79,  360,  133,  360,   76,  187,   79,
+
+       76,  125,   83,  157,   79,   76, 1450,   75,  125,  125,
+       99,   82,   76,   76,   78,   82,  219,   83,   79,   79,
+       82,   99,   79,  133,   85,   86,  187,   79,   85,   86,
+       83,  168,   79, 1445,   85,   86,  168,   78,   99,   81,
+     1646,  125,   78,   81,   78,  219,   81,   81,   78,   81,
+       84,   78,   99,   85,   86,   81,   78,   85,   86,  176,
+      168,   78,   85,   86, 1444,  168,   78,   99,   81,  125,
+      176,   78,   81,   78,   81,   81,   78,   81,   84,   78,
+       99, 1664,  229,   81,   78,   84,   84,   84,  176,   78,
+       80, 1646,   84,  188,   80,  226,  191,   80,  176,   80,
+
+       80,  192,   80,   80,  190, 1685,   87,   84,  193,   80,
+       87,  229,  190,   84,   84,   84,   87,  194,  226,   80,
+       84,  188,   89,   80,  191,   80, 1442,   80,   80,  192,
+       80,   80, 1664,  190,   88,   87,  193,   80,   88,   87,
+      190,  182,   88,  182,   87,  194,   88,  226,   88,  195,
+       89,  142,  142,  142,   88,  197, 1685,  203,   89,  142,
+       89,   90,   91,   88,   89,   89,   91,   88,  142,  204,
+      367,   88,   91,   90,   88,   90,   88,  195,   90,   89,
+     1439,   90,   88,  197,  182,  203,   89,   93,   89,  196,
+       90,   91,   89,   89,   92,   91, 1436,  204,   92,  367,
+
+       91,   90,   92,   90,  196,  389,   90,  205,   92,   90,
+       93, 1433,  182,   92,   92,   93, 1432,   93,  196,   94,
+       95,   94,  200,   92,   94,   96,   94,   92,  200,   93,
+      208,   92,  196,   96,  389,  205,   92, 1431,  366,   93,
+      366,   92,   92,  366,   93,  170,   93,   94,   95,   94,
+       95,  200,   94,   96,   94, 1771,  200,   93,  208, 1009,
+       95, 1009,   95,   97,   97,   97,   97,   96,  144,  144,
+      144,  144,  220,  221,  103,   97,  144,   95,  103,   95,
+      198,  103,   96,  198,  103,  144,  170,  170,   95,   97,
+       95,  216,  216,  216,  216,   96,  223,  223,  223,  223,
+
+      220,  221,  245,  103,  245,  245, 1771,  103,  198,  103,
+     1129,  198,  103, 1129,  170,  170, 1425, 1419,   97,  101,
+      101,  101,  101,  101,  101,  101,  101,  101,  101,  101,
+      101,  101,  101,  101,  101,  101,  101,  101,  101,  101,
+      101,  101,  101,  101,  101,  101,  101,  101,  101,  101,
+      101,  101,  101,  101,  101,  101,  101,  101,  101,  101,
+      101,  101,  101,  101,  101,  101,  101,  101,  101,  101,
+      101,  101,  101,  101,  101,  101,  101,  101,  101,  101,
+      101,  101,  101,  101,  101,  101,  101,  101,  101,  101,
+      101,  101,  101,  101,  101,  101,  101,  101,  101,  105,
+
+      390,  129,  183,  129,  183, 1415,  105,  338,  215,  338,
+      105, 1410,  183,  105,  129,  129,  129,  129,  130,  129,
+      130, 1551,  215,  105, 1551,  338,  183, 1400,  105,  390,
+      148,  130,  130,  130,  130,  105,  130,  215,  105,  148,
+      148,  105,  130,  131,  199,  131,  225,  225,  225,  225,
+      215,  105,  148,  129,  199,  183,  131,  131,  131,  131,
+     1399,  131,  143,  143,  143,  143,  232, 1326,  148,  148,
+      130,  130,  212,  199,  143,  149,  212,  149,  218,  185,
+      148,  393,  199, 1319,  131,  403,  149,  149,  143,  206,
+     1316,  185,  218,  185,  232,  131,  185,  186,  186,  149,
+
+      227,  212, 1315,  206,  186,  212,  206,  218,  185,  228,
+      393,  202,  131,  202,  403,  149,  149,  143,  206,  185,
+      218,  185,  233,  227,  185,  186,  186,  149,  222,  202,
+      202,  206,  186,  202,  206,  222,  230,  231,  231,  240,
+      202,  320,  202,  230,  239,  235,  238,  238,  238,  228,
+      233,  247,  227,  247,  247,  234,  222,  202,  202,  241,
+     1300,  202,  240,  222,  230,  231,  231,  234,  343,  234,
+     1299,  230,  234,  235,  238, 1295,  377,  228,  377,  377,
+      239,  320,  257, 1290,  234,  241,  246,  246,  246,  246,
+      379,  240,  379,  379,  351,  234,  343,  234,  246,  257,
+
+      234,  351,  351,  238,  250,  250,  250,  250,  239,  320,
+      251,  257,  246, 1289,  241,  319,  250,  251,  251,  251,
+      309,  309,  309,  309,  251,  252,  404,  257,  252,  253,
+      250,  253, 1011,  255, 1011,  252,  252,  252,  319,  251,
+     1288,  246,  252,  407,  254,  251,  251,  251,  253,  255,
+      255,  256,  251,  254,  252,  404, 1286,  252,  253,  250,
+      253,  254,  255,  252,  252,  252,  256,  319,  256,  259,
+      252,  259,  407,  254,  258,  260,  253,  255,  255, 1620,
+      256,  254, 1620,  258,  262,  342, 1271,  260,  259,  254,
+     1622,  258,  260, 1622,  256,  261,  256, 1258,  259,  342,
+
+      259,  262,  265,  258,  260,  261,  261,  311,  311,  311,
+      311,  258,  261,  262,  342,  260,  259, 1250,  269,  258,
+      260,  264,  268,  263,  261,  263,  265,  342,  263,  262,
+      325,  264,  266,  261,  261,  269,  269,  268,  264,  268,
+      261,  344,  263,  265,  265,  267,  267,  269,  266,  266,
+      264,  268,  263,  325,  263,  265,  345,  263, 1247,  264,
+      408,  266,  267,  269,  269,  268,  264,  268,  270,  344,
+      263,  265,  265, 1231,  267,  267,  266,  266,  410,  274,
+      410,  271,  325,  270,  345,  270,  272,  271,  273,  408,
+      267,  411,  275, 1230,  346,  272,  274,  270,  271, 1190,
+
+      410,  276,  277,  272,  277,  273,  273,  275,  274,  275,
+      271,  270,  276,  270,  368,  272,  271,  273,  276,  279,
+      411,  275,  346,  272,  274,  374,  271,  291,  277,  291,
+      276,  272,  279,  273,  273,  275,  279,  275,  280,  278,
+      276,  278, 1773,  368,  291,  277,  276, 1145,  279,  278,
+      280,  349,  280,  374,  354,  280,  291,  277,  291,  281,
+      279,  354,  354,  278,  279,  278, 1135,  280,  281,  281,
+      282,  368,  291,  277, 1785,  281,  281,  313,  280,  313,
+      280,  282,  278,  280,  283,  284, 1131,  282,  281,  284,
+     1130,  349,  278, 1773,  278,  283,  281,  281,  417,  282,
+
+      417,  283,  284,  281,  281, 1108,  313,  285,  285,  282,
+      278,  286, 1098,  283,  284,  282,  285,  287,  284,  349,
+      417,  286,  288,  283,  285, 1785,  287,  376,  286,  283,
+      284, 1097,  391,  288,  287,  313,  285,  285,  348,  288,
+      286,  289,  292, 1084,  285,  414,  287,  294,  290,  286,
+      289,  288,  285,  294,  287,  376,  286,  290,  289,  292,
+      391,  288,  287,  294,  294,  290,  293,  288, 1825,  348,
+      289,  292,  296,  296,  414,  415,  294,  290,  289, 1081,
+     1066,  293,  294,  293,  293,  290,  289,  292,  295,  423,
+      296,  294,  294,  290,  295,  293,  298,  348,  423,  423,
+
+      295,  296,  296,  300,  415,  295,  392,  299,  297,  293,
+      297,  293,  293,  298, 1062,  298,  299,  295,  296, 1825,
+      300,  300, 1054,  295,  299,  298,  297,  297,  295, 1019,
+      297, 1019,  300,  295,  392, 1053,  299,  297, 1046,  297,
+      304,  298,  304,  298,  299,  301,  303,  301,  300,  300,
+      302,  302,  299,  334,  297,  297, 1041,  304,  297,  301,
+      373,  303,  301,  303,  301,  321,  305,  321,  302,  304,
+      334,  304,  305, 1017,  301,  303,  301,  913,  419,  302,
+      302,  394,  334,  305,  373,  304,  306,  301,  306,  303,
+      301,  303,  301,  906,  321,  305,  302,  900,  334,  308,
+
+      322,  305,  322,  306,  307,  308,  307,  419,  429,  394,
+      307,  305,  373,  856,  395,  306,  308,  306,  322,  853,
+      422,  307,  422,  321,  310,  310,  310,  310,  308,  322,
+      422,  306,  849,  307,  308,  307,  310,  429,  323,  307,
+      323,  328,  395,  335,  308,  324,  324,  324,  324,  307,
+      310,  843,  328,  396,  323,  335,  323,  324,  322,  328,
+      335,  330,  397,  398,  330,  323,  323,  831,  330,  332,
+      328,  324,  335,  401,  399,  332,  332,  399,  323,  310,
+      328,  396,  492,  335,  492,  492,  829,  328,  335,  330,
+      397,  398,  330,  814,  323,  323,  330,  332,  808,  786,
+
+      324,  401,  399,  332,  332,  399,  323,  326,  326,  326,
+      326,  326,  326,  326,  326,  326,  326,  326,  326,  326,
+      326,  326,  326,  326,  326,  326,  329,  326,  326,  326,
+      326,  326,  331,  331,  331,  337,  778,  329,  402,  331,
+      333, 1021,  777, 1021,  329,  352,  352,  352,  337,  333,
+      413,  413,  337,  352,  352,  329,  333,  416,  326,  326,
+      331,  331,  331,  358,  337,  329,  402,  331,  699,  333,
+      358,  358,  329,  353,  353,  353,  337,  333,  413,  413,
+      337,  353,  353,  698,  333,  416,  326,  327,  327,  327,
+      327,  327,  327,  327,  327,  327,  327,  327,  327,  327,
+
+      327,  327,  327,  327,  327,  327,  358,  327,  327,  327,
+      327,  327,  336,  339,  340,  339,  340,  418,  670,  341,
+      432,  341,  421,  327,  336,  424,  336,  669,  425,  336,
+      327,  339,  426,  427,  358,  341,  430,  341,  327,  327,
+      649,  336,  339,  340,  648,  418,  341,  341,  341,  432,
+      421,  327,  336,  424,  336,  357,  425,  336,  327,  341,
+      426,  427,  357,  357,  430,  644,  327,  361,  362,  361,
+      362,  339,  340,  431,  434,  341,  341,  341,  364,  435,
+      364,  361,  362,  361,  362,  361,  362,  341,  365,  357,
+      365,  643,  364,  412,  364,  412,  364,  378,  378,  378,
+
+      378,  431,  365,  434,  365,  400,  365,  435,  405,  378,
+      896,  640,  896,  364,  436,  412,  420,  357,  420,  361,
+      362,  896,  400,  378,  405,  382,  382,  382,  382,  412,
+      364,  406,  365,  382,  400,  638,  383,  383,  383,  383,
+      365,  364,  382,  436,  383,  386,  437,  406,  383,  405,
+      400,  428,  378,  383,  386,  386,  433,  412,  433,  420,
+      365,  439,  383,  438,  428,  438,  440,  386,  441,  442,
+      443,  631,  406,  445,  629,  437,  446,  405,  433,  447,
+      428,  448,  450,  386,  386,  438,  451,  420,  454,  456,
+      439,  383,  428,  457,  440,  386,  441,  442,  449,  443,
+
+      406,  409,  445,  409,  446,  628,  449,  447,  455,  452,
+      448,  450,  459,  458,  451,  627,  454,  452,  456,  453,
+      460,  453,  457,  409,  461,  462,  449,  463,  409,  616,
+      464,  465,  467,  409,  449,  480,  455,  468,  452,  469,
+      459,  453,  458,  409,  409,  452,  471,  409,  460,  473,
+      474,  475,  461,  462,  453,  476,  463,  409,  464,  465,
+      467,  477,  409,  453,  478,  468,  479,  469,  481,  480,
+      482,  409,  409,  483,  471,  409,  484,  473,  474,  475,
+      485,  486,  453,  476,  488,  487,  489,  580,  504,  477,
+      501,  453,  478,  484,  506,  479,  502,  480,  487,  482,
+
+      503,  493,  483,  493,  493,  484,  490,  490,  490,  485,
+      486,  481,  505,  488,  487,  489,  496,  501,  496,  496,
+      498,  484,  498,  498,  479,  504,  487,  502,  497,  497,
+      497,  497,  510,  507,  503,  508,  509,  506,  490,  481,
+      497,  513,  511,  505,  489,  512,  501,  514,  515,  574,
+      552,  516,  527,  504,  497,  500,  502,  519,  518, 1104,
+      522, 1104,  503,  529,  499,  506,  507,  490,  525,  508,
+      512,  515,  505,  510,  495,  513,  509,  511,  516,  526,
+      511,  514,  518,  497,  519,  517,  517,  512,  521,  521,
+      521,  522,  524,  527,  507,  525,  534,  508,  529,  512,
+
+      515,  510,  517,  513,  509,  511,  526,  516,  511,  514,
+      521,  518,  530,  519,  531,  512,  523,  523,  523,  532,
+      522,  527,  535,  494,  525,  533,  529,  517,  528,  528,
+      528,  538,  491,  524,  524,  526,  536,  530,  523,  534,
+      539,  537,  541,  541,  541,  472,  542,  543,  540,  550,
+      528,  531,  523,  532,  554,  517,  520,  520,  520,  533,
+      544,  524,  524,  536,  541,  535,  530,  534,  537,  545,
+      470,  548,  538,  549,  540,  388,  536,  542,  520,  531,
+      523,  532,  539,  520,  547,  550,  544,  533,  520,  387,
+      543,  551,  536,  535,  384,  554,  545,  537,  520,  520,
+
+      538,  553,  520,  540,  536,  548,  542,  546,  546,  546,
+      539,  547,  520,  550,  555,  544,  556,  520,  543,  557,
+      549,  562,  551,  554,  553,  545,  520,  520,  558,  546,
+      520,  559,  560,  548,  563,  567,  564,  561,  561,  561,
+      547,  565,  566,  568,  569,  576,  583,  556,  549,  570,
+      555,  551,  572,  553,  381,  557,  606,  558,  560,  561,
+      573,  571,  577,  557,  562,  559,  560,  564,  565,  566,
+      592,  575,  561,  380,  583,  567,  556,  563,  555,  576,
+      587,  561,  569,  557,  606,  568,  558,  560,  572,  570,
+      571,  557,  562,  559,  560,  375,  564,  565,  566,  592,
+
+      561,  588,  573,  567,  577,  563, 1234,  576, 1234,  561,
+      569,  575,  372,  568,  587,  371,  572,  570,  370,  571,
+      578,  578,  578,  578,  579,  579,  579,  579,  592,  585,
+      573,  585,  577,  581,  581,  581,  581,  596,  586,  575,
+      586,  589,  587,  589,  588,  581,  590,  585,  590,  369,
+      596,  595,  363,  614,  602,  591,  586,  591,  595,  581,
+      614,  614,  356,  355,  590,  597,  596,  586,  350,  600,
+      589,  591,  588,  591,  601,  590,  603,  602,  596,  597,
+      595,  601,  591,  591,  347,  600,  595,  604,  581,  582,
+      582,  582,  582,  605,  597,  591,  586,  598,  600,  589,
+
+      603,  613,  607,  601,  590,  598,  602,  597,  598,  601,
+      608,  591,  591,  600,  604,  582,  582,  609,  582,  582,
+      605,  582,  611,  591,  610,  613,  598,  604,  637,  603,
+      607,  651,  582,  598,  318, 1238,  598, 1238,  608,  623,
+      316,  623,  612,  604,  582,  582,  609,  582,  582,  605,
+      582,  611,  610,  623,  613,  604,  637,  623,  312,  651,
+      582,  593,  593,  593,  593,  593,  593,  593,  593,  593,
+      593,  593,  593,  593,  593,  593,  593,  593,  593,  593,
+      612,  593,  593,  593,  593,  593,  599,  615,  599,  249,
+      624,  617,  624,  248,  615,  615,  652,  593,  617,  617,
+
+      653,  654,  244,  599,  624,  657,  243,  619,  612,  619,
+      236,  618,  593,  593,  620,  599,  620,  599,  618,  618,
+      619,  622,  619,  622,  652,  593,  224,  620,  653,  620,
+      654,  599,  617,  657,  641,  622,  641,  641,  618,  622,
+      593,  594,  594,  594,  594,  594,  594,  594,  594,  594,
+      594,  594,  594,  594,  594,  594,  594,  594,  594,  594,
+      617,  594,  594,  594,  594,  594,  621,  618,  621,  625,
+      594,  625,  626,  622,  626,  217,  123,  621,  655,  621,
+      656,  621,  621,  625,  621,  625,  626,  625,  626, 1239,
+      626, 1239,  594,  594,  642,  661,  642,  642,  659,  594,
+
+      626,  660,  645,  645,  645,  645,  119,  655,  664,  656,
+      645,  625,  115,  665,  646,  646,  646,  646,  621,  645,
+      594,  625,  646,  661,  626,  662,  646,  659,  663,  626,
+      660,  646,  676,  647,  647,  647,  647,  664,  666,  625,
+      646,  647,  665,  650,  650,  650,  650,  667,  668,  671,
+      647,  650,  672,  662,  672,  675,  663,  677,  114,  678,
+      650,  676,  679,  680,  682,  680,  666,  685,  683,  646,
+      683,  686,  688,  690,   74,  667,  668,  671,  694,  689,
+      695,  689,  701,  675,  672,  680,  677,  678,   67,  702,
+      683,  679,  682,   15,  691,  685,  691,    7,  672,  686,
+
+      688,  689,  690,  693,  704,  693,  694,  703,  695,  697,
+      706,  701,  707,  672,    0,    0,  691,  702,  697,  697,
+        0,  700,  700,  700,  708,  693,  672,  673,  709,  673,
+      714,  700,  700,  704,  700,  703,  700,  705,    0,  706,
+      707,    0,  713,  700,  705,  710,  711,  710,  711,  673,
+      720,  722,  725,  708,  673,    0,  723,  709,  714,  673,
+      715,  724,  715,  717,  726,  717,  705,  710,  711,  673,
+      673,  713,  705,  673,  716,  727,  716,  728,  729,  720,
+      722,  725,  715,  673,  723,  717,  730,  731,  673,  724,
+      737,  734,  726,  734,  738,  739,  716,  673,  673,  700,
+
+      732,  673,  732,  727,  736,  728,  736,  729,  740,  716,
+      732,  742,  743,  734,  730,  744,  731,  746,  737,  747,
+      750,  751,  738,  739,  752,  749,  736,  749,  754,  760,
+      755,  756,  757,  758,  759,  761,  740,  716,  762,  763,
+      742,  743,  767,  744,  765,  746,  770,  749,  747,  750,
+      751,    0,  765,  752,    0,  772,  863,  754,  755,    0,
+      756,  757,  758,  759,  779,  762,    0,  763,  769,  760,
+      769,  767,  768,  765,  781,  785,  761,    0,  769,  768,
+      780,  765,  769,  768,  863,  791,  770,  769,  771,  771,
+      771,  772,  783,  773,  762,  773,  773,  760,  782,  784,
+
+      774,  768,  774,  774,  761,  779,  775,  768,  775,  775,
+      776,  768,  776,  776,  770,  781,  785,  780,  787,  772,
+      771,  783,  789,  782,  788,  795,  784,  790,  791,  796,
+      793,  792,  794,  779,  800,  798,  803,  809,    0,    0,
+      805,  787,  804,  781,  785,  780,  799,  799,  799,  771,
+      783,  788,  782,  801,  806,  784,  791,  793,  802,  789,
+      807,  790,  792,    0,  813,  796,  794,  815,  795,  798,
+      787,  800,  804,  811,    0,  822,  816,  809,  799,  817,
+      788,  801,  818,  803,  805,  802,  793,  789, 1327,  790,
+     1327,  792,  799,  796,  794,  806,  795,  798,  815,  800,
+
+      819,  804,  807,  811,  822,  809,  813,  799,  820,  821,
+      801,  803,  805,  818,  802,  810,  810,  810,  823,  816,
+      799,  817,  826,  806,  812,  812,  812,  815,  825,  819,
+      807,  830,  811,  822,  813,    0,  819,  810,  836,  820,
+      833,  823,  818,  834,  837,  821,  812,  816,  832,  817,
+      824,  824,  824,  825,  838,  840,  826,  841,  819,  827,
+      827,  827,  830,  835,  819,  828,  828,  828,  820,  839,
+      823,    0,  824,  821,    0,  832,  845,  833,  834,  846,
+      836,  827,  825,  854,  826,  847,  837,  828,  841,  852,
+      835,  830,  839,  848,  887,  840,  838,  842,  842,  842,
+
+      828,  850,  851,  855,  832,  833,  834,  842,  836,  844,
+      844,  844,  858,  846,  837,  859,  845,  841,  860,  835,
+      854,  839,  887,  840,  838,  847,  850,  851,  828,  848,
+      855,  844,  852,  901,    0,  901,  857,  857,  857,  858,
+        0,  846,  859,  868,  845,  860,  871,  901,  854,  861,
+      861,  861,  861,  847,    0,  850,  851,  848,  857,  855,
+      852,  862,  862,  862,  862,  865,  888,  865,  858,  869,
+      866,  859,  866,    0,  860,  864,  864,  864,  864,  867,
+      874,  867,  874,  865,  868,    0,  871,  876,  866,  876,
+        0,    0,  875,  864,  875,  888,  869,  867,  881,  866,
+
+      881,  864,  864,  890,  864,  864,  917,  864,  867,    0,
+        0,  870,  868,  870,  871,  876,  875,  892,  864,  882,
+      884,  882,  874,    0,  915,  869,  881,  870,  866,  870,
+      864,  864,  890,  864,  864,  917,  864,  867,  870,  870,
+      877,  892,  877,  884,  876,  875,  864,  882,  918,  895,
+      874,  870,  915,    0,    0,  881,  895,  895, 1111, 1111,
+     1111,  879,    0,  879,  878,    0,  878,  870,  870,    0,
+      892,  909,  884,  909,  909,    0,  882,  918,  877,  870,
+      872,  872,  872,  872,  872,  872,  872,  872,  872,  872,
+      872,  872,  872,  872,  872,  872,  872,  872,  872,  878,
+
+      872,  872,  872,  872,  872,  879,  877,  916,  919,    0,
+      886,  886,  886,  910,  921,  910,  910,  922,    0,  924,
+      886,  926,  925,  932,  886,  927,  880,  878,  880,  886,
+      894,  872,  872,  879,    0,  916,  919,  894,  894,    0,
+        0, 1029,  921, 1029, 1029, 1189,  922,  924,    0,  926,
+      880,  925,  932,  927, 1189, 1189,  885,  894,  880,  872,
+      873,  873,  873,  873,  873,  873,  873,  873,  873,  873,
+      873,  873,  873,  873,  873,  873,  873,  873,  873,  880,
+      873,  873,  873,  873,  873,  885,  894,  880,  898,  899,
+      898,  899,  885,  929,  930,  931,  885,    0,    0,  898,
+
+      899,  902,  934,  902,  898,  899,  898,  899,  948,    0,
+      948,  873,  873,    0,  885,  902,  935,  902,  936,  902,
+      885,  929,  930,  931,  885,  911,  911,  911,  911,  902,
+      948,  934,  937,  911,    0,  912,  912,  912,  912,  873,
+      898,  899,  911,  912,    0,  935,  936, 1030,    0, 1030,
+     1030,    0,  912,  902,  933,  938,  933,  939,  902,  903,
+      903,  937,  903,  903,  903,  903,  903,  903,  903,  903,
+      903,  903,  903,  903,  903,  903,  903,  903,  903,  903,
+      903,  903,  903,  903,  938,  939,  933,  914,  914,  914,
+      914,  940,    0,  943,  944,  914,  945,  946,  947,  914,
+
+      933,  949,  955,  961,  914,  962,    0,  964,  965,    0,
+      903,  903,  903,  914,  950,  933,  950,  953,    0,  953,
+      940,  943,  944,    0,    0,  945,  946,  947,  933,  949,
+        0,  955,  961,  968,  962,  964,  950,  965,  903,  953,
+        0,    0,  914,  920,  920,  966,  920,  920,  920,  920,
+      920,  920,  920,  920,  920,  920,  920,  920,  920,  920,
+      920,  920,  968,  920,  920,  920,  920,  920,  957,  958,
+      957,  958,  967,  966,    0, 1328,  969, 1328,  969,  957,
+      958,  957,  958,  957,  958,  970,  959,  959,  959,  973,
+      957,  958,  974,  960,  920,  920,  959,  959,  969,  959,
+
+      967,  959,  960,  960,  971,  960,  971,  960,  959,  975,
+      977,  975,  977,  970,  960,  979,  980,    0,  973,  981,
+      983,  974,  920,  982,  985,  986,  971,  988,  989,  990,
+      998,  975,  977,  991,  993,  991,  993,  995,  996,  997,
+      999, 1001, 1000,  991,  979,  980,  957,  958,  981,  983,
+     1002,  982, 1003,  985,  986,  988,  993,  989,  990,  998,
+     1004, 1010, 1004, 1012,  959,  995,  996,  997,  999, 1001,
+      960, 1000, 1013, 1008, 1014, 1008, 1014, 1015, 1002, 1016,
+     1003, 1018, 1004, 1008, 1014, 1020, 1028, 1022, 1014, 1023,
+     1010, 1033, 1012, 1014, 1027, 1034, 1036, 1024, 1037, 1024,
+
+     1013,    0,    0, 1026, 1114, 1026, 1016, 1024, 1015, 1035,
+     1018, 1024,    0,    0, 1020, 1022, 1024, 1026, 1023, 1036,
+        0, 1031, 1026, 1031, 1031, 1027, 1039, 1032, 1028, 1032,
+     1032, 1034, 1033, 1114, 1037, 1016, 1035, 1015,    0, 1099,
+     1099, 1099, 1100, 1100, 1100, 1100,    0,    0, 1036, 1099,
+     1101, 1101, 1101, 1101, 1027, 1042, 1028, 1044, 1045, 1034,
+     1033, 1047, 1037, 1049, 1039, 1035, 1038, 1038, 1038, 1038,
+     1038, 1038, 1038, 1038, 1038, 1038, 1038, 1038, 1038, 1038,
+     1038, 1038, 1038, 1038, 1038, 1040, 1038, 1038, 1038, 1038,
+     1038, 1042, 1039, 1043, 1045, 1048, 1050, 1044, 1047, 1051,
+
+     1052, 1055, 1056,    0, 1049, 1061, 1057, 1059, 1058, 1071,
+     1040, 1063, 1060, 1060, 1060, 1067, 1068, 1038, 1038, 1042,
+     1043, 1064, 1045, 1050, 1065, 1044, 1047, 1051, 1069, 1048,
+     1052, 1058, 1049, 1057, 1060, 1055, 1059, 1070, 1071, 1040,
+     1056, 1061, 1063, 1068, 1073, 1038, 1064, 1076, 1077, 1043,
+     1065, 1074, 1050, 1085, 1079, 1067, 1051, 1048, 1078, 1052,
+     1058, 1075, 1057, 1055, 1080, 1059, 1082, 1071, 1056, 1061,
+     1069, 1063, 1068, 1070, 1074, 1064, 1077, 1083, 1076, 1065,
+     1072, 1072, 1072, 1067, 1078, 1088, 1073, 1086, 1075, 1089,
+     1079, 1080, 1090, 1082, 1087, 1085, 1092, 1093, 1069, 1094,
+
+     1095, 1070, 1072, 1074, 1096, 1077, 1091, 1076, 1083,    0,
+     1086, 1122, 1121, 1078, 1073,    0, 1102, 1075, 1079, 1087,
+     1080, 1124, 1082, 1085, 1093, 1107, 1088, 1110, 1090, 1154,
+        0, 1089, 1091, 1105, 1106, 1105, 1106, 1083, 1092, 1086,
+     1094, 1121,    0, 1095, 1102, 1122, 1096,    0, 1087, 1138,
+     1124, 1138, 1107, 1093, 1088, 1123, 1090, 1154, 1110, 1089,
+     1138, 1091, 1105, 1106,    0, 1116, 1092, 1116, 1094,    0,
+     1109, 1095, 1109, 1122, 1096, 1103, 1103, 1103, 1103, 1118,
+     1117, 1107, 1115, 1123,    0, 1118, 1109, 1110, 1109,    0,
+     1157, 1105, 1106, 1115, 1116, 1117, 1116, 1109, 1109,    0,
+
+     1155, 1103, 1103,    0, 1103, 1103, 1119, 1103, 1118, 1117,
+     1109, 1115, 1123, 1147, 1118, 1147, 1147, 1119, 1103, 1157,
+        0, 1115, 1148, 1117, 1148, 1148, 1109, 1109, 1155,    0,
+     1103, 1103, 1132, 1103, 1103, 1119, 1103,    0, 1109, 1132,
+     1132, 1240,    0, 1240, 1240, 1119, 1103, 1112, 1112, 1112,
+     1112, 1112, 1112, 1112, 1112, 1112, 1112, 1112, 1112, 1112,
+     1112, 1112, 1112, 1112, 1112, 1112, 1133, 1112, 1112, 1112,
+     1112, 1112, 1134, 1133, 1133, 1137, 1112, 1137, 1158, 1134,
+     1134, 1140, 1151, 1140, 1151, 1160, 1137, 1161, 1141, 1162,
+     1141, 1163,    0, 1137, 1142, 1140, 1142,    0, 1112, 1112,
+
+     1136, 1141, 1136, 1141, 1151, 1112, 1158, 1143, 1142, 1143,
+     1142, 1136, 1142, 1160, 1224, 1161, 1224, 1162, 1136,    0,
+     1163, 1143,    0, 1143, 1224, 1143, 1112, 1113, 1113, 1113,
+     1113, 1113, 1113, 1113, 1113, 1113, 1113, 1113, 1113, 1113,
+     1113, 1113, 1113, 1113, 1113, 1113, 1142, 1113, 1113, 1113,
+     1113, 1113, 1136, 1144, 1113, 1144, 1164, 1173, 1165, 1143,
+     1149, 1149, 1149, 1149, 1152, 1167, 1152, 1144, 1149, 1144,
+     1168, 1144, 1150, 1150, 1150, 1150, 1174, 1149, 1113, 1113,
+     1150,    0,    0, 1113, 1164, 1173, 1152, 1165, 1241, 1150,
+     1241, 1241,    0,    0, 1167, 1296, 1296, 1296, 1296, 1168,
+
+     1166,    0, 1166, 1170, 1174, 1144, 1113, 1120, 1120, 1120,
+     1120, 1120, 1120, 1120, 1120, 1120, 1120, 1120, 1120, 1120,
+     1120, 1120, 1120, 1120, 1120, 1120, 1166, 1120, 1120, 1120,
+     1120, 1120, 1170, 1175, 1176, 1177,    0, 1178, 1179, 1166,
+     1396, 1183, 1396, 1184, 1193, 1194, 1180, 1181, 1180, 1181,
+     1186, 1196, 1186, 1198, 1186, 1166, 1195,    0, 1120, 1120,
+        0, 1186, 1175, 1176, 1177, 1178, 1179, 1166, 1180, 1181,
+     1183, 1184,    0, 1193, 1194, 1310, 1310, 1310, 1188, 1196,
+     1188, 1198, 1188,    0, 1199, 1195, 1120, 1139, 1139, 1188,
+     1139, 1139, 1139, 1139, 1139, 1139, 1139, 1139, 1139, 1139,
+
+     1139, 1139, 1139, 1139, 1139, 1139, 1139, 1139, 1139, 1139,
+     1139, 1139, 1199, 1200, 1185, 1200, 1185, 1186, 1402, 1187,
+     1402, 1187, 1203,    0,    0, 1185, 1202, 1185, 1202, 1185,
+     1187, 1205, 1187, 1206, 1187, 1200, 1185, 1192, 1139, 1139,
+     1139, 1187, 1191, 1191, 1191, 1188, 1192, 1192, 1202, 1192,
+     1203, 1192, 1191, 1191, 1204, 1191, 1204, 1191, 1192, 1205,
+     1406, 1206, 1406, 1406, 1191,    0, 1139, 1153, 1153, 1208,
+     1153, 1153, 1153, 1153, 1153, 1153, 1153, 1153, 1153, 1153,
+     1153, 1153, 1153, 1153, 1153, 1153, 1212, 1153, 1153, 1153,
+     1153, 1153, 1185, 1204, 1207, 1209, 1207, 1187, 1208, 1210,
+
+     1211, 1213, 1215, 1220, 1219, 1220, 1219, 1222, 1226, 1228,
+     1221, 1227, 1221, 1229, 1192, 1212, 1207, 1233, 1153, 1153,
+     1191, 1204, 1232, 1209, 1235, 1220, 1236, 1210, 1211, 1213,
+     1219, 1215, 1221, 1237, 1248, 1222, 1298, 1226, 1228, 1227,
+     1305, 1229, 1242, 1242, 1242, 1233, 1153, 1243, 1243, 1243,
+        0, 1232, 1246, 1235, 1236, 1317, 1306, 1248,    0, 1219,
+     1237,    0, 1317, 1317, 1242, 1298,    0, 1245, 1305, 1243,
+     1229, 1251,    0, 1318, 1249, 1408, 1253, 1408, 1252, 1255,
+     1318, 1318,    0, 1236, 1306,    0, 1248, 1246,    0, 1237,
+     1244, 1244, 1244, 1244, 1244, 1244, 1244, 1244, 1244, 1244,
+
+     1244, 1244, 1244, 1244, 1244, 1244, 1244, 1244, 1244, 1245,
+     1244, 1244, 1244, 1244, 1244, 1246, 1249, 1251, 1252, 1253,
+     1256, 1255, 1262, 1254, 1257, 1257, 1257, 1259, 1260, 1261,
+     1263, 1264, 1264, 1264, 1265, 1266, 1267, 1245, 1268, 1269,
+     1272, 1244, 1244,    0, 1249, 1251, 1252, 1253, 1254, 1255,
+     1257, 1256, 1277, 1264, 1259, 1260, 1261, 1265, 1270, 1273,
+     1278, 1284, 1262, 1257, 1263, 1268, 1269, 1267, 1281, 1244,
+        0, 1275, 1266, 1276, 1276, 1276, 1280, 1254, 1282, 1257,
+     1256, 1272, 1283, 1259, 1260, 1261, 1265, 1285, 1284, 1287,
+     1262, 1257, 1263, 1277, 1268, 1269, 1267, 1294, 1270, 1280,
+
+     1266, 1273, 1274, 1274, 1274, 1275, 1307, 1278,    0, 1272,
+     1281, 1409, 1276, 1409, 1279, 1279, 1279, 1284, 1282, 1283,
+     1287, 1277, 1285,    0, 1274, 1311, 1270, 1301, 1280, 1273,
+     1291, 1291, 1291, 1275, 1307, 1278, 1279, 1308, 1281, 1294,
+     1276, 1292, 1292, 1292, 1312, 1337, 1282, 1283, 1311, 1287,
+     1285, 1293, 1293, 1293, 1338, 1301, 1291, 1297, 1297, 1297,
+     1297,    0,    0, 1292, 1320, 1308, 1320, 1294, 1321, 1795,
+     1321, 1795, 1312, 1293, 1337, 1320, 1339, 1311, 1449, 1449,
+     1449, 1449, 1321, 1338, 1301, 1291, 1302, 1302, 1302, 1302,
+     1302, 1302, 1302, 1302, 1302, 1302, 1302, 1302, 1302, 1302,
+
+     1302, 1302, 1302, 1302, 1302, 1339, 1302, 1302, 1302, 1302,
+     1302, 1322,    0, 1322, 1329, 1329, 1329, 1329, 1345, 1341,
+        0, 1331, 1329, 1331, 1322,    0, 1322, 1553, 1333, 1553,
+     1333, 1329, 1342, 1323, 1343, 1323, 1347, 1302, 1302, 1324,
+     1325, 1324, 1325, 1331, 1553,    0, 1345, 1323, 1341, 1323,
+     1333, 1323, 1615, 1324, 1325, 1324, 1325, 1324, 1325, 1615,
+        0, 1342, 1615, 1343, 1347, 1302, 1303, 1303, 1303, 1303,
+     1303, 1303, 1303, 1303, 1303, 1303, 1303, 1303, 1303, 1303,
+     1303, 1303, 1303, 1303, 1303, 1323, 1303, 1303, 1303, 1303,
+     1303, 1324, 1325, 1348, 1330, 1330, 1330, 1330, 1350, 1336,
+
+        0, 1351, 1330, 1336, 1352, 1353,    0, 1354, 1355, 1660,
+     1303, 1330, 1361, 1357, 1358,    0, 1660, 1303, 1303, 1660,
+        0, 1348, 1359, 1462, 1359, 1462, 1462, 1350, 1336, 1351,
+        0,    0, 1336, 1352, 1353, 1354,    0, 1355, 1303, 1346,
+     1361, 1346, 1357, 1358, 1359, 1303, 1304, 1304, 1304, 1304,
+     1304, 1304, 1304, 1304, 1304, 1304, 1304, 1304, 1304, 1304,
+     1304, 1304, 1304, 1304, 1304, 1346, 1304, 1304, 1304, 1304,
+     1304, 1362, 1364, 1363, 1364, 1363, 1364,    0, 1346, 1366,
+     1370, 1371, 1382, 1364, 1363, 1376, 1363, 1375, 1363, 1375,
+     1365, 1365, 1365, 1377, 1346, 1363,    0, 1304, 1304, 1362,
+
+     1365, 1365, 1372, 1365, 1372, 1365, 1346, 1366, 1389, 1370,
+     1371, 1382, 1365, 1376, 1379, 1381, 1379, 1384, 1387, 1394,
+     1390, 1377, 1390, 1397, 1372, 1304, 1375, 1388, 1392, 1388,
+     1392, 1395, 1401, 1403, 1405, 1418, 1379, 1389, 1411, 1364,
+     1412, 1413, 1390, 1381, 1414, 1384, 1387, 1428, 1394, 1416,
+     1392, 1363, 1397, 1388, 1375, 1420, 1417, 1422, 1418, 1395,
+     1401, 1411, 1403, 1423, 1421, 1411, 1413, 1412, 1365, 1430,
+     1429, 1414, 1426, 1424, 1405, 1438, 1416, 1427, 1435, 1437,
+     1440, 1428, 1388, 1417, 1434, 1443, 1446, 1418, 1451,    0,
+     1411, 1448, 1420,    0, 1411, 1413, 1412, 1422, 1424, 1426,
+
+     1414, 1421, 1405, 1423, 1427, 1416, 1429, 1455, 1435, 1428,
+     1458, 1430, 1417, 1441, 1440, 1434, 1451, 1438, 1447, 1437,
+     1420, 1443, 1448, 1457, 1459, 1422, 1466, 1424, 1426, 1421,
+     1446, 1423, 1460, 1427, 1429,    0, 1455, 1435, 1458, 1430,
+     1441, 1447, 1440, 1469, 1434, 1438, 1461, 1437, 1461, 1443,
+     1468, 1448, 1457, 1459,    0, 1466, 1461, 1460, 1446, 1463,
+     1463, 1463, 1470, 1464, 1464, 1464, 1464, 1463, 1471, 1441,
+     1447, 1464, 1469, 1473, 1474, 1475, 1463, 1476, 1468, 1477,
+     1464, 1465, 1465, 1465, 1465, 1478, 1460, 1479, 1480, 1465,
+     1470, 1481, 1483,    0, 1484, 1486, 1471, 1489, 1465, 1489,
+
+     1491, 1473, 1474, 1475, 1492, 1476, 1492, 1477, 1489, 1493,
+     1489, 1494, 1489, 1497, 1478, 1479, 1498, 1480, 1498, 1489,
+     1481, 1483, 1484, 1486, 1499, 1500, 1492, 1501, 1502, 1491,
+     1503, 1504, 1506, 1505, 1508, 1509, 1510, 1493, 1498, 1494,
+     1511, 1497, 1511, 1511, 1512, 1514, 1512, 1512, 1516, 1517,
+     1518, 1519, 1521, 1499, 1500, 1501, 1502, 1523, 1503, 1505,
+     1504, 1506, 1509, 1508, 1510, 1522, 1526, 1528, 1524, 1514,
+     1525, 1532, 1534, 1537,    0, 1489, 1517, 1533, 1533, 1533,
+     1538, 1538, 1538, 1539, 1516, 1541, 1540, 1519, 1505, 1545,
+     1518, 1509, 1523, 1510, 1521, 1524, 1532, 1525, 1514, 1533,
+
+     1546, 1522, 1538, 1528, 1543, 1517, 1543,    0, 1526, 1534,
+     1539, 1549, 1516, 1537, 1543, 1519, 1544, 1545, 1518, 1563,
+     1523, 1541, 1521, 1558, 1524, 1532, 1525, 1540, 1546, 1522,
+        0, 1528, 1542, 1542, 1542, 1542, 1526, 1534, 1549, 1539,
+        0, 1537, 1544, 1550, 1552, 1550, 1552, 1552, 1563, 1541,
+        0, 1558,    0, 1550, 1566, 1540, 1554, 1554, 1554, 1554,
+     1555, 1555, 1555, 1568, 1554, 1559, 1562, 1549, 1555, 1565,
+     1567, 1544, 1569, 1554, 1557, 1557, 1557, 1555, 1556, 1556,
+     1556, 1556, 1557, 1566, 1571, 1574, 1556, 1576, 1578, 1576,
+     1579, 1557, 1568, 1559, 1562, 1556, 1584, 1565, 1567, 1585,
+
+     1570, 1569, 1570, 1581, 1586, 1581, 1588, 1589, 1590, 1576,
+     1570, 1592, 1571, 1597, 1574, 1593, 1578, 1596, 1594, 1579,
+     1594, 1594, 1600, 1603, 1584, 1581, 1601, 1604, 1585, 1605,
+     1605, 1605, 1607, 1586, 1609, 1588, 1590, 1616, 1593, 1605,
+        0, 1612, 1613, 1618, 1589, 1631, 1614, 1592, 1614, 1627,
+        0, 1596, 1604, 1601,    0, 1597, 1614, 1607, 1632, 1609,
+     1628, 1603, 1628, 1633, 1600,    0,    0, 1593, 1612, 1613,
+     1628, 1618, 1589, 1631, 1616, 1592,    0,    0, 1627, 1596,
+        0, 1604, 1601, 1597,    0, 1634, 1607, 1632, 1609, 1603,
+        0, 1633, 1600, 1621, 1621, 1621, 1621, 1612, 1613, 1639,
+
+        0, 1621, 1616,    0, 1621, 1623, 1623, 1623, 1623, 1624,
+     1624, 1624, 1640, 1623, 1634, 1625, 1625, 1625, 1625, 1635,
+     1641, 1635, 1623, 1625, 1642, 1636, 1624, 1636, 1639, 1635,
+     1648, 1654, 1625, 1649, 1650, 1636, 1651, 1651, 1651, 1655,
+     1656, 1640, 1657,    0, 1663, 1668, 1651,    0, 1735, 1641,
+     1735, 1663, 1668, 1642, 1663, 1668, 1648,    0, 1649, 1735,
+     1675, 1650, 1674, 1676, 1674, 1654, 1673, 1656, 1673, 1657,
+     1655, 1661, 1661, 1661, 1661, 1674, 1673, 1674, 1662, 1662,
+     1662, 1662, 1678, 1661, 1674, 1648, 1662, 1649, 1675, 1662,
+     1650, 1683, 1676, 1654, 1689, 1700, 1656, 1661, 1657, 1655,
+
+     1666, 1666, 1666, 1666, 1667, 1667, 1667, 1667, 1666, 1677,
+     1678, 1666, 1667, 1680, 1681, 1667, 1669, 1669, 1669, 1669,
+     1670, 1670, 1670, 1670, 1669, 1684, 1661, 1683, 1670, 1686,
+     1688, 1700, 1670, 1669, 1691, 1689,    0, 1670, 1677, 1706,
+        0,    0, 1680, 1681, 1709, 1692, 1670, 1692, 1692, 1694,
+     1707, 1694, 1694, 1684, 1708, 1683, 1686, 1688, 1710, 1700,
+     1691,    0,    0, 1689, 1693, 1693, 1693, 1693, 1706, 1697,
+     1697, 1697, 1697, 1709, 1699, 1670, 1693, 1697, 1707, 1716,
+     1697, 1699, 1708, 1714, 1699, 1686, 1688, 1710, 1701, 1691,
+     1693, 1698, 1698, 1698, 1698, 1701, 1711, 1712, 1701, 1698,
+
+     1713, 1703, 1698, 1698, 1702, 1702, 1702, 1702, 1703, 1714,
+     1717, 1703, 1702, 1718, 1704, 1702, 1704, 1698,    0, 1693,
+     1705,    0, 1705,    0, 1711, 1716, 1737, 1704, 1713, 1704,
+     1731, 1705, 1738, 1705, 1712, 1705, 1704, 1719, 1714, 1719,
+     1719, 1717, 1705,    0, 1740, 1720, 1698, 1720, 1720, 1723,
+     1723, 1723, 1723, 1716, 1737,    0, 1718, 1723,    0,    0,
+     1723, 1738, 1712, 1724, 1724, 1724, 1724, 1731, 1741, 1743,
+     1717, 1724, 1740,    0, 1724, 1724, 1726, 1725, 1725, 1725,
+     1725,    0, 1745, 1726, 1718, 1725, 1726, 1727, 1725, 1724,
+        0, 1728, 1742, 1744, 1727, 1731, 1741, 1727, 1728, 1730,
+
+     1750, 1728, 1729, 1729, 1729, 1729, 1730, 1749, 1767, 1730,
+     1729, 1743,    0, 1729, 1732, 1732, 1732, 1732, 1724, 1745,
+     1742, 1744, 1732, 1734,    0, 1732, 1733, 1733, 1733, 1733,
+     1734, 1755, 1770, 1734, 1733,    0, 1767, 1733, 1755, 1743,
+     1750, 1755,    0, 1751, 1749, 1751, 1751, 1745, 1752,    0,
+     1752, 1752, 1753, 1753, 1753, 1753, 1754, 1754, 1754, 1754,
+     1753, 1770, 1765, 1753, 1754,    0,    0, 1754, 1750,    0,
+     1757, 1768, 1749, 1756, 1756, 1756, 1756, 1757, 1758,    0,
+     1757, 1756,    0,    0, 1756, 1758,    0,    0, 1758, 1759,
+     1759, 1759, 1759, 1761, 1760, 1760, 1760, 1760, 1774, 1768,
+
+     1761, 1759, 1760, 1761, 1765, 1760, 1762, 1762, 1762, 1762,
+     1763, 1763, 1763, 1763, 1762, 1759, 1764, 1762, 1763, 1769,
+     1786, 1763, 1763, 1764, 1775, 1776, 1764, 1776, 1776,    0,
+     1790,    0, 1765, 1782, 1774, 1777, 1763, 1777, 1777, 1784,
+     1782,    0,    0, 1782, 1759, 1788, 1784, 1769, 1786, 1784,
+     1791, 1775, 1778, 1778, 1778, 1778, 1779, 1779, 1779, 1779,
+     1778, 1802, 1774, 1778, 1779, 1763, 1805, 1779, 1780, 1780,
+     1780, 1780, 1790, 1792, 1788,    0, 1780,    0, 1791, 1780,
+     1775, 1781, 1781, 1781, 1781, 1808, 1807, 1808, 1808, 1781,
+        0, 1799, 1781, 1781, 1783, 1783, 1783, 1783, 1799, 1806,
+
+     1790, 1799, 1783, 1802, 1813, 1783, 1805, 1781,    0, 1792,
+     1797, 1797, 1797, 1797, 1798, 1798, 1798, 1798, 1797, 1801,
+     1814, 1797, 1798, 1807,    0, 1798, 1801, 1806, 1815, 1801,
+     1817, 1802, 1817, 1817, 1805, 1812, 1781, 1792, 1796, 1796,
+     1796, 1796, 1812, 1796, 1813, 1812, 1796, 1814, 1796, 1796,
+     1796, 1807, 1822, 1796, 1796, 1816,    0, 1815, 1796, 1823,
+     1796, 1796, 1796, 1800, 1800, 1800, 1800, 1809, 1809, 1809,
+     1809, 1800, 1813, 1819, 1800, 1809, 1814, 1829, 1809, 1822,
+     1819,    0, 1823, 1819, 1811, 1811, 1811, 1811,    0, 1796,
+     1796, 1796, 1811,    0,    0, 1811,    0, 1816, 1818, 1818,
+
+     1818, 1818, 1824, 1820,    0, 1829, 1818,    0, 1822, 1818,
+     1820, 1823, 1827, 1820, 1828, 1830,    0, 1796, 1810, 1810,
+     1810, 1810, 1810, 1810, 1831, 1816, 1810, 1810, 1810, 1810,
+     1810, 1824,    0, 1810, 1810, 1827, 1834,    0, 1810,    0,
+     1810, 1810, 1810, 1821, 1821, 1821, 1821, 1826, 1826, 1826,
+     1826, 1821,    0,    0, 1821, 1826, 1828, 1830, 1826, 1832,
+     1832, 1832,    0, 1844, 1827,    0, 1831,    0, 1840, 1810,
+     1810, 1810, 1833, 1833, 1833,    0, 1834, 1835, 1835, 1835,
+     1836, 1836, 1836, 1843, 1828, 1830, 1837, 1837, 1837, 1837,
+     1838, 1838, 1838,    0, 1831, 1840,    0, 1810, 1841, 1841,
+
+     1841, 1845, 1845, 1845, 1834, 1844, 1843, 1846, 1846, 1846,
         0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
-        0,    0, 1127, 1126,    0, 1123, 1114,    0,    0, 1117,
-
-        0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
-        0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
-     1127, 1132, 1132, 1132, 1132, 1132, 1132, 1132, 1132, 1132,
-     1132, 1132, 1132, 1132, 1133, 1133, 1133, 1133, 1133, 1133,
-     1133, 1133, 1133, 1133, 1133, 1133, 1133, 1134,    0, 1134,
-     1134, 1134, 1134, 1134, 1134, 1134, 1134, 1134, 1134, 1134,
-     1135, 1135, 1135, 1135, 1135, 1135, 1135, 1135, 1135, 1135,
-     1135, 1135, 1135, 1136, 1136, 1136, 1136, 1136, 1136, 1136,
-     1136, 1136, 1136, 1136, 1136, 1136, 1137, 1137, 1137, 1137,
-     1137, 1137, 1137, 1137, 1137, 1137, 1137, 1137, 1137, 1138,
-
-     1138, 1138, 1138, 1138, 1138, 1138, 1138, 1138, 1139, 1139,
-     1139, 1139, 1139, 1139, 1139, 1139, 1139, 1139, 1139, 1139,
-     1139, 1140, 1140, 1140, 1140, 1140, 1140, 1140, 1140, 1140,
-     1140, 1140, 1140, 1140, 1141, 1141, 1141, 1141, 1141,    0,
-     1141, 1141, 1141,    0, 1141,    0, 1141, 1142, 1142, 1142,
-     1142, 1142, 1142, 1142, 1142, 1142, 1142, 1142, 1142, 1142,
-     1143,    0,    0,    0,    0,    0,    0,    0, 1143, 1144,
-     1144,    0, 1144, 1144,    0, 1144,    0,    0, 1144, 1144,
-        0, 1144, 1145, 1145, 1145, 1145, 1146, 1146, 1146, 1146,
-     1146, 1146, 1146, 1146, 1146, 1146, 1146, 1146, 1146, 1147,
-
-     1147, 1147, 1147, 1147, 1147, 1147, 1147, 1147, 1147, 1147,
-     1147, 1147, 1148, 1148, 1148, 1148, 1148, 1148, 1148, 1148,
-     1148, 1148, 1148, 1148, 1148, 1149, 1149, 1149,    0, 1149,
-     1149, 1149, 1149, 1149, 1149, 1149, 1149, 1149, 1150,    0,
-     1150, 1150, 1150, 1150, 1150, 1150, 1150, 1150, 1150, 1150,
-     1150, 1151,    0, 1151, 1151, 1151, 1151, 1151, 1151, 1151,
-     1151, 1151, 1151, 1151, 1152, 1152, 1152, 1152, 1152, 1152,
-     1152, 1152, 1152, 1152, 1152, 1152, 1152, 1153, 1153, 1153,
-     1153, 1153, 1153, 1153, 1153, 1153, 1153, 1153, 1153, 1153,
-     1154, 1154, 1154, 1154, 1154, 1154, 1154, 1154, 1154, 1154,
-
-     1154, 1154, 1154, 1155,    0, 1155, 1155, 1155, 1155, 1155,
-     1155, 1155, 1155, 1155, 1155, 1155, 1156, 1156, 1156, 1156,
-     1156, 1156, 1156, 1156, 1156, 1156, 1156, 1156, 1156, 1157,
-     1157, 1157, 1157, 1157, 1157, 1157, 1157, 1157, 1157, 1157,
-     1157, 1157, 1158, 1158, 1158, 1158, 1158, 1158, 1158, 1158,
-     1158, 1158, 1158, 1158, 1158, 1159,    0, 1159, 1159, 1159,
-     1159, 1159, 1159, 1159, 1159, 1159, 1159, 1159, 1160,    0,
-     1160, 1160, 1160, 1160, 1160, 1160, 1160, 1160, 1160, 1160,
-     1160, 1161, 1161, 1161, 1161, 1161, 1161, 1161, 1161, 1161,
-     1161, 1161, 1161, 1161, 1162, 1162, 1162, 1162, 1162, 1162,
-
-     1162, 1162, 1162, 1162, 1162, 1162, 1162, 1163, 1163, 1163,
-     1163, 1163, 1163, 1163, 1163, 1163, 1163, 1163, 1163, 1163,
-     1164,    0, 1164, 1164, 1164, 1164, 1164, 1164, 1164, 1164,
-     1164, 1164, 1164, 1165, 1165, 1165, 1165, 1165, 1165, 1165,
-     1165, 1165, 1165, 1165, 1165, 1165, 1166, 1166, 1166, 1166,
-     1166, 1166, 1166, 1166, 1166, 1166, 1166, 1166, 1166, 1167,
-     1167, 1167, 1167, 1167, 1167, 1167, 1167, 1167, 1167, 1167,
-     1167, 1167, 1168, 1168, 1168, 1168, 1168, 1168, 1168, 1168,
-     1168, 1168, 1168, 1168, 1168, 1169, 1169, 1169, 1169, 1169,
-     1169, 1169, 1169, 1169, 1169, 1169, 1169, 1169, 1170, 1170,
-
-     1170, 1170, 1170, 1170, 1170, 1170, 1170, 1170, 1170, 1170,
-     1170, 1131, 1131, 1131, 1131, 1131, 1131, 1131, 1131, 1131,
-     1131, 1131, 1131, 1131, 1131, 1131, 1131, 1131, 1131, 1131,
-     1131, 1131, 1131, 1131, 1131, 1131, 1131, 1131, 1131, 1131,
-     1131, 1131, 1131, 1131, 1131, 1131, 1131, 1131, 1131, 1131,
-     1131, 1131, 1131, 1131, 1131, 1131, 1131, 1131, 1131, 1131,
-     1131, 1131, 1131, 1131, 1131, 1131, 1131, 1131, 1131, 1131,
-     1131, 1131, 1131, 1131, 1131, 1131, 1131, 1131, 1131, 1131,
-     1131, 1131, 1131, 1131, 1131, 1131, 1131, 1131, 1131, 1131,
-     1131, 1131, 1131, 1131, 1131, 1131, 1131, 1131, 1131, 1131,
-
-     1131
+        0,    0,    0,    0, 1840,    0,    0,    0,    0,    0,
+        0,    0,    0, 1844,    0, 1843, 1849, 1849, 1849, 1849,
+     1849, 1849, 1849, 1849, 1849, 1849, 1849, 1849, 1849, 1849,
+     1849, 1849, 1849, 1849, 1850, 1850, 1850, 1850, 1850, 1850,
+     1850, 1850, 1850, 1850, 1850, 1850, 1850, 1850, 1850, 1850,
+     1850, 1850, 1851, 1851,    0, 1851, 1851, 1851, 1851, 1851,
+     1851, 1851, 1851, 1851, 1851, 1851, 1851, 1851, 1851, 1851,
+     1852, 1852, 1852, 1852, 1852, 1852, 1852, 1852, 1852, 1852,
+
+     1852, 1852, 1852, 1852, 1852, 1852, 1852, 1852, 1853, 1853,
+     1853, 1853, 1853, 1853, 1853, 1853, 1853, 1853, 1853, 1853,
+     1853, 1853, 1853, 1853, 1853, 1853, 1854,    0,    0,    0,
+        0,    0,    0, 1854,    0, 1854,    0, 1854, 1854, 1854,
+     1854, 1854, 1855, 1855, 1855, 1855, 1855, 1856, 1856, 1856,
+     1856, 1856, 1856, 1856, 1856, 1856, 1856, 1856, 1856, 1856,
+     1856, 1856, 1856, 1856, 1856, 1857, 1857, 1857, 1857, 1857,
+     1857, 1857, 1857, 1857, 1857, 1857, 1857, 1857, 1857, 1857,
+     1857, 1857, 1857, 1858, 1858, 1858, 1858, 1858, 1858, 1858,
+     1858, 1858, 1858, 1858, 1858, 1858, 1858, 1858, 1858, 1858,
+
+     1858, 1859,    0,    0,    0,    0,    0,    0,    0,    0,
+        0,    0, 1859, 1859, 1859, 1859, 1859, 1860, 1860, 1860,
+     1860, 1860, 1860, 1860, 1860, 1860, 1860, 1860, 1860, 1860,
+     1860, 1860, 1860, 1860, 1860, 1861, 1861,    0, 1861, 1861,
+     1861, 1861, 1861, 1861, 1861, 1861, 1861, 1861, 1861, 1861,
+     1861, 1861, 1861, 1862, 1862, 1862, 1862, 1862, 1862, 1862,
+     1862, 1862, 1862, 1862, 1862, 1862, 1862, 1862, 1862, 1862,
+     1862, 1863, 1863, 1863, 1863, 1863, 1863, 1863, 1863, 1863,
+     1863, 1863, 1863, 1863, 1863, 1863, 1863, 1863, 1863, 1864,
+     1864, 1864, 1864, 1864, 1864, 1864, 1864, 1864, 1864, 1864,
+
+     1864, 1864, 1864, 1864, 1864, 1864, 1864, 1865, 1865, 1865,
+     1865, 1865, 1865, 1865, 1865, 1865, 1865, 1865, 1865, 1865,
+     1865, 1865, 1865, 1865, 1865, 1866,    0,    0,    0,    0,
+        0,    0, 1866,    0, 1866,    0,    0, 1866, 1866, 1866,
+     1866, 1867, 1867, 1867, 1867,    0, 1867, 1867, 1867, 1867,
+     1867, 1867,    0, 1867, 1867,    0,    0, 1867, 1867, 1868,
+     1868, 1868, 1868, 1868, 1870, 1870, 1870, 1870, 1870, 1870,
+     1870, 1870, 1870, 1870, 1870, 1870, 1870, 1870, 1870, 1870,
+     1870, 1870, 1871, 1871, 1871, 1871, 1871, 1871, 1871, 1871,
+     1871, 1871, 1871, 1871, 1871, 1871, 1871, 1871, 1871, 1871,
+
+     1872, 1872, 1872, 1872, 1872, 1872, 1872, 1872, 1872, 1872,
+     1872, 1872, 1872, 1872, 1872, 1872, 1872, 1872, 1873, 1873,
+     1873, 1873, 1873, 1873, 1873, 1873, 1873, 1873, 1873, 1873,
+     1873, 1873, 1873, 1873, 1873, 1873, 1874, 1874, 1874, 1874,
+     1874, 1874, 1874, 1874, 1874, 1874, 1874, 1874, 1874, 1874,
+     1874, 1874, 1874, 1874, 1875, 1875, 1875, 1875, 1875, 1875,
+     1875, 1875, 1875, 1875, 1875, 1875, 1875, 1875, 1875, 1875,
+     1875, 1875, 1876, 1876, 1876, 1876, 1876, 1876, 1876, 1876,
+     1876, 1876, 1876, 1876, 1876, 1876, 1876, 1876, 1876, 1876,
+     1877, 1877, 1877, 1877, 1877, 1877, 1877, 1877, 1877, 1877,
+
+     1877, 1877, 1877, 1877, 1877, 1877, 1877, 1877, 1878, 1878,
+     1878, 1878, 1878, 1878, 1878, 1878, 1878, 1878, 1878, 1878,
+     1878, 1878, 1878, 1878, 1878, 1878, 1879, 1879,    0, 1879,
+     1879, 1879, 1879, 1879, 1879, 1879, 1879, 1879, 1879, 1879,
+     1879, 1879, 1879, 1879, 1880, 1880, 1880, 1880, 1880, 1880,
+     1880, 1880, 1880, 1880, 1880, 1880, 1880, 1880, 1880, 1880,
+     1880, 1880, 1881, 1881, 1881, 1881, 1881, 1881, 1881, 1881,
+     1881, 1881, 1881, 1881, 1881, 1881, 1881, 1881, 1881, 1881,
+     1882, 1882, 1882, 1882, 1882, 1882, 1882, 1882, 1882, 1882,
+     1882, 1882, 1882, 1882, 1882, 1882, 1882, 1882, 1883, 1883,
+
+     1883, 1883, 1883, 1883, 1883, 1883, 1883, 1883, 1883, 1883,
+     1883, 1883, 1883, 1883, 1883, 1883, 1884, 1884, 1884, 1884,
+     1884, 1884, 1884, 1884, 1884, 1884, 1884, 1884, 1884, 1884,
+     1884, 1884, 1884, 1884, 1885,    0,    0,    0,    0,    0,
+        0, 1885,    0, 1885,    0,    0, 1885, 1885, 1885, 1885,
+     1886,    0,    0,    0,    0,    0,    0,    0, 1886,    0,
+     1886,    0, 1886, 1886, 1886, 1886, 1886, 1887, 1887, 1887,
+     1887, 1888, 1888, 1888, 1888, 1888, 1888, 1888, 1888, 1888,
+     1888, 1888, 1888, 1888, 1888, 1888, 1888, 1888, 1888, 1889,
+     1889, 1889, 1889, 1889, 1889, 1889, 1889, 1889, 1889, 1889,
+
+     1889, 1889, 1889, 1889, 1889, 1889, 1889, 1890, 1890, 1890,
+     1890, 1890, 1890, 1890, 1890, 1890, 1890, 1890, 1890, 1890,
+     1890, 1890, 1890, 1890, 1890, 1891, 1891, 1891, 1891,    0,
+     1891, 1891, 1891, 1891, 1891, 1891,    0, 1891, 1891,    0,
+        0, 1891, 1891, 1892, 1892, 1892, 1892, 1892, 1893, 1893,
+     1893, 1893, 1893, 1893, 1893, 1893, 1893, 1893, 1893, 1893,
+     1893, 1893, 1893, 1893, 1893, 1893, 1894,    0,    0,    0,
+        0,    0,    0,    0, 1894, 1894, 1895, 1895, 1895, 1895,
+     1895, 1895, 1895, 1895, 1895, 1895, 1895, 1895, 1895, 1895,
+     1895, 1895, 1895, 1895, 1896, 1896, 1896, 1896, 1896, 1896,
+
+     1896, 1896, 1896, 1896, 1896, 1896, 1896, 1896, 1896, 1896,
+     1896, 1896, 1897, 1897, 1897, 1897, 1897, 1897, 1897, 1897,
+     1897, 1897, 1897, 1897, 1897, 1897, 1897, 1897, 1897, 1897,
+     1898, 1898, 1898, 1898, 1898, 1898, 1898, 1898, 1898, 1898,
+     1898, 1898, 1898, 1898, 1898, 1898, 1898, 1898, 1899, 1899,
+     1899, 1899, 1899, 1899, 1899, 1899, 1899, 1899, 1899, 1899,
+     1899, 1899, 1899, 1899, 1899, 1899, 1900, 1900, 1900, 1900,
+     1900, 1900, 1900, 1900, 1900, 1900, 1900, 1900, 1900, 1900,
+     1900, 1900, 1900, 1900, 1901, 1901, 1901, 1901, 1901, 1901,
+     1901, 1901, 1901, 1901, 1901, 1901, 1901, 1901, 1901, 1901,
+
+     1901, 1901, 1902, 1902, 1902, 1902, 1902, 1902, 1902, 1902,
+     1902, 1902, 1902, 1902, 1902, 1902, 1902, 1902, 1902, 1902,
+     1903,    0,    0,    0,    0,    0,    0,    0,    0,    0,
+        0, 1903, 1903, 1903, 1903, 1903, 1904, 1904, 1904, 1904,
+     1904, 1904, 1904, 1904, 1904, 1904, 1904, 1904, 1904, 1904,
+     1904, 1904, 1904, 1904, 1905, 1905, 1905, 1905, 1905, 1905,
+     1905, 1905, 1905, 1905, 1905, 1905, 1905, 1905, 1905, 1905,
+     1905, 1905, 1906, 1906, 1906, 1906, 1906, 1906, 1906, 1906,
+     1906, 1906, 1906, 1906, 1906, 1906, 1906, 1906, 1906, 1906,
+     1907, 1907,    0, 1907, 1907, 1907, 1907, 1907, 1907, 1907,
+
+     1907, 1907, 1907, 1907, 1907, 1907, 1907, 1907, 1908, 1908,
+     1908, 1908, 1908, 1908, 1908, 1908, 1908, 1908, 1908, 1908,
+     1908, 1908, 1908, 1908, 1908, 1908, 1909, 1909, 1909, 1909,
+     1909, 1909, 1909, 1909, 1909, 1909, 1909, 1909, 1909, 1909,
+     1909, 1909, 1909, 1909, 1910, 1910, 1910, 1910, 1910, 1910,
+     1910, 1910, 1910, 1910, 1910, 1910, 1910, 1910, 1910, 1910,
+     1910, 1910, 1911, 1911, 1911, 1911, 1911, 1911, 1911, 1911,
+     1911, 1911, 1911, 1911, 1911, 1911, 1911, 1911, 1911, 1911,
+     1912,    0,    0,    0,    0,    0,    0, 1912,    0, 1912,
+        0,    0, 1912, 1912, 1912, 1912, 1913,    0,    0,    0,
+
+        0,    0,    0,    0, 1913,    0,    0,    0, 1913, 1913,
+     1913, 1913, 1913, 1914,    0,    0,    0,    0,    0,    0,
+        0, 1914,    0, 1914,    0, 1914, 1914, 1914, 1914, 1914,
+     1915, 1915, 1915, 1915, 1915, 1915, 1915, 1915, 1915, 1915,
+     1915, 1915, 1915, 1915, 1915, 1915, 1915, 1915, 1916, 1916,
+     1916, 1916, 1916, 1916, 1916, 1916, 1916, 1916, 1916, 1916,
+     1916, 1916, 1916, 1916, 1916, 1916, 1917, 1917, 1917, 1917,
+     1917, 1917, 1917, 1917, 1917, 1917, 1917, 1917, 1917, 1917,
+     1917, 1917, 1917, 1917, 1918, 1918, 1918, 1918, 1918, 1918,
+     1918, 1918, 1918, 1918, 1918, 1918, 1918, 1918, 1918, 1918,
+
+     1918, 1918, 1919, 1919, 1919, 1919, 1919, 1920, 1920, 1920,
+     1920, 1920, 1920, 1920, 1920, 1920, 1920, 1920, 1920, 1920,
+     1920, 1920, 1920, 1920, 1920, 1921, 1921, 1921, 1921, 1921,
+     1921,    0, 1921, 1921, 1921, 1921, 1921, 1921, 1921, 1921,
+     1921, 1921, 1921, 1922, 1922,    0, 1922, 1922, 1922, 1922,
+     1922, 1922, 1922, 1922, 1922, 1922, 1922, 1922, 1922, 1922,
+     1922, 1923, 1923, 1923, 1923, 1923, 1923, 1923, 1923, 1923,
+     1923, 1923, 1923, 1923, 1923, 1923, 1923, 1923, 1923, 1924,
+     1924, 1924, 1924, 1924, 1924, 1924, 1924, 1924, 1924, 1924,
+     1924, 1924, 1924, 1924, 1924, 1924, 1924, 1925, 1925, 1925,
+
+     1925, 1925, 1925, 1925, 1925, 1925, 1925, 1925, 1925, 1925,
+     1925, 1925, 1925, 1925, 1925, 1926, 1926, 1926, 1926, 1926,
+     1926, 1926, 1926, 1926, 1926, 1926, 1926, 1926, 1926, 1926,
+     1926, 1926, 1926, 1927, 1927, 1927, 1927, 1927, 1927, 1927,
+     1927, 1927, 1927, 1927, 1927, 1927, 1927, 1927, 1927, 1927,
+     1927, 1928, 1928, 1928, 1928, 1928, 1928, 1928, 1928, 1928,
+     1928, 1928, 1928, 1928, 1928, 1928, 1928, 1928, 1928, 1929,
+     1929,    0, 1929, 1929, 1929, 1929, 1929, 1929, 1929, 1929,
+     1929, 1929, 1929, 1929, 1929, 1929, 1929, 1930, 1930,    0,
+     1930, 1930, 1930, 1930, 1930, 1930, 1930, 1930, 1930, 1930,
+
+     1930, 1930, 1930, 1930, 1930, 1931, 1931,    0, 1931, 1931,
+     1931, 1931, 1931, 1931, 1931, 1931, 1931, 1931, 1931, 1931,
+     1931, 1931, 1931, 1932, 1932, 1932, 1932, 1932, 1932, 1932,
+     1932, 1932, 1932, 1932, 1932, 1932, 1932, 1932, 1932, 1932,
+     1932, 1933, 1933, 1933, 1933, 1933, 1933, 1933, 1933, 1933,
+     1933, 1933, 1933, 1933, 1933, 1933, 1933, 1933, 1933, 1934,
+     1934, 1934, 1934, 1934, 1934, 1934, 1934, 1934, 1934, 1934,
+     1934, 1934, 1934, 1934, 1934, 1934, 1934, 1935, 1935, 1935,
+     1935, 1935, 1935, 1935, 1935, 1935, 1935, 1935, 1935, 1935,
+     1935, 1935, 1935, 1935, 1935, 1936,    0,    0,    0,    0,
+
+        0, 1936,    0,    0,    0, 1936,    0, 1936, 1936, 1936,
+     1936, 1936, 1937, 1937, 1937, 1937, 1938,    0,    0,    0,
+        0,    0,    0,    0, 1938,    0,    0,    0, 1938, 1938,
+     1938, 1938, 1938, 1939,    0,    0,    0,    0,    0,    0,
+        0, 1939,    0, 1939,    0, 1939, 1939, 1939, 1939, 1939,
+     1940, 1940,    0, 1940, 1940, 1940, 1940, 1940, 1940, 1940,
+     1940, 1940, 1940, 1940, 1940, 1940, 1940, 1940, 1941, 1941,
+     1941, 1941, 1941, 1941, 1941, 1941, 1941, 1941, 1941, 1941,
+     1941, 1941, 1941, 1941, 1941, 1941, 1942, 1942,    0, 1942,
+     1942, 1942, 1942, 1942, 1942, 1942, 1942, 1942, 1942, 1942,
+
+     1942, 1942, 1942, 1942, 1943, 1943, 1943, 1943, 1943, 1943,
+        0, 1943, 1943, 1943, 1943, 1943, 1943, 1943, 1943, 1943,
+     1943, 1943, 1944, 1944,    0, 1944, 1944, 1944, 1944, 1944,
+     1944, 1944, 1944, 1944, 1944, 1944, 1944, 1944, 1944, 1944,
+     1945, 1945, 1945, 1945, 1945, 1945, 1945, 1945, 1945, 1945,
+     1945, 1945, 1945, 1945, 1945, 1945, 1945, 1945, 1946, 1946,
+     1946, 1946, 1946, 1946, 1946, 1946, 1946, 1946, 1946, 1946,
+     1946, 1946, 1946, 1946, 1946, 1946, 1947, 1947, 1947, 1947,
+     1947, 1947, 1947, 1947, 1947, 1947, 1947, 1947, 1947, 1947,
+     1947, 1947, 1947, 1947, 1948, 1948, 1948, 1948, 1948, 1948,
+
+     1948, 1948, 1948, 1948, 1948, 1948, 1948, 1948, 1948, 1948,
+     1948, 1948, 1949, 1949, 1949, 1949, 1949, 1949, 1949, 1949,
+     1949, 1949, 1949, 1949, 1949, 1949, 1949, 1949, 1949, 1949,
+     1950, 1950, 1950, 1950, 1950, 1950, 1950, 1950, 1950, 1950,
+     1950, 1950, 1950, 1950, 1950, 1950, 1950, 1950, 1951, 1951,
+     1951, 1951, 1951, 1951, 1951, 1951, 1951, 1951, 1951, 1951,
+     1951, 1951, 1951, 1951, 1951, 1951, 1952, 1952, 1952, 1952,
+     1952, 1952, 1952, 1952, 1952, 1952, 1952, 1952, 1952, 1952,
+     1952, 1952, 1952, 1952, 1953, 1953, 1953, 1953, 1953, 1953,
+     1953, 1953, 1953, 1953, 1953, 1953, 1953, 1953, 1953, 1953,
+
+     1953, 1953, 1954, 1954, 1954, 1954, 1954, 1954, 1954, 1954,
+     1954, 1954, 1954, 1954, 1954, 1954, 1954, 1954, 1954, 1954,
+     1955, 1955,    0, 1955, 1955, 1955, 1955, 1955, 1955, 1955,
+     1955, 1955, 1955, 1955, 1955, 1955, 1955, 1955, 1956, 1956,
+        0, 1956, 1956, 1956, 1956, 1956, 1956, 1956, 1956, 1956,
+     1956, 1956, 1956, 1956, 1956, 1956, 1957, 1957,    0, 1957,
+     1957, 1957, 1957, 1957, 1957, 1957, 1957, 1957, 1957, 1957,
+     1957, 1957, 1957, 1957, 1958, 1958, 1958, 1958, 1958, 1958,
+     1958, 1958, 1958, 1958, 1958, 1958, 1958, 1958, 1958, 1958,
+     1958, 1958, 1959, 1959, 1959, 1959, 1959, 1959, 1959, 1959,
+
+     1959, 1959, 1959, 1959, 1959, 1959, 1959, 1959, 1959, 1959,
+     1960, 1960, 1960, 1960, 1960, 1960, 1960, 1960, 1960, 1960,
+     1960, 1960, 1960, 1960, 1960, 1960, 1960, 1960, 1961, 1961,
+     1961, 1961, 1961, 1961, 1961, 1961, 1961, 1961, 1961, 1961,
+     1961, 1961, 1961, 1961, 1961, 1961, 1962,    0,    0,    0,
+        0,    0, 1962,    0,    0,    0,    0,    0, 1962, 1962,
+     1962, 1962, 1962, 1963, 1963,    0, 1963, 1963, 1963, 1963,
+     1963, 1963, 1963, 1963, 1963, 1963, 1963, 1963, 1963, 1963,
+     1963, 1964,    0,    0,    0,    0,    0,    0, 1964,    0,
+     1964,    0,    0, 1964, 1964, 1964, 1964, 1965,    0,    0,
+
+        0,    0,    0,    0,    0, 1965,    0, 1965,    0, 1965,
+     1965, 1965, 1965, 1965, 1966, 1966, 1966, 1966, 1967, 1967,
+        0, 1967, 1967, 1967, 1967, 1967, 1967, 1967, 1967, 1967,
+     1967, 1967, 1967, 1967, 1967, 1967, 1968, 1968, 1968, 1968,
+     1968, 1968,    0, 1968, 1968, 1968, 1968, 1968, 1968, 1968,
+     1968, 1968, 1968, 1968, 1969, 1969,    0, 1969, 1969, 1969,
+     1969, 1969, 1969, 1969, 1969, 1969, 1969, 1969, 1969, 1969,
+     1969, 1969, 1970, 1970,    0, 1970, 1970, 1970, 1970, 1970,
+     1970, 1970, 1970, 1970, 1970, 1970, 1970, 1970, 1970, 1970,
+     1971, 1971, 1971, 1971, 1971, 1971, 1971, 1971, 1971, 1971,
+
+     1971, 1971, 1971, 1971, 1971, 1971, 1971, 1971, 1972, 1972,
+     1972, 1972, 1972, 1972, 1972, 1972, 1972, 1972, 1972, 1972,
+     1972, 1972, 1972, 1972, 1972, 1972, 1973, 1973, 1973, 1973,
+     1973, 1973, 1973, 1973, 1973, 1973, 1973, 1973, 1973, 1973,
+     1973, 1973, 1973, 1973, 1974, 1974, 1974, 1974, 1974, 1974,
+     1974, 1974, 1974, 1974, 1974, 1974, 1974, 1974, 1974, 1974,
+     1974, 1974, 1975,    0, 1975,    0,    0,    0,    0, 1975,
+        0,    0, 1975, 1975, 1975, 1975, 1975, 1975, 1976, 1976,
+     1976, 1976, 1976, 1976, 1976, 1976, 1976, 1976, 1976, 1976,
+     1976, 1976, 1976, 1976, 1976, 1976, 1977, 1977, 1977, 1977,
+
+     1977, 1977, 1977, 1977, 1977, 1977, 1977, 1977, 1977, 1977,
+     1977, 1977, 1977, 1977, 1978, 1978, 1978, 1978, 1978, 1978,
+     1978, 1978, 1978, 1978, 1978, 1978, 1978, 1978, 1978, 1978,
+     1978, 1978, 1979, 1979, 1979, 1979, 1979, 1979, 1979, 1979,
+     1979, 1979, 1979, 1979, 1979, 1979, 1979, 1979, 1979, 1979,
+     1980, 1980, 1980, 1980, 1980, 1980, 1980, 1980, 1980, 1980,
+     1980, 1980, 1980, 1980, 1980, 1980, 1980, 1980, 1981, 1981,
+        0, 1981, 1981, 1981, 1981, 1981, 1981, 1981, 1981, 1981,
+     1981, 1981, 1981, 1981, 1981, 1981, 1982, 1982, 1982, 1982,
+     1982, 1982, 1982, 1982, 1982, 1982, 1982, 1982, 1982, 1982,
+
+     1982, 1982, 1982, 1982, 1983, 1983, 1983, 1983, 1983, 1983,
+     1983, 1983, 1983, 1983, 1983, 1983, 1983, 1983, 1983, 1983,
+     1983, 1983, 1984,    0,    0,    0,    0,    0, 1984,    0,
+        0,    0,    0,    0, 1984, 1984, 1984, 1984, 1984, 1985,
+        0, 1985,    0,    0,    0,    0, 1985,    0,    0, 1985,
+     1985, 1985, 1985, 1985, 1985, 1986,    0, 1986,    0,    0,
+        0,    0, 1986,    0,    0, 1986, 1986, 1986, 1986, 1986,
+     1986, 1987, 1987, 1987, 1987, 1987, 1987, 1987, 1987, 1987,
+     1987, 1987, 1987, 1987, 1987, 1987, 1987, 1987, 1987, 1988,
+     1988, 1988, 1988, 1988, 1989, 1989,    0, 1989, 1989, 1989,
+
+     1989, 1989, 1989, 1989, 1989, 1989, 1989, 1989, 1989, 1989,
+     1989, 1989, 1990, 1990, 1990, 1990, 1990, 1990, 1990, 1990,
+     1990, 1990, 1990, 1990, 1990, 1990, 1990, 1990, 1990, 1990,
+     1991, 1991, 1991, 1991, 1991, 1991, 1991, 1991, 1991, 1991,
+     1991, 1991, 1991, 1991, 1991, 1991, 1991, 1991, 1992, 1992,
+     1992, 1992, 1992, 1992, 1992, 1992, 1992, 1992, 1992, 1992,
+     1992, 1992, 1992, 1992, 1992, 1992, 1993, 1993, 1993, 1993,
+     1993, 1993, 1993, 1993, 1993, 1993, 1993, 1993, 1993, 1993,
+     1993, 1993, 1993, 1993, 1994, 1994, 1994, 1994, 1994, 1994,
+     1994, 1994, 1994, 1994, 1994, 1994, 1994, 1994, 1994, 1994,
+
+     1994, 1994, 1995, 1995, 1995, 1995, 1995, 1995, 1995, 1995,
+     1995, 1995, 1995, 1995, 1995, 1995, 1995, 1995, 1995, 1995,
+     1996, 1996, 1996, 1996, 1996, 1996, 1996, 1996, 1996, 1996,
+     1996, 1996, 1996, 1996, 1996, 1996, 1996, 1996, 1997, 1997,
+     1997, 1997, 1997, 1997, 1997, 1997, 1997, 1997, 1997, 1997,
+     1997, 1997, 1997, 1997, 1997, 1997, 1998, 1998, 1998, 1998,
+     1998, 1998, 1998, 1998, 1998, 1998, 1998, 1998, 1998, 1998,
+     1998, 1998, 1998, 1998, 1999, 1999, 1999, 1999, 1999, 1999,
+     1999, 1999, 1999, 1999, 1999, 1999, 1999, 1999, 1999, 1999,
+     1999, 1999, 2000, 2000, 2000, 2000, 2000, 2000, 2000, 2000,
+
+     2000, 2000, 2000, 2000, 2000, 2000, 2000, 2000, 2000, 2000,
+     1848, 1848, 1848, 1848, 1848, 1848, 1848, 1848, 1848, 1848,
+     1848, 1848, 1848, 1848, 1848, 1848, 1848, 1848, 1848, 1848,
+     1848, 1848, 1848, 1848, 1848, 1848, 1848, 1848, 1848, 1848,
+     1848, 1848, 1848, 1848, 1848, 1848, 1848, 1848, 1848, 1848,
+     1848, 1848, 1848, 1848, 1848, 1848, 1848, 1848, 1848, 1848,
+     1848, 1848, 1848, 1848, 1848, 1848, 1848, 1848, 1848, 1848,
+     1848, 1848, 1848, 1848, 1848, 1848, 1848, 1848, 1848, 1848,
+     1848, 1848, 1848, 1848, 1848, 1848, 1848, 1848, 1848, 1848,
+     1848
+
     } ;
-
-static yy_state_type yy_last_accepting_state;
-static char *yy_last_accepting_cpos;
 
 extern int fortran__flex_debug;
 int fortran__flex_debug = 0;
 
-/* The intent behind this definition is that it'll catch
- * any uses of REJECT which flex missed.
- */
-#define REJECT reject_used_but_not_detected
+static yy_state_type *yy_state_buf=0, *yy_state_ptr=0;
+static char *yy_full_match;
+static int yy_lp;
+static int yy_looking_for_trail_begin = 0;
+static int yy_full_lp;
+static int *yy_full_state;
+#define YY_TRAILING_MASK 0x2000
+#define YY_TRAILING_HEAD_MASK 0x4000
+#define REJECT \
+{ \
+*yy_cp = (yy_hold_char); /* undo effects of setting up fortran_text */ \
+yy_cp = (yy_full_match); /* restore poss. backed-over text */ \
+(yy_lp) = (yy_full_lp); /* restore orig. accepting pos. */ \
+(yy_state_ptr) = (yy_full_state); /* restore orig. state */ \
+yy_current_state = *(yy_state_ptr); /* restore curr. state */ \
+++(yy_lp); \
+goto find_rule; \
+}
+
 #define yymore() yymore_used_but_not_detected
 #define YY_MORE_ADJ 0
@@ -8207 +10683 @@
 
 
-#line 44 "fortran.lex"
+
+#line 45 "fortran.lex"
 #include <math.h>
 #include <stdlib.h>
@@ -8213 +10690 @@
 extern FILE * fortran_in;
 #define MAX_INCLUDE_DEPTH 30
+#define YY_BUF_SIZE 64000
 YY_BUFFER_STATE include_stack[MAX_INCLUDE_DEPTH];
-int line_num_input = 1;
+int line_num_input = 0;
 int newlinef90 = 0;
-char tmpc;
-#define PRINT_LINE_NUM()     // { fprintf(stderr,"== Parsing l.%4d...\n", line_num_input); }
-#define INCREMENT_LINE_NUM() { line_num_input++; PRINT_LINE_NUM(); }
-
-/******************************************************************************/
-/**************PETITS PB NON PREVUS *******************************************/
-/******************************************************************************/
-/* NEXTLINF77 un ligne fortran 77 peut commencer par -      &a=b or on        */
-/*            a prevu seulement       & a=b avec l'espace entre le symbole    */
-/*            de la 7eme et le debut de la ligne de commande                  */
-/*            le ! est aussi interdit comme symbole de la 7 eme colonne       */
-/*            Normalement NEXTLINEF77 \n+[ ]{5}[^ ]                           */
-/******************************************************************************/
-#define YY_USER_ACTION  if (firstpass == 0) ECHO;
+int tmpc;
+
+int lastwasendofstmt = 1;
+
+extern char linebuf1[1024];
+extern char linebuf2[1024];
+
+int count_newlines(const char* str_in)
+{
+    int k, i = 0;
+    for( k=0 ; k<strlen(str_in) ; k++)
+        if (str_in[k] == '\n') i++;
+    return i;
+}
+
+#define PRINT_LINE_NUM()    // { fprintf(stderr,"== Parsing l.%4d...\n", line_num_input); }
+#define INCREMENT_LINE_NUM() { line_num_input+=count_newlines(fortran_text) ; PRINT_LINE_NUM(); }
+#define YY_USER_ACTION       { if (increment_nbtokens !=0) token_since_endofstmt++; increment_nbtokens = 1; if (token_since_endofstmt>=1) lastwasendofstmt=0; /*printf("VALLIJSDFLSD = %d %d %s \n",lastwasendofstmt,token_since_endofstmt,fortran_text); */ if (firstpass) { strcpy(linebuf1, linebuf2); strncpy(linebuf2, fortran_text,80);} \
+                               else {my_position_before=setposcur();/*printf("muposition = %d\n",my_position_before);*/ECHO;} }
+#define YY_BREAK {/*printf("VALL = %d %d\n",lastwasendofstmt,token_since_endofstmt);*/if (token_since_endofstmt>=1) lastwasendofstmt=0; break;}
 
 void out_of_donottreat(void);
 
-#line 1826 "fortran.yy.c"
+#line 3426 "fortran.yy.c"
 
 #define INITIAL 0
@@ -8239 +10723 @@
 #define character 2
 #define donottreat 3
-#define fortran77style 4
-#define fortran90style 5
+#define includestate 4
+#define fortran77style 5
+#define fortran90style 6
 
 #ifndef YY_NO_UNISTD_H
@@ -8423 +10908 @@
    register int yy_act;
     
-#line 97 "fortran.lex"
+#line 100 "fortran.lex"
 
   if (infixed) BEGIN(fortran77style) ;
   if (infree)  BEGIN(fortran90style) ;
 
-#line 2021 "fortran.yy.c"
+#line 3622 "fortran.yy.c"
 
    if ( !(yy_init) )
@@ -8437 +10922 @@
       YY_USER_INIT;
 #endif
+
+        /* Create the reject buffer large enough to save one state per allowed character. */
+        if ( ! (yy_state_buf) )
+            (yy_state_buf) = (yy_state_type *)fortran_alloc(YY_STATE_BUF_SIZE  );
+            if ( ! (yy_state_buf) )
+                YY_FATAL_ERROR( "out of dynamic memory in fortran_lex()" );
 
       if ( ! (yy_start) )
@@ -8470 +10961 @@
       yy_current_state = (yy_start);
       yy_current_state += YY_AT_BOL();
+
+      (yy_state_ptr) = (yy_state_buf);
+      *(yy_state_ptr)++ = yy_current_state;
+
 yy_match:
       do
          {
          register YY_CHAR yy_c = yy_ec[YY_SC_TO_UI(*yy_cp)];
-         if ( yy_accept[yy_current_state] )
-            {
-            (yy_last_accepting_state) = yy_current_state;
-            (yy_last_accepting_cpos) = yy_cp;
-            }
          while ( yy_chk[yy_base[yy_current_state] + yy_c] != yy_current_state )
             {
             yy_current_state = (int) yy_def[yy_current_state];
-            if ( yy_current_state >= 1132 )
+            if ( yy_current_state >= 1849 )
                yy_c = yy_meta[(unsigned int) yy_c];
             }
          yy_current_state = yy_nxt[yy_base[yy_current_state] + (unsigned int) yy_c];
+         *(yy_state_ptr)++ = yy_current_state;
          ++yy_cp;
          }
-      while ( yy_base[yy_current_state] != 4012 );
+      while ( yy_base[yy_current_state] != 9211 );
 
 yy_find_action:
-      yy_act = yy_accept[yy_current_state];
-      if ( yy_act == 0 )
-         { /* have to back up */
-         yy_cp = (yy_last_accepting_cpos);
-         yy_current_state = (yy_last_accepting_state);
-         yy_act = yy_accept[yy_current_state];
+      yy_current_state = *--(yy_state_ptr);
+      (yy_lp) = yy_accept[yy_current_state];
+goto find_rule; /* Shut up GCC warning -Wall */
+find_rule: /* we branch to this label when backing up */
+      for ( ; ; ) /* until we find what rule we matched */
+         {
+         if ( (yy_lp) && (yy_lp) < yy_accept[yy_current_state + 1] )
+            {
+            yy_act = yy_acclist[(yy_lp)];
+            if ( yy_act & YY_TRAILING_HEAD_MASK ||
+                 (yy_looking_for_trail_begin) )
+               {
+               if ( yy_act == (yy_looking_for_trail_begin) )
+                  {
+                  (yy_looking_for_trail_begin) = 0;
+                  yy_act &= ~YY_TRAILING_HEAD_MASK;
+                  break;
+                  }
+               }
+            else if ( yy_act & YY_TRAILING_MASK )
+               {
+               (yy_looking_for_trail_begin) = yy_act & ~YY_TRAILING_MASK;
+               (yy_looking_for_trail_begin) |= YY_TRAILING_HEAD_MASK;
+               }
+            else
+               {
+               (yy_full_match) = yy_cp;
+               (yy_full_state) = (yy_state_ptr);
+               (yy_full_lp) = (yy_lp);
+               break;
+               }
+            ++(yy_lp);
+            goto find_rule;
+            }
+         --yy_cp;
+         yy_current_state = *--(yy_state_ptr);
+         (yy_lp) = yy_accept[yy_current_state];
          }
 
@@ -8505 +11027 @@
       switch ( yy_act )
    { /* beginning of action switch */
-         case 0: /* must back up */
-         /* undo the effects of YY_DO_BEFORE_ACTION */
-         *yy_cp = (yy_hold_char);
-         yy_cp = (yy_last_accepting_cpos);
-         yy_current_state = (yy_last_accepting_state);
-         goto yy_find_action;
-
 case 1:
 YY_RULE_SETUP
-#line 101 "fortran.lex"
-{ return TOK_REAL8; }
+#line 104 "fortran.lex"
+{ return TOK_SUBROUTINE; }
    YY_BREAK
 case 2:
 YY_RULE_SETUP
-#line 102 "fortran.lex"
-{ return TOK_SUBROUTINE; }
+#line 105 "fortran.lex"
+{ return TOK_PROGRAM; }
    YY_BREAK
 case 3:
 YY_RULE_SETUP
-#line 103 "fortran.lex"
-{ return TOK_PROGRAM; }
+#line 106 "fortran.lex"
+{ inallocate = 1; return TOK_ALLOCATE; }
    YY_BREAK
 case 4:
 YY_RULE_SETUP
-#line 104 "fortran.lex"
-{ inallocate = 1; return TOK_ALLOCATE; }
+#line 107 "fortran.lex"
+{ return TOK_CONTINUE; }
    YY_BREAK
 case 5:
 YY_RULE_SETUP
-#line 105 "fortran.lex"
+#line 108 "fortran.lex"
 { return TOK_NULLIFY; }
    YY_BREAK
 case 6:
 YY_RULE_SETUP
-#line 106 "fortran.lex"
-{ return TOK_NULL_PTR; }
+#line 109 "fortran.lex"
+{ inallocate = 1; return TOK_DEALLOCATE; }
    YY_BREAK
 case 7:
 YY_RULE_SETUP
-#line 107 "fortran.lex"
-{ inallocate = 1; return TOK_DEALLOCATE; }
+#line 110 "fortran.lex"
+{ return TOK_RESULT; }
    YY_BREAK
 case 8:
 YY_RULE_SETUP
-#line 108 "fortran.lex"
-{ return TOK_RESULT; }
+#line 111 "fortran.lex"
+{ return TOK_FUNCTION; }
    YY_BREAK
 case 9:
 YY_RULE_SETUP
-#line 109 "fortran.lex"
-{ return TOK_FUNCTION; }
+#line 112 "fortran.lex"
+{ strcpy(yylval.na,fortran_text); return TOK_ENDUNIT;}
    YY_BREAK
 case 10:
 YY_RULE_SETUP
-#line 110 "fortran.lex"
-{ strcpy(yylval.na,fortran_text); return TOK_ENDPROGRAM;}
+#line 113 "fortran.lex"
+{ pos_curinclude = setposcur()-9; BEGIN(includestate); }
    YY_BREAK
 case 11:
 YY_RULE_SETUP
-#line 111 "fortran.lex"
-{ strcpy(yylval.na,fortran_text); return TOK_ENDMODULE; }
+#line 114 "fortran.lex"
+{ return TOK_USE;}
    YY_BREAK
 case 12:
 YY_RULE_SETUP
-#line 112 "fortran.lex"
-{ strcpy(yylval.na,fortran_text); return TOK_ENDSUBROUTINE;}
+#line 115 "fortran.lex"
+{ return TOK_REWIND; }
    YY_BREAK
 case 13:
 YY_RULE_SETUP
-#line 113 "fortran.lex"
-{ strcpy(yylval.na,fortran_text); return TOK_ENDFUNCTION;}
+#line 116 "fortran.lex"
+{ return TOK_IMPLICIT; }
    YY_BREAK
 case 14:
 YY_RULE_SETUP
-#line 114 "fortran.lex"
-{ strcpy(yylval.na,fortran_text); return TOK_ENDUNIT;}
+#line 117 "fortran.lex"
+{ return TOK_NONE; }
    YY_BREAK
 case 15:
 YY_RULE_SETUP
-#line 115 "fortran.lex"
-{ pos_curinclude = setposcur()-9; return TOK_INCLUDE;}
+#line 118 "fortran.lex"
+{ return TOK_CALL; }
    YY_BREAK
 case 16:
 YY_RULE_SETUP
-#line 116 "fortran.lex"
-{ strcpy(yylval.na,fortran_text);
-                              tmpc = (char) input(); unput(tmpc);
-                              if ( ( tmpc >= 'a' && tmpc <= 'z' ) ||
-                                   ( tmpc >= 'A' && tmpc <= 'Z' )  )  return TOK_USE;
-                              else                                    return TOK_NAME;
+#line 119 "fortran.lex"
+{ strcpy(yylval.na,fortran_text); return TOK_TRUE; }
+   YY_BREAK
+case 17:
+YY_RULE_SETUP
+#line 120 "fortran.lex"
+{ strcpy(yylval.na,fortran_text); return TOK_FALSE; }
+   YY_BREAK
+case 18:
+YY_RULE_SETUP
+#line 121 "fortran.lex"
+{ return TOK_POINT_TO; }
+   YY_BREAK
+case 19:
+YY_RULE_SETUP
+#line 122 "fortran.lex"
+{ strcpy(yylval.na,fortran_text); return TOK_ASSIGNTYPE;}
+   YY_BREAK
+case 20:
+YY_RULE_SETUP
+#line 123 "fortran.lex"
+{ strcpy(yylval.na,fortran_text); return TOK_DASTER; }
+   YY_BREAK
+case 21:
+YY_RULE_SETUP
+#line 124 "fortran.lex"
+{ strcpy(yylval.na,fortran_text); return TOK_EQV; }
+   YY_BREAK
+case 22:
+YY_RULE_SETUP
+#line 125 "fortran.lex"
+{ strcpy(yylval.na,fortran_text); return TOK_EQ;  }
+   YY_BREAK
+case 23:
+YY_RULE_SETUP
+#line 126 "fortran.lex"
+{ strcpy(yylval.na,fortran_text); return TOK_GT;  }
+   YY_BREAK
+case 24:
+YY_RULE_SETUP
+#line 127 "fortran.lex"
+{ strcpy(yylval.na,fortran_text); return TOK_GE;  }
+   YY_BREAK
+case 25:
+YY_RULE_SETUP
+#line 128 "fortran.lex"
+{ strcpy(yylval.na,fortran_text); return TOK_LT;  }
+   YY_BREAK
+case 26:
+YY_RULE_SETUP
+#line 129 "fortran.lex"
+{ strcpy(yylval.na,fortran_text); return TOK_LE;  }
+   YY_BREAK
+case 27:
+YY_RULE_SETUP
+#line 130 "fortran.lex"
+{ strcpy(yylval.na,fortran_text); return TOK_NEQV;}
+   YY_BREAK
+case 28:
+YY_RULE_SETUP
+#line 131 "fortran.lex"
+{ strcpy(yylval.na,fortran_text); return TOK_NE;  }
+   YY_BREAK
+case 29:
+YY_RULE_SETUP
+#line 132 "fortran.lex"
+{ strcpy(yylval.na,fortran_text); return TOK_NOT; }
+   YY_BREAK
+case 30:
+YY_RULE_SETUP
+#line 133 "fortran.lex"
+{ strcpy(yylval.na,fortran_text); return TOK_OR;  }
+   YY_BREAK
+case 31:
+YY_RULE_SETUP
+#line 134 "fortran.lex"
+{ strcpy(yylval.na,fortran_text); return TOK_XOR; }
+   YY_BREAK
+case 32:
+YY_RULE_SETUP
+#line 135 "fortran.lex"
+{ strcpy(yylval.na,fortran_text); return TOK_AND; }
+   YY_BREAK
+case 33:
+YY_RULE_SETUP
+#line 136 "fortran.lex"
+{ strcpy(yylval.na,fortran_text); return TOK_EQUALEQUAL; }
+   YY_BREAK
+case 34:
+YY_RULE_SETUP
+#line 137 "fortran.lex"
+{ strcpy(yylval.na,fortran_text); return TOK_SLASHEQUAL; }
+   YY_BREAK
+case 35:
+YY_RULE_SETUP
+#line 138 "fortran.lex"
+{ strcpy(yylval.na,fortran_text); return TOK_INFEQUAL; }
+   YY_BREAK
+case 36:
+YY_RULE_SETUP
+#line 139 "fortran.lex"
+{ strcpy(yylval.na,fortran_text); return TOK_SUPEQUAL; }
+   YY_BREAK
+case 37:
+YY_RULE_SETUP
+#line 140 "fortran.lex"
+{ return TOK_MODULE; }
+   YY_BREAK
+case 38:
+YY_RULE_SETUP
+#line 141 "fortran.lex"
+{ return TOK_WHILE; }
+   YY_BREAK
+case 39:
+YY_RULE_SETUP
+#line 142 "fortran.lex"
+{ return TOK_CONCURRENT; }
+   YY_BREAK
+case 40:
+YY_RULE_SETUP
+#line 143 "fortran.lex"
+{ return TOK_ENDDO; }
+   YY_BREAK
+case 41:
+YY_RULE_SETUP
+#line 144 "fortran.lex"
+{ strcpy(yylval.na,&fortran_text[2]);
+                              if (testandextractfromlist(&List_Do_labels,&fortran_text[2]) == 1)
+                              {
+                              return TOK_PLAINDO_LABEL_DJVIEW;
+                              }
+                              else
+                              {
+                              List_Do_labels=Insertname(List_Do_labels,yylval.na,1);
+                              return TOK_PLAINDO_LABEL;
+                             }
+                             }
+   YY_BREAK
+case 42:
+YY_RULE_SETUP
+#line 155 "fortran.lex"
+{ increment_nbtokens = 0; return TOK_PLAINDO;}
+   YY_BREAK
+case 43:
+YY_RULE_SETUP
+#line 156 "fortran.lex"
+{ strcpy(yylval.na,fortran_text); return TOK_REAL; }
+   YY_BREAK
+case 44:
+YY_RULE_SETUP
+#line 157 "fortran.lex"
+{ strcpy(yylval.na,fortran_text); return TOK_INTEGER; }
+   YY_BREAK
+case 45:
+YY_RULE_SETUP
+#line 158 "fortran.lex"
+{ strcpy(yylval.na,fortran_text); return TOK_LOGICAL; }
+   YY_BREAK
+case 46:
+YY_RULE_SETUP
+#line 159 "fortran.lex"
+{ strcpy(yylval.na,fortran_text); return TOK_CHARACTER; }
+   YY_BREAK
+case 47:
+YY_RULE_SETUP
+#line 160 "fortran.lex"
+{ strcpy(yylval.na,fortran_text); return TOK_HEXA;}
+   YY_BREAK
+case 48:
+YY_RULE_SETUP
+#line 161 "fortran.lex"
+{ strcpy(yylval.na,fortran_text); return TOK_DOUBLEPRECISION; }
+   YY_BREAK
+case 49:
+YY_RULE_SETUP
+#line 162 "fortran.lex"
+{ strcpy(yylval.na,fortran_text); return TOK_DOUBLECOMPLEX; }
+   YY_BREAK
+case 50:
+YY_RULE_SETUP
+#line 163 "fortran.lex"
+{ strcpy(yylval.na,fortran_text); return TOK_COMPLEX; }
+   YY_BREAK
+case 51:
+YY_RULE_SETUP
+#line 164 "fortran.lex"
+{ return TOK_ALLOCATABLE; }
+   YY_BREAK
+case 52:
+YY_RULE_SETUP
+#line 165 "fortran.lex"
+{ return TOK_CLOSE; }
+   YY_BREAK
+case 53:
+YY_RULE_SETUP
+#line 166 "fortran.lex"
+{ return TOK_INQUIRE; }
+   YY_BREAK
+case 54:
+YY_RULE_SETUP
+#line 167 "fortran.lex"
+{ return TOK_DIMENSION; }
+   YY_BREAK
+case 55:
+YY_RULE_SETUP
+#line 168 "fortran.lex"
+{ return TOK_PAUSE; }
+   YY_BREAK
+case 56:
+YY_RULE_SETUP
+#line 169 "fortran.lex"
+{ return TOK_EQUIVALENCE; }
+   YY_BREAK
+case 57:
+YY_RULE_SETUP
+#line 170 "fortran.lex"
+{ return TOK_STOP; }
+   YY_BREAK
+case 58:
+YY_RULE_SETUP
+#line 171 "fortran.lex"
+{ return TOK_WHERE; }
+   YY_BREAK
+case 59:
+YY_RULE_SETUP
+#line 172 "fortran.lex"
+{ return TOK_ENDWHERE; }
+   YY_BREAK
+case 60:
+YY_RULE_SETUP
+#line 173 "fortran.lex"
+{ return TOK_ELSEWHEREPAR; }
+   YY_BREAK
+case 61:
+YY_RULE_SETUP
+#line 174 "fortran.lex"
+{ return TOK_ELSEWHERE; }
+   YY_BREAK
+case 62:
+YY_RULE_SETUP
+#line 175 "fortran.lex"
+{ return TOK_CONTAINS; }
+   YY_BREAK
+case 63:
+YY_RULE_SETUP
+#line 176 "fortran.lex"
+{ return TOK_ONLY; }
+   YY_BREAK
+case 64:
+YY_RULE_SETUP
+#line 177 "fortran.lex"
+{ return TOK_PARAMETER; }
+   YY_BREAK
+case 65:
+YY_RULE_SETUP
+#line 178 "fortran.lex"
+{ return TOK_RECURSIVE; }
+   YY_BREAK
+case 66:
+YY_RULE_SETUP
+#line 179 "fortran.lex"
+{ return TOK_COMMON; }
+   YY_BREAK
+case 67:
+YY_RULE_SETUP
+#line 180 "fortran.lex"
+{ return TOK_GLOBAL; }
+   YY_BREAK
+case 68:
+YY_RULE_SETUP
+#line 181 "fortran.lex"
+{ return TOK_EXTERNAL; }
+   YY_BREAK
+case 69:
+YY_RULE_SETUP
+#line 182 "fortran.lex"
+{ return TOK_INTENT; }
+   YY_BREAK
+case 70:
+YY_RULE_SETUP
+#line 183 "fortran.lex"
+{ return TOK_POINTER; }
+   YY_BREAK
+case 71:
+YY_RULE_SETUP
+#line 184 "fortran.lex"
+{ return TOK_OPTIONAL; }
+   YY_BREAK
+case 72:
+YY_RULE_SETUP
+#line 185 "fortran.lex"
+{ return TOK_SAVE; }
+   YY_BREAK
+case 73:
+YY_RULE_SETUP
+#line 186 "fortran.lex"
+{ pos_cur_decl = setposcur()-5; return TOK_TYPEPAR; }
+   YY_BREAK
+case 74:
+YY_RULE_SETUP
+#line 187 "fortran.lex"
+{ return TOK_TYPE; }
+   YY_BREAK
+case 75:
+YY_RULE_SETUP
+#line 188 "fortran.lex"
+{ return TOK_ENDTYPE; }
+   YY_BREAK
+case 76:
+YY_RULE_SETUP
+#line 189 "fortran.lex"
+{ if (inallocate == 1) return TOK_STAT; else { strcpy(yylval.na,fortran_text); return TOK_NAME; } }
+   YY_BREAK
+case 77:
+YY_RULE_SETUP
+#line 190 "fortran.lex"
+{ return TOK_OPEN; }
+   YY_BREAK
+case 78:
+YY_RULE_SETUP
+#line 191 "fortran.lex"
+{ return TOK_RETURN; }
+   YY_BREAK
+case 79:
+YY_RULE_SETUP
+#line 192 "fortran.lex"
+{ return TOK_EXIT; }
+   YY_BREAK
+case 80:
+YY_RULE_SETUP
+#line 193 "fortran.lex"
+{ return TOK_PRINT; }
+   YY_BREAK
+case 81:
+YY_RULE_SETUP
+#line 194 "fortran.lex"
+{ return TOK_PROCEDURE; }
+   YY_BREAK
+case 82:
+YY_RULE_SETUP
+#line 195 "fortran.lex"
+{ return TOK_READ_PAR; }
+   YY_BREAK
+case 83:
+YY_RULE_SETUP
+#line 196 "fortran.lex"
+{ return TOK_READ; }
+   YY_BREAK
+case 84:
+YY_RULE_SETUP
+#line 197 "fortran.lex"
+{ return TOK_NAMELIST; }
+   YY_BREAK
+case 85:
+YY_RULE_SETUP
+#line 198 "fortran.lex"
+{ return TOK_WRITE_PAR; }
+   YY_BREAK
+case 86:
+YY_RULE_SETUP
+#line 199 "fortran.lex"
+{ return TOK_WRITE; }
+   YY_BREAK
+case 87:
+YY_RULE_SETUP
+#line 200 "fortran.lex"
+{ strcpy(yylval.na,fortran_text); return TOK_FLUSH; }
+   YY_BREAK
+case 88:
+YY_RULE_SETUP
+#line 201 "fortran.lex"
+{ return TOK_TARGET; }
+   YY_BREAK
+case 89:
+YY_RULE_SETUP
+#line 202 "fortran.lex"
+{ return TOK_PUBLIC; }
+   YY_BREAK
+case 90:
+YY_RULE_SETUP
+#line 203 "fortran.lex"
+{ return TOK_PRIVATE; }
+   YY_BREAK
+case 91:
+YY_RULE_SETUP
+#line 204 "fortran.lex"
+{ strcpy(yylval.na,fortran_text); return TOK_IN; }
+   YY_BREAK
+case 92:
+YY_RULE_SETUP
+#line 205 "fortran.lex"
+{ pos_curdata = setposcur()-strlen(fortran_text); /*Init_List_Data_Var();*/ return TOK_DATA; }
+   YY_BREAK
+case 93:
+YY_RULE_SETUP
+#line 206 "fortran.lex"
+{ return TOK_PLAINGOTO; }
+   YY_BREAK
+case 94:
+YY_RULE_SETUP
+#line 207 "fortran.lex"
+{ strcpy(yylval.na,fortran_text); return TOK_OUT; }
+   YY_BREAK
+case 95:
+YY_RULE_SETUP
+#line 208 "fortran.lex"
+{ strcpy(yylval.na,fortran_text); return TOK_INOUT; }
+   YY_BREAK
+case 96:
+YY_RULE_SETUP
+#line 209 "fortran.lex"
+{ return TOK_INTRINSIC; }
+   YY_BREAK
+case 97:
+YY_RULE_SETUP
+#line 210 "fortran.lex"
+{ return TOK_THEN; }
+   YY_BREAK
+case 98:
+YY_RULE_SETUP
+#line 211 "fortran.lex"
+{ return TOK_ELSEIF; }
+   YY_BREAK
+case 99:
+YY_RULE_SETUP
+#line 212 "fortran.lex"
+{ return TOK_ELSE; }
+   YY_BREAK
+case 100:
+YY_RULE_SETUP
+#line 213 "fortran.lex"
+{ return TOK_ENDIF; }
+   YY_BREAK
+case 101:
+YY_RULE_SETUP
+#line 214 "fortran.lex"
+{strcpy(yylval.na,fortran_text);
+                            return TOK_LOGICALIF_PAR;
                             }
    YY_BREAK
-case 17:
-YY_RULE_SETUP
-#line 122 "fortran.lex"
-{ return TOK_REWIND; }
-   YY_BREAK
-case 18:
-YY_RULE_SETUP
-#line 123 "fortran.lex"
-{ return TOK_IMPLICIT; }
-   YY_BREAK
-case 19:
-YY_RULE_SETUP
-#line 124 "fortran.lex"
-{ return TOK_NONE; }
-   YY_BREAK
-case 20:
-YY_RULE_SETUP
-#line 125 "fortran.lex"
-{ return TOK_CALL; }
-   YY_BREAK
-case 21:
-YY_RULE_SETUP
-#line 126 "fortran.lex"
-{ return TOK_TRUE; }
-   YY_BREAK
-case 22:
-YY_RULE_SETUP
-#line 127 "fortran.lex"
-{ return TOK_FALSE; }
-   YY_BREAK
-case 23:
-YY_RULE_SETUP
-#line 128 "fortran.lex"
-{ return TOK_POINT_TO; }
-   YY_BREAK
-case 24:
-YY_RULE_SETUP
-#line 129 "fortran.lex"
-{ strcpy(yylval.na,fortran_text); return TOK_ASSIGNTYPE;}
-   YY_BREAK
-case 25:
-YY_RULE_SETUP
-#line 130 "fortran.lex"
-{ strcpy(yylval.na,fortran_text); return TOK_DASTER; }
-   YY_BREAK
-case 26:
-YY_RULE_SETUP
-#line 131 "fortran.lex"
-{ strcpy(yylval.na,fortran_text); return TOK_EQV; }
-   YY_BREAK
-case 27:
-YY_RULE_SETUP
-#line 132 "fortran.lex"
-{ strcpy(yylval.na,fortran_text); return TOK_EQ;  }
-   YY_BREAK
-case 28:
-YY_RULE_SETUP
-#line 133 "fortran.lex"
-{ strcpy(yylval.na,fortran_text); return TOK_GT;  }
-   YY_BREAK
-case 29:
-YY_RULE_SETUP
-#line 134 "fortran.lex"
-{ strcpy(yylval.na,fortran_text); return TOK_GE;  }
-   YY_BREAK
-case 30:
-YY_RULE_SETUP
-#line 135 "fortran.lex"
-{ strcpy(yylval.na,fortran_text); return TOK_LT;  }
-   YY_BREAK
-case 31:
-YY_RULE_SETUP
-#line 136 "fortran.lex"
-{ strcpy(yylval.na,fortran_text); return TOK_LE;  }
-   YY_BREAK
-case 32:
-YY_RULE_SETUP
-#line 137 "fortran.lex"
-{ strcpy(yylval.na,fortran_text); return TOK_NEQV;}
-   YY_BREAK
-case 33:
-YY_RULE_SETUP
-#line 138 "fortran.lex"
-{ strcpy(yylval.na,fortran_text); return TOK_NE;  }
-   YY_BREAK
-case 34:
-YY_RULE_SETUP
-#line 139 "fortran.lex"
-{ strcpy(yylval.na,fortran_text); return TOK_NOT; }
-   YY_BREAK
-case 35:
-YY_RULE_SETUP
-#line 140 "fortran.lex"
-{ strcpy(yylval.na,fortran_text); return TOK_OR;  }
-   YY_BREAK
-case 36:
-YY_RULE_SETUP
-#line 141 "fortran.lex"
-{ strcpy(yylval.na,fortran_text); return TOK_XOR; }
-   YY_BREAK
-case 37:
-YY_RULE_SETUP
-#line 142 "fortran.lex"
-{ strcpy(yylval.na,fortran_text); return TOK_AND; }
-   YY_BREAK
-case 38:
-YY_RULE_SETUP
-#line 143 "fortran.lex"
-{ return TOK_MODULE; }
-   YY_BREAK
-case 39:
-YY_RULE_SETUP
-#line 144 "fortran.lex"
-{ return TOK_WHILE; }
-   YY_BREAK
-case 40:
-YY_RULE_SETUP
-#line 145 "fortran.lex"
-{ return TOK_CONCURRENT; }
-   YY_BREAK
-case 41:
-YY_RULE_SETUP
-#line 146 "fortran.lex"
-{ return TOK_ENDDO; }
-   YY_BREAK
-case 42:
-YY_RULE_SETUP
-#line 147 "fortran.lex"
-{ return TOK_PLAINDO;}
-   YY_BREAK
-case 43:
-YY_RULE_SETUP
-#line 148 "fortran.lex"
-{ strcpy(yylval.na,fortran_text); return TOK_REAL; }
-   YY_BREAK
-case 44:
-YY_RULE_SETUP
-#line 149 "fortran.lex"
-{ strcpy(yylval.na,fortran_text); return TOK_INTEGER; }
-   YY_BREAK
-case 45:
-YY_RULE_SETUP
-#line 150 "fortran.lex"
-{ strcpy(yylval.na,fortran_text); return TOK_LOGICAL; }
-   YY_BREAK
-case 46:
-YY_RULE_SETUP
-#line 151 "fortran.lex"
-{ strcpy(yylval.na,fortran_text); return TOK_CHARACTER; }
-   YY_BREAK
-case 47:
-YY_RULE_SETUP
-#line 152 "fortran.lex"
-{ strcpy(yylval.na,fortran_text); return TOK_HEXA;}
-   YY_BREAK
-case 48:
-YY_RULE_SETUP
-#line 153 "fortran.lex"
-{ strcpy(yylval.na,fortran_text); return TOK_DOUBLEPRECISION; }
-   YY_BREAK
-case 49:
-YY_RULE_SETUP
-#line 154 "fortran.lex"
-{ strcpy(yylval.na,fortran_text); return TOK_DOUBLECOMPLEX; }
-   YY_BREAK
-case 50:
-YY_RULE_SETUP
-#line 155 "fortran.lex"
-{ return TOK_COMPLEX; }
-   YY_BREAK
-case 51:
-YY_RULE_SETUP
-#line 156 "fortran.lex"
-{ return TOK_ALLOCATABLE; }
-   YY_BREAK
-case 52:
-YY_RULE_SETUP
-#line 157 "fortran.lex"
-{ return TOK_CLOSE; }
-   YY_BREAK
-case 53:
-YY_RULE_SETUP
-#line 158 "fortran.lex"
-{ return TOK_INQUIRE; }
-   YY_BREAK
-case 54:
-YY_RULE_SETUP
-#line 159 "fortran.lex"
-{ return TOK_DIMENSION; }
-   YY_BREAK
-case 55:
-YY_RULE_SETUP
-#line 160 "fortran.lex"
-{ return TOK_PAUSE; }
-   YY_BREAK
-case 56:
-YY_RULE_SETUP
-#line 161 "fortran.lex"
-{ return TOK_EQUIVALENCE; }
-   YY_BREAK
-case 57:
-YY_RULE_SETUP
-#line 162 "fortran.lex"
-{ return TOK_STOP; }
-   YY_BREAK
-case 58:
-YY_RULE_SETUP
-#line 163 "fortran.lex"
-{ return TOK_WHERE; }
-   YY_BREAK
-case 59:
-YY_RULE_SETUP
-#line 164 "fortran.lex"
-{ return TOK_ENDWHERE; }
-   YY_BREAK
-case 60:
-YY_RULE_SETUP
-#line 165 "fortran.lex"
-{ return TOK_ELSEWHEREPAR; }
-   YY_BREAK
-case 61:
-YY_RULE_SETUP
-#line 166 "fortran.lex"
-{ return TOK_ELSEWHERE; }
-   YY_BREAK
-case 62:
-YY_RULE_SETUP
-#line 167 "fortran.lex"
-{ return TOK_CONTAINS; }
-   YY_BREAK
-case 63:
-YY_RULE_SETUP
-#line 168 "fortran.lex"
-{ return TOK_ONLY; }
-   YY_BREAK
-case 64:
-YY_RULE_SETUP
-#line 169 "fortran.lex"
-{ return TOK_PARAMETER; }
-   YY_BREAK
-case 65:
-YY_RULE_SETUP
-#line 170 "fortran.lex"
-{ return TOK_RECURSIVE; }
-   YY_BREAK
-case 66:
-YY_RULE_SETUP
-#line 171 "fortran.lex"
-{ return TOK_COMMON; }
-   YY_BREAK
-case 67:
-YY_RULE_SETUP
-#line 172 "fortran.lex"
-{ return TOK_GLOBAL; }
-   YY_BREAK
-case 68:
-YY_RULE_SETUP
-#line 173 "fortran.lex"
-{ return TOK_EXTERNAL; }
-   YY_BREAK
-case 69:
-YY_RULE_SETUP
-#line 174 "fortran.lex"
-{ return TOK_INTENT; }
-   YY_BREAK
-case 70:
-YY_RULE_SETUP
-#line 175 "fortran.lex"
-{ return TOK_POINTER; }
-   YY_BREAK
-case 71:
-YY_RULE_SETUP
-#line 176 "fortran.lex"
-{ return TOK_OPTIONAL; }
-   YY_BREAK
-case 72:
-YY_RULE_SETUP
-#line 177 "fortran.lex"
-{ return TOK_SAVE; }
-   YY_BREAK
-case 73:
-YY_RULE_SETUP
-#line 178 "fortran.lex"
-{ pos_cur_decl = setposcur()-5; return TOK_TYPEPAR; }
-   YY_BREAK
-case 74:
-YY_RULE_SETUP
-#line 179 "fortran.lex"
-{ return TOK_TYPE; }
-   YY_BREAK
-case 75:
-YY_RULE_SETUP
-#line 180 "fortran.lex"
-{ return TOK_ENDTYPE; }
-   YY_BREAK
-case 76:
-YY_RULE_SETUP
-#line 181 "fortran.lex"
-{ if (inallocate == 1) return TOK_STAT; else { strcpy(yylval.na,fortran_text); return TOK_NAME; } }
-   YY_BREAK
-case 77:
-YY_RULE_SETUP
-#line 182 "fortran.lex"
-{ return TOK_OPEN; }
-   YY_BREAK
-case 78:
-YY_RULE_SETUP
-#line 183 "fortran.lex"
-{ return TOK_RETURN; }
-   YY_BREAK
-case 79:
-/* rule 79 can match eol */
-YY_RULE_SETUP
-#line 184 "fortran.lex"
-{ return TOK_EXIT; }
-   YY_BREAK
-case 80:
-YY_RULE_SETUP
-#line 185 "fortran.lex"
-{ return TOK_PRINT; }
-   YY_BREAK
-case 81:
-YY_RULE_SETUP
-#line 186 "fortran.lex"
-{ return TOK_PROCEDURE; }
-   YY_BREAK
-case 82:
-YY_RULE_SETUP
-#line 187 "fortran.lex"
-{ return TOK_READ; }
-   YY_BREAK
-case 83:
-YY_RULE_SETUP
-#line 188 "fortran.lex"
-{ return TOK_NAMELIST; }
-   YY_BREAK
-case 84:
-YY_RULE_SETUP
-#line 189 "fortran.lex"
-{ return TOK_WRITE; }
-   YY_BREAK
-case 85:
-YY_RULE_SETUP
-#line 190 "fortran.lex"
-{ return TOK_FLUSH; }
-   YY_BREAK
-case 86:
-YY_RULE_SETUP
-#line 191 "fortran.lex"
-{ return TOK_TARGET; }
-   YY_BREAK
-case 87:
-YY_RULE_SETUP
-#line 192 "fortran.lex"
-{ return TOK_PUBLIC; }
-   YY_BREAK
-case 88:
-YY_RULE_SETUP
-#line 193 "fortran.lex"
-{ return TOK_PRIVATE; }
-   YY_BREAK
-case 89:
-YY_RULE_SETUP
-#line 194 "fortran.lex"
-{ strcpy(yylval.na,fortran_text); return TOK_IN; }
-   YY_BREAK
-case 90:
-YY_RULE_SETUP
-#line 195 "fortran.lex"
-{ pos_curdata = setposcur()-strlen(fortran_text); Init_List_Data_Var(); return TOK_DATA; }
-   YY_BREAK
-case 91:
-YY_RULE_SETUP
-#line 196 "fortran.lex"
-{ return TOK_CONTINUE; }
-   YY_BREAK
-case 92:
-YY_RULE_SETUP
-#line 197 "fortran.lex"
-{ return TOK_PLAINGOTO; }
-   YY_BREAK
-case 93:
-YY_RULE_SETUP
-#line 198 "fortran.lex"
-{ strcpy(yylval.na,fortran_text); return TOK_OUT; }
-   YY_BREAK
-case 94:
-YY_RULE_SETUP
-#line 199 "fortran.lex"
-{ strcpy(yylval.na,fortran_text); return TOK_INOUT; }
-   YY_BREAK
-case 95:
-YY_RULE_SETUP
-#line 200 "fortran.lex"
-{ return TOK_INTRINSIC; }
-   YY_BREAK
-case 96:
-YY_RULE_SETUP
-#line 201 "fortran.lex"
-{ return TOK_THEN; }
-   YY_BREAK
-case 97:
-YY_RULE_SETUP
-#line 202 "fortran.lex"
-{ return TOK_ELSEIF; }
-   YY_BREAK
-case 98:
-YY_RULE_SETUP
-#line 203 "fortran.lex"
-{ return TOK_ELSE; }
-   YY_BREAK
-case 99:
-YY_RULE_SETUP
-#line 204 "fortran.lex"
-{ return TOK_ENDIF; }
-   YY_BREAK
-case 100:
-YY_RULE_SETUP
-#line 205 "fortran.lex"
-{ return TOK_LOGICALIF; }
-   YY_BREAK
-case 101:
-YY_RULE_SETUP
-#line 206 "fortran.lex"
-{ return TOK_SUM; }
-   YY_BREAK
 case 102:
-YY_RULE_SETUP
-#line 207 "fortran.lex"
-{ return TOK_MAX; }
+/* rule 102 can match eol */
+*yy_cp = (yy_hold_char); /* undo effects of setting up fortran_text */
+(yy_c_buf_p) = yy_cp = yy_bp + 2;
+YY_DO_BEFORE_ACTION; /* set up fortran_text again */
+YY_RULE_SETUP
+#line 217 "fortran.lex"
+{strcpy(yylval.na,fortran_text);
+                            return TOK_NAME;
+                            }
    YY_BREAK
 case 103:
 YY_RULE_SETUP
-#line 208 "fortran.lex"
-{ return TOK_TANH; }
+#line 220 "fortran.lex"
+{strcpy(yylval.na,fortran_text);
+                            return TOK_LOGICALIF_PAR;
+                            }
    YY_BREAK
 case 104:
 YY_RULE_SETUP
-#line 209 "fortran.lex"
-{ return TOK_MAXVAL; }
+#line 223 "fortran.lex"
+{ return TOK_SELECTCASE; }
    YY_BREAK
 case 105:
 YY_RULE_SETUP
-#line 210 "fortran.lex"
-{ return TOK_TRIM; }
+#line 224 "fortran.lex"
+{ if (in_select_case_stmt > 0) return TOK_CASE ; else return TOK_NAME;}
    YY_BREAK
 case 106:
 YY_RULE_SETUP
-#line 211 "fortran.lex"
-{ return TOK_SQRT; }
+#line 225 "fortran.lex"
+{ return TOK_DEFAULT; }
    YY_BREAK
 case 107:
 YY_RULE_SETUP
-#line 212 "fortran.lex"
-{ return TOK_SELECTCASE; }
+#line 226 "fortran.lex"
+{ return TOK_ENDSELECT; }
    YY_BREAK
 case 108:
 YY_RULE_SETUP
-#line 213 "fortran.lex"
-{ return TOK_CASE; }
+#line 227 "fortran.lex"
+{ return TOK_FILE; }
    YY_BREAK
 case 109:
 YY_RULE_SETUP
-#line 214 "fortran.lex"
-{ return TOK_DEFAULT; }
+#line 228 "fortran.lex"
+{ return TOK_ACCESS; }
    YY_BREAK
 case 110:
 YY_RULE_SETUP
-#line 215 "fortran.lex"
-{ return TOK_ENDSELECT; }
+#line 229 "fortran.lex"
+{ return TOK_ACTION; }
    YY_BREAK
 case 111:
 YY_RULE_SETUP
-#line 216 "fortran.lex"
-{ return TOK_FILE; }
+#line 230 "fortran.lex"
+{ return TOK_IOLENGTH; }
    YY_BREAK
 case 112:
 YY_RULE_SETUP
-#line 217 "fortran.lex"
+#line 231 "fortran.lex"
 { return TOK_UNIT; }
    YY_BREAK
 case 113:
 YY_RULE_SETUP
-#line 218 "fortran.lex"
+#line 232 "fortran.lex"
+{ return TOK_OPENED; }
+   YY_BREAK
+case 114:
+YY_RULE_SETUP
+#line 233 "fortran.lex"
 { return TOK_FMT; }
    YY_BREAK
-case 114:
-YY_RULE_SETUP
-#line 219 "fortran.lex"
+case 115:
+YY_RULE_SETUP
+#line 234 "fortran.lex"
 { return TOK_NML; }
    YY_BREAK
-case 115:
-YY_RULE_SETUP
-#line 220 "fortran.lex"
+case 116:
+YY_RULE_SETUP
+#line 235 "fortran.lex"
 { return TOK_END; }
    YY_BREAK
-case 116:
-YY_RULE_SETUP
-#line 221 "fortran.lex"
+case 117:
+YY_RULE_SETUP
+#line 236 "fortran.lex"
 { return TOK_EOR; }
    YY_BREAK
-case 117:
-YY_RULE_SETUP
-#line 222 "fortran.lex"
+case 118:
+*yy_cp = (yy_hold_char); /* undo effects of setting up fortran_text */
+(yy_c_buf_p) = yy_cp = yy_bp + 3;
+YY_DO_BEFORE_ACTION; /* set up fortran_text again */
+YY_RULE_SETUP
+#line 237 "fortran.lex"
+{
+                            if (in_char_selector ==1)
+                               return TOK_LEN;
+                            else
+                            {
+                            strcpy(yylval.na,fortran_text); return TOK_NAME;
+                            }
+                            }
+   YY_BREAK
+case 119:
+*yy_cp = (yy_hold_char); /* undo effects of setting up fortran_text */
+(yy_c_buf_p) = yy_cp = yy_bp + 4;
+YY_DO_BEFORE_ACTION; /* set up fortran_text again */
+YY_RULE_SETUP
+#line 245 "fortran.lex"
+{
+                            if ((in_char_selector==1) || (in_kind_selector == 1))
+                               return TOK_KIND;
+                            else
+                            {
+                            strcpy(yylval.na,fortran_text); return TOK_NAME;
+                            }
+                            }
+   YY_BREAK
+case 120:
+YY_RULE_SETUP
+#line 253 "fortran.lex"
+{ return TOK_ERRMSG; }
+   YY_BREAK
+case 121:
+YY_RULE_SETUP
+#line 254 "fortran.lex"
+{ return TOK_MOLD; }
+   YY_BREAK
+case 122:
+YY_RULE_SETUP
+#line 255 "fortran.lex"
+{ return TOK_SOURCE; }
+   YY_BREAK
+case 123:
+YY_RULE_SETUP
+#line 256 "fortran.lex"
+{ return TOK_POSITION; }
+   YY_BREAK
+case 124:
+YY_RULE_SETUP
+#line 257 "fortran.lex"
+{ return TOK_IOMSG; }
+   YY_BREAK
+case 125:
+YY_RULE_SETUP
+#line 258 "fortran.lex"
+{ return TOK_IOSTAT; }
+   YY_BREAK
+case 126:
+YY_RULE_SETUP
+#line 259 "fortran.lex"
 { return TOK_ERR; }
    YY_BREAK
-case 118:
-YY_RULE_SETUP
-#line 223 "fortran.lex"
+case 127:
+YY_RULE_SETUP
+#line 260 "fortran.lex"
+{ return TOK_FORM; }
+   YY_BREAK
+case 128:
+*yy_cp = (yy_hold_char); /* undo effects of setting up fortran_text */
+(yy_c_buf_p) = yy_cp = yy_bp + 4;
+YY_DO_BEFORE_ACTION; /* set up fortran_text again */
+YY_RULE_SETUP
+#line 261 "fortran.lex"
+{
+                            if (in_inquire==1)
+                               return TOK_NAME_EQ;
+                            else
+                            {
+                            strcpy(yylval.na,fortran_text); return TOK_NAME;
+                            }
+                            }
+   YY_BREAK
+case 129:
+YY_RULE_SETUP
+#line 269 "fortran.lex"
+{ return TOK_RECL; }
+   YY_BREAK
+case 130:
+YY_RULE_SETUP
+#line 270 "fortran.lex"
+{ return TOK_REC; }
+   YY_BREAK
+case 131:
+*yy_cp = (yy_hold_char); /* undo effects of setting up fortran_text */
+(yy_c_buf_p) = yy_cp = yy_bp + 6;
+YY_DO_BEFORE_ACTION; /* set up fortran_text again */
+YY_RULE_SETUP
+#line 271 "fortran.lex"
+{ if (close_or_connect == 1)
+                              return TOK_STATUS;
+                             else
+                             {
+                             strcpy(yylval.na,fortran_text); return TOK_NAME;
+                             }
+                             }
+   YY_BREAK
+case 132:
+YY_RULE_SETUP
+#line 278 "fortran.lex"
+{ strcpy(yylval.na,fortran_text); return TOK_NAME;}
+   YY_BREAK
+case 133:
+YY_RULE_SETUP
+#line 279 "fortran.lex"
 { return TOK_EXIST; }
    YY_BREAK
-case 119:
-YY_RULE_SETUP
-#line 224 "fortran.lex"
-{ return TOK_MIN; }
-   YY_BREAK
-case 120:
-YY_RULE_SETUP
-#line 225 "fortran.lex"
-{ return TOK_NINT; }
-   YY_BREAK
-case 121:
-YY_RULE_SETUP
-#line 226 "fortran.lex"
-{ return TOK_FLOAT; }
-   YY_BREAK
-case 122:
-YY_RULE_SETUP
-#line 227 "fortran.lex"
-{ return TOK_EXP; }
-   YY_BREAK
-case 123:
-YY_RULE_SETUP
-#line 228 "fortran.lex"
-{ return TOK_COS; }
-   YY_BREAK
-case 124:
-YY_RULE_SETUP
-#line 229 "fortran.lex"
-{ return TOK_COSH; }
-   YY_BREAK
-case 125:
-YY_RULE_SETUP
-#line 230 "fortran.lex"
-{ return TOK_ACOS; }
-   YY_BREAK
-case 126:
-YY_RULE_SETUP
-#line 231 "fortran.lex"
-{ return TOK_SIN; }
-   YY_BREAK
-case 127:
-YY_RULE_SETUP
-#line 232 "fortran.lex"
-{ return TOK_SINH; }
-   YY_BREAK
-case 128:
-YY_RULE_SETUP
-#line 233 "fortran.lex"
-{ return TOK_ASIN; }
-   YY_BREAK
-case 129:
-YY_RULE_SETUP
-#line 234 "fortran.lex"
-{ return TOK_LOG; }
-   YY_BREAK
-case 130:
-YY_RULE_SETUP
-#line 235 "fortran.lex"
-{ return TOK_TAN; }
-   YY_BREAK
-case 131:
-YY_RULE_SETUP
-#line 236 "fortran.lex"
-{ return TOK_ATAN; }
-   YY_BREAK
-case 132:
-YY_RULE_SETUP
-#line 237 "fortran.lex"
+case 134:
+YY_RULE_SETUP
+#line 280 "fortran.lex"
 { return TOK_CYCLE; }
    YY_BREAK
-case 133:
-YY_RULE_SETUP
-#line 238 "fortran.lex"
-{ return TOK_ABS; }
-   YY_BREAK
-case 134:
-YY_RULE_SETUP
-#line 239 "fortran.lex"
-{ return TOK_MOD; }
-   YY_BREAK
 case 135:
 YY_RULE_SETUP
-#line 240 "fortran.lex"
-{ return TOK_SIGN; }
+#line 281 "fortran.lex"
+{ return TOK_BACKSPACE; }
    YY_BREAK
 case 136:
 YY_RULE_SETUP
-#line 241 "fortran.lex"
-{ return TOK_MINLOC; }
+#line 282 "fortran.lex"
+{ return TOK_FOURDOTS;  }
    YY_BREAK
 case 137:
-YY_RULE_SETUP
-#line 242 "fortran.lex"
-{ return TOK_MAXLOC; }
+/* rule 137 can match eol */
+YY_RULE_SETUP
+#line 283 "fortran.lex"
+{ strcpy(yylval.na,fortran_text); return TOK_DSLASH; }
    YY_BREAK
 case 138:
 YY_RULE_SETUP
-#line 243 "fortran.lex"
-{ return TOK_MINVAL; }
+#line 284 "fortran.lex"
+{ return TOK_LEFTAB; }
    YY_BREAK
 case 139:
 YY_RULE_SETUP
-#line 244 "fortran.lex"
-{ return TOK_BACKSPACE; }
+#line 285 "fortran.lex"
+{ return TOK_RIGHTAB; }
    YY_BREAK
 case 140:
 YY_RULE_SETUP
-#line 245 "fortran.lex"
-{ return TOK_FOURDOTS;  }
+#line 286 "fortran.lex"
+{ strcpy(yylval.na,fortran_text); return TOK_SLASH; }
    YY_BREAK
 case 141:
-YY_RULE_SETUP
-#line 246 "fortran.lex"
-{ return TOK_LEFTAB; }
+/* rule 141 can match eol */
+YY_RULE_SETUP
+#line 287 "fortran.lex"
+{
+                              INCREMENT_LINE_NUM() ; strcpy(yylval.na,fortran_text); return TOK_CHAR_CUT; }
    YY_BREAK
 case 142:
-YY_RULE_SETUP
-#line 247 "fortran.lex"
-{ return TOK_RIGHTAB; }
+/* rule 142 can match eol */
+YY_RULE_SETUP
+#line 289 "fortran.lex"
+{Add_Include_1(fortran_text);}
    YY_BREAK
 case 143:
-/* rule 143 can match eol */
-YY_RULE_SETUP
-#line 248 "fortran.lex"
+YY_RULE_SETUP
+#line 290 "fortran.lex"
+{}
+   YY_BREAK
+case 144:
+/* rule 144 can match eol */
+YY_RULE_SETUP
+#line 291 "fortran.lex"
 {
-                              return TOK_FORMAT; }
-   YY_BREAK
-case 144:
-YY_RULE_SETUP
-#line 250 "fortran.lex"
-{ strcpy(yylval.na,fortran_text); return TOK_SLASH; }
+                  if (inmoduledeclare == 0 )
+                  {
+                  pos_end=setposcur();
+                  RemoveWordSET_0(fortran_out,pos_curinclude,pos_end-pos_curinclude);
+                  }
+                  out_of_donottreat();
+                  }
    YY_BREAK
 case 145:
-YY_RULE_SETUP
-#line 251 "fortran.lex"
-{ strcpy(yylval.na,fortran_text); return TOK_DSLASH; }
+/* rule 145 can match eol */
+YY_RULE_SETUP
+#line 299 "fortran.lex"
+{ strcpy(yylval.na,fortran_text);return TOK_CHAR_CONSTANT; }
    YY_BREAK
 case 146:
 /* rule 146 can match eol */
 YY_RULE_SETUP
-#line 252 "fortran.lex"
-{
-                              strcpy(yylval.na,fortran_text); return TOK_CHAR_CUT; }
+#line 300 "fortran.lex"
+{ strcpy(yylval.na,fortran_text);return TOK_CHAR_MESSAGE; }
    YY_BREAK
 case 147:
-/* rule 147 can match eol */
-YY_RULE_SETUP
-#line 254 "fortran.lex"
-{ strcpy(yylval.na,fortran_text);return TOK_CHAR_CONSTANT; }
+YY_RULE_SETUP
+#line 301 "fortran.lex"
+{ BEGIN(donottreat); }
    YY_BREAK
 case 148:
 /* rule 148 can match eol */
 YY_RULE_SETUP
-#line 255 "fortran.lex"
-{ strcpy(yylval.na,fortran_text);return TOK_CHAR_MESSAGE; }
+#line 302 "fortran.lex"
+{ out_of_donottreat(); return '\n'; }
    YY_BREAK
 case 149:
-YY_RULE_SETUP
-#line 256 "fortran.lex"
-{ BEGIN(donottreat); }
+/* rule 149 can match eol */
+YY_RULE_SETUP
+#line 303 "fortran.lex"
+{strcpy(yylval.na,fortran_text); removenewline(yylval.na);
+                            return TOK_NAME; }
    YY_BREAK
 case 150:
-/* rule 150 can match eol */
-YY_RULE_SETUP
-#line 257 "fortran.lex"
-{ out_of_donottreat(); return '\n'; }
+YY_RULE_SETUP
+#line 305 "fortran.lex"
+{ strcpy(yylval.na,fortran_text); return TOK_NAME; }
    YY_BREAK
 case 151:
 YY_RULE_SETUP
-#line 258 "fortran.lex"
-{ strcpy(yylval.na,fortran_text); return TOK_NAME; }
+#line 306 "fortran.lex"
+{strcpy(yylval.na,fortran_text); return TOK_CSTREAL; }
    YY_BREAK
 case 152:
@@ -9286 +11864 @@
 YY_DO_BEFORE_ACTION; /* set up fortran_text again */
 YY_RULE_SETUP
-#line 259 "fortran.lex"
+#line 307 "fortran.lex"
 {  // REAL1
                               strcpy(yylval.na,fortran_text); return TOK_CSTREAL; }
@@ -9292 +11870 @@
 case 153:
 YY_RULE_SETUP
-#line 261 "fortran.lex"
+#line 309 "fortran.lex"
 {  // REAL2
                               strcpy(yylval.na,fortran_text); return TOK_CSTREAL; }
@@ -9298 +11876 @@
 case 154:
 YY_RULE_SETUP
-#line 263 "fortran.lex"
-{ strcpy(yylval.na,fortran_text); return TOK_CSTINT; }
+#line 311 "fortran.lex"
+{ strcpy(yylval.na,fortran_text);
+                             if (lastwasendofstmt == 0)
+                              return TOK_CSTINT;
+                             else
+                              if (testandextractfromlist(&List_Do_labels,fortran_text) == 1)
+                              {
+                              removefromlist(&List_Do_labels,yylval.na);
+                              return TOK_LABEL_DJVIEW;
+                              }
+                              else
+                              {
+                              return TOK_LABEL;
+                              }
+                             }
    YY_BREAK
 case 155:
 YY_RULE_SETUP
-#line 264 "fortran.lex"
+#line 325 "fortran.lex"
 {}
    YY_BREAK
 case 156:
 YY_RULE_SETUP
-#line 265 "fortran.lex"
+#line 326 "fortran.lex"
 {}
    YY_BREAK
 case 157:
-YY_RULE_SETUP
-#line 266 "fortran.lex"
+*yy_cp = (yy_hold_char); /* undo effects of setting up fortran_text */
+(yy_c_buf_p) = yy_cp = yy_bp + 1;
+YY_DO_BEFORE_ACTION; /* set up fortran_text again */
+YY_RULE_SETUP
+#line 327 "fortran.lex"
+{
+                            in_complex_literal = -1;
+                            return (int) *fortran_text;
+                            }
+   YY_BREAK
+case 158:
+YY_RULE_SETUP
+#line 331 "fortran.lex"
 { strcpy(yylval.na,fortran_text); return (int) *fortran_text; }
    YY_BREAK
-case 158:
-YY_RULE_SETUP
-#line 267 "fortran.lex"
+case 159:
+YY_RULE_SETUP
+#line 332 "fortran.lex"
 { strcpy(yylval.na,fortran_text); return (int) *fortran_text; }
    YY_BREAK
-case 159:
-YY_RULE_SETUP
-#line 268 "fortran.lex"
-{ return TOK_SEMICOLON; }
-   YY_BREAK
 case 160:
 YY_RULE_SETUP
-#line 269 "fortran.lex"
+#line 333 "fortran.lex"
+{ lastwasendofstmt=1; token_since_endofstmt = 0; return TOK_SEMICOLON; }
+   YY_BREAK
+case 161:
+YY_RULE_SETUP
+#line 334 "fortran.lex"
+{ if (in_complex_literal==-1) {return TOK_COMMACOMPLEX; in_complex_literal=0;} else; return (int) *fortran_text; }
+   YY_BREAK
+case 162:
+YY_RULE_SETUP
+#line 335 "fortran.lex"
 { return (int) *fortran_text; }
    YY_BREAK
-case 161:
-YY_RULE_SETUP
-#line 270 "fortran.lex"
+case 163:
+YY_RULE_SETUP
+#line 336 "fortran.lex"
 { return (int) *fortran_text; }
    YY_BREAK
-case 162:
-YY_RULE_SETUP
-#line 271 "fortran.lex"
+case 164:
+YY_RULE_SETUP
+#line 337 "fortran.lex"
 { return (int) *fortran_text; }
    YY_BREAK
-case 163:
-YY_RULE_SETUP
-#line 272 "fortran.lex"
-{ return (int) *fortran_text; }
-   YY_BREAK
-case 164:
-/* rule 164 can match eol */
-YY_RULE_SETUP
-#line 273 "fortran.lex"
-{ INCREMENT_LINE_NUM() ; return '\n'; }
-   YY_BREAK
 case 165:
-*yy_cp = (yy_hold_char); /* undo effects of setting up fortran_text */
-(yy_c_buf_p) = yy_cp -= 1;
-YY_DO_BEFORE_ACTION; /* set up fortran_text again */
-YY_RULE_SETUP
-#line 274 "fortran.lex"
-{}
+/* rule 165 can match eol */
+YY_RULE_SETUP
+#line 338 "fortran.lex"
+{ INCREMENT_LINE_NUM() ; lastwasendofstmt=1; token_since_endofstmt = 0; increment_nbtokens = 0; return '\n'; }
    YY_BREAK
 case 166:
 YY_RULE_SETUP
-#line 275 "fortran.lex"
-{}
+#line 339 "fortran.lex"
+{increment_nbtokens = 0;}
    YY_BREAK
 case 167:
-YY_RULE_SETUP
-#line 276 "fortran.lex"
-{ if (newlinef90 == 0) return TOK_LABEL; else newlinef90 = 0; }
+/* rule 167 can match eol */
+YY_RULE_SETUP
+#line 340 "fortran.lex"
+{
+                              return TOK_LABEL_FORMAT; }
    YY_BREAK
 case 168:
 /* rule 168 can match eol */
 YY_RULE_SETUP
-#line 277 "fortran.lex"
-{ INCREMENT_LINE_NUM() ; newlinef90=1; }
+#line 342 "fortran.lex"
+{return TOK_LABEL_FORMAT; }
    YY_BREAK
 case 169:
 /* rule 169 can match eol */
 YY_RULE_SETUP
-#line 278 "fortran.lex"
-{ INCREMENT_LINE_NUM() ; }
+#line 343 "fortran.lex"
+{ INCREMENT_LINE_NUM() ; newlinef90=1; }
    YY_BREAK
 case 170:
 /* rule 170 can match eol */
 YY_RULE_SETUP
-#line 280 "fortran.lex"
-{ INCREMENT_LINE_NUM() ; BEGIN(donottreat); }
+#line 344 "fortran.lex"
+{ INCREMENT_LINE_NUM() ;}
    YY_BREAK
 case 171:
 /* rule 171 can match eol */
 YY_RULE_SETUP
-#line 281 "fortran.lex"
-{ out_of_donottreat(); return '\n'; }
+#line 346 "fortran.lex"
+{ INCREMENT_LINE_NUM() ; BEGIN(donottreat); }
    YY_BREAK
 case 172:
 /* rule 172 can match eol */
 YY_RULE_SETUP
-#line 282 "fortran.lex"
-{ INCREMENT_LINE_NUM() ; }
+#line 347 "fortran.lex"
+{ out_of_donottreat(); return '\n'; }
    YY_BREAK
 case 173:
 /* rule 173 can match eol */
 YY_RULE_SETUP
-#line 283 "fortran.lex"
+#line 348 "fortran.lex"
 { INCREMENT_LINE_NUM() ; }
    YY_BREAK
@@ -9409 +12005 @@
 /* rule 174 can match eol */
 YY_RULE_SETUP
-#line 284 "fortran.lex"
-{ INCREMENT_LINE_NUM() ; }
+#line 349 "fortran.lex"
+{ INCREMENT_LINE_NUM() ; increment_nbtokens = 0;}
    YY_BREAK
 case 175:
-YY_RULE_SETUP
-#line 285 "fortran.lex"
-{}
+/* rule 175 can match eol */
+YY_RULE_SETUP
+#line 350 "fortran.lex"
+{ INCREMENT_LINE_NUM() ; increment_nbtokens = 0;}
    YY_BREAK
 case 176:
 YY_RULE_SETUP
-#line 286 "fortran.lex"
-ECHO;
-   YY_BREAK
-#line 3015 "fortran.yy.c"
+#line 351 "fortran.lex"
+{increment_nbtokens = 0;}
+   YY_BREAK
 case YY_STATE_EOF(INITIAL):
 case YY_STATE_EOF(parameter):
 case YY_STATE_EOF(character):
 case YY_STATE_EOF(donottreat):
+case YY_STATE_EOF(includestate):
 case YY_STATE_EOF(fortran77style):
 case YY_STATE_EOF(fortran90style):
-   yyterminate();
+#line 352 "fortran.lex"
+{endoffile = 1; yyterminate();}
+   YY_BREAK
+case 177:
+YY_RULE_SETUP
+#line 353 "fortran.lex"
+ECHO;
+   YY_BREAK
+#line 4743 "fortran.yy.c"
 
    case YY_END_OF_BUFFER:
@@ -9619 +12224 @@
          { /* Not enough room in the buffer - grow it. */
 
-         /* just a shorter name for the current buffer */
-         YY_BUFFER_STATE b = YY_CURRENT_BUFFER;
-
-         int yy_c_buf_p_offset =
-            (int) ((yy_c_buf_p) - b->yy_ch_buf);
-
-         if ( b->yy_is_our_buffer )
-            {
-            yy_size_t new_size = b->yy_buf_size * 2;
-
-            if ( new_size <= 0 )
-               b->yy_buf_size += b->yy_buf_size / 8;
-            else
-               b->yy_buf_size *= 2;
-
-            b->yy_ch_buf = (char *)
-               /* Include room in for 2 EOB chars. */
-               fortran_realloc((void *) b->yy_ch_buf,b->yy_buf_size + 2  );
-            }
-         else
-            /* Can't grow it, we don't own it. */
-            b->yy_ch_buf = 0;
-
-         if ( ! b->yy_ch_buf )
-            YY_FATAL_ERROR(
-            "fatal error - scanner input buffer overflow" );
-
-         (yy_c_buf_p) = &b->yy_ch_buf[yy_c_buf_p_offset];
-
-         num_to_read = YY_CURRENT_BUFFER_LVALUE->yy_buf_size -
-                  number_to_move - 1;
+         YY_FATAL_ERROR(
+"input buffer overflow, can't enlarge buffer because scanner uses REJECT" );
 
          }
@@ -9709 +12285 @@
    yy_current_state += YY_AT_BOL();
 
+   (yy_state_ptr) = (yy_state_buf);
+   *(yy_state_ptr)++ = yy_current_state;
+
    for ( yy_cp = (yytext_ptr) + YY_MORE_ADJ; yy_cp < (yy_c_buf_p); ++yy_cp )
       {
       register YY_CHAR yy_c = (*yy_cp ? yy_ec[YY_SC_TO_UI(*yy_cp)] : 1);
-      if ( yy_accept[yy_current_state] )
-         {
-         (yy_last_accepting_state) = yy_current_state;
-         (yy_last_accepting_cpos) = yy_cp;
-         }
       while ( yy_chk[yy_base[yy_current_state] + yy_c] != yy_current_state )
          {
          yy_current_state = (int) yy_def[yy_current_state];
-         if ( yy_current_state >= 1132 )
+         if ( yy_current_state >= 1849 )
             yy_c = yy_meta[(unsigned int) yy_c];
          }
       yy_current_state = yy_nxt[yy_base[yy_current_state] + (unsigned int) yy_c];
+      *(yy_state_ptr)++ = yy_current_state;
       }
 
@@ -9737 +12312 @@
 {
    register int yy_is_jam;
-      register char *yy_cp = (yy_c_buf_p);
-
+    
    register YY_CHAR yy_c = 1;
-   if ( yy_accept[yy_current_state] )
-      {
-      (yy_last_accepting_state) = yy_current_state;
-      (yy_last_accepting_cpos) = yy_cp;
-      }
    while ( yy_chk[yy_base[yy_current_state] + yy_c] != yy_current_state )
       {
       yy_current_state = (int) yy_def[yy_current_state];
-      if ( yy_current_state >= 1132 )
+      if ( yy_current_state >= 1849 )
          yy_c = yy_meta[(unsigned int) yy_c];
       }
    yy_current_state = yy_nxt[yy_base[yy_current_state] + (unsigned int) yy_c];
-   yy_is_jam = (yy_current_state == 1131);
+   yy_is_jam = (yy_current_state == 1848);
+   if ( ! yy_is_jam )
+      *(yy_state_ptr)++ = yy_current_state;
 
    return yy_is_jam ? 0 : yy_current_state;
@@ -10342 +12913 @@
     (yy_start) = 0;
 
+    (yy_state_buf) = 0;
+    (yy_state_ptr) = 0;
+    (yy_full_match) = 0;
+    (yy_lp) = 0;
+
 /* Defined in main.c */
 #ifdef YY_STDINIT
@@ -10371 +12947 @@
    fortran_free((yy_buffer_stack) );
    (yy_buffer_stack) = NULL;
+
+    fortran_free ( (yy_state_buf) );
+    (yy_state_buf)  = NULL;
 
     /* Reset the globals. This is important in a non-reentrant scanner so the next time
@@ -10427 +13006 @@
 #define YYTABLES_NAME "yytables"
 
-#line 286 "fortran.lex"
+#line 353 "fortran.lex"
 
 

branches/2015/dev_r5803_UKMO_AGRIF_Vert_interp/NEMOGCM/EXTERNAL/AGRIF/LIB/main.c

@@ -1 @@
-/* A Bison parser, made by GNU Bison 2.3.  */
-
-/* Skeleton implementation for Bison's Yacc-like parsers in C
-
-   Copyright (C) 1984, 1989, 1990, 2000, 2001, 2002, 2003, 2004, 2005, 2006
-   Free Software Foundation, Inc.
-
-   This program is free software; you can redistribute it and/or modify
+/* A Bison parser, made by GNU Bison 2.7.  */
+
+/* Bison implementation for Yacc-like parsers in C
+   
+      Copyright (C) 1984, 1989-1990, 2000-2012 Free Software Foundation, Inc.
+   
+   This program is free software: you can redistribute it and/or modify
    it under the terms of the GNU General Public License as published by
-   the Free Software Foundation; either version 2, or (at your option)
-   any later version.
-
+   the Free Software Foundation, either version 3 of the License, or
+   (at your option) any later version.
+   
    This program is distributed in the hope that it will be useful,
    but WITHOUT ANY WARRANTY; without even the implied warranty of
    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
    GNU General Public License for more details.
-
+   
    You should have received a copy of the GNU General Public License
-   along with this program; if not, write to the Free Software
-   Foundation, Inc., 51 Franklin Street, Fifth Floor,
-   Boston, MA 02110-1301, USA.  */
+   along with this program.  If not, see <http://www.gnu.org/licenses/>.  */
 
 /* As a special exception, you may create a larger work that contains
@@ -30 +27 @@
    Bison output files to be licensed under the GNU General Public
    License without this special exception.
-
+   
    This special exception was added by the Free Software Foundation in
    version 2.2 of Bison.  */
@@ -48 +45 @@
 
 /* Bison version.  */
-#define YYBISON_VERSION "2.3"
+#define YYBISON_VERSION "2.7"
 
 /* Skeleton name.  */
@@ -56 +53 @@
 #define YYPURE 0
 
-/* Using locations.  */
-#define YYLSP_NEEDED 0
+/* Push parsers.  */
+#define YYPUSH 0
+
+/* Pull parsers.  */
+#define YYPULL 1
+
 
 /* Substitute the variable and function names.  */
-#define yyparse convert_parse
-#define yylex   convert_lex
-#define yyerror convert_error
-#define yylval  convert_lval
-#define yychar  convert_char
-#define yydebug convert_debug
-#define yynerrs convert_nerrs
-
+#define yyparse         convert_parse
+#define yylex           convert_lex
+#define yyerror         convert_error
+#define yylval          convert_lval
+#define yychar          convert_char
+#define yydebug         convert_debug
+#define yynerrs         convert_nerrs
+
+/* Copy the first part of user declarations.  */
+/* Line 371 of yacc.c  */
+#line 35 "convert.y"
+
+#include <stdlib.h>
+#include <stdio.h>
+#include <string.h>
+#include "decl.h"
+
+int line_num=1;
+extern FILE * convert_in;
+
+int convert_error(const char *s)
+{
+    printf("##\n## ERROR in conv: '%s' (line %d, file: %s)\n##\n", s, line_num, config_file);
+    exit(0);
+}
+
+
+/* Line 371 of yacc.c  */
+#line 92 "convert.tab.c"
+
+# ifndef YY_NULL
+#  if defined __cplusplus && 201103L <= __cplusplus
+#   define YY_NULL nullptr
+#  else
+#   define YY_NULL 0
+#  endif
+# endif
+
+/* Enabling verbose error messages.  */
+#ifdef YYERROR_VERBOSE
+# undef YYERROR_VERBOSE
+# define YYERROR_VERBOSE 1
+#else
+# define YYERROR_VERBOSE 0
+#endif
+
+
+/* Enabling traces.  */
+#ifndef YYDEBUG
+# define YYDEBUG 1
+#endif
+#if YYDEBUG
+extern int convert_debug;
+#endif
 
 /* Tokens.  */
@@ -87 +134 @@
    };
 #endif
-/* Tokens.  */
-#define TOK_SEP 258
-#define TOK_KIND 259
-#define TOK_EQUAL 260
-#define TOK_USE 261
-#define TOK_MODULEMAIN 262
-#define TOK_NOTGRIDDEP 263
-#define TOK_USEITEM 264
-#define TOK_NAME 265
-#define TOK_CSTINT 266
-#define TOK_PROBTYPE 267
-
-
-
-
-/* Copy the first part of user declarations.  */
-#line 35 "convert.y"
-
-#include <stdlib.h>
-#include <stdio.h>
-#include <string.h>
-#include "decl.h"
-
-int line_num=1;
-extern FILE * convert_in;
-
-int convert_error(const char *s)
-{
-    printf("##\n## ERROR in conv: '%s' (line %d, file: %s)\n##\n", s, line_num, config_file);
-    exit(0);
-}
-
-
-
-/* Enabling traces.  */
-#ifndef YYDEBUG
-# define YYDEBUG 1
-#endif
-
-/* Enabling verbose error messages.  */
-#ifdef YYERROR_VERBOSE
-# undef YYERROR_VERBOSE
-# define YYERROR_VERBOSE 1
-#else
-# define YYERROR_VERBOSE 0
-#endif
-
-/* Enabling the token table.  */
-#ifndef YYTOKEN_TABLE
-# define YYTOKEN_TABLE 0
-#endif
+
 
 #if ! defined YYSTYPE && ! defined YYSTYPE_IS_DECLARED
 typedef union YYSTYPE
+{
+/* Line 387 of yacc.c  */
 #line 52 "convert.y"
-{
+
     char na[LONG_M];
-}
-/* Line 193 of yacc.c.  */
+
+
+/* Line 387 of yacc.c  */
 #line 149 "convert.tab.c"
-   YYSTYPE;
+} YYSTYPE;
+# define YYSTYPE_IS_TRIVIAL 1
 # define yystype YYSTYPE /* obsolescent; will be withdrawn */
 # define YYSTYPE_IS_DECLARED 1
-# define YYSTYPE_IS_TRIVIAL 1
-#endif
+#endif
+
+extern YYSTYPE convert_lval;
+
+#ifdef YYPARSE_PARAM
+#if defined __STDC__ || defined __cplusplus
+int convert_parse (void *YYPARSE_PARAM);
+#else
+int convert_parse ();
+#endif
+#else /* ! YYPARSE_PARAM */
+#if defined __STDC__ || defined __cplusplus
+int convert_parse (void);
+#else
+int convert_parse ();
+#endif
+#endif /* ! YYPARSE_PARAM */
 
 
@@ -157 +173 @@
 /* Copy the second part of user declarations.  */
 
-
-/* Line 216 of yacc.c.  */
-#line 162 "convert.tab.c"
+/* Line 390 of yacc.c  */
+#line 177 "convert.tab.c"
 
 #ifdef short
@@ -212 +227 @@
 #  if ENABLE_NLS
 #   include <libintl.h> /* INFRINGES ON USER NAME SPACE */
-#   define YY_(msgid) dgettext ("bison-runtime", msgid)
+#   define YY_(Msgid) dgettext ("bison-runtime", Msgid)
 #  endif
 # endif
 # ifndef YY_
-#  define YY_(msgid) msgid
+#  define YY_(Msgid) Msgid
 # endif
 #endif
@@ -222 +237 @@
 /* Suppress unused-variable warnings by "using" E.  */
 #if ! defined lint || defined __GNUC__
-# define YYUSE(e) ((void) (e))
+# define YYUSE(E) ((void) (E))
 #else
-# define YYUSE(e) /* empty */
+# define YYUSE(E) /* empty */
 #endif
 
 /* Identity function, used to suppress warnings about constant conditions.  */
 #ifndef lint
-# define YYID(n) (n)
+# define YYID(N) (N)
 #else
 #if (defined __STDC__ || defined __C99__FUNC__ \
      || defined __cplusplus || defined _MSC_VER)
 static int
-YYID (int i)
+YYID (int yyi)
 #else
 static int
-YYID (i)
-    int i;
-#endif
-{
-  return i;
+YYID (yyi)
+    int yyi;
+#endif
+{
+  return yyi;
 }
 #endif
@@ -262 +277 @@
 #   else
 #    define YYSTACK_ALLOC alloca
-#    if ! defined _ALLOCA_H && ! defined _STDLIB_H && (defined __STDC__ || defined __C99__FUNC__ \
+#    if ! defined _ALLOCA_H && ! defined EXIT_SUCCESS && (defined __STDC__ || defined __C99__FUNC__ \
      || defined __cplusplus || defined _MSC_VER)
 #     include <stdlib.h> /* INFRINGES ON USER NAME SPACE */
-#     ifndef _STDLIB_H
-#      define _STDLIB_H 1
+      /* Use EXIT_SUCCESS as a witness for stdlib.h.  */
+#     ifndef EXIT_SUCCESS
+#      define EXIT_SUCCESS 0
 #     endif
 #    endif
@@ -289 +305 @@
 #   define YYSTACK_ALLOC_MAXIMUM YYSIZE_MAXIMUM
 #  endif
-#  if (defined __cplusplus && ! defined _STDLIB_H \
+#  if (defined __cplusplus && ! defined EXIT_SUCCESS \
        && ! ((defined YYMALLOC || defined malloc) \
         && (defined YYFREE || defined free)))
 #   include <stdlib.h> /* INFRINGES ON USER NAME SPACE */
-#   ifndef _STDLIB_H
-#    define _STDLIB_H 1
+#   ifndef EXIT_SUCCESS
+#    define EXIT_SUCCESS 0
 #   endif
 #  endif
 #  ifndef YYMALLOC
 #   define YYMALLOC malloc
-#   if ! defined malloc && ! defined _STDLIB_H && (defined __STDC__ || defined __C99__FUNC__ \
+#   if ! defined malloc && ! defined EXIT_SUCCESS && (defined __STDC__ || defined __C99__FUNC__ \
      || defined __cplusplus || defined _MSC_VER)
 void *malloc (YYSIZE_T); /* INFRINGES ON USER NAME SPACE */
@@ -306 +322 @@
 #  ifndef YYFREE
 #   define YYFREE free
-#   if ! defined free && ! defined _STDLIB_H && (defined __STDC__ || defined __C99__FUNC__ \
+#   if ! defined free && ! defined EXIT_SUCCESS && (defined __STDC__ || defined __C99__FUNC__ \
      || defined __cplusplus || defined _MSC_VER)
 void free (void *); /* INFRINGES ON USER NAME SPACE */
@@ -322 +338 @@
 union yyalloc
 {
-  yytype_int16 yyss;
-  YYSTYPE yyvs;
-  };
+  yytype_int16 yyss_alloc;
+  YYSTYPE yyvs_alloc;
+};
 
 /* The size of the maximum gap between one aligned stack and the next.  */
@@ -335 +351 @@
       + YYSTACK_GAP_MAXIMUM)
 
-/* Copy COUNT objects from FROM to TO.  The source and destination do
-   not overlap.  */
-# ifndef YYCOPY
-#  if defined __GNUC__ && 1 < __GNUC__
-#   define YYCOPY(To, From, Count) \
-      __builtin_memcpy (To, From, (Count) * sizeof (*(From)))
-#  else
-#   define YYCOPY(To, From, Count)     \
-      do             \
-   {              \
-     YYSIZE_T yyi;            \
-     for (yyi = 0; yyi < (Count); yyi++)  \
-       (To)[yyi] = (From)[yyi];     \
-   }              \
-      while (YYID (0))
-#  endif
-# endif
+# define YYCOPY_NEEDED 1
 
 /* Relocate STACK from its old location to the new one.  The
@@ -358 +358 @@
    stack.  Advance YYPTR to a properly aligned location for the next
    stack.  */
-# define YYSTACK_RELOCATE(Stack)             \
+# define YYSTACK_RELOCATE(Stack_alloc, Stack)            \
     do                           \
       {                          \
    YYSIZE_T yynewbytes;                \
-   YYCOPY (&yyptr->Stack, Stack, yysize);          \
-   Stack = &yyptr->Stack;                 \
+   YYCOPY (&yyptr->Stack_alloc, Stack, yysize);       \
+   Stack = &yyptr->Stack_alloc;              \
    yynewbytes = yystacksize * sizeof (*Stack) + YYSTACK_GAP_MAXIMUM; \
    yyptr += yynewbytes / sizeof (*yyptr);          \
@@ -370 +370 @@
 
 #endif
+
+#if defined YYCOPY_NEEDED && YYCOPY_NEEDED
+/* Copy COUNT objects from SRC to DST.  The source and destination do
+   not overlap.  */
+# ifndef YYCOPY
+#  if defined __GNUC__ && 1 < __GNUC__
+#   define YYCOPY(Dst, Src, Count) \
+      __builtin_memcpy (Dst, Src, (Count) * sizeof (*(Src)))
+#  else
+#   define YYCOPY(Dst, Src, Count)              \
+      do                                        \
+        {                                       \
+          YYSIZE_T yyi;                         \
+          for (yyi = 0; yyi < (Count); yyi++)   \
+            (Dst)[yyi] = (Src)[yyi];            \
+        }                                       \
+      while (YYID (0))
+#  endif
+# endif
+#endif /* !YYCOPY_NEEDED */
 
 /* YYFINAL -- State number of the termination state.  */
@@ -451 +471 @@
 #endif
 
-#if YYDEBUG || YYERROR_VERBOSE || YYTOKEN_TABLE
+#if YYDEBUG || YYERROR_VERBOSE || 0
 /* YYTNAME[SYMBOL-NUM] -- String name of the symbol SYMBOL-NUM.
    First, the terminals, then, starting at YYNTOKENS, nonterminals.  */
@@ -459 +479 @@
   "TOK_USE", "TOK_MODULEMAIN", "TOK_NOTGRIDDEP", "TOK_USEITEM", "TOK_NAME",
   "TOK_CSTINT", "TOK_PROBTYPE", "','", "';'", "'\\n'", "$accept", "input",
-  "line", 0
+  "line", YY_NULL
 };
 #endif
@@ -487 +507 @@
 };
 
-/* YYDEFACT[STATE-NAME] -- Default rule to reduce with in state
-   STATE-NUM when YYTABLE doesn't specify something else to do.  Zero
+/* YYDEFACT[STATE-NAME] -- Default reduction number in state STATE-NUM.
+   Performed when YYTABLE doesn't specify something else to do.  Zero
    means the default is an error.  */
 static const yytype_uint8 yydefact[] =
@@ -521 +541 @@
 /* YYTABLE[YYPACT[STATE-NUM]].  What to do in state STATE-NUM.  If
    positive, shift that token.  If negative, reduce the rule which
-   number is the opposite.  If zero, do what YYDEFACT says.
-   If YYTABLE_NINF, syntax error.  */
+   number is the opposite.  If YYTABLE_NINF, syntax error.  */
 #define YYTABLE_NINF -1
 static const yytype_uint8 yytable[] =
@@ -531 +550 @@
 };
 
+#define yypact_value_is_default(Yystate) \
+  (!!((Yystate) == (-13)))
+
+#define yytable_value_is_error(Yytable_value) \
+  YYID (0)
+
 static const yytype_int8 yycheck[] =
 {
@@ -559 +584 @@
 /* Like YYERROR except do call yyerror.  This remains here temporarily
    to ease the transition to the new meaning of YYERROR, for GCC.
-   Once GCC version 2 has supplanted version 1, this can go.  */
+   Once GCC version 2 has supplanted version 1, this can go.  However,
+   YYFAIL appears to be in use.  Nevertheless, it is formally deprecated
+   in Bison 2.4.2's NEWS entry, where a plan to phase it out is
+   discussed.  */
 
 #define YYFAIL    goto yyerrlab
+#if defined YYFAIL
+  /* This is here to suppress warnings from the GCC cpp's
+     -Wunused-macros.  Normally we don't worry about that warning, but
+     some users do, and we want to make it easy for users to remove
+     YYFAIL uses, which will produce warnings from Bison 2.5.  */
+#endif
 
 #define YYRECOVERING()  (!!yyerrstatus)
 
-#define YYBACKUP(Token, Value)               \
-do                      \
-  if (yychar == YYEMPTY && yylen == 1)          \
-    {                      \
-      yychar = (Token);                \
-      yylval = (Value);                \
-      yytoken = YYTRANSLATE (yychar);           \
-      YYPOPSTACK (1);                  \
-      goto yybackup;                \
-    }                      \
-  else                        \
-    {                      \
+#define YYBACKUP(Token, Value)                                  \
+do                                                              \
+  if (yychar == YYEMPTY)                                        \
+    {                                                           \
+      yychar = (Token);                                         \
+      yylval = (Value);                                         \
+      YYPOPSTACK (yylen);                                       \
+      yystate = *yyssp;                                         \
+      goto yybackup;                                            \
+    }                                                           \
+  else                                                          \
+    {                                                           \
       yyerror (YY_("syntax error: cannot back up")); \
       YYERROR;                   \
@@ -582 +616 @@
 while (YYID (0))
 
-
+/* Error token number */
 #define YYTERROR  1
 #define YYERRCODE 256
 
 
-/* YYLLOC_DEFAULT -- Set CURRENT to span from RHS[1] to RHS[N].
-   If N is 0, then set CURRENT to the empty location which ends
-   the previous symbol: RHS[0] (always defined).  */
-
-#define YYRHSLOC(Rhs, K) ((Rhs)[K])
-#ifndef YYLLOC_DEFAULT
-# define YYLLOC_DEFAULT(Current, Rhs, N)           \
-    do                           \
-      if (YYID (N))                                                    \
-   {                       \
-     (Current).first_line   = YYRHSLOC (Rhs, 1).first_line; \
-     (Current).first_column = YYRHSLOC (Rhs, 1).first_column;  \
-     (Current).last_line    = YYRHSLOC (Rhs, N).last_line;     \
-     (Current).last_column  = YYRHSLOC (Rhs, N).last_column;   \
-   }                       \
-      else                       \
-   {                       \
-     (Current).first_line   = (Current).last_line   =    \
-       YYRHSLOC (Rhs, 0).last_line;          \
-     (Current).first_column = (Current).last_column =    \
-       YYRHSLOC (Rhs, 0).last_column;           \
-   }                       \
-    while (YYID (0))
-#endif
-
-
-/* YY_LOCATION_PRINT -- Print the location on the stream.
-   This macro was not mandated originally: define only if we know
-   we won't break user code: when these are the locations we know.  */
-
+/* This macro is provided for backward compatibility. */
 #ifndef YY_LOCATION_PRINT
-# if defined YYLTYPE_IS_TRIVIAL && YYLTYPE_IS_TRIVIAL
-#  define YY_LOCATION_PRINT(File, Loc)       \
-     fprintf (File, "%d.%d-%d.%d",        \
-         (Loc).first_line, (Loc).first_column,  \
-         (Loc).last_line,  (Loc).last_column)
-# else
-#  define YY_LOCATION_PRINT(File, Loc) ((void) 0)
-# endif
+# define YY_LOCATION_PRINT(File, Loc) ((void) 0)
 #endif
 
 
 /* YYLEX -- calling `yylex' with the right arguments.  */
-
 #ifdef YYLEX_PARAM
 # define YYLEX yylex (YYLEX_PARAM)
@@ -680 +677 @@
 #endif
 {
+  FILE *yyo = yyoutput;
+  YYUSE (yyo);
   if (!yyvaluep)
     return;
@@ -691 +690 @@
     {
       default:
-   break;
+        break;
     }
 }
@@ -729 +728 @@
      || defined __cplusplus || defined _MSC_VER)
 static void
-yy_stack_print (yytype_int16 *bottom, yytype_int16 *top)
+yy_stack_print (yytype_int16 *yybottom, yytype_int16 *yytop)
 #else
 static void
-yy_stack_print (bottom, top)
-    yytype_int16 *bottom;
-    yytype_int16 *top;
+yy_stack_print (yybottom, yytop)
+    yytype_int16 *yybottom;
+    yytype_int16 *yytop;
 #endif
 {
   YYFPRINTF (stderr, "Stack now");
-  for (; bottom <= top; ++bottom)
-    YYFPRINTF (stderr, " %d", *bottom);
+  for (; yybottom <= yytop; yybottom++)
+    {
+      int yybot = *yybottom;
+      YYFPRINTF (stderr, " %d", yybot);
+    }
   YYFPRINTF (stderr, "\n");
 }
@@ -773 +775 @@
   for (yyi = 0; yyi < yynrhs; yyi++)
     {
-      fprintf (stderr, "   $%d = ", yyi + 1);
+      YYFPRINTF (stderr, "   $%d = ", yyi + 1);
       yy_symbol_print (stderr, yyrhs[yyprhs[yyrule] + yyi],
              &(yyvsp[(yyi + 1) - (yynrhs)])
                          );
-      fprintf (stderr, "\n");
+      YYFPRINTF (stderr, "\n");
     }
 }
@@ -813 +815 @@
 # define YYMAXDEPTH 10000
 #endif
-
-
 
 
@@ -918 +918 @@
 # endif
 
-/* Copy into YYRESULT an error message about the unexpected token
-   YYCHAR while in state YYSTATE.  Return the number of bytes copied,
-   including the terminating null byte.  If YYRESULT is null, do not
-   copy anything; just return the number of bytes that would be
-   copied.  As a special case, return 0 if an ordinary "syntax error"
-   message will do.  Return YYSIZE_MAXIMUM if overflow occurs during
-   size calculation.  */
-static YYSIZE_T
-yysyntax_error (char *yyresult, int yystate, int yychar)
-{
-  int yyn = yypact[yystate];
-
-  if (! (YYPACT_NINF < yyn && yyn <= YYLAST))
-    return 0;
-  else
+/* Copy into *YYMSG, which is of size *YYMSG_ALLOC, an error message
+   about the unexpected token YYTOKEN for the state stack whose top is
+   YYSSP.
+
+   Return 0 if *YYMSG was successfully written.  Return 1 if *YYMSG is
+   not large enough to hold the message.  In that case, also set
+   *YYMSG_ALLOC to the required number of bytes.  Return 2 if the
+   required number of bytes is too large to store.  */
+static int
+yysyntax_error (YYSIZE_T *yymsg_alloc, char **yymsg,
+                yytype_int16 *yyssp, int yytoken)
+{
+  YYSIZE_T yysize0 = yytnamerr (YY_NULL, yytname[yytoken]);
+  YYSIZE_T yysize = yysize0;
+  enum { YYERROR_VERBOSE_ARGS_MAXIMUM = 5 };
+  /* Internationalized format string. */
+  const char *yyformat = YY_NULL;
+  /* Arguments of yyformat. */
+  char const *yyarg[YYERROR_VERBOSE_ARGS_MAXIMUM];
+  /* Number of reported tokens (one for the "unexpected", one per
+     "expected"). */
+  int yycount = 0;
+
+  /* There are many possibilities here to consider:
+     - Assume YYFAIL is not used.  It's too flawed to consider.  See
+       <http://lists.gnu.org/archive/html/bison-patches/2009-12/msg00024.html>
+       for details.  YYERROR is fine as it does not invoke this
+       function.
+     - If this state is a consistent state with a default action, then
+       the only way this function was invoked is if the default action
+       is an error action.  In that case, don't check for expected
+       tokens because there are none.
+     - The only way there can be no lookahead present (in yychar) is if
+       this state is a consistent state with a default action.  Thus,
+       detecting the absence of a lookahead is sufficient to determine
+       that there is no unexpected or expected token to report.  In that
+       case, just report a simple "syntax error".
+     - Don't assume there isn't a lookahead just because this state is a
+       consistent state with a default action.  There might have been a
+       previous inconsistent state, consistent state with a non-default
+       action, or user semantic action that manipulated yychar.
+     - Of course, the expected token list depends on states to have
+       correct lookahead information, and it depends on the parser not
+       to perform extra reductions after fetching a lookahead from the
+       scanner and before detecting a syntax error.  Thus, state merging
+       (from LALR or IELR) and default reductions corrupt the expected
+       token list.  However, the list is correct for canonical LR with
+       one exception: it will still contain any token that will not be
+       accepted due to an error action in a later state.
+  */
+  if (yytoken != YYEMPTY)
     {
-      int yytype = YYTRANSLATE (yychar);
-      YYSIZE_T yysize0 = yytnamerr (0, yytname[yytype]);
-      YYSIZE_T yysize = yysize0;
-      YYSIZE_T yysize1;
-      int yysize_overflow = 0;
-      enum { YYERROR_VERBOSE_ARGS_MAXIMUM = 5 };
-      char const *yyarg[YYERROR_VERBOSE_ARGS_MAXIMUM];
-      int yyx;
-
-# if 0
-      /* This is so xgettext sees the translatable formats that are
-    constructed on the fly.  */
-      YY_("syntax error, unexpected %s");
-      YY_("syntax error, unexpected %s, expecting %s");
-      YY_("syntax error, unexpected %s, expecting %s or %s");
-      YY_("syntax error, unexpected %s, expecting %s or %s or %s");
-      YY_("syntax error, unexpected %s, expecting %s or %s or %s or %s");
-# endif
-      char *yyfmt;
-      char const *yyf;
-      static char const yyunexpected[] = "syntax error, unexpected %s";
-      static char const yyexpecting[] = ", expecting %s";
-      static char const yyor[] = " or %s";
-      char yyformat[sizeof yyunexpected
-          + sizeof yyexpecting - 1
-          + ((YYERROR_VERBOSE_ARGS_MAXIMUM - 2)
-             * (sizeof yyor - 1))];
-      char const *yyprefix = yyexpecting;
-
-      /* Start YYX at -YYN if negative to avoid negative indexes in
-    YYCHECK.  */
-      int yyxbegin = yyn < 0 ? -yyn : 0;
-
-      /* Stay within bounds of both yycheck and yytname.  */
-      int yychecklim = YYLAST - yyn + 1;
-      int yyxend = yychecklim < YYNTOKENS ? yychecklim : YYNTOKENS;
-      int yycount = 1;
-
-      yyarg[0] = yytname[yytype];
-      yyfmt = yystpcpy (yyformat, yyunexpected);
-
-      for (yyx = yyxbegin; yyx < yyxend; ++yyx)
-   if (yycheck[yyx + yyn] == yyx && yyx != YYTERROR)
-     {
-       if (yycount == YYERROR_VERBOSE_ARGS_MAXIMUM)
-         {
-      yycount = 1;
-      yysize = yysize0;
-      yyformat[sizeof yyunexpected - 1] = '\0';
-      break;
-         }
-       yyarg[yycount++] = yytname[yyx];
-       yysize1 = yysize + yytnamerr (0, yytname[yyx]);
-       yysize_overflow |= (yysize1 < yysize);
-       yysize = yysize1;
-       yyfmt = yystpcpy (yyfmt, yyprefix);
-       yyprefix = yyor;
-     }
-
-      yyf = YY_(yyformat);
-      yysize1 = yysize + yystrlen (yyf);
-      yysize_overflow |= (yysize1 < yysize);
-      yysize = yysize1;
-
-      if (yysize_overflow)
-   return YYSIZE_MAXIMUM;
-
-      if (yyresult)
-   {
-     /* Avoid sprintf, as that infringes on the user's name space.
-        Don't have undefined behavior even if the translation
-        produced a string with the wrong number of "%s"s.  */
-     char *yyp = yyresult;
-     int yyi = 0;
-     while ((*yyp = *yyf) != '\0')
-       {
-         if (*yyp == '%' && yyf[1] == 's' && yyi < yycount)
-      {
-        yyp += yytnamerr (yyp, yyarg[yyi++]);
-        yyf += 2;
-      }
-         else
-      {
-        yyp++;
-        yyf++;
-      }
-       }
-   }
-      return yysize;
+      int yyn = yypact[*yyssp];
+      yyarg[yycount++] = yytname[yytoken];
+      if (!yypact_value_is_default (yyn))
+        {
+          /* Start YYX at -YYN if negative to avoid negative indexes in
+             YYCHECK.  In other words, skip the first -YYN actions for
+             this state because they are default actions.  */
+          int yyxbegin = yyn < 0 ? -yyn : 0;
+          /* Stay within bounds of both yycheck and yytname.  */
+          int yychecklim = YYLAST - yyn + 1;
+          int yyxend = yychecklim < YYNTOKENS ? yychecklim : YYNTOKENS;
+          int yyx;
+
+          for (yyx = yyxbegin; yyx < yyxend; ++yyx)
+            if (yycheck[yyx + yyn] == yyx && yyx != YYTERROR
+                && !yytable_value_is_error (yytable[yyx + yyn]))
+              {
+                if (yycount == YYERROR_VERBOSE_ARGS_MAXIMUM)
+                  {
+                    yycount = 1;
+                    yysize = yysize0;
+                    break;
+                  }
+                yyarg[yycount++] = yytname[yyx];
+                {
+                  YYSIZE_T yysize1 = yysize + yytnamerr (YY_NULL, yytname[yyx]);
+                  if (! (yysize <= yysize1
+                         && yysize1 <= YYSTACK_ALLOC_MAXIMUM))
+                    return 2;
+                  yysize = yysize1;
+                }
+              }
+        }
     }
+
+  switch (yycount)
+    {
+# define YYCASE_(N, S)                      \
+      case N:                               \
+        yyformat = S;                       \
+      break
+      YYCASE_(0, YY_("syntax error"));
+      YYCASE_(1, YY_("syntax error, unexpected %s"));
+      YYCASE_(2, YY_("syntax error, unexpected %s, expecting %s"));
+      YYCASE_(3, YY_("syntax error, unexpected %s, expecting %s or %s"));
+      YYCASE_(4, YY_("syntax error, unexpected %s, expecting %s or %s or %s"));
+      YYCASE_(5, YY_("syntax error, unexpected %s, expecting %s or %s or %s or %s"));
+# undef YYCASE_
+    }
+
+  {
+    YYSIZE_T yysize1 = yysize + yystrlen (yyformat);
+    if (! (yysize <= yysize1 && yysize1 <= YYSTACK_ALLOC_MAXIMUM))
+      return 2;
+    yysize = yysize1;
+  }
+
+  if (*yymsg_alloc < yysize)
+    {
+      *yymsg_alloc = 2 * yysize;
+      if (! (yysize <= *yymsg_alloc
+             && *yymsg_alloc <= YYSTACK_ALLOC_MAXIMUM))
+        *yymsg_alloc = YYSTACK_ALLOC_MAXIMUM;
+      return 1;
+    }
+
+  /* Avoid sprintf, as that infringes on the user's name space.
+     Don't have undefined behavior even if the translation
+     produced a string with the wrong number of "%s"s.  */
+  {
+    char *yyp = *yymsg;
+    int yyi = 0;
+    while ((*yyp = *yyformat) != '\0')
+      if (*yyp == '%' && yyformat[1] == 's' && yyi < yycount)
+        {
+          yyp += yytnamerr (yyp, yyarg[yyi++]);
+          yyformat += 2;
+        }
+      else
+        {
+          yyp++;
+          yyformat++;
+        }
+  }
+  return 0;
 }
 #endif /* YYERROR_VERBOSE */
-
-
 
 /*-----------------------------------------------.
@@ -1056 +1085 @@
 
       default:
-   break;
+        break;
     }
 }
@@ -1062 +1091 @@
 
 
-/* Prevent warnings from -Wmissing-prototypes.  */
-
-#ifdef YYPARSE_PARAM
-#if defined __STDC__ || defined __cplusplus
-int yyparse (void *YYPARSE_PARAM);
-#else
-int yyparse ();
-#endif
-#else /* ! YYPARSE_PARAM */
-#if defined __STDC__ || defined __cplusplus
-int yyparse (void);
-#else
-int yyparse ();
-#endif
-#endif /* ! YYPARSE_PARAM */
-
-
-
-/* The look-ahead symbol.  */
+
+/* The lookahead symbol.  */
 int yychar;
 
-/* The semantic value of the look-ahead symbol.  */
-YYSTYPE yylval;
+
+#ifndef YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN
+# define YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN
+# define YY_IGNORE_MAYBE_UNINITIALIZED_END
+#endif
+#ifndef YY_INITIAL_VALUE
+# define YY_INITIAL_VALUE(Value) /* Nothing. */
+#endif
+
+/* The semantic value of the lookahead symbol.  */
+YYSTYPE yylval YY_INITIAL_VALUE(yyval_default);
 
 /* Number of syntax errors so far.  */
 int yynerrs;
-
 
 
@@ -1117 +1137 @@
 #endif
 {
-  
-  int yystate;
+    int yystate;
+    /* Number of tokens to shift before error messages enabled.  */
+    int yyerrstatus;
+
+    /* The stacks and their tools:
+       `yyss': related to states.
+       `yyvs': related to semantic values.
+
+       Refer to the stacks through separate pointers, to allow yyoverflow
+       to reallocate them elsewhere.  */
+
+    /* The state stack.  */
+    yytype_int16 yyssa[YYINITDEPTH];
+    yytype_int16 *yyss;
+    yytype_int16 *yyssp;
+
+    /* The semantic value stack.  */
+    YYSTYPE yyvsa[YYINITDEPTH];
+    YYSTYPE *yyvs;
+    YYSTYPE *yyvsp;
+
+    YYSIZE_T yystacksize;
+
   int yyn;
   int yyresult;
-  /* Number of tokens to shift before error messages enabled.  */
-  int yyerrstatus;
-  /* Look-ahead token as an internal (translated) token number.  */
+  /* Lookahead token as an internal (translated) token number.  */
   int yytoken = 0;
+  /* The variables used to return semantic value and location from the
+     action routines.  */
+  YYSTYPE yyval;
+
 #if YYERROR_VERBOSE
   /* Buffer for error messages, and its allocated size.  */
@@ -1132 +1175 @@
 #endif
 
-  /* Three stacks and their tools:
-     `yyss': related to states,
-     `yyvs': related to semantic values,
-     `yyls': related to locations.
-
-     Refer to the stacks thru separate pointers, to allow yyoverflow
-     to reallocate them elsewhere.  */
-
-  /* The state stack.  */
-  yytype_int16 yyssa[YYINITDEPTH];
-  yytype_int16 *yyss = yyssa;
-  yytype_int16 *yyssp;
-
-  /* The semantic value stack.  */
-  YYSTYPE yyvsa[YYINITDEPTH];
-  YYSTYPE *yyvs = yyvsa;
-  YYSTYPE *yyvsp;
-
-
-
 #define YYPOPSTACK(N)   (yyvsp -= (N), yyssp -= (N))
-
-  YYSIZE_T yystacksize = YYINITDEPTH;
-
-  /* The variables used to return semantic value and location from the
-     action routines.  */
-  YYSTYPE yyval;
-
 
   /* The number of symbols on the RHS of the reduced rule.
@@ -1165 +1181 @@
   int yylen = 0;
 
+  yyssp = yyss = yyssa;
+  yyvsp = yyvs = yyvsa;
+  yystacksize = YYINITDEPTH;
+
   YYDPRINTF ((stderr, "Starting parse\n"));
 
@@ -1170 +1190 @@
   yyerrstatus = 0;
   yynerrs = 0;
-  yychar = YYEMPTY;     /* Cause a token to be read.  */
-
-  /* Initialize stack pointers.
-     Waste one element of value and location stack
-     so that they stay on the same level as the state stack.
-     The wasted elements are never initialized.  */
-
-  yyssp = yyss;
-  yyvsp = yyvs;
-
+  yychar = YYEMPTY; /* Cause a token to be read.  */
   goto yysetstate;
 
@@ -1206 +1217 @@
    yytype_int16 *yyss1 = yyss;
 
-
    /* Each stack pointer address is followed by the size of the
       data in use in that stack, in bytes.  This used to be a
@@ -1214 +1224 @@
           &yyss1, yysize * sizeof (*yyssp),
           &yyvs1, yysize * sizeof (*yyvsp),
-
           &yystacksize);
 
@@ -1237 +1246 @@
    if (! yyptr)
      goto yyexhaustedlab;
-   YYSTACK_RELOCATE (yyss);
-   YYSTACK_RELOCATE (yyvs);
-
+   YYSTACK_RELOCATE (yyss_alloc, yyss);
+   YYSTACK_RELOCATE (yyvs_alloc, yyvs);
 #  undef YYSTACK_RELOCATE
    if (yyss1 != yyssa)
@@ -1250 +1258 @@
       yyvsp = yyvs + yysize - 1;
 
-
       YYDPRINTF ((stderr, "Stack size increased to %lu\n",
         (unsigned long int) yystacksize));
@@ -1259 +1266 @@
 
   YYDPRINTF ((stderr, "Entering state %d\n", yystate));
+
+  if (yystate == YYFINAL)
+    YYACCEPT;
 
   goto yybackup;
@@ -1268 +1278 @@
 
   /* Do appropriate processing given the current state.  Read a
-     look-ahead token if we need one and don't already have one.  */
-
-  /* First try to decide what to do without reference to look-ahead token.  */
+     lookahead token if we need one and don't already have one.  */
+
+  /* First try to decide what to do without reference to lookahead token.  */
   yyn = yypact[yystate];
-  if (yyn == YYPACT_NINF)
+  if (yypact_value_is_default (yyn))
     goto yydefault;
 
-  /* Not known => get a look-ahead token if don't already have one.  */
-
-  /* YYCHAR is either YYEMPTY or YYEOF or a valid look-ahead symbol.  */
+  /* Not known => get a lookahead token if don't already have one.  */
+
+  /* YYCHAR is either YYEMPTY or YYEOF or a valid lookahead symbol.  */
   if (yychar == YYEMPTY)
     {
@@ -1303 +1313 @@
   if (yyn <= 0)
     {
-      if (yyn == 0 || yyn == YYTABLE_NINF)
-   goto yyerrlab;
+      if (yytable_value_is_error (yyn))
+        goto yyerrlab;
       yyn = -yyn;
       goto yyreduce;
     }
-
-  if (yyn == YYFINAL)
-    YYACCEPT;
 
   /* Count tokens shifted since error; after three, turn off error
@@ -1317 +1324 @@
     yyerrstatus--;
 
-  /* Shift the look-ahead token.  */
+  /* Shift the lookahead token.  */
   YY_SYMBOL_PRINT ("Shifting", yytoken, &yylval, &yylloc);
 
-  /* Discard the shifted token unless it is eof.  */
-  if (yychar != YYEOF)
-    yychar = YYEMPTY;
+  /* Discard the shifted token.  */
+  yychar = YYEMPTY;
 
   yystate = yyn;
+  YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN
   *++yyvsp = yylval;
+  YY_IGNORE_MAYBE_UNINITIALIZED_END
 
   goto yynewstate;
@@ -1362 +1370 @@
     {
         case 5:
+/* Line 1807 of yacc.c  */
 #line 76 "convert.y"
-    { initdimprob(1,(yyvsp[(2) - (3)].na),"0","0"); ;}
+    { initdimprob(1,(yyvsp[(2) - (3)].na),"0","0"); }
     break;
 
   case 6:
+/* Line 1807 of yacc.c  */
 #line 77 "convert.y"
-    { initdimprob(2,(yyvsp[(2) - (5)].na), (yyvsp[(4) - (5)].na),"0"); ;}
+    { initdimprob(2,(yyvsp[(2) - (5)].na), (yyvsp[(4) - (5)].na),"0"); }
     break;
 
   case 7:
+/* Line 1807 of yacc.c  */
 #line 78 "convert.y"
-    { initdimprob(3,(yyvsp[(2) - (7)].na), (yyvsp[(4) - (7)].na), (yyvsp[(6) - (7)].na)); ;}
+    { initdimprob(3,(yyvsp[(2) - (7)].na), (yyvsp[(4) - (7)].na), (yyvsp[(6) - (7)].na)); }
     break;
 
   case 8:
+/* Line 1807 of yacc.c  */
 #line 80 "convert.y"
     {
             listofmodules = Addtolistnom((yyvsp[(2) - (3)].na),listofmodules,0);
             Addmoduletothelist((yyvsp[(2) - (3)].na));
-        ;}
+        }
     break;
 
   case 9:
+/* Line 1807 of yacc.c  */
 #line 85 "convert.y"
     {
@@ -1400 +1413 @@
                 exit(0);
             }
-        ;}
+        }
     break;
 
   case 10:
+/* Line 1807 of yacc.c  */
 #line 101 "convert.y"
     {
             Add_NotGridDepend_Var_1((yyvsp[(3) - (4)].na));
-        ;}
+        }
     break;
 
   case 11:
+/* Line 1807 of yacc.c  */
 #line 105 "convert.y"
     {
             if (!strcasecmp((yyvsp[(2) - (3)].na),"FIXED_GRIDS"))      fixedgrids = 1;
             if (!strcasecmp((yyvsp[(2) - (3)].na),"ONLY_FIXED_GRIDS")) onlyfixedgrids = 1;
-        ;}
+        }
     break;
 
 
-/* Line 1267 of yacc.c.  */
-#line 1420 "convert.tab.c"
+/* Line 1807 of yacc.c  */
+#line 1438 "convert.tab.c"
       default: break;
     }
+  /* User semantic actions sometimes alter yychar, and that requires
+     that yytoken be updated with the new translation.  We take the
+     approach of translating immediately before every use of yytoken.
+     One alternative is translating here after every semantic action,
+     but that translation would be missed if the semantic action invokes
+     YYABORT, YYACCEPT, or YYERROR immediately after altering yychar or
+     if it invokes YYBACKUP.  In the case of YYABORT or YYACCEPT, an
+     incorrect destructor might then be invoked immediately.  In the
+     case of YYERROR or YYBACKUP, subsequent parser actions might lead
+     to an incorrect destructor call or verbose syntax error message
+     before the lookahead is translated.  */
   YY_SYMBOL_PRINT ("-> $$ =", yyr1[yyn], &yyval, &yyloc);
 
@@ -1430 +1456 @@
 
   *++yyvsp = yyval;
-
 
   /* Now `shift' the result of the reduction.  Determine what state
@@ -1451 +1476 @@
 `------------------------------------*/
 yyerrlab:
+  /* Make sure we have latest lookahead translation.  See comments at
+     user semantic actions for why this is necessary.  */
+  yytoken = yychar == YYEMPTY ? YYEMPTY : YYTRANSLATE (yychar);
+
   /* If not already recovering from an error, report this error.  */
   if (!yyerrstatus)
@@ -1458 +1487 @@
       yyerror (YY_("syntax error"));
 #else
+# define YYSYNTAX_ERROR yysyntax_error (&yymsg_alloc, &yymsg, \
+                                        yyssp, yytoken)
       {
-   YYSIZE_T yysize = yysyntax_error (0, yystate, yychar);
-   if (yymsg_alloc < yysize && yymsg_alloc < YYSTACK_ALLOC_MAXIMUM)
-     {
-       YYSIZE_T yyalloc = 2 * yysize;
-       if (! (yysize <= yyalloc && yyalloc <= YYSTACK_ALLOC_MAXIMUM))
-         yyalloc = YYSTACK_ALLOC_MAXIMUM;
-       if (yymsg != yymsgbuf)
-         YYSTACK_FREE (yymsg);
-       yymsg = (char *) YYSTACK_ALLOC (yyalloc);
-       if (yymsg)
-         yymsg_alloc = yyalloc;
-       else
-         {
-      yymsg = yymsgbuf;
-      yymsg_alloc = sizeof yymsgbuf;
-         }
-     }
-
-   if (0 < yysize && yysize <= yymsg_alloc)
-     {
-       (void) yysyntax_error (yymsg, yystate, yychar);
-       yyerror (yymsg);
-     }
-   else
-     {
-       yyerror (YY_("syntax error"));
-       if (yysize != 0)
-         goto yyexhaustedlab;
-     }
+        char const *yymsgp = YY_("syntax error");
+        int yysyntax_error_status;
+        yysyntax_error_status = YYSYNTAX_ERROR;
+        if (yysyntax_error_status == 0)
+          yymsgp = yymsg;
+        else if (yysyntax_error_status == 1)
+          {
+            if (yymsg != yymsgbuf)
+              YYSTACK_FREE (yymsg);
+            yymsg = (char *) YYSTACK_ALLOC (yymsg_alloc);
+            if (!yymsg)
+              {
+                yymsg = yymsgbuf;
+                yymsg_alloc = sizeof yymsgbuf;
+                yysyntax_error_status = 2;
+              }
+            else
+              {
+                yysyntax_error_status = YYSYNTAX_ERROR;
+                yymsgp = yymsg;
+              }
+          }
+        yyerror (yymsgp);
+        if (yysyntax_error_status == 2)
+          goto yyexhaustedlab;
       }
+# undef YYSYNTAX_ERROR
 #endif
     }
@@ -1496 +1524 @@
   if (yyerrstatus == 3)
     {
-      /* If just tried and failed to reuse look-ahead token after an
+      /* If just tried and failed to reuse lookahead token after an
     error, discard it.  */
 
@@ -1513 +1541 @@
     }
 
-  /* Else will try to reuse look-ahead token after shifting the error
+  /* Else will try to reuse lookahead token after shifting the error
      token.  */
   goto yyerrlab1;
@@ -1547 +1575 @@
     {
       yyn = yypact[yystate];
-      if (yyn != YYPACT_NINF)
+      if (!yypact_value_is_default (yyn))
    {
      yyn += YYTERROR;
@@ -1570 +1598 @@
     }
 
-  if (yyn == YYFINAL)
-    YYACCEPT;
-
+  YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN
   *++yyvsp = yylval;
+  YY_IGNORE_MAYBE_UNINITIALIZED_END
 
 
@@ -1597 +1624 @@
   goto yyreturn;
 
-#ifndef yyoverflow
+#if !defined yyoverflow || YYERROR_VERBOSE
 /*-------------------------------------------------.
 | yyexhaustedlab -- memory exhaustion comes here.  |
@@ -1608 +1635 @@
 
 yyreturn:
-  if (yychar != YYEOF && yychar != YYEMPTY)
-     yydestruct ("Cleanup: discarding lookahead",
-       yytoken, &yylval);
+  if (yychar != YYEMPTY)
+    {
+      /* Make sure we have latest lookahead translation.  See comments at
+         user semantic actions for why this is necessary.  */
+      yytoken = YYTRANSLATE (yychar);
+      yydestruct ("Cleanup: discarding lookahead",
+                  yytoken, &yylval);
+    }
   /* Do not reclaim the symbols of the rule which action triggered
      this YYABORT or YYACCEPT.  */
@@ -1634 +1666 @@
 
 
+/* Line 2055 of yacc.c  */
 #line 110 "convert.y"
 
@@ -1657 +1690 @@
     int infreegiven ;
     int infixedgiven ;
-    int lengthmainfile;
 
     char filetoparse[LONG_FNAME];
@@ -1687 +1719 @@
     tmpuselocallist = (listusemodule *) NULL;
     List_ContainsSubroutine = (listnom *) NULL;
+    List_Do_labels = (listname *) NULL;
     oldfortran_out = (FILE *) NULL;
 
-    if (argc < 2) print_usage();
-    
+    if ( argc < 2 )
+        print_usage();
+
     strcpy(config_file, argv[1]);
     strcpy(work_dir, ".");
@@ -1784 +1818 @@
             strcpy(filetoparse, argv[i+1]);
             i++;
-            lengthmainfile = strlen(filetoparse);
-            if (!strcasecmp(&filetoparse[lengthmainfile-4], ".f90"))
-            {
-                infixed = 0;
-                infree = 1;
-            }
-            else
-            {
-                infixed = 1;
-                infree = 0;
-            }
+            infree  = (strstr(filetoparse, ".f90") != NULL) || (strstr(filetoparse, ".F90") != NULL);
+            infixed = ! infree;
         }
         else if (!strcasecmp(argv[i], "-free"))
@@ -1927 +1952 @@
     /* Build new subroutines                                                   */
     firstpass = 0;
+    /*
+    printf("**********************************\n");
+    printf("SECOND PASSES \n");
+    printf("**********************************\n");
+    */
     process_fortran(filetoparse);
 
@@ -1989 +2019 @@
     return 0;
 }
-
 #line 2 "convert.yy.c"
 

branches/2015/dev_r5803_UKMO_AGRIF_Vert_interp/NEMOGCM/EXTERNAL/AGRIF/LIB/toamr.c

@@ -47 +47 @@
         "tabvars_i"     // v_catvar == 4
     };
+
     return tname[var->v_catvar];    // v_catvar should never be ouside the range [0:4].
 }
@@ -137 +138 @@
     static char tname_1[LONG_C];
     static char tname_2[LONG_C];
-
+    
     if ( iorindice == 0 ) sprintf(tname_1, "Agrif_Gr %% %s(%d)", tabvarsname(var), var->v_indicetabvars);
     else                  sprintf(tname_1, "Agrif_Gr %% %s(i)",  tabvarsname(var));
 
-    if (!strcasecmp(var->v_typevar, "REAL"))
+    if (!strcasecmp(var->v_typevar, "real"))
     {
         if      ( !strcasecmp(var->v_nameinttypename,"8") ) sprintf(tname_2, "%% darray%d", var->v_nbdim);
         else if ( !strcasecmp(var->v_nameinttypename,"4") ) sprintf(tname_2, "%% sarray%d", var->v_nbdim);
-        else                                                sprintf(tname_2, "%% array%d",  var->v_nbdim);
+        else if ( !strcasecmp(var->v_precision,"8") ) sprintf(tname_2, "%% darray%d", var->v_nbdim);
+        else if ( !strcasecmp(var->v_precision,"4") ) sprintf(tname_2, "%% sarray%d", var->v_nbdim);        
+        else  
+          {
+          sprintf(tname_2, "%% array%d",  var->v_nbdim);
+          }
     }
     else if (!strcasecmp(var->v_typevar, "integer"))
@@ -195 +201 @@
         if (!strcasecmp(var->v_typevar, "REAL"))
         {
-            if      ( !strcasecmp(var->v_nameinttypename,"8") ) sprintf(tname_2, "%% darray%d", var->v_nbdim);
-            else if ( !strcasecmp(var->v_nameinttypename,"4") ) sprintf(tname_2, "%% sarray%d", var->v_nbdim);
-            else                                                sprintf(tname_2, "%% array%d", var->v_nbdim);
+            if      ( !strcasecmp(var->v_nameinttypename,"8") ) sprintf(tname_2, "darray%d", var->v_nbdim);
+            else if ( !strcasecmp(var->v_nameinttypename,"4") ) sprintf(tname_2, "sarray%d", var->v_nbdim);
+            else if ( !strcasecmp(var->v_precision,"8") ) sprintf(tname_2, "darray%d", var->v_nbdim);
+            else if ( !strcasecmp(var->v_precision,"4") ) sprintf(tname_2, "sarray%d", var->v_nbdim);
+            else sprintf(tname_2, "array%d", var->v_nbdim);
         }
         else if (!strcasecmp(var->v_typevar, "INTEGER"))
         {
-            sprintf(tname_2, "%% iarray%d", var->v_nbdim);
+            sprintf(tname_2, "iarray%d", var->v_nbdim);
         }
         else if (!strcasecmp(var->v_typevar, "LOGICAL"))
         {
-            sprintf(tname_2, "%% larray%d", var->v_nbdim);
+            sprintf(tname_2, "larray%d", var->v_nbdim);
         }
         else if (!strcasecmp(var->v_typevar, "CHARACTER"))
         {
             WARNING_CharSize(var);
-            sprintf(tname_2, "%% carray%d", var->v_nbdim);
-        }
-        strcat(tname_1, tname_2);
+            sprintf(tname_2, "carray%d", var->v_nbdim);
+        }
+        if (var->v_pointerdeclare)
+        {
+                strcat(tname_1,"%p");
+                strcat(tname_1, tname_2);
+        }
+        else
+        {
+                strcat(tname_1,"%");
+                strcat(tname_1, tname_2);
+        }
     }
     Save_Length(tname_1, 46);
@@ -232 +249 @@
 
     sprintf(tname_1, "(%d)", var->v_indicetabvars);
-
-    if (!strcasecmp (var->v_typevar, "REAL"))
-    {
-        if      ( !strcasecmp(var->v_nameinttypename,"8") ) sprintf(tname_2, "%% darray%d", var->v_nbdim);
-        else if ( !strcasecmp(var->v_nameinttypename,"4") ) sprintf(tname_2, "%% sarray%d", var->v_nbdim);
-        else                                                sprintf(tname_2, "%% array%d", var->v_nbdim);
-    }
-    else if (!strcasecmp(var->v_typevar, "INTEGER"))
-    {
-        sprintf(tname_2, "%% iarray%d", var->v_nbdim);
-    }
-    else if (!strcasecmp(var->v_typevar, "LOGICAL"))
-    {
-        sprintf(tname_2, "%% larray%d", var->v_nbdim);
-    }
-    else if (!strcasecmp(var->v_typevar, "CHARACTER"))
-    {
-        WARNING_CharSize(var);
-        sprintf(tname_2, "%% carray%d", var->v_nbdim);
-    }
-
-    strcat(tname_1, tname_2);
+    
+        if (!strcasecmp(var->v_typevar, "REAL"))
+        {
+            if      ( !strcasecmp(var->v_nameinttypename,"8") ) sprintf(tname_2, "darray%d", var->v_nbdim);
+            else if ( !strcasecmp(var->v_nameinttypename,"4") ) sprintf(tname_2, "sarray%d", var->v_nbdim);
+            else if ( !strcasecmp(var->v_precision,"8") ) sprintf(tname_2, "darray%d", var->v_nbdim);
+            else if ( !strcasecmp(var->v_precision,"4") ) sprintf(tname_2, "sarray%d", var->v_nbdim);
+            else sprintf(tname_2, "array%d", var->v_nbdim);
+        }
+        else if (!strcasecmp(var->v_typevar, "INTEGER"))
+        {
+            sprintf(tname_2, "iarray%d", var->v_nbdim);
+        }
+        else if (!strcasecmp(var->v_typevar, "LOGICAL"))
+        {
+            sprintf(tname_2, "larray%d", var->v_nbdim);
+        }
+        else if (!strcasecmp(var->v_typevar, "CHARACTER"))
+        {
+            WARNING_CharSize(var);
+            sprintf(tname_2, "carray%d", var->v_nbdim);
+        }
+        if (var->v_pointerdeclare)
+        {
+                strcat(tname_1,"%p");
+                strcat(tname_1, tname_2);
+        }
+        else
+        {
+                strcat(tname_1,"%");
+                strcat(tname_1, tname_2);
+        }
+
     Save_Length(tname_1, 46);
 
@@ -535 +563 @@
     listvar *parcoursprec;
     listvar *parcours1;
+    listname *parcours_name;
+    listname *parcours_name_array;
+    listdoloop *parcours_loop;
     FILE *allocationagrif;
     FILE *paramtoamr;
     char ligne[LONG_M];
     char ligne2[LONG_M];
+    char ligne3[LONG_M];
     variable *v;
     int IndiceMax;
@@ -550 +582 @@
     listindice *parcoursindic;
     int i;
+    int nb_initial;
+    int is_parameter_local;
+    int global_check;
 
     parcoursprec = (listvar *) NULL;
@@ -561 +596 @@
             sprintf(ligne,"alloc_agrif_%s.h",parcours_nom->o_nom);
             allocationagrif = open_for_write(ligne);
+
             fprintf(allocationagrif,"#include \"Param_toamr_%s.h\" \n", parcours_nom->o_nom);
-
             sprintf(ligne,"Param_toamr_%s.h",parcours_nom->o_nom);
             paramtoamr = open_for_write(ligne);
@@ -568 +603 @@
             list_indic = (listindice **) calloc(NB_CAT_VARIABLES,sizeof(listindice *));
 
-//             shouldincludempif = 1 ;
+             shouldincludempif = 1 ;
             parcours = List_Common_Var;
             while ( parcours )
@@ -621 +656 @@
                                         IndiceMin = parcours->var->v_indicetabvars;
                                         IndiceMax = parcours->var->v_indicetabvars+compteur;
-                                        sprintf(ligne,"    allocate(%s", vargridnametabvars(v,1));
+                                        sprintf(ligne,"    if (.not. allocated(%s)) allocate(%s", vargridnametabvars(v,1), vargridnametabvars(v,1));
                                         sprintf(ligne2,"%s)", vargridparam(v));
                                         strcat(ligne,ligne2);
@@ -639 +674 @@
                                     else
                                     {
-                                        sprintf(ligne,"allocate(%s", vargridnametabvars(v,0));
+                                        sprintf(ligne,"if (.not. allocated(%s)) allocate(%s", vargridnametabvars(v,0), vargridnametabvars(v,0));
                                         sprintf(ligne2,"%s)", vargridparam(v));
                                         strcat(ligne,ligne2);
@@ -648 +683 @@
                                         list_indic[parcours->var->v_catvar] = parcoursindic;
                                     }
-                                    neededparameter = writedeclarationintoamr(List_Parameter_Var,
-                                                        paramtoamr,v,parcours_nom->o_nom,neededparameter,v->v_commonname);
+
+                                    global_check = 0;
+                                    is_parameter_local = writedeclarationintoamr(List_Parameter_Var,
+                                                        paramtoamr,v,parcours_nom->o_nom,&neededparameter,v->v_commonname,global_check);
+                                    if (is_parameter_local == 0)
+                                    {
+                                    global_check = 1;
+                                    is_parameter_local = writedeclarationintoamr(List_GlobalParameter_Var,
+                                                        paramtoamr,v,parcours_nom->o_nom,&neededparameter,v->v_commonname,global_check);
+                                    }
                                 }
                             } /* end of the allocation part                                       */
                             /*                INITIALISATION                                      */
-                            if ( strcasecmp(v->v_initialvalue,"") )
+                            if ( v->v_initialvalue )
+                            {
+                            parcours_name = v->v_initialvalue;
+                            parcours_name_array = v->v_initialvalue_array;
+                            if (parcours_name_array)
+                            {
+                            while (parcours_name)
                             {
                                 strcpy(ligne, vargridnametabvars(v,0));
+                                if (parcours_name_array)
+                                {
+                                if (strcasecmp(parcours_name_array->n_name,"") )
+                                {
+                                sprintf(ligne2,"(%s)",parcours_name_array->n_name);
+                                strcat(ligne,ligne2);
+                                }
+                                }
                                 /* We should modify the initialvalue in the case of variable has been defined with others variables */
-                                strcpy(initialvalue,ChangeTheInitalvaluebyTabvarsName(v->v_initialvalue,List_Global_Var));
-                                if ( !strcasecmp(initialvalue,v->v_initialvalue) )
-                                {
-                                    strcpy(initialvalue,ChangeTheInitalvaluebyTabvarsName(v->v_initialvalue,List_Common_Var));
-                                }
-                                if ( !strcasecmp(initialvalue,v->v_initialvalue) )
-                                {
-                                    strcpy(initialvalue,ChangeTheInitalvaluebyTabvarsName(v->v_initialvalue,List_ModuleUsed_Var));
+                                strcpy(initialvalue,ChangeTheInitalvaluebyTabvarsName(parcours_name->n_name,List_Global_Var));
+                                if ( !strcasecmp(initialvalue,parcours_name->n_name) )
+                                {
+                                    strcpy(initialvalue,ChangeTheInitalvaluebyTabvarsName(parcours_name->n_name,List_Common_Var));
+                                }
+                                if ( !strcasecmp(initialvalue,parcours_name->n_name) )
+                                {
+                                    strcpy(initialvalue,ChangeTheInitalvaluebyTabvarsName(parcours_name->n_name,List_ModuleUsed_Var));
                                 }
                                 strcat (ligne," = ");
 
-                                if (v->v_nbdim == 0)
+                                if (v->v_nbdim >= 0)
                                 {
                                     strcpy(ligne2,initialvalue);
@@ -678 +735 @@
                                 strcat(ligne,ligne2);
                                 tofich(allocationagrif,ligne,1);
+                             
+                             parcours_name = parcours_name->suiv;
+                             if (parcours_name_array) parcours_name_array = parcours_name_array->suiv;
+                            }
+                            }
+                            else
+                            {
+                            strcpy(ligne, vargridnametabvars(v,0));
+                            strcat (ligne," = ");
+                            strcpy(ligne2,"");
+                            nb_initial = 0;
+                            
+                            while (parcours_name)
+                            {
+                            nb_initial = nb_initial + 1;
+                                /* We should modify the initialvalue in the case of variable has been defined with others variables */
+                                strcpy(initialvalue,ChangeTheInitalvaluebyTabvarsName(parcours_name->n_name,List_Global_Var));
+                                if ( !strcasecmp(initialvalue,parcours_name->n_name) )
+                                {
+                                    strcpy(initialvalue,ChangeTheInitalvaluebyTabvarsName(parcours_name->n_name,List_Common_Var));
+                                }
+                                if ( !strcasecmp(initialvalue,parcours_name->n_name) )
+                                {
+                                    strcpy(initialvalue,ChangeTheInitalvaluebyTabvarsName(parcours_name->n_name,List_ModuleUsed_Var));
+                                }
+
+                                strcat(ligne2,initialvalue);
+                             if (parcours_name->suiv)
+                             {
+                             strcat(ligne2,",");
+                             }
+                             
+                             parcours_name = parcours_name->suiv;
+                            }
+                            if (nb_initial > 1)
+                            {
+                            sprintf(ligne3,"reshape((/%s/),shape(%s))",ligne2,vargridnametabvars(v,0));
+                            }
+                            else
+                            {
+                            strcpy(ligne3,ligne2);
+                            }
+                            strcat(ligne,ligne3);
+                            tofich(allocationagrif,ligne,1);
+                            }
                             }
                         }
@@ -705 +807 @@
     char ligne[LONG_M];
     char ligne2[LONG_M];
+    char ligne3[LONG_M];
+    listname *parcours_name;
+    listname *parcours_name_array;
     variable *v;
     int IndiceMax;
@@ -714 +819 @@
     char initialvalue[LONG_M];
     int typeiswritten ;
+    int nb_initial;
 
     parcoursprec = (listvar *) NULL;
@@ -794 +900 @@
                                         IndiceMin = parcours->var->v_indicetabvars;
                                         IndiceMax = parcours->var->v_indicetabvars+compteur;
-                                        sprintf(ligne,"    allocate(%s", vargridnametabvars(v,1));
+                                        sprintf(ligne,"    if (.not. allocated(%s)) allocate(%s", vargridnametabvars(v,1), vargridnametabvars(v,1));
                                         sprintf(ligne2,"%s)", vargridparam(v));
                                         strcat(ligne,ligne2);
@@ -803 +909 @@
                                     else
                                     {
-                                        sprintf(ligne,"allocate(%s", vargridnametabvars(v,0));
+                                        sprintf(ligne,"if (.not. allocated(%s)) allocate(%s", vargridnametabvars(v,0), vargridnametabvars(v,0));
                                         sprintf(ligne2,"%s)", vargridparam(v));
                                         strcat(ligne,ligne2);
@@ -811 +917 @@
                             } /* end of the allocation part                                       */
                             /*                INITIALISATION                                      */
-                            if ( strcasecmp(v->v_initialvalue,"") )
+
+               if ( v->v_initialvalue )
+                            {
+                            parcours_name = v->v_initialvalue;
+                            parcours_name_array = v->v_initialvalue_array;
+                            if (parcours_name_array)
+                            {
+                            while (parcours_name)
                             {
                                 strcpy(ligne, vargridnametabvars(v,0));
+                                if (parcours_name_array)
+                                {
+                                if (strcasecmp(parcours_name_array->n_name,"") )
+                                {
+                                sprintf(ligne2,"(%s)",parcours_name_array->n_name);
+                                strcat(ligne,ligne2);
+                                }
+                                }
                                 /* We should modify the initialvalue in the case of variable has been defined with others variables */
-                                strcpy(initialvalue,ChangeTheInitalvaluebyTabvarsName(v->v_initialvalue,List_Global_Var));
-                                if ( !strcasecmp(initialvalue,v->v_initialvalue) )
-                                {
-                                    strcpy(initialvalue,ChangeTheInitalvaluebyTabvarsName(v->v_initialvalue,List_Common_Var));
-                                }
-                                if ( !strcasecmp(initialvalue,v->v_initialvalue) )
-                                {
-                                    strcpy(initialvalue,ChangeTheInitalvaluebyTabvarsName(v->v_initialvalue,List_ModuleUsed_Var));
+                                strcpy(initialvalue,ChangeTheInitalvaluebyTabvarsName(parcours_name->n_name,List_Global_Var));
+                                if ( !strcasecmp(initialvalue,parcours_name->n_name) )
+                                {
+                                    strcpy(initialvalue,ChangeTheInitalvaluebyTabvarsName(parcours_name->n_name,List_Common_Var));
+                                }
+                                if ( !strcasecmp(initialvalue,parcours_name->n_name) )
+                                {
+                                    strcpy(initialvalue,ChangeTheInitalvaluebyTabvarsName(parcours_name->n_name,List_ModuleUsed_Var));
                                 }
                                 strcat (ligne," = ");
-                                strcat (ligne,initialvalue);
-                                Save_Length(ligne,48);
+
+                                if (v->v_nbdim >= 0)
+                                {
+                                    strcpy(ligne2,initialvalue);
+                                }
+                                else
+                                {
+                                    sprintf(ligne2,"reshape(%s,shape(%s))",initialvalue,vargridnametabvars(v,0));
+                                }
+                                strcat(ligne,ligne2);
                                 tofich(allocationagrif,ligne,1);
+                             
+                             parcours_name = parcours_name->suiv;
+                             if (parcours_name_array) parcours_name_array = parcours_name_array->suiv;
+                            }
+                            }
+                            else
+                            {
+                            strcpy(ligne, vargridnametabvars(v,0));
+                            strcat (ligne," = ");
+                            strcpy(ligne2,"");
+                            nb_initial = 0;
+                            
+                            while (parcours_name)
+                            {
+                            nb_initial = nb_initial + 1;
+                                /* We should modify the initialvalue in the case of variable has been defined with others variables */
+                                strcpy(initialvalue,ChangeTheInitalvaluebyTabvarsName(parcours_name->n_name,List_Global_Var));
+                                if ( !strcasecmp(initialvalue,parcours_name->n_name) )
+                                {
+                                    strcpy(initialvalue,ChangeTheInitalvaluebyTabvarsName(parcours_name->n_name,List_Common_Var));
+                                }
+                                if ( !strcasecmp(initialvalue,parcours_name->n_name) )
+                                {
+                                    strcpy(initialvalue,ChangeTheInitalvaluebyTabvarsName(parcours_name->n_name,List_ModuleUsed_Var));
+                                }
+
+                                strcat(ligne2,initialvalue);
+                             if (parcours_name->suiv)
+                             {
+                             strcat(ligne2,",");
+                             }
+                             
+                             parcours_name = parcours_name->suiv;
+                            }
+                            if (nb_initial > 1)
+                            {
+                            sprintf(ligne3,"reshape((/%s/),shape(%s))",ligne2,vargridnametabvars(v,0));
+                            }
+                            else
+                            {
+                            strcpy(ligne3,ligne2);
+                            }
+                            strcat(ligne,ligne3);
+                            tofich(allocationagrif,ligne,1);
+                            }
                             }
                         }

branches/2015/dev_r5803_UKMO_AGRIF_Vert_interp/NEMOGCM/NEMO/NST_SRC/agrif_oce.F90

@@ -17 +17 @@
 
    PUBLIC agrif_oce_alloc ! routine called by nemo_init in nemogcm.F90
+   PUBLIC reconstructandremap
 
    !                                              !!* Namelist namagrif: AGRIF parameters
@@ -58 +59 @@
    INTEGER :: un_update_id, vn_update_id                              ! AGRIF profiles for udpates
    INTEGER :: tsn_sponge_id, un_sponge_id, vn_sponge_id               ! AGRIF profiles for sponge layers
+! VERTICAL REFINEMENT BEGIN
+   INTEGER :: scales_t_id, scales_u_id, scales_v_id
+! VERTICAL REFINEMENT END
+
 # if defined key_top
    INTEGER :: trn_id, trn_sponge_id
@@ -64 +69 @@
    INTEGER :: ub2b_update_id, vb2b_update_id
    INTEGER :: e3t_id, e1u_id, e2v_id, sshn_id
-   INTEGER :: scales_t_id
 # if defined key_zdftke
    INTEGER :: avt_id, avm_id, en_id
@@ -73 +77 @@
    !!----------------------------------------------------------------------
    !! NEMO/NST 3.3.1 , NEMO Consortium (2011)
-   !! $Id$
+   !! $Id: agrif_oce.F90 5081 2015-02-13 09:51:27Z smasson $
    !! Software governed by the CeCILL licence     (NEMOGCM/NEMO_CeCILL.txt)
    !!----------------------------------------------------------------------
@@ -104 +108 @@
    END FUNCTION agrif_oce_alloc
 
+      subroutine reconstructandremap(tabin,hin,tabout,hout,N,Nout)      
+      implicit none
+      integer N, Nout
+      real tabin(N), tabout(Nout)
+      real hin(N), hout(Nout)
+      real coeffremap(N,3),zwork(N,3)
+      real zwork2(N+1,3)
+      integer k
+      double precision, parameter :: dsmll=1.0d-8  
+      real q,q01,q02,q001,q002,q0
+      real z_win(1:N+1), z_wout(1:Nout+1)
+      real,parameter :: dpthin = 1.D-3
+      integer :: k1, kbox, ktop, ka, kbot
+      real :: tsum, qbot, rpsum, zbox, ztop, zthk, zbot, offset, qtop
+
+      z_win(1)=0.; z_wout(1)= 0.
+      do k=1,N
+       z_win(k+1)=z_win(k)+hin(k)
+      enddo 
+      
+      do k=1,Nout
+       z_wout(k+1)=z_wout(k)+hout(k)       
+      enddo       
+
+        do k=2,N
+          zwork(k,1)=1./(hin(k-1)+hin(k))
+        enddo
+        
+        do k=2,N-1
+          q0 = 1./(hin(k-1)+hin(k)+hin(k+1))
+          zwork(k,2)=hin(k-1)+2.*hin(k)+hin(k+1)
+          zwork(k,3)=q0
+        enddo       
+      
+        do k= 2,N
+        zwork2(k,1)=zwork(k,1)*(tabin(k)-tabin(k-1))
+        enddo
+        
+        coeffremap(:,1) = tabin(:)
+ 
+         do k=2,N-1
+        q001 = hin(k)*zwork2(k+1,1)
+        q002 = hin(k)*zwork2(k,1)        
+        if (q001*q002 < 0) then
+          q001 = 0.
+          q002 = 0.
+        endif
+        q=zwork(k,2)
+        q01=q*zwork2(k+1,1)
+        q02=q*zwork2(k,1)
+        if (abs(q001) > abs(q02)) q001 = q02
+        if (abs(q002) > abs(q01)) q002 = q01
+        
+        q=(q001-q002)*zwork(k,3)
+        q001=q001-q*hin(k+1)
+        q002=q002+q*hin(k-1)
+        
+        coeffremap(k,3)=coeffremap(k,1)+q001
+        coeffremap(k,2)=coeffremap(k,1)-q002
+        
+        zwork2(k,1)=(2.*q001-q002)**2
+        zwork2(k,2)=(2.*q002-q001)**2
+        enddo
+        
+        do k=1,N
+        if     (k.eq.1 .or. k.eq.N .or.   hin(k).le.dpthin) then
+        coeffremap(k,3) = coeffremap(k,1)
+        coeffremap(k,2) = coeffremap(k,1)
+        zwork2(k,1) = 0.
+        zwork2(k,2) = 0.
+        endif
+        enddo
+        
+        do k=2,N
+        q002=max(zwork2(k-1,2),dsmll)
+        q001=max(zwork2(k,1),dsmll)
+        zwork2(k,3)=(q001*coeffremap(k-1,3)+q002*coeffremap(k,2))/(q001+q002)
+        enddo
+        
+        zwork2(1,3) = 2*coeffremap(1,1)-zwork2(2,3)
+        zwork2(N+1,3)=2*coeffremap(N,1)-zwork2(N,3)
+ 
+        do k=1,N
+        q01=zwork2(k+1,3)-coeffremap(k,1)
+        q02=coeffremap(k,1)-zwork2(k,3)
+        q001=2.*q01
+        q002=2.*q02
+        if (q01*q02<0) then
+          q01=0.
+          q02=0.
+        elseif (abs(q01)>abs(q002)) then
+          q01=q002
+        elseif (abs(q02)>abs(q001)) then
+          q02=q001
+        endif
+        coeffremap(k,2)=coeffremap(k,1)-q02
+        coeffremap(k,3)=coeffremap(k,1)+q01
+        enddo
+
+      zbot=0.0
+      kbot=1
+      do k=1,Nout
+        ztop=zbot  !top is bottom of previous layer
+        ktop=kbot
+        if     (ztop.ge.z_win(ktop+1)) then
+          ktop=ktop+1
+        endif
+        
+        zbot=z_wout(k+1)
+        zthk=zbot-ztop
+
+        if     (zthk.gt.dpthin .and. ztop.lt.z_wout(Nout+1)) then
+
+          kbot=ktop
+          do while (z_win(kbot+1).lt.zbot.and.kbot.lt.N)
+            kbot=kbot+1
+          enddo
+          zbox=zbot
+          do k1= k+1,Nout
+            if     (z_wout(k1+1)-z_wout(k1).gt.dpthin) then
+              exit !thick layer
+            else
+              zbox=z_wout(k1+1)  !include thin adjacent layers
+              if     (zbox.eq.z_wout(Nout+1)) then
+                exit !at bottom
+              endif
+            endif
+          enddo
+          zthk=zbox-ztop
+
+          kbox=ktop
+          do while (z_win(kbox+1).lt.zbox.and.kbox.lt.N)
+            kbox=kbox+1
+          enddo
+          
+          if     (ktop.eq.kbox) then
+
+
+            if     (z_wout(k)  .ne.z_win(kbox)   .or.z_wout(k+1).ne.z_win(kbox+1)     ) then
+
+              if     (hin(kbox).gt.dpthin) then
+                q001 = (zbox-z_win(kbox))/hin(kbox)
+                q002 = (ztop-z_win(kbox))/hin(kbox)
+                q01=q001**2+q002**2+q001*q002+1.-2.*(q001+q002)
+                q02=q01-1.+(q001+q002)
+                q0=1.-q01-q02
+              else
+                q0 = 1.0
+                q01 = 0.
+                q02 = 0.
+              endif
+          tabout(k)=q0*coeffremap(kbox,1)+q01*coeffremap(kbox,2)+q02*coeffremap(kbox,3)
+              
+            else
+            tabout(k) = tabin(kbox)
+              
+            endif 
+
+          else
+
+            if     (ktop.le.k .and. kbox.ge.k) then
+              ka = k
+            elseif (kbox-ktop.ge.3) then
+              ka = (kbox+ktop)/2
+            elseif (hin(ktop).ge.hin(kbox)) then
+              ka = ktop
+            else
+              ka = kbox
+            endif !choose ka
+
+            offset=coeffremap(ka,1)
+
+            qtop = z_win(ktop+1)-ztop !partial layer thickness
+            if     (hin(ktop).gt.dpthin) then
+              q=(ztop-z_win(ktop))/hin(ktop)
+              q01=q*(q-1.)
+              q02=q01+q
+              q0=1-q01-q02            
+            else
+              q0 = 1.
+              q01 = 0.
+              q02 = 0.
+            endif
+            
+            tsum =((q0*coeffremap(ktop,1)+q01*coeffremap(ktop,2)+q02*coeffremap(ktop,3))-offset)*qtop
+
+            do k1= ktop+1,kbox-1
+              tsum =tsum +(coeffremap(k1,1)-offset)*hin(k1)
+            enddo !k1
+
+            
+            qbot = zbox-z_win(kbox) !partial layer thickness
+            if     (hin(kbox).gt.dpthin) then
+              q=qbot/hin(kbox)
+              q01=(q-1.)**2
+              q02=q01-1.+q
+              q0=1-q01-q02                            
+            else
+              q0 = 1.0
+              q01 = 0.
+              q02 = 0.
+            endif
+           
+            tsum = tsum +((q0*coeffremap(kbox,1)+q01*coeffremap(kbox,2)+q02*coeffremap(kbox,3))-offset)*qbot
+            
+            rpsum=1.0d0/zthk
+              tabout(k)=offset+tsum*rpsum
+              
+          endif !single or multiple layers
+        else
+        if (k==1) then
+        write(*,'(a7,i4,i4,3f12.5)')'problem = ',N,Nout,zthk,z_wout(k+1),hout(1)
+        endif
+         tabout(k) = tabout(k-1)
+          
+        endif !normal:thin layer
+      enddo !k
+            
+      return
+      end subroutine reconstructandremap
+      
 #endif
    !!======================================================================

branches/2015/dev_r5803_UKMO_AGRIF_Vert_interp/NEMOGCM/NEMO/NST_SRC/agrif_opa_interp.F90

@@ -38 +38 @@
 
    PUBLIC   Agrif_tra, Agrif_dyn, Agrif_ssh, Agrif_dyn_ts, Agrif_ssh_ts, Agrif_dta_ts
+! VERTICAL REFINEMENT BEGIN   
+   PUBLIC   Agrif_Init_InterpScales
+! VERTICAL REFINEMENT END
    PUBLIC   interpun, interpvn, interpun2d, interpvn2d 
    PUBLIC   interptsn,  interpsshn
@@ -50 +53 @@
    !!----------------------------------------------------------------------
    !! NEMO/NST 3.6 , NEMO Consortium (2010)
-   !! $Id$
+   !! $Id: agrif_opa_interp.F90 5081 2015-02-13 09:51:27Z smasson $
    !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt)
    !!----------------------------------------------------------------------
 
+! VERTICAL REFINEMENT BEGIN
+   REAL, DIMENSION(:,:,:), ALLOCATABLE :: interp_scales_t, interp_scales_u, interp_scales_v
+!$AGRIF_DO_NOT_TREAT
+   LOGICAL :: scaleT, scaleU, scaleV = .FALSE.
+!$AGRIF_END_DO_NOT_TREAT
+! VERTICAL REFINEMENT END
+
 CONTAINS
+
+! VERTICAL REFINEMENT BEGIN
+
+   SUBROUTINE Agrif_Init_InterpScales
+
+    scaleT = .TRUE.
+    Call Agrif_Bc_Variable(scales_t_id,calledweight=1.,procname=interpscales)
+    scaleT = .FALSE.
+    
+    scaleU = .TRUE.
+    Call Agrif_Bc_Variable(scales_u_id,calledweight=1.,procname=interpscales)
+    scaleU = .FALSE.
+
+    scaleV = .TRUE.
+    Call Agrif_Bc_Variable(scales_v_id,calledweight=1.,procname=interpscales)
+    scaleV = .FALSE.
+
+   END SUBROUTINE Agrif_Init_InterpScales
+   
+   SUBROUTINE interpscales(ptab,i1,i2,j1,j2,k1,k2,before)
+      !!---------------------------------------------
+      !!   *** ROUTINE interpscales ***
+      !!---------------------------------------------
+      
+      INTEGER, INTENT(in) :: i1,i2,j1,j2,k1,k2
+      REAL(wp),DIMENSION(i1:i2,j1:j2,k1:k2), INTENT(inout) :: ptab
+
+      INTEGER :: ji, jj, jk
+      LOGICAL :: before
+
+      IF (before) THEN
+      IF (scaleT ) THEN
+      DO jk=k1,k2
+         DO jj=j1,j2
+            DO ji=i1,i2
+!               ptab(ji,jj,jk) = fse3t_n(ji,jj,jk) * tmask(ji,jj,jk)
+               ptab(ji,jj,jk) = fse3t_n(ji,jj,jk)
+            END DO
+         END DO
+      END DO
+      ELSEIF (scaleU) THEN
+      DO jk=k1,k2
+         DO jj=j1,j2
+            DO ji=i1,i2
+!               ptab(ji,jj,jk) = fse3u_n(ji,jj,jk) * umask(ji,jj,jk)
+!               ptab(ji,jj,jk) = fse3u_n(ji,jj,jk)
+                ptab(ji,jj,jk) = umask(ji,jj,jk)
+            END DO
+         END DO
+      END DO
+      ELSEIF (scaleV) THEN
+      DO jk=k1,k2
+         DO jj=j1,j2
+            DO ji=i1,i2
+!               ptab(ji,jj,jk) = fse3v_n(ji,jj,jk) * vmask(ji,jj,jk)
+!               ptab(ji,jj,jk) = fse3v_n(ji,jj,jk)
+               ptab(ji,jj,jk) = vmask(ji,jj,jk)
+            END DO
+         END DO
+      END DO
+      ENDIF
+      ELSE
+      IF (scaleT ) THEN
+      IF (.not.allocated(interp_scales_t)) allocate(interp_scales_t(jpi,jpj,k1:k2))
+      DO jk=k1,k2
+         DO jj=j1,j2
+            DO ji=i1,i2
+               interp_scales_t(ji,jj,jk) = ptab(ji,jj,jk)
+            END DO
+         END DO
+      END DO
+      ELSEIF (scaleU) THEN
+      IF (.not.allocated(interp_scales_u)) allocate(interp_scales_u(jpi,jpj,k1:k2))
+      DO jk=k1,k2
+         DO jj=j1,j2
+            DO ji=i1,i2
+               interp_scales_u(ji,jj,jk) = ptab(ji,jj,jk)
+            END DO
+         END DO
+      END DO
+      ELSEIF (scaleV) THEN
+      IF (.not.allocated(interp_scales_v)) allocate(interp_scales_v(jpi,jpj,k1:k2))
+      DO jk=k1,k2
+         DO jj=j1,j2
+            DO ji=i1,i2
+               interp_scales_v(ji,jj,jk) = ptab(ji,jj,jk)
+            END DO
+         END DO
+      END DO
+      ENDIF
+      ENDIF
+
+   END SUBROUTINE interpscales
+
+! VERTICAL REFINEMENT END
 
    SUBROUTINE Agrif_tra
@@ -611 +716 @@
       REAL(wp) ::   zalpha
       !
+      return
+      
       zalpha = REAL( Agrif_NbStepint() + Agrif_IRhot() - 1, wp ) / REAL( Agrif_IRhot(), wp )
       IF( zalpha > 1. )   zalpha = 1.
@@ -638 +745 @@
       REAL(wp) ::   zalpha4, zalpha5, zalpha6, zalpha7
       LOGICAL :: western_side, eastern_side,northern_side,southern_side
+! VERTICAL REFINEMENT BEGIN
+      REAL(wp), DIMENSION(i1:i2,j1:j2,1:jpk,n1:n2) :: ptab_child
+      REAL(wp) :: h_in(k1:k2)
+      REAL(wp) :: h_out(1:jpk)
+      INTEGER :: N_in, N_out
+      REAL(wp) :: h_diff
+! VERTICAL REFINEMENT END
 
       IF (before) THEN         
          ptab(i1:i2,j1:j2,k1:k2,n1:n2) = tsn(i1:i2,j1:j2,k1:k2,n1:n2)
-      ELSE
+      ELSE 
+! VERTICAL REFINEMENT BEGIN
+
+         ptab_child(:,:,:,:) = 0.
+         do jj=j1,j2
+         do ji=i1,i2
+           h_in(k1:k2) = interp_scales_t(ji,jj,k1:k2)
+           h_out(1:jpk) = fse3t(ji,jj,1:jpk)
+           h_diff = sum(h_out(1:jpk-1))-sum(h_in(k1:k2-1))
+           N_in = k2-1
+           N_out = jpk-1
+           if (h_diff > 0) then
+             h_in(N_in+1) = h_diff
+             N_in = N_in + 1
+           else
+             h_out(N_out+1) = -h_diff
+             N_out = N_out + 1
+           endif 
+           ptab(ji,jj,k2,:) = ptab(ji,jj,k2-1,:)
+           do jn=1,jpts
+             call reconstructandremap(ptab(ji,jj,1:N_in,jn),h_in,ptab_child(ji,jj,1:N_out,jn),h_out,N_in,N_out)
+           enddo
+!           if (abs(h_diff) > 1000.) then
+!           do jn=1,jpts
+!             do jk=1,N_out
+!             print *,'AVANT APRES = ',ji,jj,jk,N_out,ptab(ji,jj,jk,jn),ptab_child(ji,jj,jk,jn)
+!             enddo
+!           enddo
+!         endif
+         enddo
+         enddo
+
+! VERTICAL REFINEMENT END
+
          !
          western_side  = (nb == 1).AND.(ndir == 1)
@@ -671 +818 @@
          IF((nbondi == +1).OR.(nbondi == 2)) imax = nlci-2        
          !
+! VERTICAL REFINEMENT BEGIN
+
+! WARNING :
+! ptab replaced by ptab_child in the following
+! k1 k2 replaced by 1 jpk
+! VERTICAL REFINEMENT END
          IF( eastern_side) THEN
             DO jn = 1, jpts
-               tsa(nlci,j1:j2,k1:k2,jn) = zalpha1 * ptab(nlci,j1:j2,k1:k2,jn) + zalpha2 * ptab(nlci-1,j1:j2,k1:k2,jn)
+               tsa(nlci,j1:j2,1:jpk,jn) = zalpha1 * ptab_child(nlci,j1:j2,1:jpk,jn) + zalpha2 * ptab_child(nlci-1,j1:j2,1:jpk,jn)
                DO jk = 1, jpkm1
                   DO jj = jmin,jmax
@@ -692 +845 @@
          IF( northern_side ) THEN            
             DO jn = 1, jpts
-               tsa(i1:i2,nlcj,k1:k2,jn) = zalpha1 * ptab(i1:i2,nlcj,k1:k2,jn) + zalpha2 * ptab(i1:i2,nlcj-1,k1:k2,jn)
+               tsa(i1:i2,nlcj,1:jpk,jn) = zalpha1 * ptab_child(i1:i2,nlcj,1:jpk,jn) + zalpha2 * ptab_child(i1:i2,nlcj-1,1:jpk,jn)
                DO jk = 1, jpkm1
                   DO ji = imin,imax
@@ -711 +864 @@
          IF( western_side) THEN            
             DO jn = 1, jpts
-               tsa(1,j1:j2,k1:k2,jn) = zalpha1 * ptab(1,j1:j2,k1:k2,jn) + zalpha2 * ptab(2,j1:j2,k1:k2,jn)
+               tsa(1,j1:j2,1:jpk,jn) = zalpha1 * ptab_child(1,j1:j2,1:jpk,jn) + zalpha2 * ptab_child(2,j1:j2,1:jpk,jn)
                DO jk = 1, jpkm1
                   DO jj = jmin,jmax
@@ -729 +882 @@
          IF( southern_side ) THEN           
             DO jn = 1, jpts
-               tsa(i1:i2,1,k1:k2,jn) = zalpha1 * ptab(i1:i2,1,k1:k2,jn) + zalpha2 * ptab(i1:i2,2,k1:k2,jn)
+               tsa(i1:i2,1,1:jpk,jn) = zalpha1 * ptab_child(i1:i2,1,1:jpk,jn) + zalpha2 * ptab_child(i1:i2,2,1:jpk,jn)
                DO jk=1,jpk      
                   DO ji=imin,imax
@@ -749 +902 @@
          ! East south
          IF ((eastern_side).AND.((nbondj == -1).OR.(nbondj == 2))) THEN
-            tsa(nlci-1,2,:,:) = ptab(nlci-1,2,:,:)
+            tsa(nlci-1,2,:,:) = ptab_child(nlci-1,2,:,:)
          ENDIF
          ! East north
          IF ((eastern_side).AND.((nbondj == 1).OR.(nbondj == 2))) THEN
-            tsa(nlci-1,nlcj-1,:,:) = ptab(nlci-1,nlcj-1,:,:)
+            tsa(nlci-1,nlcj-1,:,:) = ptab_child(nlci-1,nlcj-1,:,:)
          ENDIF
          ! West south
          IF ((western_side).AND.((nbondj == -1).OR.(nbondj == 2))) THEN
-            tsa(2,2,:,:) = ptab(2,2,:,:)
+            tsa(2,2,:,:) = ptab_child(2,2,:,:)
          ENDIF
          ! West north
          IF ((western_side).AND.((nbondj == 1).OR.(nbondj == 2))) THEN
-            tsa(2,nlcj-1,:,:) = ptab(2,nlcj-1,:,:)
+            tsa(2,nlcj-1,:,:) = ptab_child(2,nlcj-1,:,:)
          ENDIF
          !
@@ -794 +947 @@
    END SUBROUTINE interpsshn
 
-   SUBROUTINE interpun(ptab,i1,i2,j1,j2,k1,k2, before)
+   SUBROUTINE interpun(ptab,i1,i2,j1,j2,k1,k2,m1,m2,before,nb,ndir)
       !!---------------------------------------------
       !!   *** ROUTINE interpun ***
       !!---------------------------------------------    
       !!
-      INTEGER, INTENT(in) :: i1,i2,j1,j2,k1,k2
-      REAL(wp), DIMENSION(i1:i2,j1:j2,k1:k2), INTENT(inout) :: ptab
+      INTEGER, INTENT(in) :: i1,i2,j1,j2,k1,k2,m1,m2
+      REAL(wp), DIMENSION(i1:i2,j1:j2,k1:k2,m1:m2), INTENT(inout) :: ptab
       LOGICAL, INTENT(in) :: before
+      INTEGER, INTENT(in) :: nb , ndir
       !!
       INTEGER :: ji,jj,jk
-      REAL(wp) :: zrhoy 
+      REAL(wp) :: zrhoy
+! VERTICAL REFINEMENT BEGIN
+      REAL(wp), DIMENSION(i1:i2,j1:j2,1:jpk) :: ptab_child
+      REAL(wp), DIMENSION(k1:k2) :: tabin
+      REAL(wp) :: h_in(k1:k2)
+      REAL(wp) :: h_out(1:jpk)
+      INTEGER :: N_in, N_out
+      REAL(wp) :: h_diff
+      LOGICAL :: western_side, eastern_side
+      INTEGER :: iref
+
+! VERTICAL REFINEMENT END
       !!---------------------------------------------    
       !
@@ -811 +976 @@
             DO jj=j1,j2
                DO ji=i1,i2
-                  ptab(ji,jj,jk) = e2u(ji,jj) * un(ji,jj,jk)
-                  ptab(ji,jj,jk) = ptab(ji,jj,jk) * fse3u(ji,jj,jk)
+                  ptab(ji,jj,jk,1) = e2u(ji,jj) * un(ji,jj,jk)
+                  ptab(ji,jj,jk,1) = ptab(ji,jj,jk,1) * fse3u(ji,jj,jk)
+                  ptab(ji,jj,jk,2) = fse3u(ji,jj,jk)
                END DO
             END DO
          END DO
       ELSE
+! VERTICAL REFINEMENT BEGIN
+         western_side  = (nb == 1).AND.(ndir == 1)
+         eastern_side  = (nb == 1).AND.(ndir == 2)
+         
+         ptab_child(:,:,:) = 0.
+         do jj=j1,j2
+         do ji=i1,i2
+         iref = ji
+         IF (western_side) iref = 2
+         IF (eastern_side) iref = nlci-2
+
+         N_in = 0
+         do jk=k1,k2
+           if (interp_scales_u(ji,jj,jk) == 0) EXIT
+             N_in = N_in + 1
+             tabin(jk) = ptab(ji,jj,jk,1)/ptab(ji,jj,jk,2)
+             h_in(N_in) = ptab(ji,jj,jk,2)
+         enddo
+         
+         IF (N_in == 0) THEN
+           ptab_child(ji,jj,:) = 0.
+           CYCLE
+         ENDIF
+         
+         N_out = 0
+         do jk=1,jpk
+           if (umask(iref,jj,jk) == 0) EXIT
+           N_out = N_out + 1
+           h_out(N_out) = fse3u(ji,jj,jk)
+         enddo
+         
+         IF (N_out == 0) THEN
+           ptab_child(ji,jj,:) = 0.
+           CYCLE
+         ENDIF
+         
+         h_diff = sum(h_out(1:N_out))-sum(h_in(1:N_in))
+         IF (h_diff > 0.) THEN
+           N_in = N_in + 1
+           h_in(N_in) = h_diff
+           tabin(N_in) = 0.
+         ELSE
+           h_out(N_out) = h_out(N_out) - h_diff
+         ENDIF
+         
+         call reconstructandremap(tabin(1:N_in),h_in(1:N_in),ptab_child(ji,jj,1:N_out),h_out(1:N_out),N_in,N_out)
+         
+         ptab_child(ji,jj,N_out) = ptab_child(ji,jj,N_out) * h_out(N_out) / fse3u(ji,jj,N_out)
+
+         ENDDO
+         ENDDO
+
+! in the following
+! remove division of ua by fs e3u (already done)
+! VERTICAL REFINEMENT END
+
          zrhoy = Agrif_Rhoy()
          DO jk=1,jpkm1
             DO jj=j1,j2
-               ua(i1:i2,jj,jk) = (ptab(i1:i2,jj,jk)/(zrhoy*e2u(i1:i2,jj)))
-               ua(i1:i2,jj,jk) = ua(i1:i2,jj,jk) / fse3u(i1:i2,jj,jk)
+               ua(i1:i2,jj,jk) = (ptab_child(i1:i2,jj,jk)/(zrhoy*e2u(i1:i2,jj)))
             END DO
          END DO
@@ -861 +1082 @@
 
 
-   SUBROUTINE interpvn(ptab,i1,i2,j1,j2,k1,k2, before)
+   SUBROUTINE interpvn(ptab,i1,i2,j1,j2,k1,k2,m1,m2,before,nb,ndir)
       !!---------------------------------------------
       !!   *** ROUTINE interpvn ***
       !!---------------------------------------------    
       !
-      INTEGER, INTENT(in) :: i1,i2,j1,j2,k1,k2
-      REAL(wp), DIMENSION(i1:i2,j1:j2,k1:k2), INTENT(inout) :: ptab
+      INTEGER, INTENT(in) :: i1,i2,j1,j2,k1,k2,m1,m2
+      REAL(wp), DIMENSION(i1:i2,j1:j2,k1:k2,m1:m2), INTENT(inout) :: ptab
       LOGICAL, INTENT(in) :: before
+      INTEGER, INTENT(in) :: nb , ndir
       !
       INTEGER :: ji,jj,jk
-      REAL(wp) :: zrhox 
+      REAL(wp) :: zrhox
+! VERTICAL REFINEMENT BEGIN
+      REAL(wp), DIMENSION(i1:i2,j1:j2,1:jpk) :: ptab_child
+      REAL(wp), DIMENSION(k1:k2) :: tabin
+      REAL(wp) :: h_in(k1:k2)
+      REAL(wp) :: h_out(1:jpk)
+      INTEGER :: N_in, N_out
+      REAL(wp) :: h_diff
+      LOGICAL :: northern_side,southern_side
+      INTEGER :: jref
+
+! VERTICAL REFINEMENT END
       !!---------------------------------------------    
       !      
@@ -879 +1112 @@
             DO jj=j1,j2
                DO ji=i1,i2
-                  ptab(ji,jj,jk) = e1v(ji,jj) * vn(ji,jj,jk)
-                  ptab(ji,jj,jk) = ptab(ji,jj,jk) * fse3v(ji,jj,jk)
+                  ptab(ji,jj,jk,1) = e1v(ji,jj) * vn(ji,jj,jk)
+                  ptab(ji,jj,jk,1) = ptab(ji,jj,jk,1) * fse3v(ji,jj,jk)
+                  ptab(ji,jj,jk,2) = fse3v(ji,jj,jk)
                END DO
             END DO
          END DO
-      ELSE          
+      ELSE        
+! VERTICAL REFINEMENT BEGIN
+         ptab_child(:,:,:) = 0.
+         southern_side = (nb == 2).AND.(ndir == 1)
+         northern_side = (nb == 2).AND.(ndir == 2)
+         do jj=j1,j2
+         jref = jj
+         IF (southern_side) jref = 2
+         IF (northern_side) jref = nlcj-2
+         do ji=i1,i2
+
+         N_in = 0
+         do jk=k1,k2
+           if (interp_scales_v(ji,jj,jk) == 0) EXIT
+             N_in = N_in + 1
+             tabin(jk) = ptab(ji,jj,jk,1)/ptab(ji,jj,jk,2)
+             h_in(N_in) = ptab(ji,jj,jk,2)
+         enddo
+         IF (N_in == 0) THEN
+           ptab_child(ji,jj,:) = 0.
+           CYCLE
+         ENDIF
+         
+         N_out = 0
+         do jk=1,jpk
+           if (vmask(ji,jref,jk) == 0) EXIT
+           N_out = N_out + 1
+           h_out(N_out) = fse3v(ji,jj,jk)
+         enddo
+         IF (N_out == 0) THEN
+           ptab_child(ji,jj,:) = 0.
+           CYCLE
+         ENDIF
+         
+         h_diff = sum(h_out(1:N_out))-sum(h_in(1:N_in))
+         IF (h_diff > 0.) THEN
+           N_in = N_in + 1
+           h_in(N_in) = h_diff
+           tabin(N_in) = 0.
+         ELSE
+           h_out(N_out) = h_out(N_out) - h_diff
+         ENDIF
+         
+         call reconstructandremap(tabin(1:N_in),h_in(1:N_in),ptab_child(ji,jj,1:N_out),h_out(1:N_out),N_in,N_out)
+         
+         ptab_child(ji,jj,N_out) = ptab_child(ji,jj,N_out) * h_out(N_out) / fse3v(ji,jj,N_out)
+
+         enddo
+         enddo
+! in the following
+! remove division of va by fs e3v (already done)
+! VERTICAL REFINEMENT END
          zrhox= Agrif_Rhox()
          DO jk=1,jpkm1
             DO jj=j1,j2
-               va(i1:i2,jj,jk) = (ptab(i1:i2,jj,jk)/(zrhox*e1v(i1:i2,jj)))
-               va(i1:i2,jj,jk) = va(i1:i2,jj,jk) / fse3v(i1:i2,jj,jk)
+               va(i1:i2,jj,jk) = (ptab_child(i1:i2,jj,jk)/(zrhox*e1v(i1:i2,jj)))
             END DO
          END DO

branches/2015/dev_r5803_UKMO_AGRIF_Vert_interp/NEMOGCM/NEMO/NST_SRC/agrif_opa_update.F90

@@ -1 @@
-#define TWO_WAY        /* TWO WAY NESTING */
+#undef TWO_WAY        /* TWO WAY NESTING */
 #undef DECAL_FEEDBACK /* SEPARATION of INTERFACES*/
  
@@ -18 +18 @@
 
    PUBLIC Agrif_Update_Tra, Agrif_Update_Dyn,Update_Scales
+   
+! VERTICAL REFINEMENT BEGIN   
+   PUBLIC Agrif_Init_UpdateScales
+   REAL, DIMENSION(:,:,:), ALLOCATABLE :: update_scales_t, update_scales_u, update_scales_v
+!$AGRIF_DO_NOT_TREAT
+   LOGICAL :: scaleT, scaleU, scaleV = .FALSE.
+!$AGRIF_END_DO_NOT_TREAT
+! VERTICAL REFINEMENT END
+
 # if defined key_zdftke
    PUBLIC Agrif_Update_Tke
@@ -23 +32 @@
    !!----------------------------------------------------------------------
    !! NEMO/NST 3.6 , NEMO Consortium (2010)
-   !! $Id$
+   !! $Id: agrif_opa_update.F90 5081 2015-02-13 09:51:27Z smasson $
    !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt)
    !!----------------------------------------------------------------------
 
+#  include "domzgr_substitute.h90"  
+
 CONTAINS
+
+! VERTICAL REFINEMENT BEGIN
+   SUBROUTINE Agrif_Init_UpdateScales
+
+    scaleT = .TRUE.
+    Agrif_UseSpecialValueInUpdate = .FALSE.
+    Agrif_SpecialValueFineGrid = 0.
+    Call Agrif_Update_Variable(scales_t_id,procname=updatescales)
+    Agrif_UseSpecialValueInUpdate = .FALSE.
+    scaleT = .FALSE.
+
+    scaleU = .TRUE.
+    Call Agrif_Update_Variable(scales_u_id,procname=updatescales)
+    scaleU = .FALSE.
+
+    scaleV = .TRUE.
+    Call Agrif_Update_Variable(scales_v_id,procname=updatescales)
+    scaleV = .FALSE.
+
+   END SUBROUTINE Agrif_Init_UpdateScales
+   
+   SUBROUTINE updatescales( ptab, i1, i2, j1, j2, k1, k2, before )
+
+      INTEGER, INTENT(in) :: i1,i2,j1,j2,k1,k2
+      REAL(wp),DIMENSION(i1:i2,j1:j2,k1:k2), INTENT(inout) :: ptab
+      LOGICAL, iNTENT(in) :: before
+
+      INTEGER :: ji,jj,jk
+
+      IF (before) THEN
+        IF (scaleT) THEN
+         DO jk=k1,k2
+            DO jj=j1,j2
+               DO ji=i1,i2
+                  ptab(ji,jj,jk) = fse3t(ji,jj,jk)*tmask(ji,jj,jk)
+               END DO
+            END DO
+         END DO
+        ELSEIF (scaleU) THEN
+        DO jk=k1,k2
+            DO jj=j1,j2
+               DO ji=i1,i2
+                  ptab(ji,jj,jk) = fse3u(ji,jj,jk)*umask(ji,jj,jk)
+               END DO
+            END DO
+         END DO
+        ELSEIF (scaleV) THEN
+        DO jk=k1,k2
+            DO jj=j1,j2
+               DO ji=i1,i2
+                  ptab(ji,jj,jk) = fse3v(ji,jj,jk)*vmask(ji,jj,jk)
+               END DO
+            END DO
+         END DO
+        ENDIF
+      ELSE
+         IF (scaleT) THEN
+           Allocate(update_scales_t(i1:i2,j1:j2,k1:k2))
+           update_scales_t(i1:i2,j1:j2,k1:k2) = ptab(i1:i2,j1:j2,k1:k2)
+         ELSEIF (scaleU) THEN
+           Allocate(update_scales_u(i1:i2,j1:j2,k1:k2))
+           update_scales_u(i1:i2,j1:j2,k1:k2) = ptab(i1:i2,j1:j2,k1:k2)
+         ELSEIF (scaleV) THEN
+           Allocate(update_scales_v(i1:i2,j1:j2,k1:k2))
+           update_scales_v(i1:i2,j1:j2,k1:k2) = ptab(i1:i2,j1:j2,k1:k2)
+         ENDIF
+      ENDIF
+
+   END SUBROUTINE updatescales
+! VERTICAL REFINEMENT END
 
    RECURSIVE SUBROUTINE Agrif_Update_Tra( )
@@ -160 +241 @@
       INTEGER, INTENT(in) :: kt
       !       
+      return
+      
       IF( ( Agrif_NbStepint() .NE. 0 ) .AND. (kt /= 0) ) RETURN
 #  if defined TWO_WAY
@@ -177 +260 @@
 # endif /* key_zdftke */
 
-   SUBROUTINE updateTS( tabres, i1, i2, j1, j2, k1, k2, n1, n2, before )
+   SUBROUTINE updateTS( ptab, i1, i2, j1, j2, k1, k2, n1, n2, before )
       !!---------------------------------------------
       !!           *** ROUTINE updateT ***
       !!---------------------------------------------
-#  include "domzgr_substitute.h90"
+
       INTEGER, INTENT(in) :: i1,i2,j1,j2,k1,k2,n1,n2
-      REAL(wp),DIMENSION(i1:i2,j1:j2,k1:k2,n1:n2), INTENT(inout) :: tabres
+      REAL(wp),DIMENSION(i1:i2,j1:j2,k1:k2,n1:n2), INTENT(inout) :: ptab
       LOGICAL, INTENT(in) :: before
       !!
       INTEGER :: ji,jj,jk,jn
+! VERTICAL REFINEMENT BEGIN
+      REAL(wp), DIMENSION(i1:i2,j1:j2,1:jpk,n1:n2) :: ptab_child
+      REAL(wp) :: h_in(k1:k2)
+      REAL(wp) :: h_out(1:jpk)
+      INTEGER :: N_in, N_out
+      REAL(wp) :: h_diff
+      REAL(wp) :: tabin(k1:k2,n1:n2)
+! VERTICAL REFINEMENT END
       !!---------------------------------------------
       !
@@ -194 +285 @@
                DO jj=j1,j2
                   DO ji=i1,i2
-                     tabres(ji,jj,jk,jn) = tsn(ji,jj,jk,jn)
+                     ptab(ji,jj,jk,jn) = tsn(ji,jj,jk,jn)
                   END DO
                END DO
@@ -200 +291 @@
          END DO
       ELSE
+! VERTICAL REFINEMENT BEGIN
+         ptab_child(:,:,:,:) = 0.
+         
+         DO jj=j1,j2
+         DO ji=i1,i2
+           N_in = 0
+           DO jk=k1,k2
+             IF (update_scales_t(ji,jj,jk) == 0) EXIT
+             N_in = N_in + 1
+             tabin(jk,:) = ptab(ji,jj,jk,:)
+             h_in(N_in) = update_scales_t(ji,jj,jk)
+           ENDDO
+           N_out = 0
+           DO jk=1,jpk
+             IF (tmask(ji,jj,jk) == 0) EXIT
+             N_out = N_out + 1
+             h_out(N_out) = fse3t(ji,jj,jk)
+           ENDDO
+           IF (N_in > 0) THEN
+             h_diff = sum(h_out(1:N_out))-sum(h_in(1:N_in))
+             IF (h_diff > 0) THEN
+               N_in = N_in + 1
+               h_in(N_in) = h_diff
+               tabin(N_in,:) = tabin(N_in-1,:)
+             ELSEIF (h_diff < 0) THEN
+             print *,'CHECK YOUR bathy T points ...',ji,jj,h_diff,sum(h_in(1:N_in)),sum(h_out(1:N_out))
+             print *,'Nval = ',N_out,mbathy(ji,jj)
+             print *,'BATHY = ',gdepw_0(ji,jj,mbathy(ji,jj)+1),sum(e3t_0(ji,jj,1:mbathy(ji,jj)))
+          !   STOP
+               N_out = N_out + 1
+               h_out(N_out) = - h_diff
+             ENDIF
+             DO jn=n1,n2
+               CALL reconstructandremap(tabin(1:N_in,jn),h_in(1:N_in),ptab_child(ji,jj,1:N_out,jn),h_out(1:N_out),N_in,N_out)
+             ENDDO
+          ENDIF
+         ENDDO
+         ENDDO
+         
+! WARNING :
+! ptab replaced by ptab_child in the following
+! k1 k2 replaced by 1 jpk
+! VERTICAL REFINEMENT END
+
          IF (.NOT.(lk_agrif_fstep.AND.(neuler==0))) THEN
             ! Add asselin part
             DO jn = n1,n2
-               DO jk=k1,k2
+               DO jk=1,jpk
                   DO jj=j1,j2
                      DO ji=i1,i2
-                        IF( tabres(ji,jj,jk,jn) .NE. 0. ) THEN
+                        IF( ptab_child(ji,jj,jk,jn) .NE. 0. ) THEN
                            tsb(ji,jj,jk,jn) = tsb(ji,jj,jk,jn) & 
-                                 & + atfp * ( tabres(ji,jj,jk,jn) &
+                                 & + atfp * ( ptab_child(ji,jj,jk,jn) &
                                  &             - tsn(ji,jj,jk,jn) ) * tmask(ji,jj,jk)
                         ENDIF
@@ -217 +352 @@
          ENDIF
          DO jn = n1,n2
-            DO jk=k1,k2
+            DO jk=1,jpk
                DO jj=j1,j2
                   DO ji=i1,i2
-                     IF( tabres(ji,jj,jk,jn) .NE. 0. ) THEN 
-                        tsn(ji,jj,jk,jn) = tabres(ji,jj,jk,jn) * tmask(ji,jj,jk)
+                     IF( ptab_child(ji,jj,jk,jn) .NE. 0. ) THEN 
+                        tsn(ji,jj,jk,jn) = ptab_child(ji,jj,jk,jn) * tmask(ji,jj,jk)
                      END IF
                   END DO
@@ -231 +366 @@
    END SUBROUTINE updateTS
 
-   SUBROUTINE updateu( tabres, i1, i2, j1, j2, k1, k2, before )
+   SUBROUTINE updateu( ptab, i1, i2, j1, j2, k1, k2, before )
       !!---------------------------------------------
       !!           *** ROUTINE updateu ***
       !!---------------------------------------------
-#  include "domzgr_substitute.h90"
       !!
       INTEGER, INTENT(in) :: i1, i2, j1, j2, k1, k2
-      REAL(wp), DIMENSION(i1:i2,j1:j2,k1:k2), INTENT(inout) :: tabres
+      REAL(wp), DIMENSION(i1:i2,j1:j2,k1:k2), INTENT(inout) :: ptab
       LOGICAL, INTENT(in) :: before
       !! 
       INTEGER :: ji, jj, jk
       REAL(wp) :: zrhoy
+! VERTICAL REFINEMENT BEGIN
+      REAL(wp), DIMENSION(i1:i2,j1:j2,1:jpk) :: ptab_child
+      REAL(wp) :: h_in(k1:k2)
+      REAL(wp) :: h_out(1:jpk)
+      INTEGER :: N_in, N_out
+      REAL(wp) :: h_diff
+      REAL(wp) :: tabin(k1:k2)
+! VERTICAL REFINEMENT END
       !!---------------------------------------------
       ! 
@@ -250 +392 @@
             DO jj=j1,j2
                DO ji=i1,i2
-                  tabres(ji,jj,jk) = e2u(ji,jj) * un(ji,jj,jk)
-                  tabres(ji,jj,jk) = tabres(ji,jj,jk) * fse3u_n(ji,jj,jk)
-               END DO
-            END DO
-         END DO
-         tabres = zrhoy * tabres
-      ELSE
-         DO jk=k1,k2
-            DO jj=j1,j2
-               DO ji=i1,i2
-                  tabres(ji,jj,jk) = tabres(ji,jj,jk) / e2u(ji,jj) / fse3u_n(ji,jj,jk)
+                  ptab(ji,jj,jk) = e2u(ji,jj) * un(ji,jj,jk)
+                  ptab(ji,jj,jk) = ptab(ji,jj,jk) * fse3u_n(ji,jj,jk)
+               END DO
+            END DO
+         END DO
+         ptab = zrhoy * ptab
+      ELSE
+! VERTICAL REFINEMENT BEGIN
+         ptab_child(:,:,:) = 0.
+         
+         DO jj=j1,j2
+         DO ji=i1,i2
+           N_in = 0
+           DO jk=k1,k2
+             IF (update_scales_u(ji,jj,jk) == 0) EXIT
+             N_in = N_in + 1
+             tabin(jk) = ptab(ji,jj,jk)/update_scales_u(ji,jj,jk)
+             h_in(N_in) = update_scales_u(ji,jj,jk)
+           ENDDO
+           N_out = 0
+           DO jk=1,jpk
+             IF (umask(ji,jj,jk) == 0) EXIT
+             N_out = N_out + 1
+             h_out(N_out) = fse3u(ji,jj,jk)
+           ENDDO
+           IF (N_in * N_out > 0) THEN
+             h_diff = sum(h_out(1:N_out))-sum(h_in(1:N_in))
+             if (h_diff < 0.) then
+             print *,'CHECK YOUR BATHY ...'
+             stop
+             else ! Extends with 0
+             N_in = N_in + 1
+             tabin(N_in) = 0.
+             h_in(N_in) = h_diff
+             endif
+             CALL reconstructandremap(tabin(1:N_in),h_in(1:N_in),ptab_child(ji,jj,1:N_out),h_out(1:N_out),N_in,N_out)
+          ENDIF
+         ENDDO
+         ENDDO
+         
+! WARNING :
+! ptab replaced by ptab_child in the following
+! k1 k2 replaced by 1 jpk
+! remove division by fs e3u (already done)
+! VERTICAL REFINEMENT END
+
+         DO jk=1,jpk
+            DO jj=j1,j2
+               DO ji=i1,i2
+                  ptab_child(ji,jj,jk) = ptab_child(ji,jj,jk) / e2u(ji,jj)
                   !
                   IF (.NOT.(lk_agrif_fstep.AND.(neuler==0))) THEN ! Add asselin part
                      ub(ji,jj,jk) = ub(ji,jj,jk) & 
-                           & + atfp * ( tabres(ji,jj,jk) - un(ji,jj,jk) ) * umask(ji,jj,jk)
+                           & + atfp * ( ptab_child(ji,jj,jk) - un(ji,jj,jk) ) * umask(ji,jj,jk)
                   ENDIF
                   !
-                  un(ji,jj,jk) = tabres(ji,jj,jk) * umask(ji,jj,jk)
+                  un(ji,jj,jk) = ptab_child(ji,jj,jk) * umask(ji,jj,jk)
                END DO
             END DO
@@ -275 +456 @@
    END SUBROUTINE updateu
 
-   SUBROUTINE updatev( tabres, i1, i2, j1, j2, k1, k2, before )
+   SUBROUTINE updatev( ptab, i1, i2, j1, j2, k1, k2, before )
       !!---------------------------------------------
       !!           *** ROUTINE updatev ***
       !!---------------------------------------------
-#  include "domzgr_substitute.h90"
       !!
       INTEGER :: i1,i2,j1,j2,k1,k2
       INTEGER :: ji,jj,jk
-      REAL(wp), DIMENSION(i1:i2,j1:j2,k1:k2) :: tabres
+      REAL(wp), DIMENSION(i1:i2,j1:j2,k1:k2) :: ptab
       LOGICAL :: before
       !!
       REAL(wp) :: zrhox
+! VERTICAL REFINEMENT BEGIN
+      REAL(wp), DIMENSION(i1:i2,j1:j2,1:jpk) :: ptab_child
+      REAL(wp) :: h_in(k1:k2)
+      REAL(wp) :: h_out(1:jpk)
+      INTEGER :: N_in, N_out
+      REAL(wp) :: h_diff
+      REAL(wp) :: tabin(k1:k2)
+! VERTICAL REFINEMENT END
       !!---------------------------------------------      
       !
@@ -294 +482 @@
             DO jj=j1,j2
                DO ji=i1,i2
-                  tabres(ji,jj,jk) = e1v(ji,jj) * vn(ji,jj,jk)
-                  tabres(ji,jj,jk) = tabres(ji,jj,jk) * fse3v_n(ji,jj,jk)
-               END DO
-            END DO
-         END DO
-         tabres = zrhox * tabres
-      ELSE
+                  ptab(ji,jj,jk) = e1v(ji,jj) * vn(ji,jj,jk)
+                  ptab(ji,jj,jk) = ptab(ji,jj,jk) * fse3v_n(ji,jj,jk)
+               END DO
+            END DO
+         END DO
+         ptab = zrhox * ptab
+      ELSE
+! VERTICAL REFINEMENT BEGIN
+         ptab_child(:,:,:) = 0.
+         
+         DO jj=j1,j2
+         DO ji=i1,i2
+           N_in = 0
+           DO jk=k1,k2
+             IF (update_scales_v(ji,jj,jk) == 0) EXIT
+             N_in = N_in + 1
+             tabin(jk) = ptab(ji,jj,jk)/update_scales_v(ji,jj,jk)
+             h_in(N_in) = update_scales_v(ji,jj,jk)
+           ENDDO
+           N_out = 0
+           DO jk=1,jpk
+             IF (vmask(ji,jj,jk) == 0) EXIT
+             N_out = N_out + 1
+             h_out(N_out) = fse3v(ji,jj,jk)
+           ENDDO
+           IF (N_in * N_out > 0) THEN
+             h_diff = sum(h_out(1:N_out))-sum(h_in(1:N_in))
+             if (h_diff < 0.) then
+             print *,'CHECK YOUR BATHY ...'
+             stop
+             else ! Extends with 0
+             N_in = N_in + 1
+             tabin(N_in) = 0.
+             h_in(N_in) = h_diff
+             endif
+             CALL reconstructandremap(tabin(1:N_in),h_in(1:N_in),ptab_child(ji,jj,1:N_out),h_out(1:N_out),N_in,N_out)
+          ENDIF
+         ENDDO
+         ENDDO
+         
+! WARNING :
+! ptab replaced by ptab_child in the following
+! k1 k2 replaced by 1 jpk
+! remove division by fs e3v (already done)
+! VERTICAL REFINEMENT END
+
          DO jk=k1,k2
             DO jj=j1,j2
                DO ji=i1,i2
-                  tabres(ji,jj,jk) = tabres(ji,jj,jk) / e1v(ji,jj) / fse3v_n(ji,jj,jk)
+                  ptab_child(ji,jj,jk) = ptab_child(ji,jj,jk) / e1v(ji,jj)
                   !
                   IF (.NOT.(lk_agrif_fstep.AND.(neuler==0))) THEN ! Add asselin part
                      vb(ji,jj,jk) = vb(ji,jj,jk) & 
-                           & + atfp * ( tabres(ji,jj,jk) - vn(ji,jj,jk) ) * vmask(ji,jj,jk)
+                           & + atfp * ( ptab_child(ji,jj,jk) - vn(ji,jj,jk) ) * vmask(ji,jj,jk)
                   ENDIF
                   !
-                  vn(ji,jj,jk) = tabres(ji,jj,jk) * vmask(ji,jj,jk)
+                  vn(ji,jj,jk) = ptab_child(ji,jj,jk) * vmask(ji,jj,jk)
                END DO
             END DO

branches/2015/dev_r5803_UKMO_AGRIF_Vert_interp/NEMOGCM/NEMO/NST_SRC/agrif_user.F90

@@ -2 +2 @@
 !!----------------------------------------------------------------------
 !! NEMO/NST 3.4 , NEMO Consortium (2012)
-!! $Id$
+!! $Id: agrif_user.F90 5081 2015-02-13 09:51:27Z smasson $
 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt)
 !!----------------------------------------------------------------------
@@ -17 +17 @@
    USE par_oce
    USE dom_oce
+   USE Agrif_Util
+   USE lib_mpp         ! distributed memory computing
    USE nemogcm
    !
    IMPLICIT NONE
+   INTEGER ::   ios
+   LOGICAL ::  is_open
+   NAMELIST/namcfg/ cp_cfg, cp_cfz, jp_cfg, jpidta, jpjdta, jpkdta, jpiglo, jpjglo, &
+         &             jpizoom, jpjzoom, jperio
    !!----------------------------------------------------------------------
    !
@@ -45 +51 @@
       nperio  = 0
       jperio  = 0
+   ELSE
+   IF (Agrif_Nb_step() == 0) THEN
+      INQUIRE(file = 'namelist_ref', opened = is_open)
+      IF (.not.is_open) THEN
+      !                             ! Open reference namelist and configuration namelist files
+      CALL ctl_opn( numnam_ref, 'namelist_ref', 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, 6, .FALSE. )
+      CALL ctl_opn( numnam_cfg, 'namelist_cfg', 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, 6, .FALSE. )
+      
+      REWIND( numnam_ref )              ! Namelist namcfg in reference namelist : Control prints & Benchmark
+      READ  ( numnam_ref, namcfg, IOSTAT = ios, ERR = 903 )
+903   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namcfg in reference namelist', .TRUE. )
+
+      REWIND( numnam_cfg )              ! Namelist namcfg in confguration namelist : Control prints & Benchmark
+      READ  ( numnam_cfg, namcfg, IOSTAT = ios, ERR = 904 )
+904   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namcfg in configuration namelist', .TRUE. ) 
+
+      IF( numnam_ref      /= -1 )   CLOSE( numnam_ref      )   ! oce reference namelist
+      IF( numnam_cfg      /= -1 )   CLOSE( numnam_cfg      )   ! oce configuration namelist
+      ENDIF
+   ENDIF
    ENDIF
    !
@@ -67 +93 @@
    ! 0. Initializations
    !-------------------
-   IF( cp_cfg == 'orca' ) THEN
-      IF ( jp_cfg == 2 .OR. jp_cfg == 025 .OR. jp_cfg == 05 &
-            &                      .OR. jp_cfg == 4 ) THEN
-         jp_cfg = -1    ! set special value for jp_cfg on fine grids
-         cp_cfg = "default"
-      ENDIF
-   ENDIF
    ! Specific fine grid Initializations
    ! no tracer damping on fine grids
@@ -188 +207 @@
    !---------------------------------------------------------------------
    CALL agrif_declare_var
+
+! VERTICAL REFINEMENT BEGIN
+   CALL Agrif_Init_InterpScales()
+   CALL Agrif_Init_UpdateScales()
+! VERTICAL REFINEMENT END
 
    ! 2. First interpolations of potentially non zero fields
@@ -289 +313 @@
          CALL Agrif_Bc_variable(vmsk_id,calledweight=1.,procname=interpvmsk)
     ! check if tmask and vertical scale factors agree with parent over first two coarse grid points:
-         CALL Agrif_Bc_variable(e3t_id,calledweight=1.,procname=interpe3t)
+!        CALL Agrif_Bc_variable(e3t_id,calledweight=1.,procname=interpe3t)
          !
          IF (lk_mpp) CALL mpp_sum( kindic_agr )
@@ -343 +367 @@
    CALL agrif_declare_variable((/2,2,0,0/),(/3,3,0,0/),(/'x','y','N','N'/),(/1,1,1,1/),(/nlci,nlcj,jpk,jpts/),tsn_sponge_id)
 
-   CALL agrif_declare_variable((/1,2,0/),(/2,3,0/),(/'x','y','N'/),(/1,1,1/),(/nlci,nlcj,jpk/),un_interp_id)
-   CALL agrif_declare_variable((/2,1,0/),(/3,2,0/),(/'x','y','N'/),(/1,1,1/),(/nlci,nlcj,jpk/),vn_interp_id)
+   CALL agrif_declare_variable((/1,2,0,0/),(/2,3,0,0/),(/'x','y','N','N'/),(/1,1,1,1/),(/nlci,nlcj,jpk,2/),un_interp_id)
+   CALL agrif_declare_variable((/2,1,0,0/),(/3,2,0,0/),(/'x','y','N','N'/),(/1,1,1,1/),(/nlci,nlcj,jpk,2/),vn_interp_id)
    CALL agrif_declare_variable((/1,2,0/),(/2,3,0/),(/'x','y','N'/),(/1,1,1/),(/nlci,nlcj,jpk/),un_update_id)
    CALL agrif_declare_variable((/2,1,0/),(/3,2,0/),(/'x','y','N'/),(/1,1,1/),(/nlci,nlcj,jpk/),vn_update_id)
@@ -353 +377 @@
    CALL agrif_declare_variable((/1,2,0/),(/2,3,0/),(/'x','y','N'/),(/1,1,1/),(/nlci,nlcj,jpk/),umsk_id)
    CALL agrif_declare_variable((/2,1,0/),(/3,2,0/),(/'x','y','N'/),(/1,1,1/),(/nlci,nlcj,jpk/),vmsk_id)
-
-   CALL agrif_declare_variable((/2,2,0,0/),(/3,3,0,0/),(/'x','y','N','N'/),(/1,1,1,1/),(/nlci,nlcj,jpk,3/),scales_t_id)
 
    CALL agrif_declare_variable((/1,2/),(/2,3/),(/'x','y'/),(/1,1/),(/nlci,nlcj/),unb_id)
@@ -365 +387 @@
    CALL agrif_declare_variable((/2,2/),(/3,3/),(/'x','y'/),(/1,1/),(/nlci,nlcj/),sshn_id)
 
+! VERTICAL REFINEMENT BEGIN
+   CALL agrif_declare_variable((/2,2,0/),(/3,3,0/),(/'x','y','N'/),(/1,1,1/),(/nlci,nlcj,jpk/),scales_t_id)
+   CALL agrif_declare_variable((/1,2,0/),(/2,3,0/),(/'x','y','N'/),(/1,1,1/),(/nlci,nlcj,jpk/),scales_u_id)
+   CALL agrif_declare_variable((/2,1,0/),(/3,2,0/),(/'x','y','N'/),(/1,1,1/),(/nlci,nlcj,jpk/),scales_v_id)
+! VERTICAL REFINEMENT END
+
 # if defined key_zdftke
    CALL agrif_declare_variable((/2,2,0/),(/3,3,0/),(/'x','y','N'/),(/1,1,1/),(/jpi,jpj,jpk/), en_id)
@@ -393 +421 @@
    CALL Agrif_Set_bcinterp(umsk_id,interp=AGRIF_constant)
    CALL Agrif_Set_bcinterp(vmsk_id,interp=AGRIF_constant)
+
+! VERTICAL REFINEMENT BEGIN
+   CALL Agrif_Set_bcinterp(scales_t_id,interp=Agrif_linear)
+   CALL Agrif_Set_bcinterp(scales_u_id,interp1=Agrif_linear,interp2=Agrif_constant)
+   CALL Agrif_Set_bcinterp(scales_v_id,interp1=Agrif_constant,interp2=AGRIF_linear)
+! VERTICAL REFINEMENT END
 
 # if defined key_zdftke
@@ -422 +456 @@
    CALL Agrif_Set_bc(vmsk_id,(/0,0/))
 
+! VERTICAL REFINEMENT BEGIN
+   CALL Agrif_Set_bc(scales_t_id,(/-nn_sponge_len*Agrif_irhox()-1,1/))
+   CALL Agrif_Set_bc(scales_u_id,(/-nn_sponge_len*Agrif_irhox()-1,1/))
+   CALL Agrif_Set_bc(scales_v_id,(/-nn_sponge_len*Agrif_irhox()-1,1/))
+! VERTICAL REFINEMENT END
+
 # if defined key_zdftke
    CALL Agrif_Set_bc(avm_id ,(/0,1/))
@@ -439 +479 @@
    CALL Agrif_Set_Updatetype(ub2b_update_id,update1 = Agrif_Update_Copy, update2 = Agrif_Update_Average)
    CALL Agrif_Set_Updatetype(vb2b_update_id,update1 = Agrif_Update_Average, update2 = Agrif_Update_Copy)
+
+! VERTICAL REFINEMENT BEGIN
+   CALL Agrif_Set_Updatetype(scales_t_id, update = AGRIF_Update_Average)
+   CALL Agrif_Set_Updatetype(scales_u_id,update1 = Agrif_Update_Copy, update2 = Agrif_Update_Average)
+   CALL Agrif_Set_Updatetype(scales_v_id,update1 = Agrif_Update_Average, update2 = Agrif_Update_Copy)
+! VERTICAL REFINEMENT END
 
 # if defined key_zdftke

branches/2015/dev_r5803_UKMO_AGRIF_Vert_interp/NEMOGCM/NEMO/OPA_SRC/DIA/diawri.F90

@@ -405 +405 @@
       !!
       LOGICAL ::   ll_print = .FALSE.                        ! =T print and flush numout
-      CHARACTER (len=40) ::   clhstnam, clop, clmx           ! local names
+      CHARACTER (len=60) ::   clhstnam, clop, clmx           ! local names
       INTEGER  ::   inum = 11                                ! temporary logical unit
       INTEGER  ::   ji, jj, jk                               ! dummy loop indices
@@ -779 +779 @@
       IF( lk_vvl ) THEN
          zw3d(:,:,:) = ( ( fse3t_n(:,:,:) - e3t_0(:,:,:) ) / e3t_0(:,:,:) * 100 * tmask(:,:,:) ) ** 2
-         CALL histwrite( nid_T, "vovvle3t", it, fse3t_n (:,:,:) , ndim_T , ndex_T  )   ! level thickness
+         CALL histwrite( nid_T, "vovvle3t", it, fse3t_n(:,:,:) , ndim_T , ndex_T  )   ! level thickness
          CALL histwrite( nid_T, "vovvldep", it, fsdept_n(:,:,:) , ndim_T , ndex_T  )   ! t-point depth
          CALL histwrite( nid_T, "vovvldef", it, zw3d             , ndim_T , ndex_T  )   ! level thickness deformation

branches/2015/dev_r5803_UKMO_AGRIF_Vert_interp/NEMOGCM/NEMO/OPA_SRC/DOM/domain.F90

@@ -97 +97 @@
       END DO
       !
-      IF( lk_vvl )           CALL dom_vvl_init ! Vertical variable mesh
+      IF( lk_vvl )           THEN
+        CALL dom_vvl_init ! Vertical variable mesh
+      ELSE
+        ln_vvl_ztilde = .FALSE.
+        ln_vvl_layer  = .FALSE.
+      ENDIF
+
       !
       IF( lk_c1d         )   CALL cor_c1d      ! 1D configuration: Coriolis set at T-point

branches/2015/dev_r5803_UKMO_AGRIF_Vert_interp/NEMOGCM/NEMO/OPA_SRC/DOM/domvvl.F90

@@ -620 +620 @@
       ! - ML - fse3u_b and fse3v_b are allready computed in dynnxt
       ! - JC - hu_b, hv_b, hur_b, hvr_b also
-      CALL dom_vvl_interpol( fse3u_n(:,:,:), fse3f_n (:,:,:), 'F'  )
+      CALL dom_vvl_interpol( fse3u_n(:,:,:), fse3f_n(:,:,:), 'F'  )
       ! Vertical scale factor interpolations
       ! ------------------------------------
-      CALL dom_vvl_interpol( fse3t_n(:,:,:), fse3w_n (:,:,:), 'W'  )
+      CALL dom_vvl_interpol( fse3t_n(:,:,:), fse3w_n(:,:,:), 'W'  )
       CALL dom_vvl_interpol( fse3u_n(:,:,:), fse3uw_n(:,:,:), 'UW' )
       CALL dom_vvl_interpol( fse3v_n(:,:,:), fse3vw_n(:,:,:), 'VW' )
-      CALL dom_vvl_interpol( fse3t_b(:,:,:), fse3w_b (:,:,:), 'W'  )
+      CALL dom_vvl_interpol( fse3t_b(:,:,:), fse3w_b(:,:,:), 'W'  )
       CALL dom_vvl_interpol( fse3u_b(:,:,:), fse3uw_b(:,:,:), 'UW' )
       CALL dom_vvl_interpol( fse3v_b(:,:,:), fse3vw_b(:,:,:), 'VW' )
@@ -652 +652 @@
       ! Local depth and Inverse of the local depth of the water column at u- and v- points
       ! ----------------------------------------------------------------------------------
-      hu (:,:) = hu_a (:,:)
-      hv (:,:) = hv_a (:,:)
+      hu (:,:) = hu_a(:,:)
+      hv (:,:) = hv_a(:,:)
 
       ! Inverse of the local depth
@@ -668 +668 @@
       ! Write outputs
       ! =============
-      CALL iom_put(     "e3t" , fse3t_n  (:,:,:) )
-      CALL iom_put(     "e3u" , fse3u_n  (:,:,:) )
-      CALL iom_put(     "e3v" , fse3v_n  (:,:,:) )
-      CALL iom_put(     "e3w" , fse3w_n  (:,:,:) )
-      CALL iom_put( "tpt_dep" , fsde3w_n (:,:,:) )
+      CALL iom_put(     "e3t" , fse3t_n(:,:,:) )
+      CALL iom_put(     "e3u" , fse3u_n(:,:,:) )
+      CALL iom_put(     "e3v" , fse3v_n(:,:,:) )
+      CALL iom_put(     "e3w" , fse3w_n(:,:,:) )
+      CALL iom_put( "tpt_dep" , fsde3w_n(:,:,:) )
       IF( iom_use("e3tdef") )   &
          CALL iom_put( "e3tdef"  , ( ( fse3t_n(:,:,:) - e3t_0(:,:,:) ) / e3t_0(:,:,:) * 100 * tmask(:,:,:) ) ** 2 )

branches/2015/dev_r5803_UKMO_AGRIF_Vert_interp/NEMOGCM/NEMO/OPA_SRC/DOM/domzgr.F90

@@ -294 +294 @@
                e3t_1d  (jk) =          za0      + za1        * TANH(       (zt-zkth) / zacr   )
             END DO
+! MODIFY THE COMPUTATION OF GDEPW_1D - Laurent Debreu Change for Agrif Vertical interpolation
+            gdepw_1d(1) = 0.
+            do jk=2,jpk
+            gdepw_1d(jk) = gdepw_1d(jk-1)+e3t_1d(jk-1)
+            enddo
          ELSE
             DO jk = 1, jpk
@@ -898 +903 @@
       !
       DO jk = 1, jpk
-         gdept_0 (:,:,jk) = gdept_1d(jk)
-         gdepw_0 (:,:,jk) = gdepw_1d(jk)
+         gdept_0(:,:,jk) = gdept_1d(jk)
+         gdepw_0(:,:,jk) = gdepw_1d(jk)
          gdep3w_0(:,:,jk) = gdepw_1d(jk)
-         e3t_0   (:,:,jk) = e3t_1d  (jk)
-         e3u_0   (:,:,jk) = e3t_1d  (jk)
-         e3v_0   (:,:,jk) = e3t_1d  (jk)
-         e3f_0   (:,:,jk) = e3t_1d  (jk)
-         e3w_0   (:,:,jk) = e3w_1d  (jk)
-         e3uw_0  (:,:,jk) = e3w_1d  (jk)
-         e3vw_0  (:,:,jk) = e3w_1d  (jk)
+         e3t_0(:,:,jk) = e3t_1d(jk)
+         e3u_0(:,:,jk) = e3t_1d(jk)
+         e3v_0(:,:,jk) = e3t_1d(jk)
+         e3f_0(:,:,jk) = e3t_1d(jk)
+         e3w_0(:,:,jk) = e3w_1d(jk)
+         e3uw_0(:,:,jk) = e3w_1d(jk)
+         e3vw_0(:,:,jk) = e3w_1d(jk)
       END DO
       !
@@ -1043 +1048 @@
                      &                             * ((gdept_1d(     ik  ) - gdepw_1d(ik) )   &
                      &                             / ( gdepw_1d(     ik+1) - gdepw_1d(ik) ))
-                  e3t_0  (ji,jj,ik) = e3t_1d  (ik) * ( gdepw_0 (ji,jj,ik+1) - gdepw_1d(ik) )   & 
+                  e3t_0(ji,jj,ik) = e3t_1d(ik) * ( gdepw_0 (ji,jj,ik+1) - gdepw_1d(ik) )   & 
                      &                             / ( gdepw_1d(      ik+1) - gdepw_1d(ik) ) 
                   e3w_0(ji,jj,ik) = 0.5_wp * ( gdepw_0(ji,jj,ik+1) + gdepw_1d(ik+1) - 2._wp * gdepw_1d(ik) )   &
                      &                     * ( e3w_1d(ik) / ( gdepw_1d(ik+1) - gdepw_1d(ik) ) )
                   !       ... on ik+1
-                  e3w_0  (ji,jj,ik+1) = e3t_0  (ji,jj,ik)
-                  e3t_0  (ji,jj,ik+1) = e3t_0  (ji,jj,ik)
+                  e3w_0(ji,jj,ik+1) = e3t_0(ji,jj,ik)
+                  e3t_0(ji,jj,ik+1) = e3t_0(ji,jj,ik)
                   gdept_0(ji,jj,ik+1) = gdept_0(ji,jj,ik) + e3t_0(ji,jj,ik)
                ENDIF
@@ -1089 +1094 @@
                      &                               * ( gdepw_1d(ik+1) - gdept_1d(ik)      )   & 
                      &                               / ( gdepw_1d(ik+1) - gdepw_1d(ik)      ) 
-                  e3t_0  (ji,jj,ik  ) = gdepw_1d(ik+1) - gdepw_0(ji,jj,ik) 
-                  e3w_0  (ji,jj,ik+1) = gdept_1d(ik+1) - gdept_0(ji,jj,ik)
+                  e3t_0(ji,jj,ik  ) = gdepw_1d(ik+1) - gdepw_0(ji,jj,ik) 
+                  e3w_0(ji,jj,ik+1) = gdept_1d(ik+1) - gdept_0(ji,jj,ik)
 
                   IF( ik + 1 == mbathy(ji,jj) ) THEN               ! ice shelf point only (2 cell water column) 
-                     e3w_0  (ji,jj,ik+1) = gdept_0(ji,jj,ik+1) - gdept_0(ji,jj,ik) 
+                     e3w_0(ji,jj,ik+1) = gdept_0(ji,jj,ik+1) - gdept_0(ji,jj,ik) 
                   ENDIF 
                !       ... on ik / ik-1 
@@ -2121 +2126 @@
       fsdepw(:,:,:) = gdepw_0 (:,:,:)
       fsde3w(:,:,:) = gdep3w_0(:,:,:)
-      fse3t (:,:,:) = e3t_0   (:,:,:)
-      fse3u (:,:,:) = e3u_0   (:,:,:)
-      fse3v (:,:,:) = e3v_0   (:,:,:)
-      fse3f (:,:,:) = e3f_0   (:,:,:)
-      fse3w (:,:,:) = e3w_0   (:,:,:)
-      fse3uw(:,:,:) = e3uw_0  (:,:,:)
-      fse3vw(:,:,:) = e3vw_0  (:,:,:)
+      fse3t(:,:,:) = e3t_0(:,:,:)
+      fse3u(:,:,:) = e3u_0(:,:,:)
+      fse3v(:,:,:) = e3v_0(:,:,:)
+      fse3f(:,:,:) = e3f_0(:,:,:)
+      fse3w(:,:,:) = e3w_0(:,:,:)
+      fse3uw(:,:,:) = e3uw_0(:,:,:)
+      fse3vw(:,:,:) = e3vw_0(:,:,:)
 !!
       ! HYBRID : 

branches/2015/dev_r5803_UKMO_AGRIF_Vert_interp/NEMOGCM/NEMO/OPA_SRC/DYN/dynhpg.F90

@@ -845 +845 @@
                &                   * (  rhd(ji,jj,1)                                    &
                &                     + 0.5_wp * ( rhd(ji,jj,2) - rhd(ji,jj,1) )         &
-               &                              * ( fse3w (ji,jj,1) - fsde3w(ji,jj,1) )   &
+               &                              * ( fse3w(ji,jj,1) - fsde3w(ji,jj,1) )   &
                &                              / ( fsde3w(ji,jj,2) - fsde3w(ji,jj,1) )  )
          END DO

branches/2015/dev_r5803_UKMO_AGRIF_Vert_interp/NEMOGCM/NEMO/OPA_SRC/DYN/dynspg_flt.F90

@@ -127 +127 @@
          ! read filtered free surface arrays in restart file
          ! when using agrif, sshn, gcx have to be read in istate
-         IF(.NOT. lk_agrif)   CALL flt_rst( nit000, 'READ' )      ! read or initialize the following fields:
+         IF(.NOT. lk_agrif) THEN
+            CALL flt_rst( nit000, 'READ' )      ! read or initialize the following fields:
          !                                                        ! gcx, gcxb
+         ELSE
+            gcx (:,:) = 0.e0
+            gcxb(:,:) = 0.e0
+         ENDIF
       ENDIF
 

branches/2015/dev_r5803_UKMO_AGRIF_Vert_interp/NEMOGCM/NEMO/OPA_SRC/SOL/solmat.F90

@@ -213 +213 @@
       DO jj = 1, jpj
          DO ji = 1, jpi
-            IF( bmask(ji,jj) /= 0.e0 )   gcdprc(ji,jj) = 1.e0 / gcdmat(ji,jj)
+            IF( bmask(ji,jj) /= 0.e0 .AND.(gcdmat(ji,jj)/=0.) )   gcdprc(ji,jj) = 1.e0 / gcdmat(ji,jj)
          END DO
       END DO

branches/2015/dev_r5803_UKMO_AGRIF_Vert_interp/NEMOGCM/NEMO/OPA_SRC/TRA/trazdf_imp.F90

@@ -210 +210 @@
                DO ji = fs_2, fs_jpim1
                   ze3tb = ( 1. - r_vvl ) + r_vvl * fse3t_b(ji,jj,jk)
-                  ze3tn = ( 1. - r_vvl ) + r_vvl * fse3t  (ji,jj,jk)
+                  ze3tn = ( 1. - r_vvl ) + r_vvl * fse3t(ji,jj,jk)
                   zrhs = ze3tb * ptb(ji,jj,jk,jn) + p2dt(jk) * ze3tn * pta(ji,jj,jk,jn)   ! zrhs=right hand side 
                   pta(ji,jj,jk,jn) = zrhs - zwi(ji,jj,jk) / zwt(ji,jj,jk-1) * pta(ji,jj,jk-1,jn)

branches/2015/dev_r5803_UKMO_AGRIF_Vert_interp/NEMOGCM/NEMO/OPA_SRC/TRD/trdglo.F90

@@ -85 +85 @@
       IF( MOD(kt,nn_trd) == 0 .OR. kt == nit000 .OR. kt == nitend ) THEN
          !
-         SELECT CASE( ctype )
-         !
-         CASE( 'TRA' )          !==  Tracers (T & S)  ==!
-            DO jk = 1, jpkm1       ! global sum of mask volume trend and trend*T (including interior mask)
-               DO jj = 1, jpj
-                  DO ji = 1, jpi        
-                     zvm = e1e2t(ji,jj) * fse3t(ji,jj,jk) * tmask(ji,jj,jk) * tmask_i(ji,jj)
-                     zvt = ptrdx(ji,jj,jk) * zvm
-                     zvs = ptrdy(ji,jj,jk) * zvm
-                     tmo(ktrd) = tmo(ktrd) + zvt   
-                     smo(ktrd) = smo(ktrd) + zvs
-                     t2 (ktrd) = t2(ktrd)  + zvt * tsn(ji,jj,jk,jp_tem)
-                     s2 (ktrd) = s2(ktrd)  + zvs * tsn(ji,jj,jk,jp_sal)
+      SELECT CASE( ctype )
+      !
+      CASE( 'TRA' )          !==  Tracers (T & S)  ==!
+         DO jk = 1, jpkm1       ! global sum of mask volume trend and trend*T (including interior mask)
+            DO jj = 1, jpj
+               DO ji = 1, jpi        
+                  zvm = e1e2t(ji,jj) * fse3t(ji,jj,jk) * tmask(ji,jj,jk) * tmask_i(ji,jj)
+                  zvt = ptrdx(ji,jj,jk) * zvm
+                  zvs = ptrdy(ji,jj,jk) * zvm
+                  tmo(ktrd) = tmo(ktrd) + zvt   
+                  smo(ktrd) = smo(ktrd) + zvs
+                  t2 (ktrd) = t2(ktrd)  + zvt * tsn(ji,jj,jk,jp_tem)
+                  s2 (ktrd) = s2(ktrd)  + zvs * tsn(ji,jj,jk,jp_sal)
                   END DO
                END DO
@@ -113 +113 @@
                CALL glo_tra_wri( kt )             ! print the results in ocean.output
                !                
-               tmo(:) = 0._wp                     ! prepare the next time step (domain averaged array reset to zero)
-               smo(:) = 0._wp
+            tmo(:) = 0._wp                     ! prepare the next time step (domain averaged array reset to zero)
+            smo(:) = 0._wp
                t2 (:) = 0._wp
                s2 (:) = 0._wp
@@ -348 +348 @@
             WRITE (numout,9541) ( hke(jpdyn_keg) + hke(jpdyn_rvo) + hke(jpdyn_zad) ) / tvolt
             WRITE (numout,9542) ( hke(jpdyn_keg) + hke(jpdyn_zad) ) / tvolt
-            WRITE (numout,9543) ( hke(jpdyn_pvo) ) / tvolt
-            WRITE (numout,9544) ( hke(jpdyn_rvo) ) / tvolt
-            WRITE (numout,9545) ( hke(jpdyn_spg) ) / tvolt
-            WRITE (numout,9546) ( hke(jpdyn_ldf) ) / tvolt
-            WRITE (numout,9547) ( hke(jpdyn_zdf) ) / tvolt
-            WRITE (numout,9548) ( hke(jpdyn_hpg) ) / tvolt, rpktrd / tvolt
+            WRITE (numout,9543)   hke(jpdyn_pvo)   / tvolt
+            WRITE (numout,9544)   hke(jpdyn_rvo)   / tvolt
+            WRITE (numout,9545)   hke(jpdyn_spg)   / tvolt
+            WRITE (numout,9546)   hke(jpdyn_ldf)   / tvolt
+            WRITE (numout,9547)   hke(jpdyn_zdf)   / tvolt
+            WRITE (numout,9548)   hke(jpdyn_hpg)   / tvolt, rpktrd / tvolt
             WRITE (numout,*)
             WRITE (numout,*)

branches/2015/dev_r5803_UKMO_AGRIF_Vert_interp/NEMOGCM/NEMO/OPA_SRC/TRD/trdmxl.F90

@@ -464 +464 @@
       itmod = kt - nit000 + 1
 
-      MODULO_NTRD : IF( MOD( itmod, nn_trd ) == 0 ) THEN        ! nitend MUST be multiple of nn_trd
+      IF( MOD( itmod, nn_trd ) == 0 ) THEN        ! nitend MUST be multiple of nn_trd
          !
          ztmltot (:,:) = 0.e0   ;   zsmltot (:,:) = 0.e0   ! reset arrays to zero
@@ -636 +636 @@
          END IF
          !
-      END IF MODULO_NTRD
+      END IF
 
       ! ======================================================================

branches/2015/dev_r5803_UKMO_AGRIF_Vert_interp/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90

@@ -121 +121 @@
 #if defined key_agrif
       CALL Agrif_Init_Grids()      ! AGRIF: set the meshes
+      nstop = 0 ! This is getting set to 2 somewhere Agrif_Init_Grids so reset to zero for now
 #endif