From f69806d0c768da82a4f7cfe247085be81699c587 Mon Sep 17 00:00:00 2001
From: kamischi <karl-michael.schindler@web.de>
Date: Fri, 2 Jun 2023 00:33:26 +0200
Subject: [PATCH] fix variable length string issues
---
source/f90/eels-boson.f90 | 2 ++
source/f90/get_commandline_options.f90 | 6 +++++-
2 files changed, 7 insertions(+), 1 deletion(-)
diff --git a/source/f90/eels-boson.f90 b/source/f90/eels-boson.f90
index 0346f78..ef05939 100644
--- a/source/f90/eels-boson.f90
+++ b/source/f90/eels-boson.f90
@@ -8,6 +8,8 @@ program eels_boson
! * *
! ******************************************************************
+ use get_commandline_options_mod
+
implicit none
include 'version.inc'
diff --git a/source/f90/get_commandline_options.f90 b/source/f90/get_commandline_options.f90
index e3448fa..6aac322 100644
--- a/source/f90/get_commandline_options.f90
+++ b/source/f90/get_commandline_options.f90
@@ -1,3 +1,5 @@
+module get_commandline_options_mod
+contains
subroutine get_commandline_options(eelsin_name, eelsou_name, bosin_name, bosou_name)
! This routine defines the commandline options, parses the commandline and sets the
@@ -11,7 +13,8 @@ subroutine get_commandline_options(eelsin_name, eelsou_name, bosin_name, bosou_n
implicit none
- character (len = *) :: eelsin_name, eelsou_name, bosin_name, bosou_name
+ character (len = :), allocatable, intent(in out) :: eelsin_name, eelsou_name
+ character (len = :), allocatable, intent(in out) :: bosin_name, bosou_name
include 'version.inc'
@@ -87,3 +90,4 @@ subroutine get_commandline_options(eelsin_name, eelsou_name, bosin_name, bosou_n
return
end subroutine get_commandline_options
+end module get_commandline_options_mod
--
GitLab