diff options
| author | Jeffrey Armstrong <jeff@approximatrix.com> | 2020-08-08 12:02:59 -0400 |
|---|---|---|
| committer | Jeffrey Armstrong <jeff@approximatrix.com> | 2020-08-08 12:02:59 -0400 |
| commit | f833fc391d3192733c799dcdaf1c4df4c9919f8b (patch) | |
| tree | 61960f846063a7cda6843159e3a1c84294817d5d /platform.F90 | |
| parent | f6a2bd488ca74881855f74f5302078526cfbd81c (diff) | |
| download | LR-87-f833fc391d3192733c799dcdaf1c4df4c9919f8b.tar.gz LR-87-f833fc391d3192733c799dcdaf1c4df4c9919f8b.zip | |
Added make_directory subroutine. Fixed allocatable favorites to be pointers instead so the program doesn't crash.
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 |