| Type | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|
| character(len=*), | parameter | :: | types | = | 'ITLJSZOD' | |
| integer, | parameter | :: | Ntypes | = | len(types) | |
| real, | parameter | :: | rtol | = | 0.05 | |
| real | :: | ideal | ||||
| character, | allocatable | :: | b(:) | |||
| real, | allocatable | :: | e(:) | |||
| integer, | allocatable | :: | f(:) | |||
| integer, | allocatable | :: | g(:) | |||
| integer | :: | i | ||||
| integer | :: | n | ||||
| integer | :: | c(Ntypes) | ||||
| integer | :: | u | ||||
| character(len=16) | :: | buf |