| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| logical, | public | :: | ham_have_setup | = | .false. | ||
| logical, | public | :: | have_ham_k | = | .false. | ||
| logical, | public | :: | have_ham_r | = | .false. | ||
| logical, | public | :: | have_translated | = | .false. | ||
| logical, | public | :: | use_translation | = | .false. |
type ham_logical_type logical :: ham_have_setup = .false. logical :: have_ham_k = .false. logical :: have_ham_r = .false. logical :: have_translated = .false. logical :: use_translation = .false. end type ham_logical_type