Commit c619a4da authored by juan rodriguez-carvajal's avatar juan rodriguez-carvajal
Browse files

Changing the name of a variable in CFML_Crystallographic_Symmetry.f90. No side effect

parent 6a050fb4
Pipeline #13671 passed with stages
in 5 minutes and 55 seconds
......@@ -7479,11 +7479,11 @@
End Subroutine Get_T_SubGroups
!!----
!!---- Subroutine Get_Trasfm_Symbol(Mat,tr,abc_symb,oposite)
!!---- Subroutine Get_Trasfm_Symbol(Mat,tr,abc_symb,opposite)
!!---- integer, dimension(3,3), intent(in) :: Mat
!!---- real, dimension(3), intent(in) :: tr
!!---- character(len=*), intent(out):: abc_symb
!!---- logical,optional, intent(in) :: oposite
!!---- logical,optional, intent(in) :: opposite
!!----
!!---- Provides the short symbol for a setting change defined by
!!---- the transfomation matrix Mat and origin given by the translation
......@@ -7494,17 +7494,17 @@
!!---- 1 0 1 c'=a+c
!!---- And the change of origin given by (0.5,0.0,0.5)
!!---- The subroutine provide the symbol: (1/2,0,1/2; a-c,2b,a+c)
!!---- If "oposite" is provided then the output is the symbol: (a-c,2b,a+c; 1/2,0,1/2)
!!---- If "opposite" is provided then the output is the symbol: (a-c,2b,a+c; 1/2,0,1/2)
!!---- Warning! This procedure works only for integer matrices, for rational matrices
!!---- please use the procedure Get_Symb_From_Mat in CFML_String_Utilities module.
!!----
!!---- Update: November - 2012, February 2016 (optional argument)
!!
Subroutine Get_Trasfm_Symbol(Mat,tr,abc_symb,oposite)
Subroutine Get_Trasfm_Symbol(Mat,tr,abc_symb,opposite)
integer, dimension(3,3), intent(in) :: Mat
real(kind=cp), dimension(3), intent(in) :: tr
character(len=*), intent(out):: abc_symb
logical,optional, intent(in) :: oposite
logical,optional, intent(in) :: opposite
!---- Local variables ----!
integer :: i
character(len=40) :: xyz_op, transl
......@@ -7527,7 +7527,7 @@
end do
transl=Pack_string(transl)
abc_symb="("//trim(transl)//" "//trim(xyz_op)//")"
if(present(oposite)) then
if(present(opposite)) then
i=len_trim(transl)
abc_symb="("//trim(xyz_op)//"; "//transl(1:i-1)//")"
end if
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment