remove external qualifier from iargc definition

E3SM-Project · Sep 13, 2024 · ef7aeca · ef7aeca
1 parent 4d1c5ea
commit ef7aeca
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/components/elm/tools/interpinic/src/fmain.F90 b/components/elm/tools/interpinic/src/fmain.F90
@@ -14,7 +14,7 @@ program fmain
   character(len= 256) :: arg
   integer :: n                   !index 
   integer :: nargs               !number of arguments  
-  integer, external :: iargc     !number of arguments function
+  integer :: iargc     !number of arguments function
   character(len=256) :: finidati !input initial dataset to read
   character(len=256) :: finidato !output initial dataset to create
   character(len=256) :: cmdline  !input command line