fortran语言中 real float

时间: 2023-07-02 20:18:09 浏览: 145
在 Fortran 语言中,`REAL` 是一种数据类型,用于表示实数,包括浮点数和双精度数。Fortran 支持多种实数数据类型,包括 `REAL`、`REAL*4`、`REAL*8` 等,其中 `REAL` 可以自动根据编译器和机器环境来选择适当的数据类型。 `FLOAT` 不是 Fortran 语言中的关键字或数据类型。在某些其他编程语言中,`FLOAT` 可能用于表示单精度浮点数,但在 Fortran 中,如果需要使用单精度浮点数,可以使用 `REAL*4` 数据类型。 例如,以下是一个使用 `REAL` 类型的变量 `x` 的 Fortran 代码示例: ```fortran program example implicit none real :: x x = 3.14159 print *, "x = ", x end program example ``` 在上面的代码中,`x` 是一个 `REAL` 类型的变量,存储了一个浮点数值 3.14159。`print` 语句将输出 `x` 的值。 如果您希望使用单精度浮点数,则可以使用 `REAL*4` 数据类型: ```fortran program example implicit none real*4 :: x x = 3.14159 print *, "x = ", x end program example ``` 在上面的代码中,`x` 是一个 `REAL*4` 类型的变量,存储了一个单精度浮点数值 3.14159。`print` 语句将输出 `x` 的值。

相关推荐

Fortran程序: parameter(pi=3.1415926535) real kn real,allocatable :: vs(:,:),vf(:,:) a=1234.; n0=7; ny=100; u0=1. b=a/float(n0); ds=b/float(ny); nx=n0*ny errs=1.e-6; errf=1.e-6 allocate(vs(0:nx,0:ny),vf(0:nx,0:ny)) vs=0.; vs(1:nx-1,ny)=u0; vf=vs !---------------------------------------------------------- open(1,file='nvs.dat') do i=1,nx-1; x=float(i)*ds do j=1,ny-1; y=float(j)*ds err=1.; nc=0 do while(err.gt.errs) fnc=2.*float(nc)+1.; kn=pi*fnc/a t=sin(kn*x)*(1.-exp(-2.*kn*y))/(fnc*(exp(kn*(b-y))-exp(-kn*(b+y)))) err=abs(t) vs(i,j)=vs(i,j)+t nc=nc+1 enddo write(1,*) x,y,nc vs(i,j)=vs(i,j)*(4.*u0/pi) enddo enddo close(1) open(1,file='vs.dat') do i=0,nx; x=float(i)*ds do j=0,ny; y=float(j)*ds write(1,*) x,y,vs(i,j) enddo enddo close(1) !---------------------------------------------------------- err=1. do while(err.gt.errf) do i=1,nx-1; x=float(i)*ds do j=1,ny-1; y=float(j)*ds t=0.25*(vf(i+1,j)+vf(i-1,j)+vf(i,j+1)+vf(i,j-1)) if(i.ne.1.or.j.ne.1) then err0=abs(t-vf(i,j)); err=amax1(err,err0) else err=abs(t-vf(i,j)) endif vf(i,j)=t enddo enddo enddo open(1,file='vf.dat') do i=0,nx; x=float(i)*ds do j=0,ny; y=float(j)*ds write(1,*) x,y,vf(i,j) enddo enddo close(1) !--------------------------- a0=0.5*a; b0=0.8*b open(1,file='a0.dat'); open(2,file='b0.dat') i=nint(a0/ds); do j=0,ny; write(1,*) float(j)*ds,vs(i,j),vf(i,j); enddo; close(1) j=nint(b0/ds); do i=0,nx; write(2,*) float(i)*ds,vs(i,j),vf(i,j); enddo; close(2) !--------------------------- write(*,*) err,i0,j0 deallocate(vs,vf) stop end

最新推荐

recommend-type

Fortran语言MPI程序设计

此文档描述了Fortran上mpi的使用。 Fortran語言 1 MPI 平行計算程式設計 1 第一章 前言 5 1.1 MPI 平行計算軟體 6 1.2 國家高速網路與計算中心的平行計算環境 7 1.3 在IBM 電腦系統上如何使用MPI 8 1.3.1 IBM 電腦...
recommend-type

批处理fortran77转fortran90格式

批处理fortran77转fortran90格式. 由于f77不支持可变数组,导致想添加的功能不能实现,于是想把整个工程从77转成90。有同学推荐,直接在f77的模式下强行把f90的功能加进去(比如可变数组,module等),然后用...
recommend-type

Fortran语言编程指南(适合入门者使用)

