@@ -554,9 +554,9 @@ contains
554
554
!>
555
555
!> Reads a whole ASCII file and loads its contents into a string variable.
556
556
!> The function handles error states and optionally deletes the file after reading.
557
- subroutine getfile_string(fileName ,file,err,delete)
557
+ subroutine getfile_string(filename ,file,err,delete)
558
558
!> Input file name
559
- character(*), intent(in) :: fileName
559
+ character(*), intent(in) :: filename
560
560
!> Output string variable
561
561
type(string_type), intent(out) :: file
562
562
!> [optional] State return flag. On error, if not requested, the code will stop.
@@ -565,10 +565,10 @@ contains
565
565
logical, optional, intent(in) :: delete
566
566
567
567
! Local variables
568
- character(len=:), allocatable :: fileString
568
+ character(len=:), allocatable :: filestring
569
569
570
570
! Process output
571
- call getfile_char(fileName,fileString ,err,delete)
571
+ call getfile_char(filename,filestring ,err,delete)
572
572
call move(from=fileString,to=file)
573
573
574
574
end subroutine getfile_string
0 commit comments