fortran如何读取命令行中的参数

xiaoyanwei2000

1.        

复制代码

1. program swr parameter(n=24,m=3,nn=1,l1=3,l2=3,ff1=3.0,ff2=3.0) parameter(m1=m+1,n1=n+nn) common /bb/xy(200,50) dimension b(m1),ri(m1),ti(m1),ex(m1),e(n) dimension vx(m1),r(m1,m1),vyx(m1),tl(n1),fff(m1)

program swr parameter(n=24,m=3,nn=1,l1=3,l2=3,ff1=3.0,ff2=3.0) parameter(m1=m+1,n1=n+nn) common /bb/xy(200,50) dimension b(m1),ri(m1),ti(m1),ex(m1),e(n) dimension vx(m1),r(m1,m1),vyx(m1),tl(n1),fff(m1)

参数在代码中写死了，我想把他换成从外界输入参数，该怎么修改这段代码，已经查到了怎么读取参数，就是不知道上边那段代码该怎么修改

1. CHARACTER(len=128) :: arg    CALL getarg(1, arg)!读取第一个参数

CHARACTER(len=128) :: arg    CALL getarg(1, arg)!读取第一个参数

xiaoyanwei2000

1. program swr
   
2. parameter(n=24,m=3,nn=1,l1=3,l2=3,ff1=3.0,ff2=3.0)
   

program swr<br /> parameter(n=24,m=3,nn=1,l1=3,l2=3,ff1=3.0,ff2=3.0)<br />

主要就是这个该怎么修改，参数怎么附

言深深

xiaoyanwei2000 发表于 2015-8-25 17:04
主要就是这个该怎么修改，参数怎么附

改成传递就行了
m=100,n=200,o=300
call zichengxu(m,n,o)
end

subroutine zichengxu(m,n,o)
print*,m,n,o
end

上面这个为例就可以实现参数mno从主程序到子程序的传递。

xiaoyanwei2000

言深深 发表于 2015-8-25 17:13
改成传递就行了
m=100,n=200,o=300
call zichengxu(m,n,o)

不是实现参数从主程序传递到子程序，而是主程序启动时的参数，如何传递，源程序把参数写死了，我要修改参数就要改代码，现在我想在程序启动的时候就附参数，
例如运行中我输入：C:\Users\Administrator.YLMF-20150717ZB\Documents\Visual Studio 2012\Projects\Console3\Console3\Debug\Console3.exe  12 13 abc
参数12，13，abc就传递进去
但是我要怎么修改代码才能实现这个效果呢

言深深

xiaoyanwei2000 发表于 2015-8-26 09:51
不是实现参数从主程序传递到子程序，而是主程序启动时的参数，如何传递，源程序把参数写死了，我要修改参 ...

不懂

eesly

谢谢，正有用。

nuisttony

也碰到这个问题，楼主解决了么？

王磊

言深深 发表于 2015-8-26 12:01
不懂

一个折中的办法是把这几个量设置成变量，然后read。如果要从外部读入可能得用sysytemfun等调用shell的一些指令获取了