Skip to content
Snippets Groups Projects
Commit f69806d0 authored by kamischi's avatar kamischi
Browse files

fix variable length string issues

parent 8310a93b
Branches
No related tags found
No related merge requests found
...@@ -8,6 +8,8 @@ program eels_boson ...@@ -8,6 +8,8 @@ program eels_boson
! * * ! * *
! ****************************************************************** ! ******************************************************************
use get_commandline_options_mod
implicit none implicit none
include 'version.inc' include 'version.inc'
......
module get_commandline_options_mod
contains
subroutine get_commandline_options(eelsin_name, eelsou_name, bosin_name, bosou_name) subroutine get_commandline_options(eelsin_name, eelsou_name, bosin_name, bosou_name)
! This routine defines the commandline options, parses the commandline and sets the ! 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 ...@@ -11,7 +13,8 @@ subroutine get_commandline_options(eelsin_name, eelsou_name, bosin_name, bosou_n
implicit none 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' include 'version.inc'
...@@ -87,3 +90,4 @@ subroutine get_commandline_options(eelsin_name, eelsou_name, bosin_name, bosou_n ...@@ -87,3 +90,4 @@ subroutine get_commandline_options(eelsin_name, eelsou_name, bosin_name, bosou_n
return return
end subroutine get_commandline_options end subroutine get_commandline_options
end module get_commandline_options_mod
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment