
在Fortran中编写一个程序来实现y = 3x - 2的计算,可以通过以下步骤完成:
声明变量
输入x的值
计算y的值
输出y的值
以下是一个简单的Fortran程序示例:
fortranCopy code! y_calculation.f90program y_calculation
implicit none
! 声明变量
real :: x, y
! 输入x的值
print *, "请输入x的值: "
read *, x
! 计算y的值
y = 3.0 * x - 2.0
! 输出y的值
print *, "当x = ", x, "时, y = ", y
end program y_calculation
要编译和运行此程序,请执行以下命令(假设你已经安装了一个Fortran编译器,如GNU Fortran):
bashCopy codegfortran y_calculation.f90 -o y_calculation./y_calculation
这个程序将提示你输入x的值,然后计算并输出y的值。
假设txt文件名为:'test1.txt',里面只有一个整形数字1。可以通过以下程序读取program main
implicit none
integer a
open(unit=11,file='test1.txt',status='old')
read(11,*) a
print*, a
close (11)
end
MPI(message passing interface),是一个消息传递接口。MPI的函数总共有287个。
想实现一个MPI并行计算的程序的话,只要掌握MPI的工作机理和6个简单的MPI函数便可以了,本文介绍4个简单MPI函数:MPI_INIT、MPI_COMM_RANK、MPI_COMM_SIZE和MPI_FINALIZE。
注意:以下调用格式为Fortran格式,大部分教程都是C语言的MPI介绍,这里以及以后的文章都是以Fortran为基础,尤其要注意Fortran不分大小写。
先给出一个最简单的Hello_world的Fortran + MPI的程序,在此基础上来分析MPI的4个最简单的函数——MPI_INIT、MPI_COMM_RANK、MPI_COMM_SIZE和MPI_FINALIZE。
MPI_Init用来初始化MPI执行环境,建立多个MPI进程之间的联系,为后续通信做准备。
MPI_Finalize则是结束MPI执行环境。
MPI_Comm_rank就是来标识各个MPI进程的,告诉调用该函数的进程“我是谁?”。
MPI_COMM_SIZE用来标识相应进程组中有多少个进程。
2.1. 将以上内容保存为hello_world.f90,上传到服务器的文件夹/home/xldeng/mpi里面:
2.2. 编译hello_world.f90为hello_world,并用ls查看内容:
2.3. 使用服务器里面的命令来调用不同的节点上面的核来计算:
3.1 . 注意程序中的一个小细节:
含义为调用mpi的库函数,因为使用的是Intel MPI + Fortran90,所以调用的方式为:use mpi。Fortran77可能需要 include "mpif.h"。
3.2 . 在2.2节中的mpiifort是ifort的并行使用方法,检验mpiifort的用法:which mpiifort或者是mpiifort -v。
3.3 . 在2.3节中的说明:本程序的运行平台为服务器上,所以使用的是 MPI使用指南 | 武汉大学超算中心 中提供的提交方法。如果在单台服务器上面,可以使用如下命令:
来运行程序。
欢迎分享,转载请注明来源:内存溢出
微信扫一扫
支付宝扫一扫
评论列表(0条)