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 @@ ...@@ -7479,11 +7479,11 @@
End Subroutine Get_T_SubGroups 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 !!---- integer, dimension(3,3), intent(in) :: Mat
!!---- real, dimension(3), intent(in) :: tr !!---- real, dimension(3), intent(in) :: tr
!!---- character(len=*), intent(out):: abc_symb !!---- 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 !!---- Provides the short symbol for a setting change defined by
!!---- the transfomation matrix Mat and origin given by the translation !!---- the transfomation matrix Mat and origin given by the translation
...@@ -7494,17 +7494,17 @@ ...@@ -7494,17 +7494,17 @@
!!---- 1 0 1 c'=a+c !!---- 1 0 1 c'=a+c
!!---- And the change of origin given by (0.5,0.0,0.5) !!---- 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) !!---- 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 !!---- Warning! This procedure works only for integer matrices, for rational matrices
!!---- please use the procedure Get_Symb_From_Mat in CFML_String_Utilities module. !!---- please use the procedure Get_Symb_From_Mat in CFML_String_Utilities module.
!!---- !!----
!!---- Update: November - 2012, February 2016 (optional argument) !!---- 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 integer, dimension(3,3), intent(in) :: Mat
real(kind=cp), dimension(3), intent(in) :: tr real(kind=cp), dimension(3), intent(in) :: tr
character(len=*), intent(out):: abc_symb character(len=*), intent(out):: abc_symb
logical,optional, intent(in) :: oposite logical,optional, intent(in) :: opposite
!---- Local variables ----! !---- Local variables ----!
integer :: i integer :: i
character(len=40) :: xyz_op, transl character(len=40) :: xyz_op, transl
...@@ -7527,7 +7527,7 @@ ...@@ -7527,7 +7527,7 @@
end do end do
transl=Pack_string(transl) transl=Pack_string(transl)
abc_symb="("//trim(transl)//" "//trim(xyz_op)//")" abc_symb="("//trim(transl)//" "//trim(xyz_op)//")"
if(present(oposite)) then if(present(opposite)) then
i=len_trim(transl) i=len_trim(transl)
abc_symb="("//trim(xyz_op)//"; "//transl(1:i-1)//")" abc_symb="("//trim(xyz_op)//"; "//transl(1:i-1)//")"
end if 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