From a11a4d7d0df984e7bc3d1d1044d8ac5fda9c80b0 Mon Sep 17 00:00:00 2001 From: Nick Wogan Date: Thu, 27 Oct 2022 12:31:28 -0700 Subject: [PATCH] deallocated error bug. --- photochem/fortran/Atmosphere_wrapper.f90 | 2 -- 1 file changed, 2 deletions(-) diff --git a/photochem/fortran/Atmosphere_wrapper.f90 b/photochem/fortran/Atmosphere_wrapper.f90 index 67855c7..a804df8 100644 --- a/photochem/fortran/Atmosphere_wrapper.f90 +++ b/photochem/fortran/Atmosphere_wrapper.f90 @@ -31,9 +31,7 @@ subroutine deallocate_atmosphere(ptr) bind(c) type(c_ptr), intent(in) :: ptr type(Atmosphere), pointer :: pc character(:), allocatable :: err_f - call c_f_pointer(ptr, pc) - call pc%destroy_stepper(err_f) deallocate(pc) end subroutine