Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
fleur
fleur
Commits
cbf3c4d5
Commit
cbf3c4d5
authored
Jan 23, 2019
by
Uliana Alekseeva
Browse files
adjusted for >999 atoms
parent
42b3915c
Changes
1
Hide whitespace changes
Inline
Side-by-side
global/find_enpara.f90
View file @
cbf3c4d5
...
...
@@ -148,7 +148,7 @@ CONTAINS
'branchLowest '
,
'branchHighest'
,
'value '
/),&
attributes
,
RESHAPE
((/
12
,
4
,
6
,
12
,
13
,
5
,
6
,
1
,
3
,
8
,
8
,
16
/),(/
6
,
2
/)))
ENDIF
WRITE
(
6
,
'(a6,i
3
,i2,a1,a12,f6.2,a3,f6.2,a13,f8.4)'
)
' Atom'
,
n
,
nqn
,
ch
(
l
),
' branch from'
,&
WRITE
(
6
,
'(a6,i
5
,i2,a1,a12,f6.2,a3,f6.2,a13,f8.4)'
)
' Atom'
,
n
,
nqn
,
ch
(
l
),
' branch from'
,&
e_lo
,
' to'
,
e_up
,
' htr. ; e_l ='
,
e
ENDIF
END
FUNCTION
priv_method1
...
...
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