Fortran openmp并行打开多个文件

思路

计算中需要读取几十GB的文件（文件大概有100个），顺序读取太慢，想用并行试试。6核读取时间将近缩短了5倍，效果极其满意。
python读取文件夹下所有同一类文件名name，将这些文件名写入多个文件file下，fortran循环读取file下name，依据name变量读取文件夹下所有同一类文件内容。将多个文件file记为循环变量i，采用openmp 设定线程数=i，从而并行读取文件。
服务器硬盘采用RAID 5，理论上可获得极好的读写效率。

python获取文件名并放在一些文件内

#!/usr/bin/env python3
from ase.data import
1