aboutsummaryrefslogtreecommitdiff
path: root/platform.F90
diff options
context:
space:
mode:
Diffstat (limited to 'platform.F90')
-rw-r--r--platform.F908
1 files changed, 7 insertions, 1 deletions
diff --git a/platform.F90 b/platform.F90
index 73200d2..a04b902 100644
--- a/platform.F90
+++ b/platform.F90
@@ -30,6 +30,8 @@ implicit none
#endif
character(*), parameter::favorites_file = "favorites.gmi"
+
+ logical::first_pass_makedir = .false.
contains
@@ -38,6 +40,7 @@ contains
implicit none
character(*), intent(in)::dir
+ character(256)::cmd
#ifdef WINDOWS
character(kind=c_char, len=:), allocatable, target::passdir
@@ -113,7 +116,10 @@ contains
#endif
! Harmless
- call make_directory(dir)
+ if(.not. first_pass_makedir) then
+ call make_directory(dir)
+ first_pass_makedir = .true.
+ end if
end subroutine get_settings_directory