Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in
Toggle navigation
Menu
Open sidebar
Scientific Software
CrysFML
Commits
c619a4da
Commit
c619a4da
authored
May 10, 2022
by
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
Changes
1
Pipelines
1
Hide whitespace changes
Inline
Side-by-side
Src/CFML_Crystallographic_Symmetry.f90
View file @
c619a4da
...
...
@@ -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,op
p
osite)
!!---- 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) :: op
p
osite
!!----
!!---- 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 "op
p
osite" 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
,
op
p
osite
)
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
)
::
op
p
osite
!---- 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
(
op
p
osite
))
then
i
=
len_trim
(
transl
)
abc_symb
=
"("
//
trim
(
xyz_op
)//
"; "
//
transl
(
1
:
i
-1
)//
")"
end
if
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment