Commits

Harald Klimach committed 067beb5

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

Comments (0)

Files changed (1)

source/aot_vector_module.f90

         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