函数1:COMMAND_ARGUMENT_COUNT()— Get number of command line arguments 这是一个function,有返回值。 Example: program test_command_argument_count integer :: count count=command_argument_count() print*, count end program test_command_argument_count 子程序2:GET_COMMAND_ARGUMENT类似于getarg()子程序 ...
用途 返回调用程序的命令的命令行参数的数目。 类 查询函数 结果类型和属性 缺省整数标量 结果值 结果值是命令参数的数目,不计入命令名。 如果没有命令参数,那么结果值为 0。 示例 integer cmd_count cmd_count = COMMAND_ARGUMENT_COUNT() print*, cmd_count end ...
類別 查詢函數 結果類型和屬性 預設整數純量 結果值 結果值是指令引數數目,不計算指令名稱。 如果沒有指令引數,則結果值為 0。 範例 integer cmd_count cmd_count = COMMAND_ARGUMENT_COUNT() print*, cmd_count end 下列是上述程式所產生的範例輸出: $ a.out 0 $ a.out aa 1 $ a.out aa bb 2上層...
获得参数 i = Command_Argument_Count() !获得参数的个数 call Get_command_Argument(number, str [, leng, status]) !获得某个命令行参数 获得环境变量 call Get_Environment_Variable(name [, value, lenth, status, trim_name]) 时间相关 i= Data_And_Time([date] [, time] [, zone] [, values])...
i=Command_Argument_Count():获得命令行参数的个数; call Get_Command_Argumen(number,str[,leng,status]):获得某个命令行参数; (参考代码:<a name="Back args"><a href="#args">"args"</a></a>) call Get_Environment_Variable(name[,value,lenght,satatus,trim_name]):获取名为name的环境变量,value...
COMMAND_ARGUMENT_COUNT () 返回命令参数的数目 GET_COMMAND ([COMMAND, LENGTH, STATUS]) 返回调用程序的整个命令 GET_COMMAND_ARGUMENT (NUMBER [, VALUE, LENGTH, STATUS]) 返回一个命令参数 GET_ENVIRONMENT_VARIABLE (NAME [, VALUE, LENGTH, STATUS, TRIM_NAME]) 获得环境变量的值。 2.1.22 ...
我编写了一个科学的fortran代码,没有使用任何特定的fortran标准。但我现在必须声明我使用的是哪种fortran标准。我说我使用fortran2003,因为我需要get_command_argument和command_argument_count内在函数。在某些部分,关于reals的类型声明,我得到了错误。例如,当我在模块中声明变量时:implicit none real*8,parameter :: ...
i=Command_Argument_Count():获得命令行参数的个数; call Get_Command_Argumen(number,str[,leng,status]):获得某个命令行参数; (参考代码:<a name="Back args"><a href="#args">"args"</a></a>) call Get_Environment_Variable(name[,value,lenght,satatus,trim_name]):获取名为name的环境变量,value...
但我现在必须声明我使用的是哪种fortran标准。我说我使用fortran 2003,因为我需要get_command_argument和command_argument_count内在函数。在某些部分,关于reals的类型声明,我得到了错误。,save :: windU(:),windV(: 浏览6提问于2015-03-04得票数 1 回答已采纳...
if (count>0) then do i=1,count CALL get_command_argument(i, InStr) call TrimIndex(InStr,LeftIndex,RightIndex,status) if (status==0)then write(*,*)'<'//InStr//'>' write(*,*)'<'//InStr(LeftIndex:RightIndex)//'>' write(*,*)LeftIndex ...