istp/gray
2
0
Fork 0
Code Issues Pull Requests Packages Projects Releases 1 Wiki Activity

src/gray_tables: fix memory error with disabled table

Browse Source
This commit is contained in:
Michele Guerini Rocco 2024-09-12 12:42:47 +02:00 committed by rnhmjoj
parent 10f783ca37
commit d5bbda1ea2
Signed by: rnhmjoj
GPG Key ID: BFBAF4C975F76450
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
src/types.f90
View File

@ -204,6 +204,7 @@ contains
character(len=len(self%title) + 4) :: filepath_ character(len=len(self%title) + 4) :: filepath_
character(len=10) :: fmt character(len=10) :: fmt
error = 0
if (self%empty()) return if (self%empty()) return
! set default file name ! set default file name