本教程适合所有想一窥Fortran语言门径的朋友翻阅。本资源篇幅短小,内容紧凑,文字通俗易懂,是一本学习Fortran语言的优秀读物
recommend-type

zigbee-cluster-library-specification

最新的zigbee-cluster-library-specification说明文档。
recommend-type

管理建模和仿真的文件

管理Boualem Benatallah引用此版本:布阿利姆·贝纳塔拉。管理建模和仿真。约瑟夫-傅立叶大学-格勒诺布尔第一大学,1996年。法语。NNT:电话:00345357HAL ID:电话:00345357https://theses.hal.science/tel-003453572008年12月9日提交HAL是一个多学科的开放存取档案馆,用于存放和传播科学研究论文,无论它们是否被公开。论文可以来自法国或国外的教学和研究机构,也可以来自公共或私人研究中心。L’archive ouverte pluridisciplinaire
recommend-type

实现实时数据湖架构:Kafka与Hive集成

![实现实时数据湖架构:Kafka与Hive集成](https://img-blog.csdnimg.cn/img_convert/10eb2e6972b3b6086286fc64c0b3ee41.jpeg) # 1. 实时数据湖架构概述** 实时数据湖是一种现代数据管理架构,它允许企业以低延迟的方式收集、存储和处理大量数据。与传统数据仓库不同,实时数据湖不依赖于预先定义的模式,而是采用灵活的架构,可以处理各种数据类型和格式。这种架构为企业提供了以下优势: - **实时洞察:**实时数据湖允许企业访问最新的数据,从而做出更明智的决策。 - **数据民主化:**实时数据湖使各种利益相关者都可
recommend-type

云原生架构与soa架构区别?

云原生架构和SOA架构是两种不同的架构模式,主要有以下区别: 1. 设计理念不同: 云原生架构的设计理念是“设计为云”,注重应用程序的可移植性、可伸缩性、弹性和高可用性等特点。而SOA架构的设计理念是“面向服务”,注重实现业务逻辑的解耦和复用,提高系统的灵活性和可维护性。 2. 技术实现不同: 云原生架构的实现技术包括Docker、Kubernetes、Service Mesh等,注重容器化、自动化、微服务等技术。而SOA架构的实现技术包括Web Services、消息队列等,注重服务化、异步通信等技术。 3. 应用场景不同: 云原生架构适用于云计算环境下的应用场景,如容器化部署、微服务
recommend-type

JSBSim Reference Manual

JSBSim参考手册,其中包含JSBSim简介,JSBSim配置文件xml的编写语法,编程手册以及一些应用实例等。其中有部分内容还没有写完,估计有生之年很难看到完整版了,但是内容还是很有参考价值的。
recommend-type

"互动学习:行动中的多样性与论文攻读经历"

多样性她- 事实上SCI NCES你的时间表ECOLEDO C Tora SC和NCESPOUR l’Ingén学习互动,互动学习以行动为中心的强化学习学会互动,互动学习,以行动为中心的强化学习计算机科学博士论文于2021年9月28日在Villeneuve d'Asq公开支持马修·瑟林评审团主席法布里斯·勒菲弗尔阿维尼翁大学教授论文指导奥利维尔·皮耶昆谷歌研究教授:智囊团论文联合主任菲利普·普雷教授,大学。里尔/CRISTAL/因里亚报告员奥利维耶·西格德索邦大学报告员卢多维奇·德诺耶教授,Facebook /索邦大学审查员越南圣迈IMT Atlantic高级讲师邀请弗洛里安·斯特鲁布博士,Deepmind对于那些及时看到自己错误的人...3谢谢你首先,我要感谢我的两位博士生导师Olivier和Philippe。奥利维尔,"站在巨人的肩膀上"这句话对你来说完全有意义了。从科学上讲,你知道在这篇论文的(许多)错误中,你是我可以依
recommend-type

实现实时监控告警系统:Kafka与Grafana整合

![实现实时监控告警系统:Kafka与Grafana整合](https://imgconvert.csdnimg.cn/aHR0cHM6Ly9tbWJpei5xcGljLmNuL21tYml6X2pwZy9BVldpY3ladXVDbEZpY1pLWmw2bUVaWXFUcEdLT1VDdkxRSmQxZXB5R1lxaWNlUjA2c0hFek5Qc3FyRktudFF1VDMxQVl3QTRXV2lhSWFRMEFRc0I1cW1ZOGcvNjQw?x-oss-process=image/format,png) # 1.1 Kafka集群架构 Kafka集群由多个称为代理的服务器组成,这