Type | Visibility | Attributes | Name | Initial | |||
---|---|---|---|---|---|---|---|
integer, | public | :: | ref_count | = | -1 | ||
integer, | public | :: | id_nr | = | -1 | ||
type(mp_perf_type), | public, | DIMENSION(MAX_PERF) | :: | mp_perfs | = | mp_perf_type() |
TYPE mp_perf_env_type !private INTEGER :: ref_count = -1, id_nr = -1 TYPE(mp_perf_type), DIMENSION(MAX_PERF) :: mp_perfs = mp_perf_type() END TYPE mp_perf_env_type