diff options
Diffstat (limited to 'platform.F90')
-rw-r--r-- | platform.F90 | 8 |
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 |