add is_open property

Author: scivision

src/interface.f90

@@ -29,6 +29,7 @@ module nc4fortran
 integer :: comp_lvl = 0 !< compression level (1-9)  0: disable compression
 logical :: verbose = .false.
 logical :: debug = .false.
+logical :: is_open = .false.
 logical :: is_scratch = .false.
 !! will be auto-deleted on close
 character(80) :: libversion
@@ -222,6 +223,11 @@ subroutine nc_initialize(self,filename,ierr, status,action,comp_lvl,verbose,debu
 character(:), allocatable :: lstatus, laction
 integer :: ier
 
+if (self%is_open) then
+  write(stderr,*) 'WARNING:nc4fortran: file handle already open to: '// filename
+  return
+endif
+
 self%filename = filename
 
 if (present(comp_lvl)) self%comp_lvl = comp_lvl
@@ -270,11 +276,13 @@ subroutine nc_initialize(self,filename,ierr, status,action,comp_lvl,verbose,debu
   error stop
 endif
 
+self%is_open = .true.
+
 end subroutine nc_initialize
 
 
 subroutine nc_finalize(self, ierr)
-class(netcdf_file), intent(in) :: self
+class(netcdf_file), intent(inout) :: self
 integer, intent(out), optional :: ierr
 
 integer :: ier
@@ -291,6 +299,8 @@ subroutine nc_finalize(self, ierr)
   if (unlink(self%filename)) write(stderr,*) 'WARNING: could not delete scratch file: ' // self%filename
 endif
 
+self%is_open = .false.
+
 end subroutine nc_finalize
 
 

src/tests/test_io.f90

@@ -41,7 +41,9 @@ subroutine test_exist(path)
 
 if (hf%exist('foovar')) error stop 'variable and file not exists and not opened'
 
+if(hf%is_open) error stop 'file not opened yet'
 call hf%initialize(path // '/scalar.nc', status='replace')
+if (.not.hf%is_open) error stop 'file not detected as open'
 call hf%write('here', 12)
 if(.not. hf%exist('here')) error stop 'variable exists'
 if(hf%exist('nothere')) error stop 'variable does not actually exist'