Continuing testing and making some modifications in few files.

Src08/CFML_gSpaceGroups.f90

@@ -565,13 +565,14 @@ Module CFML_gSpaceGroups
           real(kind=cp), dimension(:,:),intent(out)  :: atr
        End Subroutine Get_Stabilizer
 
-       Module Subroutine Get_SubGroups(SpG, SubG, nsg, indexg, point)
+       Module Subroutine Get_SubGroups(SpG, SubG, nsg, indexg, point,printd)
           !---- Arguments ----!
           type(Spg_Type),                   intent( in) :: SpG
           type(Spg_Type),dimension(:),      intent(out) :: SubG
           integer,                          intent(out) :: nsg
           integer,                 optional,intent(in)  :: indexg
           logical, dimension(:,:), optional,intent(out) :: point
+          logical,                 optional,intent(in)  :: printd
        End Subroutine Get_SubGroups
 
        Module Subroutine Get_SubGroups_full(SpG, SubG, nsg, indexg, point,printd)

Src08/CFML_gSpaceGroups/CheckGener.f90

@@ -32,7 +32,6 @@ SubModule (CFML_gSpaceGroups) SPG_017
 
       do i=1, ngen_in
          if (len_trim(gen_in(i)) == 0) cycle
-
          if (.not. init) then
             d=Get_Dimension_SymmOp(gen_in(i))
             allocate(Mat(d,d))

Src08/CFML_gSpaceGroups/Get_GenerStr.f90

@@ -20,7 +20,7 @@ SubModule (CFML_gSpaceGroups) SPG_016
       !--- Local variables ---!
       character(len=:), allocatable :: symbol, ListGen
       integer, dimension(20) :: Pos
-      integer                :: i,j,k,np
+      integer                :: i,j,k,np,lg
       logical                :: timerev_provided
 
       !> Init
@@ -58,7 +58,12 @@ SubModule (CFML_gSpaceGroups) SPG_016
       j=1
       do i=1, np
          k=pos(i)
+         !gen(i)=adjustl(ListGen(j:k-1))
          gen(i)=ListGen(j:k-1)
+         !lg=len_trim(gen(i))
+         !if(gen(i)(lg:lg) /= "1") then
+         !  gen(i)=trim(gen(i))//",1"
+         !end if
          j = k + 1
       end do
       if (ngen > np) then

Src08/CFML_gSpaceGroups/Spg_Const_Str.f90

@@ -28,8 +28,10 @@ SubModule (CFML_gSpaceGroups) SPG_ConstructorString
       call Clear_Error()
       call Init_SpaceGroup(Spg)
       allocate(gen1(maxnum_op))
-      call Get_Generators(ListGen, d, gen1, ngen1)
-      call Check_Gener(gen1, gen)
+      !call Get_Generators(ListGen, d, gen1, ngen1)
+      !call Check_Gener(gen1, gen)
+      call Get_Generators(ListGen, d, gen, ngen)
+
       if (Err_CFML%Ierr /= 0) return
 
       ngen=size(gen)