Fortran 接收命令行参数遇到的问题

最新推荐文章于 2022-09-19 17:53:32 发布
最新推荐文章于 2022-09-19 17:53:32 发布 862 收藏
分类专栏： Fortran
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/zhuiyuanzhongjia/article/details/99957193
版权

Fortran 中接收命令行参数时，第0个参数是程序本身，第1个参数才是开始了真正的输入参数。这种对应关系是严格的。所以赋值时必须注意！！！

以下代码是ap8ae8参数输入部分：

i=0
      DO
      CALL get_command_argument(i,crg)
      IF(LEN_TRIM(crg)==0)EXIT
      WRITE(*,*)i,crg
      IF(i==1) THEN
          OutputFileName=crg
          WRITE(*,*)OutputFileName
!      ELSE IF(i==2) THEN
!          Read(crg,*)lenOfOutputFileName
      ELSE IF(i==2) THEN
          Read(crg,*)coordType
      ELSE IF(i==3) THEN
          Read(crg,*)L_FROMFILE_Start
      ELSE IF(i==4) THEN
          Read(crg,*)L_FROMFILE_End
      ELSE IF(i==5) THEN
          Read(crg,*)L_FROMFILE_Gap
      ELSE IF(i==6) THEN
          Read(crg,*)BB0_FROMFILE_Start
      ELSE IF(i==7) THEN
          Read(crg,*)BB0_FROMFILE_End
      ELSE IF(i==8) THEN
          Read(crg,*)BB0_FROMFILE_Gap
      ELSE IF(i==9) THEN
          Read(crg,*)xlatStart
      ELSE IF(i==10) THEN
          Read(crg,*)xlatEnd
      ELSE IF(i==11) THEN
          Read(crg,*)xlatGap
      ELSE IF(i==12) THEN
          Read(crg,*)xlongStart
      ELSE IF(i==13) THEN
          Read(crg,*)xlongEnd
      ELSE IF(i==14) THEN
          Read(crg,*)xlongGap
      ELSE IF(i==15) THEN
          Read(crg,*)yearStart
     ELSE IF(i==16) THEN
          Read(crg,*)yearEnd
      ELSE IF(i==17) THEN
          Read(crg,*)yearGap
      ELSE IF(i==18) THEN
          Read(crg,*)heightStart
      ELSE IF(i==19) THEN
          Read(crg,*)heightEnd
      ELSE IF(i==20) THEN
          Read(crg,*)heightGap
      ELSE IF(i==21) THEN
          Read(crg,*)MODEL
      ELSE IF(i==22) THEN
          Read(crg,*)FLUXTYPE
      ELSE IF(i==23) THEN
          Read(crg,*)E1
      ELSE IF(i==24) THEN
          Read(crg,*)E2
      ELSE
          Write(*,*)'hello'
      END IF
      i=i+1
      END DO
程序命令行运行：

./ap8ae8 tomm.txt  1 1 5 1 1 5 1 1 1 1 2 2 2 2000 2000 1 10 10 1 1 1 4 8 

以上代码和命令是正确的，可以看到输出结果，是从第0个参数开始：

但是如果写成如下代码：

i=1
      DO
      CALL get_command_argument(i,crg)
      IF(LEN_TRIM(crg)==0)EXIT
      WRITE(*,*)i,crg
      IF(i==1) THEN
          OutputFileName=crg
          WRITE(*,*)OutputFileName
