利用fortran读取MODIS L1B.hdf文件 出错

acgdream

      本人初学fortran，正在做辐射交叉定标，需要读取MODIS L1B文件。本人编译环境 win7  VS2010 + IVF2011，根据说明装了HDF5 Library和HDFEOS5 library， 程序编译也都通过了，只是运行时出现了如下问题，查了很多资料都没找到合适的解决方案，希望论坛里的朋友们能帮忙解决一下，非常感谢！！  主要出现的问题和程序代码我都贴在下边了。

主程序和调用的function

调试过程中，在调用 LeoData%fid = he5_swopen( LeoFile, 101 ) 时 （图中断点处，he5_swopen是hdfeos.lib中的函数），出现“访问异常，写入冲突”的提示。
自己实在是无能为力了，全靠大神们帮忙解决了！！！