| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| integer, | public, | parameter | :: | MAX_LEN_PORT_NAME | = | 16 | |
| integer, | public, | parameter | :: | MAX_NUM_PORTS | = | 16 |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| character(len=*), | intent(in) | :: | port_name | |||
| class(BaseServer), | intent(in), | optional, | target | :: | server_ptr |
| procedure(connect_to_client), public, deferred :: connect_to_client | |
| procedure(connect_to_server), public, deferred :: connect_to_server | |
| procedure(free_directory_resources), public, deferred :: free_directory_resources | |
| procedure(publish), public, deferred :: publish |
| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| character(len=MAX_LEN_PORT_NAME), | public | :: | port_name | ||||
| class(BaseServer), | public, | pointer | :: | server_ptr | => | null() |
| private function new_PortInfo (port_name, server_ptr) |