<?xml version="1.0" encoding="utf-8"?>
<rss version="2.0">
  <channel>
    <title>Fortran Coder - Fortran算法研究</title>
    <link>http://bbs.fcode.cn/forum-algorithm-1.html</link>
    <description>Latest 20 threads of Fortran算法研究</description>
    <copyright>Copyright(C) Fortran Coder</copyright>
    <generator>Discuz! Board by Comsenz Inc.</generator>
    <lastBuildDate>Sun, 09 Aug 2026 01:09:19 +0000</lastBuildDate>
    <ttl>60</ttl>
    <image>
      <url>http://bbs.fcode.cn/static/image/common/logo_88_31.gif</url>
      <title>Fortran Coder</title>
      <link>http://bbs.fcode.cn/</link>
    </image>
    <item>
      <title>求助大佬帮忙编写热弹流程序，有偿</title>
      <link>http://bbs.fcode.cn/thread-3907-1-1.html</link>
      <description><![CDATA[具体要求如下：帮忙编写共形接触和线接触耦合的热弹流程序，一段是共形接触，一段是线接触，流体是连续的，最好能注释一下每段程序的含义。]]></description>
      <category>Fortran算法研究</category>
      <author>Y15617565356</author>
      <pubDate>Thu, 14 Aug 2025 03:00:12 +0000</pubDate>
    </item>
    <item>
      <title>OpenBLAS在c++、Fortran中效率差距这么大？</title>
      <link>http://bbs.fcode.cn/thread-3872-1-1.html</link>
      <description><![CDATA[OpenBLAS在c++、Fortran中的差距这么大？ 是因为OpenBLAS基于C编写吗？


MinGW 编译生成 BLAS/LAPACK、 OpenBLAS两个库。
g++ gFortran 分别用这两个库，矩阵求逆、乘法等操。 算法完全相同。

运行时间：（秒）
                       G++       GFortran
BLAS/LAPAC ...]]></description>
      <category>Fortran算法研究</category>
      <author>gps99</author>
      <pubDate>Thu, 08 May 2025 05:43:21 +0000</pubDate>
    </item>
    <item>
      <title>fortran程序+mpi提高计算速度</title>
      <link>http://bbs.fcode.cn/thread-3868-1-1.html</link>
      <description><![CDATA[fortran程序+mpi提高计算速度,有偿请教]]></description>
      <category>Fortran算法研究</category>
      <author>465544575</author>
      <pubDate>Mon, 14 Apr 2025 02:58:19 +0000</pubDate>
    </item>
    <item>
      <title>热弹流润滑的温度计算问题</title>
      <link>http://bbs.fcode.cn/thread-3865-1-1.html</link>
      <description><![CDATA[黄平老师的热弹流点接触程序运行后，发现温度输出都为0遂找温度T的相关参数倒推：子程序TRA3中的D（I），B（I,K）到TCAL中的A（I,K），R(K)一直为1,  A2和A5在第一次循环后趋于零...
发现这中间值都在第一次循环后归零或者趋于零，并且循环中温度各梯度没有变化
TRA3中 ...]]></description>
      <category>Fortran算法研究</category>
      <author>charaderrrrr</author>
      <pubDate>Tue, 08 Apr 2025 08:58:18 +0000</pubDate>
    </item>
    <item>
      <title>有偿求助正弦波拟合算法</title>
      <link>http://bbs.fcode.cn/thread-3856-1-1.html</link>
      <description><![CDATA[1、给定N个不（等距）离散采样数据（x_i,y_i)）；采用正弦波函数y(x)=A*sin(2*pi*f*x+fai)+C进行最小二乘法拟合，提取信号中的主导正弦成分参数，保证残差最小，A对应为振幅，f对应频率，fai 对应初始相位角，C对应直流偏移量（均值确定）；2、算法流程如下：2.1采用Lom ...]]></description>
      <category>Fortran算法研究</category>
      <author>天马行空</author>
      <pubDate>Thu, 06 Mar 2025 16:10:41 +0000</pubDate>
    </item>
    <item>
      <title>數值方法與程式(林聰悟-林佳慧)</title>
      <link>http://bbs.fcode.cn/thread-3855-1-1.html</link>
      <description><![CDATA[引薦一本 我心中的 萬世師表: [數值方法與程式(林聰悟-林佳慧)]]]></description>
      <category>Fortran算法研究</category>
      <author>chiangtp</author>
      <pubDate>Sun, 23 Feb 2025 04:59:11 +0000</pubDate>
    </item>
    <item>
      <title>问DeepSeek的第一个问题</title>
      <link>http://bbs.fcode.cn/thread-3848-1-1.html</link>
      <description><![CDATA[问DeepSeek的第一个问题
​回答完美！]]></description>
      <category>Fortran算法研究</category>
      <author>weixing1531</author>
      <pubDate>Tue, 28 Jan 2025 15:21:51 +0000</pubDate>
    </item>
    <item>
      <title>python调用f90子程序前后数据不一</title>
      <link>http://bbs.fcode.cn/thread-3811-1-1.html</link>
      <description><![CDATA[求救各位大佬！！！驱动子程序的输入变量来自一个nc文件，我使用nc.variables读取了相应变量，也print了他的最小值最大值，大概是-1.8~160之间。但是我在子程序里print *, via(s,t,z)的时候，出来的值是2万多，对不上我设置的输入变量。子程序里我设置的是real*8,dimens ...]]></description>
      <category>Fortran算法研究</category>
      <author>jeason</author>
      <pubDate>Wed, 23 Oct 2024 03:21:32 +0000</pubDate>
    </item>
    <item>
      <title>如何实现读取相同Node的数据，计算得到新数据</title>
      <link>http://bbs.fcode.cn/thread-3799-1-1.html</link>
      <description><![CDATA[求解每个node，找到在sxyz01~sxyz05中I=sx的平方+sy的平方+sz的平方的最大值，并生成一个新的文件，（Node，Imax）]]></description>
      <category>Fortran算法研究</category>
      <author>鱼自游</author>
      <pubDate>Sat, 31 Aug 2024 01:45:14 +0000</pubDate>
    </item>
    <item>
      <title>有偿求购NURBS拟合算法接口或程序</title>
      <link>http://bbs.fcode.cn/thread-3794-1-1.html</link>
      <description><![CDATA[现有空间曲面点云数据(Xi,Yi,Zi),(i=1,2,..N) , 求助可以根据点云数据，确定曲面拟合的接口函数（如NURBS曲面），请问有没有朋友做过类似的接口或者有相关的经验，可以提供ForTRan语言对应的接口或者函数不？我在网上找了下，关于Fortran的接口很少，关于C++的很多，比 ...]]></description>
      <category>Fortran算法研究</category>
      <author>天马行空</author>
      <pubDate>Wed, 14 Aug 2024 14:39:11 +0000</pubDate>
    </item>
    <item>
      <title>随机数生成无变化</title>
      <link>http://bbs.fcode.cn/thread-3761-1-1.html</link>
      <description><![CDATA[大家好，

这是我写的一段小程序，用以在一个四方形的盒子里生成一定数量的结构，这些结构彼此相同，但在盒子里生成的位置是随机的，这些结构的朝向也是随机的（也就是在三维空间中，随机的旋转了一定的角度）。

程序如下。
[mw_shl_code=fortran,true]SUBROUTINE MUL( ...]]></description>
      <category>Fortran算法研究</category>
      <author>Kieran</author>
      <pubDate>Fri, 21 Jun 2024 03:39:27 +0000</pubDate>
    </item>
    <item>
      <title>无规律随机生成方法</title>
      <link>http://bbs.fcode.cn/thread-3760-1-1.html</link>
      <description><![CDATA[大家好，

我想请教下。

Fortran自带的内建函数rand(x)，ran(x)，irand(x)，random_number()和random_seed()都可以生成随机数，但这些随机数都是按一定规律生成；如，均匀分布或正态分布。但生成的随机数数量足够大的时候，是可以看到一个规律的分布的。

我想请问下， ...]]></description>
      <category>Fortran算法研究</category>
      <author>Kieran</author>
      <pubDate>Wed, 19 Jun 2024 08:46:18 +0000</pubDate>
    </item>
    <item>
      <title>怎么把一个大数组的数据尽量平均地分成几组？</title>
      <link>http://bbs.fcode.cn/thread-3759-1-1.html</link>
      <description><![CDATA[多GPU处理同一个大型数组时，我想尽量地把这个数组的数据平均分成几个部分，每个GPU负责处理一部分，但是因为这个数组的大小并不确定，并不一定是GPU数量的整数倍，所以直接相除并不总得到整数。不知道大家有没有遇到类似这种问题，可否提供一下思路，或者参考代码就可 ...]]></description>
      <category>Fortran算法研究</category>
      <author>静待花开</author>
      <pubDate>Tue, 18 Jun 2024 13:29:57 +0000</pubDate>
    </item>
    <item>
      <title>进行LU分解时代入初始化矩阵数据存在精度丢失</title>
      <link>http://bbs.fcode.cn/thread-3758-1-1.html</link>
      <description><![CDATA[[mw_shl_code=fortran,true]    program main
    integer,parameter::sp = selected_real_kind(15)
    real(kind=sp)::mat_1(3)
    real(kind=sp) matrix_A1(2,2)
    real(kind=sp) matrix_A(7,7),L(7,7),U(7,7)
    integer*4 n,i
    !call ieee_set_rounding_mo]]></description>
      <category>Fortran算法研究</category>
      <author>David.C.J</author>
      <pubDate>Sun, 16 Jun 2024 12:40:19 +0000</pubDate>
    </item>
    <item>
      <title>如何从PDF格式的文件的中抽取数据</title>
      <link>http://bbs.fcode.cn/thread-3757-1-1.html</link>
      <description><![CDATA[大家好，

我想请教下。

我想从下面的这篇PDF格式的文献（Xue Jiang, Yong Wang, Baorui Jia, Xuanhui Qu and Mingli Qin, Prediction of Oxygen Evolution Activity for NiCoFe Oxide Catalysts via Machine Learning, ACS Omega 2022, 7, 14160−14164）的supportig  ...]]></description>
      <category>Fortran算法研究</category>
      <author>Kieran</author>
      <pubDate>Sun, 16 Jun 2024 08:00:46 +0000</pubDate>
    </item>
    <item>
      <title>字符串提取数据的4种方法</title>
      <link>http://bbs.fcode.cn/thread-3756-1-1.html</link>
      <description><![CDATA[例如从字符串\&quot;SetColor(255,30,58)\&quot;提取255，30，58这三个整数

方法1、方法2为Fortran方法，利用read,index
方法3、方法4为C语言方法，利用函数sscanf,strtok

[mw_shl_code=fortran,true]program main
    use iso_c_binding
    implicit none

    interface
       ...]]></description>
      <category>Fortran算法研究</category>
      <author>weixing1531</author>
      <pubDate>Sun, 16 Jun 2024 05:28:16 +0000</pubDate>
    </item>
    <item>
      <title>语法求助！！</title>
      <link>http://bbs.fcode.cn/thread-3748-1-1.html</link>
      <description><![CDATA[这个报错是怎么回事？请大佬指教]]></description>
      <category>Fortran算法研究</category>
      <author>顺利就好</author>
      <pubDate>Wed, 05 Jun 2024 05:52:37 +0000</pubDate>
    </item>
    <item>
      <title>Fortran调用C语言排序函数qsort</title>
      <link>http://bbs.fcode.cn/thread-3742-1-1.html</link>
      <description><![CDATA[众所周知， Fortran标准目前没有排序子程序，但可通过4种途径进行排序：
1.祖传代码，如NR中sort.f90；
2.编译器扩展功能；
3.第三方库，如Dislin提供的sortr1子程序；
4.混合编程。

C语言标准有排序函数qsort，头文件为stdlib.h（绝对不公平）。
Fortran通过iso_c_bin ...]]></description>
      <category>Fortran算法研究</category>
      <author>weixing1531</author>
      <pubDate>Sat, 25 May 2024 16:44:36 +0000</pubDate>
    </item>
    <item>
      <title>几种排序算法对比</title>
      <link>http://bbs.fcode.cn/thread-3734-1-1.html</link>
      <description><![CDATA[NR祖传代码还是牛，计算速度比C语言标准函数qsort快一倍！]]></description>
      <category>Fortran算法研究</category>
      <author>weixing1531</author>
      <pubDate>Wed, 22 May 2024 14:26:40 +0000</pubDate>
    </item>
    <item>
      <title>数据累加误差</title>
      <link>http://bbs.fcode.cn/thread-3711-1-1.html</link>
      <description><![CDATA[大家好，

我想向大家请一个问题。

我用双精度的数组从一个源文件中读取浮点数，方式如下。
[mw_shl_code=fortran,true]INTEGER，PARAMETER :: dp = SELECTED_REAL_KIND(15,14)

REAL (KIND=dp) :: arr(100,3)

INTEGER :: i

OPEN (UNIT=3, FILE=\'filename.dat\', STAT ...]]></description>
      <category>Fortran算法研究</category>
      <author>Kieran</author>
      <pubDate>Tue, 30 Apr 2024 00:11:44 +0000</pubDate>
    </item>
  </channel>
</rss>