Type | Visibility | Attributes | Name | Initial | |||
---|---|---|---|---|---|---|---|
integer, | public, | parameter | :: | random_store_size | = | 5*10**4 | |
real(kind=c_double), | public, | save | :: | random_store(random_store_size) | |||
integer, | public, | save | :: | current_element |
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
integer(kind=c_int32_t), | intent(in), | value | :: | sd |
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
real(kind=c_double), | intent(inout) | :: | ar(*) | |||
integer(kind=c_int), | intent(in), | value | :: | sz |
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
integer, | intent(in) | :: | seed |