Harald Klimach avatar Harald Klimach committed 7516fb1

Close vector tables after usage

Comments (0)

Files changed (1)

source/aot_vector_module.f90

   use flu_binding
   use aotus_module, only: get_top_val, aoterr_NonExistent, aoterr_Fatal
   use aot_kinds_module, only: double_k, single_k, long_k
-  use aot_table_module, only: aot_table_open, aot_table_top, &
+  use aot_table_module, only: aot_table_close, aot_table_top, &
     &                         aot_table_length, aot_table_getval, &
     &                         aot_table_first
 
         allocate(errCode(0))
       end if
     end if
+    call aot_table_close(conf, vect_handle)
 
   end subroutine get_top_real_vvect
 
         allocate(errCode(0))
       end if
     end if
+    call aot_table_close(conf, vect_handle)
 
   end subroutine get_top_double_vvect
 
         allocate(errCode(0))
       end if
     end if
+    call aot_table_close(conf, vect_handle)
 
   end subroutine get_top_integer_vvect
 
         allocate(errCode(0))
       end if
     end if
+    call aot_table_close(conf, vect_handle)
 
   end subroutine get_top_long_vvect
 
         allocate(errCode(0))
       end if
     end if
+    call aot_table_close(conf, vect_handle)
 
   end subroutine get_top_logical_vvect
 
         ErrCode = ibSet(ErrCode, aoterr_Fatal)
       end if
     end if
+    call aot_table_close(conf, vect_handle)
 
   end subroutine get_top_real_v
 
         ErrCode = ibSet(ErrCode, aoterr_Fatal)
       end if
     end if
+    call aot_table_close(conf, vect_handle)
 
   end subroutine get_top_double_v
 
         ErrCode = ibSet(ErrCode, aoterr_Fatal)
       end if
     end if
+    call aot_table_close(conf, vect_handle)
 
   end subroutine get_top_integer_v
 
         ErrCode = ibSet(ErrCode, aoterr_Fatal)
       end if
     end if
+    call aot_table_close(conf, vect_handle)
 
   end subroutine get_top_long_v
 
         ErrCode = ibSet(ErrCode, aoterr_Fatal)
       end if
     end if
+    call aot_table_close(conf, vect_handle)
 
   end subroutine get_top_logical_v
 
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for ProjectModifiedEvent.java.
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.