| Type | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|
| double precision | :: | choice1_exp | ||||
| double precision | :: | choice2_exp | ||||
| double precision | :: | choice2_coef | ||||
| double precision | :: | eta_cutoff | ||||
| double precision | :: | etamax | ||||
| double precision | :: | thmin | ||||
| double precision | :: | thmax | ||||
| double precision | :: | etafixed |
| Type | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|
| integer | :: | iplvl | ||||
| integer | :: | ipunit |
| Type | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|
| double precision, | parameter | :: | one | = | 1.0d0 | |
| double precision, | parameter | :: | two | = | 2.0d0 | |
| double precision, | parameter | :: | rtfiv | = | 2.23606797749978981 | |
| double precision, | parameter | :: | tenth | = | 0.10d0 | |
| double precision, | parameter | :: | half | = | 0.50d0 | |
| double precision, | parameter | :: | fournines | = | one-1.0d-4 | |
| double precision, | parameter | :: | DFLT_CHOICE1_EXP | = | (one+rtfiv)*half | |
| double precision, | parameter | :: | DFLT_CHOICE2_EXP | = | two | |
| double precision, | parameter | :: | DFLT_CHOICE2_COEF | = | one | |
| double precision, | parameter | :: | DFLT_ETA_CUTOFF | = | tenth | |
| double precision, | parameter | :: | DFLT_ETA_MAX | = | fournines | |
| double precision, | parameter | :: | DFLT_THMIN | = | tenth | |
| double precision, | parameter | :: | DFLT_THMAX | = | half | |
| double precision, | parameter | :: | DFLT_ETA_FIXED | = | tenth | |
| integer, | parameter | :: | DFLT_PRLVL | = | 0 | |
| integer, | parameter | :: | STDOUT | = | 6 |