fortran的信號量

Question

任何人都可以幫助寫一個在fortran的信號量函數嗎？我有多個進程正在運行，我必須使用信號同步它們。這樣的代碼可以找到C++等，但我找不到任何這樣的代碼爲fortran。

如果我可以從fortran代碼調用C/C++函數，那也足夠了，因爲C++信號函數已經存在。

PS：（附加說明）以下是適用於C++的代碼。我有一些Fortran應用程序（作爲標準基準的一部分），但沒有信號代碼來同步它們。

int get_semaphore() 
    { 
    int sem_id; 
    sem_id = semget(SEM_ID, 1, IPC_CREAT | 0666); 
if (sem_id == -1) { 
    perror("get_semaphore: semget"); 
    exit(1); 
} 
return sem_id; 
} 


int set_semaphore (int sem_id, int val) 
    { 
    return semctl(sem_id, 0, SETVAL, val); 
    } 

void decrement_semaphore (int sem_id) 
{ 
struct sembuf sem_op; 
sem_op.sem_num = 0; 
sem_op.sem_op = -1; 
sem_op.sem_flg = 0; 
semop(sem_id, &sem_op, 1); 
} 

void wait_semaphore (int sem_id) 
{ 
struct sembuf sem_op; 
sem_op.sem_num = 0; 
sem_op.sem_op = 0; 
sem_op.sem_flg = 0; 
    semop(sem_id, &sem_op, 1); 
    } 

感謝您的幫助提前。

Answer 1

OpenMP在術語「鎖定」下提供信號量。由於OpenMP提供了更高級別的任務構造，因此通常不會使用這些構造，但如果您想自己做，則可以通過Fortran進行顯式鎖定/解鎖。

P.S.如果您想通過調用您已有的C代碼從Fortran來完成，可以通過使用Fortran 2003的ISO C綁定來完成。關於這是如何工作的，這裏有許多問題/答案。我爲您的Fortran程序起草了聲明以匹配C例程。這些告訴Fortran編譯器如何使用C編譯器的調用約定來調用C例程。這些是未經測試的，可能需要調試：

use iso_c_binding 

interface semaphore_stuff 

    function get_semaphore() bind (C, name="get_sempaphore") 
     import 
     integer (c_int) :: get_semaphore 
    end function get_semaphore() 

    function set_semaphore (sem_id, int val) bind (C, name="get_sempaphore") 
     import 
     integer (c_int) :: set_semaphore 
     integer (c_int), intent (in), value :: sem_id 
     integer (c_int), intent (in) value :: val 
    end function set_semaphore 

    subroutine decrement_semaphore (sem_id) bind (C, name="decrement_semaphore") 
     import 
     integer (c_int), intent (in), value :: sem_id 
    end subroutine decrement_semaphore 

    subroutine wait_semaphore (sem_id) bind (C, name="wait_semaphore") 
     import 
     integer (c_int), intent (in), value :: sem_id 
    end subroutine wait_semaphore 

end interface semaphore_stuff