The file FM_parallel.f95 contains the thread-safe version of the FM package.
Here are some more details.
There are two sample programs below giving examples of using FM for parallel calculations.
The actual files shown on this page are in this archive that contains all the FM files from this
The individual file pointers here display as pdf files for browsing. The longer files are cut
off after 20 pages.
Subroutine library for multiple-precision parallel operations. 103,981 lines of code
Small sample program using coarrays with fm_parallel.f95. 524 lines of code
Small sample program using openmp with fm_parallel.f95. 501 lines of code
Expected output from the sample programs. Times can vary. 78 lines
Checks operations using coarrays for many of the fm_parallel routines. 1,851 lines of code
Checks operations using openmp for many of the fm_parallel routines. 1,841 lines of code
User's guide for the package, along with a list of the files, and an example set of
compiler/linker commands for building the programs. 111 lines