| Type | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|
| integer(kind=int32), | parameter | :: | sample | = | 2**11 | |
| real(kind=real64), | parameter | :: | dt | = | 0.0010d0 | |
| type(Random_) | :: | random | ||||
| type(IO_) | :: | f | ||||
| type(IO_) | :: | z | ||||
| type(Math_) | :: | Math | ||||
| integer(kind=int32) | :: | i | ||||
| integer(kind=int32) | :: | n | ||||
| integer(kind=int32) | :: | nn | ||||
| integer(kind=int32) | :: | count | ||||
| real(kind=real64) | :: | g_n | ||||
| real(kind=real64) | :: | g_nn | ||||
| real(kind=real64) | :: | period | ||||
| real(kind=real64) | :: | period_list(sample) | ||||
| complex(kind=kind(0d0)), | allocatable | :: | wave(:) | |||
| real(kind=real64) | :: | spectre(sample) | ||||
| real(kind=real64) | :: | t | ||||
| real(kind=real64), | allocatable | :: | histogram(:,:) |