diff options
Diffstat (limited to 'platform.F90')
| -rw-r--r-- | platform.F90 | 14 |
1 files changed, 13 insertions, 1 deletions
diff --git a/platform.F90 b/platform.F90 index e10ca64..f71abdd 100644 --- a/platform.F90 +++ b/platform.F90 @@ -11,6 +11,15 @@ implicit none contains + subroutine make_directory(dir) + implicit none + + character(*), intent(in)::dir + + call execute_command_line('mkdir "'//trim(dir)//'"') + + end subroutine make_directory + subroutine get_settings_directory(dir) use iso_c_binding implicit none @@ -60,6 +69,9 @@ contains dir = trim(dir)//".lr87" #endif + ! Harmless + call make_directory(dir) + end subroutine get_settings_directory subroutine get_favorites_file(filename) @@ -72,4 +84,4 @@ contains end subroutine get_favorites_file -end module platform
\ No newline at end of file +end module platform |