!      ELSE IF(i==2) THEN
!          Read(crg,*)lenOfOutputFileName
      ELSE IF(i==2) THEN
          Read(crg,*)coordType
      ELSE IF(i==3) THEN
          Read(crg,*)L_FROMFILE_Start
      ELSE IF(i==4) THEN
          Read(crg,*)L_FROMFILE_End
      ELSE IF(i==5) THEN
          Read(crg,*)L_FROMFILE_Gap
      ELSE IF(i==6) THEN
          Read(crg,*)BB0_FROMFILE_Start
      ELSE IF(i==7) THEN
          Read(crg,*)BB0_FROMFILE_End
      ELSE IF(i==8) THEN
          Read(crg,*)BB0_FROMFILE_Gap
      ELSE IF(i==9) THEN
          Read(crg,*)xlatStart
      ELSE IF(i==10) THEN
          Read(crg,*)xlatEnd
      ELSE IF(i==11) THEN
          Read(crg,*)xlatGap
      ELSE IF(i==12) THEN
          Read(crg,*)xlongStart
      ELSE IF(i==13) THEN
          Read(crg,*)xlongEnd
      ELSE IF(i==14) THEN
          Read(crg,*)xlongGap
      ELSE IF(i==15) THEN
          Read(crg,*)yearStart
     ELSE IF(i==16) THEN
          Read(crg,*)yearEnd
      ELSE IF(i==17) THEN
          Read(crg,*)yearGap
      ELSE IF(i==18) THEN
          Read(crg,*)heightStart
      ELSE IF(i==19) THEN
          Read(crg,*)heightEnd
      ELSE IF(i==20) THEN
          Read(crg,*)heightGap
      ELSE IF(i==21) THEN
          Read(crg,*)MODEL
      ELSE IF(i==22) THEN
          Read(crg,*)FLUXTYPE
      ELSE IF(i==23) THEN
          Read(crg,*)E1
      ELSE IF(i==24) THEN
          Read(crg,*)E2
      ELSE
          Write(*,*)'hello'
      END IF
      i=i+1
      END DO

 

也是正确的，输出结果是从第1个参数开始：

阅读终点，创作起航，您可以撰写心得或摘录文章要点写篇博文。去创作
zhuiyuan2012
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 打赏
    打赏
  • 0
    评论
