| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer, | intent(in) | :: | comm | |||
| class(KeywordEnforcer), | intent(in), | optional | :: | unusable | ||
| integer, | intent(out), | optional | :: | rc |
| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| integer, | public | :: | num_entries | = | 0 | ||
| type(DirectoryEntry), | public | :: | entries(MAX_NUM_PORTS) |
| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| character(len=MAX_LEN_PORT_NAME), | public | :: | port_name | = | '' | ||
| integer, | public | :: | partner_root_rank | = | -1 |
| private function new_DirectoryService (comm, unusable, rc) |
| procedure, public :: connect_to_client | |
| procedure, public :: connect_to_server | |
| procedure, public :: free_directory_resources | |
| procedure, public :: get_directory | |
| procedure, public :: get_win | |
| procedure, public :: publish | |
| procedure, public :: put_directory | |
| procedure, public :: terminate_servers |