@@ -833,9 +833,9 @@ subroutine log_debug( self, message, module, procedure )
833
833
character (len=* ), intent (in ) :: message
834
834
! ! A string to be written to log_unit
835
835
character (len=* ), intent (in ), optional :: module
836
- ! ! The name of the module contining the current invocation of `log_information`
836
+ ! ! The name of the module containing the current invocation of `log_information`
837
837
character (len=* ), intent (in ), optional :: procedure
838
- ! ! The name of the procedure contining the current invocation of
838
+ ! ! The name of the procedure containing the current invocation of
839
839
! ! `log_information`
840
840
841
841
if ( self % level > debug_level ) return
@@ -897,9 +897,9 @@ subroutine log_error( self, message, module, procedure, stat, errmsg )
897
897
character (len=* ), intent (in ) :: message
898
898
! ! A string to be written to log_unit
899
899
character (len=* ), intent (in ), optional :: module
900
- ! ! The name of the module contining the current invocation of `log_error`
900
+ ! ! The name of the module containing the current invocation of `log_error`
901
901
character (len=* ), intent (in ), optional :: procedure
902
- ! ! The name of the procedure contining the current invocation of `log_error`
902
+ ! ! The name of the procedure containing the current invocation of `log_error`
903
903
integer , intent (in ), optional :: stat
904
904
! ! The value of the `stat` specifier returned by a Fortran statement
905
905
character (len=* ), intent (in ), optional :: errmsg
@@ -988,9 +988,9 @@ subroutine log_information( self, message, module, procedure )
988
988
character (len=* ), intent (in ) :: message
989
989
! ! A string to be written to log_unit
990
990
character (len=* ), intent (in ), optional :: module
991
- ! ! The name of the module contining the current invocation of `log_information`
991
+ ! ! The name of the module containing the current invocation of `log_information`
992
992
character (len=* ), intent (in ), optional :: procedure
993
- ! ! The name of the procedure contining the current invocation of
993
+ ! ! The name of the procedure containing the current invocation of
994
994
! ! `log_information`
995
995
996
996
if ( self % level > information_level ) return
@@ -1043,9 +1043,9 @@ subroutine log_io_error( self, message, module, procedure, iostat, &
1043
1043
character (len=* ), intent (in ) :: message
1044
1044
! ! A string to be written to LOG_UNIT
1045
1045
character (len=* ), intent (in ), optional :: module
1046
- ! ! The name of the module contining the current invocation of REPORT_ERROR
1046
+ ! ! The name of the module containing the current invocation of REPORT_ERROR
1047
1047
character (len=* ), intent (in ), optional :: procedure
1048
- ! ! The name of the procedure contining the current invocation of REPORT_ERROR
1048
+ ! ! The name of the procedure containing the current invocation of REPORT_ERROR
1049
1049
integer , intent (in ), optional :: iostat
1050
1050
! ! The value of the IOSTAT specifier returned by a Fortran I/O statement
1051
1051
character (len=* ), intent (in ), optional :: iomsg
@@ -1131,9 +1131,9 @@ subroutine log_message( self, message, module, procedure, prefix )
1131
1131
character (len=* ), intent (in ) :: message
1132
1132
! ! A string to be written to log_unit
1133
1133
character (len=* ), intent (in ), optional :: module
1134
- ! ! The name of the module contining the current invocation of `log_message`
1134
+ ! ! The name of the module containing the current invocation of `log_message`
1135
1135
character (len=* ), intent (in ), optional :: procedure
1136
- ! ! The name of the procedure contining the current invocation of `log_message`
1136
+ ! ! The name of the procedure containing the current invocation of `log_message`
1137
1137
character (len=* ), intent (in ), optional :: prefix
1138
1138
! ! To be prepended to message as `prefix // ': ' // message`.
1139
1139
@@ -1468,9 +1468,9 @@ subroutine log_warning( self, message, module, procedure )
1468
1468
character (len=* ), intent (in ) :: message
1469
1469
! ! A string to be written to LOG_UNIT
1470
1470
character (len=* ), intent (in ), optional :: module
1471
- ! ! The name of the module contining the current invocation of `log_warning`
1471
+ ! ! The name of the module containing the current invocation of `log_warning`
1472
1472
character (len=* ), intent (in ), optional :: procedure
1473
- ! ! The name of the procedure contining the current invocation of `log_warning`
1473
+ ! ! The name of the procedure containing the current invocation of `log_warning`
1474
1474
1475
1475
if ( self % level > warning_level ) return
1476
1476
0 commit comments