首页
学习
活动
专区
工具
TVP
发布
精选内容/技术社群/优惠产品,尽在小程序
立即前往

在Fortran 90中使用模块内部子程序

在Fortran 90中,可以使用模块内部子程序来实现模块内部的功能封装和代码复用。模块内部子程序是指在模块中定义的子程序,只能在该模块内部被调用,不能被其他模块或程序直接调用。

模块内部子程序的定义方式与普通的子程序类似,但需要在子程序前面加上关键字"CONTAINS",表示该子程序是模块内部的子程序。模块内部子程序可以访问模块中定义的所有变量和常量,包括私有变量和公共变量。

使用模块内部子程序的优势有:

  1. 封装性:模块内部子程序可以将一些功能封装在模块内部,提高代码的可读性和可维护性。
  2. 代码复用:模块内部子程序可以在模块内部被多次调用,实现代码的复用,避免重复编写相同的代码。
  3. 数据共享:模块内部子程序可以访问模块中定义的所有变量和常量,方便数据的共享和传递。

模块内部子程序的应用场景包括但不限于:

  1. 封装复杂的计算逻辑:将复杂的计算逻辑封装在模块内部子程序中,提高代码的可读性和可维护性。
  2. 实现特定功能的子程序:将一些特定功能的子程序封装在模块内部,方便其他程序调用。
  3. 数据处理和转换:对模块内部的数据进行处理和转换的操作可以封装在模块内部子程序中。

腾讯云相关产品和产品介绍链接地址: 腾讯云提供了丰富的云计算产品和服务,包括云服务器、云数据库、云存储等。以下是一些与Fortran 90开发相关的腾讯云产品和产品介绍链接地址:

  1. 云服务器(CVM):提供弹性计算能力,支持多种操作系统和编程语言。产品介绍链接
  2. 云数据库MySQL版(CDB):提供稳定可靠的云数据库服务,支持高性能的数据存储和访问。产品介绍链接
  3. 云存储(COS):提供安全可靠的对象存储服务,适用于存储和管理各种类型的数据。产品介绍链接

请注意,以上只是腾讯云提供的一些与Fortran 90开发相关的产品和服务,还有其他更多的产品和服务可供选择。

页面内容是否对你有帮助?
有帮助
没帮助

相关·内容

CMake 秘籍(五)

每个项目都必须处理依赖关系,而 CMake 使得在配置项目的系统上查找这些依赖关系变得相对容易。第三章,检测外部库和程序,展示了如何在系统上找到已安装的依赖项,并且到目前为止我们一直使用相同的模式。然而,如果依赖关系未得到满足,我们最多只能导致配置失败并告知用户失败的原因。但是,使用 CMake,我们可以组织项目,以便在系统上找不到依赖项时自动获取和构建它们。本章将介绍和分析ExternalProject.cmake和FetchContent.cmake标准模块以及它们在超级构建模式中的使用。前者允许我们在构建时间获取项目的依赖项,并且长期以来一直是 CMake 的一部分。后者模块是在 CMake 3.11 版本中添加的,允许我们在配置时间获取依赖项。通过超级构建模式,我们可以有效地利用 CMake 作为高级包管理器:在您的项目中,您将以相同的方式处理依赖项,无论它们是否已经在系统上可用,或者它们是否需要从头开始构建。接下来的五个示例将引导您了解该模式,并展示如何使用它来获取和构建几乎任何依赖项。

02

爬虫之异步协程学习总结

协程:英文名(Coroutine),又称为微线程,线程是系统级别的,它们由操作系统调度。而协程则是程序级别的由程序根据需要自己调度。在一个线程中会有很多函数,我们把这些函数称为子程序,在子程序执行过程中可以中断去执行别的子程序,而别的子程序也可以中断回来继续执行之前的子程序,这个过程就称为协程。也就是说在同一线程内一段代码在执行过程中会中断然后跳转执行别的代码,接着在之前中断的地方继续开始执行,类似与yield操作。 通俗易懂的说协程就是通过一个线程来实现代码块(函数)之间的切换执行。 协程函数:函数前面加上async即为协程函数,比如:async def function()。 协程对象:执行协程函数得到的协程对象。执行协程函数创建协程对象,函数内部代码不会执行。

01

ADINA常见问题解答

Q:怎样改进ADINA-AUI 中实体的显示效果?  A:在某些情况下,ADINA-AUI 显示的实体在边界上不光滑,这仅仅是显示的问题,并不影响几何尺寸的精确度。为了改进显示的效果, 1 点击Modify Mesh Plot 。 2 点击Line Depiction 。 3 将ADINA-M Chord Angle 由默认的0.4改为0.1 并且点击OK。 4 点击Surface Depiction 。 5将ADINA-M Chord Angle 由默认的0.4改为0.1 并且点击OK。 6 点击OK,关闭Modify Mesh Plot 对话框。 Q:为什么AUI 的图形功能在我的计算机上不能正常的工作?  A:有些计算机的显卡在Open GL 图形系统中不能正常的工作。请切换到Windows GDI 图形系统,在Edit 菜单中,点击Graphics System ,然后选择Windows GDI 图形系统。 Q:当我从ADINA-AUI 打印文件时,为什么打印不出来任何结果?  A:注意只有Windows 版本才会发生这样的问题。 当使用Open GL 图形方式时,有的打印机会出现上述问题。为解决该问题,当打印的时候,选择Windows GDI 图形方式。从菜单Edit > Graphics System… 中选择Windows GDI 作为图形系统,然后开始打印。 注意打印结束后,可以将图形系统切换回Open GL 以便获得更快的图形效果。 Q:为什么安装了浮动License(Floating Industry或者Floating Educational)后,Adina无法启动? A:如果安装过程正确,而且电脑上的防火墙不阻止Adina读取服务器上的License,那么这样的问题一般是由于计算机使用了中文名。不论是Adina的服务器还是Adina客户端,都不允许使用中文计算机名。 Q:如何将壳单元厚度显示出来? A:在Display-->Geometry/Mesh Plot-->Modify打开的窗口中点击Element Depiction,在新打开的窗口中的Shell Element Attributes域中选择Top/Bottom(默认是Mid-Surface)。

01

【参赛经验分享】智能导盲杖设计

摘 要:中国的盲人数量占全球盲人数量比重很大,盲人在日常交通和生活活动中都受到很大限制,盲人对于出行有很大的困扰。本篇论文利用超声波测距原理解决盲人出行问题。本文首先介绍了国内外定位的发展现状和发展趋势,其次对硬件进行选型和硬件外围电路设计,对硬件电路部分的各个模块做了详细设计说明,包括单片机最小系统、电源电路、超声波测距电路、GPS模块电路、GSM模块电路、报警电路、显示电路以及语音播放电路。根据所画流程框图编写程序,再通过仿真电路图进行调试。通过实验表明,本系统能实现距离的实时测量、语音播报、紧急报警的功能。经测试本系统具有硬件结构简单、成本低、工作可靠、流程清晰、精度高、易于推广的优点。

03
领券