如何在OpenMP中为每个线程设置当前工作目录？

Question

我在FORTRAN中有源代码，可以在一个循环中加载共享库的多个实例，因此，我使用OpenMP来使循环并行化。

我的共享库读取一些文件，因此，它使用当前工作目录来构建文件的路径。

如何为每个线程设置当前工作目录？