专栏目录
fortran 弹性力学平面问题程序设计.ppt
01-09
fortran 弹性力学平面问题程序设计.ppt
intel fortran 命令行编译bat文件，带常用编译开关
01-11
该文件是命令行调用ifort来编译fortran源代码的一个实例，带有常用编译开关，可实现编译和运行时错误信息反馈等。
Fortran常见问题汇总
04-07
Documents and Settings\xuliu\桌面\Fortran常见问题汇总。（转自编程爱好者Fortran论坛的FAQ）.doc
fortran.rar_优化 fortran_参数优化
09-23
用于优化一个或多个目标的参数 采用多种编码方式 灵活运用
fortran2010常见问题及解决措施
11-21
fortran2010常见问题及解决措施，对于fortran运行过程中的各种问题进行汇总并解决
FORTRAN 读取命令行参数
tertullian的专栏
07-10 3652
自FORTRAN 2003开始，FORTRAN提供了获取命令行参数和环境bia
Fortran中关于命令行参数读取的操作
qq_44381235的博客
05-19 2504
Fortran中关于命令行参数读取的操作定义用到的代码例子1例子2 在看别人的一个项目时发现了Fortran命令行参数读取的这么一个问题，我做一下总结和验证。 定义 最先说明什么是命令行参数输入，命令行参数输入就是在运行程序的同时，将参数输入到程序之中，这些参数会参与到程序后续的运算，比如： CSDN.exe -j -b -c 这些参数会引导程序进行不同的运算等等。 以下给出程序和例子。 用到的代码 Fortran中使用**iargc()和getarg(n, buffer [, status])**l来实现
带命令行参数的Fortran程序
09-26 736
在C中，主函数是可以有参数的，因而可以很方便地在C程序中处理命令行参数，如下： int main(int argc,char *argv[]){ ......... } 参数个数位于argc中，具体参数以空格分隔，分别存储到argv这个二维指针中，实际是bash将参数按照空格分隔，然后将其组成多个字符串数组，传递给主程序。 在Fortran中主函数是没有参数的，所以要获取...
Fortran中处理字符串数字和文件的模块StrNum
网海水手
07-22 5996
Fortran中处理字符串数字和文件的模块: 测试程序如下: include"StrNum.F90" !----------------------------------------- program main use StrNum implicit none !----------------------------------------- integer :: count,i,j ,k
Matlab调用可执行程序、传递参数以及接收输出
wokaowokaowokao12345的专栏
09-19 4691
Matlab调用可执行程序、传递参数以及接收输出
Get-Command 帮助信息
Windows PowerShell
01-08 3505
如下说明是翻译PowerShell中: help Get-Command 产生的帮助信息. 译者: Edengundam(马涛) Get-Command 大纲取得cmdlet的基本信息和其他关于Windows PowerShell命令的元素. 语法Get-Command [[-argumentList] ] [-verb ] [-noun ] [-totalCo
fortran的报错解决方法
热门推荐
zhuiyuanzhongjia的博客
08-20 1万+
主程序： PROGRAM ap8ae8 real L_FROMFILE_Start,L_FROMFILE_End, L_FROMFILE_Gap, 1BB0_FROMFILE_Start,BB0_FROMFILE_End,BB0_FROMFILE_Gap, 1xlatStart,xlatEnd,xlatGap,xlongStart,xlongEnd,xlongGa...
fortran如何获取命令行中输入的参数
kiwi's garden
09-13 6071
program main implicit none integer ::narg CHARACTER(len=32) ::arg narg=IARGC() if(narg >0)then call getarg(1,arg) endif write(*,*)narg write(*,*)arg end IARGC — Get the
visual studio安装ivf_【包学包会】【Fortran篇】VsCode+IVF+SimpleFortran
weixin_39619893的博客
10-22 2764
ShareStuff光阴似箭日月如梭终于等到你还好没放弃引言欢迎到知乎和语雀平台进行提问，或者推文下方留言！除了 VsCode+IVF+SimpleFortran，当然还有 Vim+Emacs+Editplus 等等。其中我更喜欢 Vim 和 Emacs。但为什么教程里没有？ 因为不敢写，怕被这两家神器粉丝怼。感兴趣的自行研究哦，比如这里Fortran Coder[1]，两大神器用了就停不下来！本...
Fortran中主程序如何输入参数
网海水手
07-08 5524
Fortran中主程序如何输入参数？ 主要使用下面的三个函数实现： 第一个： COMMAND_ARGUMENT_COUNT — Get number of command line arguments Description: COMMAND_ARGUMENT_COUNT returns the number of arguments passed on the command line
Fortran95/2003高级技巧
ProMath的专栏
06-03 3670
原文地址：Fortran95/2003高级技巧作者：小鬼Fortran95/2003高级技巧的整理，主要依据Stephen J. Chapman著，刘瑾等译的《Fortran95/2003程序设计》。选择的都是平常少用又重要的高级特性。粗体表示重点或需注意的地方，蓝色表示Fortran2003才有的新特性。 1. 隐式DO循环 隐式DO循环可以用在数组初始化或读写文件中。格式为 (arg1, a
CommandArgument的一种用法
shenhaha001的专栏
05-14 2820
以下示例说明如何在 .aspx 文件中声明 command 按钮控件。   以下示例显示一个事件处理方法，该方法获取按钮单击并显示从该按钮的 CommandName 和 CommandArgument 属性中传递的信息。  [C#] void CommandBtn_Click(Object sender, CommandEventArgs e)  {   Message.Text = "You c
通过CommandArgument传递多个参数的尝试
lzs109的专栏
01-30 2355
最近在做一个电子商务的小项目，需要使用控件的CommandName和CommandArgument属性来传递参数，仅仅传递一个参数时很简单，直接e.CommandArgument就可以使用，如果要传递多个参数呢，于是自己试验了一下。     刚开始的思路是按多个参数的方式传递，后来发现CommandArgument是一个object类型的属性，明显行不通。于是想能不能把多个参数当成一个参数传递，
fortran中传递参数可以为表达式吗
最新发布
05-17
Fortran 中可以将表达式作为参数传递给子程序。表达式必须与子程序参数的数据类型匹配。例如，下面的代码将一个表达式作为实数参数传递给名为 `subroutine_name` 的子程序： ``` real :: x, y x = 3.0 y = subroutine_name(2.0 * x + 1.0) ``` 在这个例子中，表达式 `2.0 * x + 1.0` 的值将作为实数参数传递给 `subroutine_name` 子程序。注意，表达式计算的结果必须是实数类型，因为 `subroutine_name` 的参数类型为 `real`。

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

zhuiyuan2012

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付：¥1
获取中
扫码支付

您的余额不足，请更换扫码支付或充值

打赏作者

实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值