| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| logical, | public | :: | accept | = | .false. | ||
| logical, | public | :: | reject | = | .false. | ||
| integer, | public | :: | operator | = | 0 | ||
| integer, | public | :: | operator_arg | = | 0 | ||
| integer, | public | :: | operator_val | = | 0 | ||
| character(len=:), | public, | allocatable | :: | goto |
type :: rule logical :: accept = .false. logical :: reject = .false. integer :: operator = 0 ! 1:<, 2:> integer :: operator_arg = 0 ! 1:x, 2:m, 3:a, 4:s integer :: operator_val = 0 ! value to compare to character(len=:),allocatable :: goto ! where to next (workflow name) end type rule