<?xml version="1.0" encoding="utf-8" ?><rss version="2.0"><channel><title><![CDATA[地球屋里老师的博客]]></title><description><![CDATA[]]></description><link>https://blog.csdn.net/lixingwang0913</link><language>zh-cn</language><generator>https://blog.csdn.net/</generator><copyright><![CDATA[Copyright &copy; lixingwang0913]]></copyright><item><title><![CDATA[Fortran日期时间处理模块]]></title><link>https://blog.csdn.net/lixingwang0913/article/details/128191769</link><guid>https://blog.csdn.net/lixingwang0913/article/details/128191769</guid><author>lixingwang0913</author><pubDate>Mon, 05 Dec 2022 20:13:10 +0800</pubDate><description><![CDATA[Fortran自身并不带有日期时间处理函数，故仿照vb.net编写 Mod_DateTime 模块(点击下载)，其中包含两个结构体TimeSpan 和 DateTime。模块内部采用32位整型数据和64位浮点数据，主要功能：1、计算两个时间间隔(TimeSpan类型)之间的时间间隔；2、计算两个时刻(DateTime类型)之间的时间间隔；3、计算与某时刻相距一定时间间隔的时刻。]]></description><category></category></item><item><title><![CDATA[粒子群算法Fortran代码(OMP并行)]]></title><link>https://blog.csdn.net/lixingwang0913/article/details/120252040</link><guid>https://blog.csdn.net/lixingwang0913/article/details/120252040</guid><author>lixingwang0913</author><pubDate>Sun, 12 Sep 2021 16:38:07 +0800</pubDate><description><![CDATA[粒子群算法可用于解决强非线性优化问题，原理较为简单(参加：最优化算法之粒子群算法（PSO）_青萍之末的博客-CSDN博客_粒子群算法)，这里给出Fortran代码实现模块( module POS)。该代码适用于任意参数个数的情况，并采用OpenMP加速计算。

注意：代码求取的是目标函数极小值问题，如需求极大值，需对目标函数objFun取反。


module PSO 
implicit none
contains
!*****************************************...]]></description><category></category></item><item><title><![CDATA[Grd文件格式说明]]></title><link>https://blog.csdn.net/lixingwang0913/article/details/119823334</link><guid>https://blog.csdn.net/lixingwang0913/article/details/119823334</guid><author>lixingwang0913</author><pubDate>Fri, 20 Aug 2021 15:09:28 +0800</pubDate><description><![CDATA[绘图软件Golden Surfer采用的网格文件(grd)主要有Surfer 6 Text、Surfer 6 Binary以及Surfer 7三种存储格式，其中Surfer 6 Text格式以Ascii码存储，可直接用记事本查看，提取、修改数据均较为方便；另外两种格式均以二进制形式存储，不能直接查看和修改，只能使用专门的程序进行操作。目前常用前两种数据格式。为便于读取grd数据，现将以上三种存储格式作简单介绍。

1、Surfer 6 Text文件格式

数据说明：


			行号
			
		...]]></description><category></category></item><item><title><![CDATA[查询文件夹是否存在]]></title><link>https://blog.csdn.net/lixingwang0913/article/details/119697962</link><guid>https://blog.csdn.net/lixingwang0913/article/details/119697962</guid><author>lixingwang0913</author><pubDate>Sat, 14 Aug 2021 11:24:55 +0800</pubDate><description><![CDATA[Fortran标准提供了inquire函数查询文件的状态，但并未提供查询文件夹是否存在的功能，部分编译器会额外提供某些扩展来实现。gfortran将文件夹同样视为文件，因此可通过inquire函数的file参数查询(经测试，linux和win均可)：


program test_gfortran
implicit none
logical isExist
!查询文件夹ab是否存在
inquire(file='ab',exist=isExist)
print*,isExist
end program...]]></description><category></category></item></channel></rss>