lone keywords.

svn-origin-rev: 17986
This commit is contained in:
Hossein Banihashemian 2017-07-24 12:10:58 +00:00
parent 7ad2b909d2
commit c7830d0dda

View file

@ -1841,7 +1841,8 @@ CONTAINS
description="Print only the upper triangular part of the matrix. ", &
usage="UPPER_TRIANGULAR {logical}", &
repeats=.FALSE., &
default_l_val=.FALSE.)
default_l_val=.FALSE., &
lone_keyword_l_val=.TRUE.)
CALL section_add_keyword(print_key, keyword)
CALL keyword_release(keyword)
CALL section_add_subsection(section, print_key)
@ -1864,7 +1865,8 @@ CONTAINS
description="Print only the upper triangular part of the matrix. ", &
usage="UPPER_TRIANGULAR {logical}", &
repeats=.FALSE., &
default_l_val=.FALSE.)
default_l_val=.FALSE., &
lone_keyword_l_val=.TRUE.)
CALL section_add_keyword(print_key, keyword)
CALL keyword_release(keyword)
CALL section_add_subsection(section, print_key)