Closes named semaphore. On error, the routine sets argument error
to the following error codes:
E_NULL if semaphore pointer is not associated.E_SYSTEM if system call to close semaphore failed.| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| type(sem_named_type), | intent(inout) | :: | sem |
Semaphore type. |
||
| integer, | intent(out), | optional | :: | error |
Error code. |