Fix the Julia test of LHS

Author: amontoison

GALAHAD.jl/test/test_lhs.jl

@@ -19,7 +19,7 @@ function test_lhs(::Type{T}, ::Type{INT}) where {T,INT}
   # Parameters
   n_dimen = INT(7)  # dimension
   n_points = INT(2)  # points required
-  X = zeros(INT, n_points, n_dimen)  # points
+  X = zeros(INT, n_dimen, n_points)  # points
   seed = Ref{INT}()
 
   # Set a random seed
@@ -30,9 +30,9 @@ function test_lhs(::Type{T}, ::Type{INT}) where {T,INT}
 
   if inform[].status == 0 # successful return
     @printf("LHS successful\n")
-    for i in 1:n_points
-      @printf("Point %d = [", i)
-      for j in 1:n_dimen
+    for j in 1:n_points
+      @printf("Point %d = [", j)
+      for i in 1:n_dimen
         @printf("%d ", X[i,j])
       end
       @printf("]\n")