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 |