add groupname(N::Int) signature

SAutFNs.jl

@@ -72,7 +72,9 @@ end
 
 function groupname(parsed_args)
    N = parsed_args["N"]
-   return "oSAutF$(N)", N
+   return groupname(N), N
 end
 
+groupname(N::Int) = "oSAutF$(N)"
+
 end # of module SAutFNs

SLNs.jl

@@ -105,6 +105,10 @@ function groupname(parsed_args)
    p = parsed_args["p"]
    X = parsed_args["X"]
 
+   return groupname(N, p, X), N
+end
+
+function groupname(N, p=0, X=false)
     if p == 0
        if X
           name = "oSL$(N)Z⟨X⟩"
@@ -114,8 +118,7 @@ function groupname(parsed_args)
     else
        name = "oSL$(N)_$p"
     end
-
-   return name, N
+    return name
 end
 
 end # of module SLNs