1. pwl
  2. aotus

Commits

Harald Klimach  committed 067beb5

Fixed offset bug, should start second loop only after all iterations of the first one
(missing + 1)

  • Participants
  • Parent commits 7f319a9
  • Branches default

Comments (0)

Files changed (1)

File source/aot_vector_module.f90

View file
         call get_top_val(conf, top_val(iComp), ErrCode(iComp), default(iComp))
       end do
 
-      vect_lb = max(2, def_len)
+      vect_lb = max(2, def_len+1)
       ! After def_len entries no default values for the components are
       ! available anymore, proceed without a default setting for the rest.
       do iComp=vect_lb,vect_len
         call get_top_val(conf, top_val(iComp), ErrCode(iComp), default(iComp))
       end do
 
-      vect_lb = max(2, def_len)
+      vect_lb = max(2, def_len+1)
       ! After def_len entries no default values for the components are
       ! available anymore, proceed without a default setting for the rest.
       do iComp=vect_lb,vect_len
         call get_top_val(conf, top_val(iComp), ErrCode(iComp), default(iComp))
       end do
 
-      vect_lb = max(2, def_len)
+      vect_lb = max(2, def_len+1)
       ! After def_len entries no default values for the components are
       ! available anymore, proceed without a default setting for the rest.
       do iComp=vect_lb,vect_len
         call get_top_val(conf, top_val(iComp), ErrCode(iComp), default(iComp))
       end do
 
-      vect_lb = max(2, def_len)
+      vect_lb = max(2, def_len+1)
       ! After def_len entries no default values for the components are
       ! available anymore, proceed without a default setting for the rest.
       do iComp=vect_lb,vect_len
         call get_top_val(conf, top_val(iComp), ErrCode(iComp), default(iComp))
       end do
 
-      vect_lb = max(2, def_len)
+      vect_lb = max(2, def_len+1)
       ! After def_len entries no default values for the components are
       ! available anymore, proceed without a default setting for the rest.
       do iComp=vect_lb,vect_len
         call get_top_val(conf, top_val(iComp), ErrCode(iComp), default(iComp))
       end do
 
-      vect_lb = max(2, def_len)
+      vect_lb = max(2, def_len+1)
       ! After def_len entries no default values for the components are
       ! available anymore, proceed without a default setting for the rest.
       do iComp=vect_lb,vect_len
         call get_top_val(conf, top_val(iComp), ErrCode(iComp), default(iComp))
       end do
 
-      vect_lb = max(2, def_len)
+      vect_lb = max(2, def_len+1)
       ! After def_len entries no default values for the components are
       ! available anymore, proceed without a default setting for the rest.
       do iComp=vect_lb,vect_len
         call get_top_val(conf, top_val(iComp), ErrCode(iComp), default(iComp))
       end do
 
-      vect_lb = max(2, def_len)
+      vect_lb = max(2, def_len+1)
       ! After def_len entries no default values for the components are
       ! available anymore, proceed without a default setting for the rest.
       do iComp=vect_lb,vect_len
         call get_top_val(conf, top_val(iComp), ErrCode(iComp), default(iComp))
       end do
 
-      vect_lb = max(2, def_len)
+      vect_lb = max(2, def_len+1)
       ! After def_len entries no default values for the components are
       ! available anymore, proceed without a default setting for the rest.
       do iComp=vect_lb,vect_len
         call get_top_val(conf, top_val(iComp), ErrCode(iComp), default(iComp))
       end do
 
-      vect_lb = max(2, def_len)
+      vect_lb = max(2, def_len+1)
       ! After def_len entries no default values for the components are
       ! available anymore, proceed without a default setting for the rest.
       do iComp=vect_lb,vect_len