Commits

Harald Klimach committed c5a2069 Merge

Merged in bugfix in vector module

Comments (0)

Files changed (2)

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
Binary file modified.