为什么子例程的第一个参数必须传递ByVal
子例程的第一个参数必须传递ByVal是因为ByVal是一种参数传递方式，它表示按值传递参数。在子例程中，参数按值传递意味着将参数的值复制一份，然后将复制的值传递给子例程进行处理。这样做的好处是保护了原始参数的值，使得在子例程中对参数的修改不会影响到原始参数的值。
ByVal参数传递方式的优势在于：
- 数据安全性：通过按值传递参数，可以保护原始参数的值，避免在子例程中对参数的修改影响到原始参数的值。
- 简化代码逻辑：按值传递参数可以简化代码逻辑，因为在子例程中不需要考虑对参数的修改会对其他地方产生影响的情况。
- 提高代码可读性：通过明确指定参数传递方式为ByVal，可以增加代码的可读性，使得其他开发人员更容易理解代码的意图。
应用场景： ByVal参数传递方式适用于以下场景：
- 当需要在子例程中使用参数的值，但不希望修改原始参数的值时。
- 当参数的值较小且不会被修改时，按值传递可以提高性能，因为不需要复制大量的数据。
推荐的腾讯云相关产品和产品介绍链接地址： 腾讯云函数（云原生）：https://cloud.tencent.com/product/scf 腾讯云数据库（数据库）：https://cloud.tencent.com/product/cdb 腾讯云服务器（服务器运维）：https://cloud.tencent.com/product/cvm 腾讯云人工智能（人工智能）：https://cloud.tencent.com/product/ai 腾讯云物联网（物联网）：https://cloud.tencent.com/product/iot 腾讯云移动开发（移动开发）：https://cloud.tencent.com/product/mpp 腾讯云对象存储（存储）：https://cloud.tencent.com/product/cos 腾讯云区块链（区块链）：https://cloud.tencent.com/product/baas 腾讯云视频处理（音视频、多媒体处理）：https://cloud.tencent.com/product/vod
相关·内容
1回答
我们正在模拟一场比赛，但我们被困住了，我们不知道问题出在哪里。
VBA通过变量BusPrice和在私有子下面声明的其他变量给出一个错误。代码来自几个模块。
Sub batasimulation(NumberTeams As Integer, NumberStarts As Integer, _
TimeBetweenStarts As Integer, VanIntervalBefore As Integer, _
VanIntervalAfter As Integer, TimeWindow As Integer, _
CostsGeneral As Long,
浏览 4提问于2017-10-31得票数 1
回答已采纳
我正面临着VBScript中的一些奇怪的事情。当我编写一个通过引用传递参数的过程时，调用这个过程的方式改变了传递参数的方式！
下面是一个示例：
Sub IncrementByRef(ByRef Value)
Value = Value + 1
End Sub
Sub IncrementByVal(ByVal Value)
Value = Value + 1
End Sub
Dim Num
Num = 10
WScript.Echo "Num : " & Num
IncrementByRef(Num) : WScript.Echo "Increme
浏览 0提问于2009-10-08得票数 33
回答已采纳
2回答
我有一个Excel工作簿，里面有一些基本的Workbook_Open打开代码和xSheet中的一些代码。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Run s00Config_Worksheet_SelectionChange(Target)
End Sub
其中，子s00Config_Worksheet_SelectionChange存在于加载的Excel AddIn中(暂时可见)。
但是，当我在第一个表中执行程序时，我得到的只是未定义的子函数或函数。
在AddIn中，子被定义为
Public Sub
浏览 3提问于2013-11-24得票数 0
2回答
循环不断重置
、、
我有以下代码
Sub Split_data()
' Split_data
Dim iCtr As Long
Dim Total As Long
Dim Iterations As Long
Dim FilePath As String
' Save path for new files
FilePath = "C:\DataFiles"
' Create folder to store files
If FileFolderExists(FilePath) Then
' Delete first row with obsolete
浏览 2提问于2014-07-03得票数 0
回答已采纳
我刚刚开始学习perl，我对这个练习感到困惑(来自于学习Perl第4章)。
在greet()子例程的开头，我试图将参数$_赋值给我的$name (my$name= $_)变量，但它不起作用。这本书说要用“我的名字=变换”，但我不明白为什么。shift用于从数组中移除值，据我所知，我的参数不是数组，而是标量内的字符串！
有人能解释我不明白什么吗？
谢谢!以下是完整的代码。
use 5.012;
use warnings;
use utf8;
sub greet {
my $name = $_;
state $last_person ;
if (defined $last_pe
浏览 3提问于2012-07-07得票数 4
回答已采纳
4回答
我有一个以字符串数组作为参数的Sub：
Private Sub des(ByVal array() As String)
Dim i As Integer
For i = 0 To UBound(array)
array(i) = "hy"
Next
End Sub
当我在main函数中调用该函数时，即使将数组传递给函数ByVal，str的值也会发生变化：
Dim str() As String
str = {"11111", "22222", "33333", "44444
浏览 0提问于2012-02-06得票数 2
3回答
我有一个数组，我通过引用传递给一个函数来排序它。但是，似乎数组是由the传递的。谁能解决这个问题？(也接受排序解决办法)
1)下面的脚本通过引用传递一个数组到排序函数。
2)排序函数输出排序数组值。
3)脚本输出排序数组值。然而，它们并没有被分类。
脚本输出：
300,200,100，
100,200,300，
'declare variables
mitta(1) = 1
mitta(2) = 2
mitta(3) = 3
sort(mitta) ' see the function below
' show variables
For i = 1 To
浏览 1提问于2011-04-19得票数 3
回答已采纳
工作守则是：
Declare PtrSafe Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDest As Any, pSource As Any, ByVal ByteLen As Long)
Sub Test()
Dim Long1 As Long
Dim Long2 As Long
Long1 = 1000
CopyMemory ByVal VarPtr(Long2), ByVal VarPtr(Long1), 4
Debug.Print VarPtr(Long1)
浏览 3提问于2018-05-28得票数 2
回答已采纳
我对Perl不是很熟练，我正在尝试使用FSA::Rules。shift在这段代码中的作用是什么？
my $fsa = FSA::Rules->new(
ping => {
do => sub {
print "ping!\n";
my $state = shift;
$state->result('pong');
$state->machine->{count}++;
},
rules => [
ga
浏览 0提问于2012-01-31得票数 1
回答已采纳
我已经创建了一个仪表板，用户可以将其复制和粘贴到其中。仪表板将对仅包含公式的几个工作表上的数据进行一些分析。
我想设置一个VBA脚本，当公式在B25中为真时，工作表将从绿色变为红色，直到用户单击工作表选项卡并结束循环。我是VBA的新手，我从一个宏中抓取了一些代码来进行尝试。这就是我所拥有的：
Sub Test()
If Range("B25").Value = "TRUE" Then
Do Until Sheets("Dilutions").Activate
With ActiveWorkbook.Sheets("Dilutions
浏览 0提问于2016-04-28得票数 1
1回答
Fortan允许基本子例程具有intent(inout)和intent(out)参数，但基本函数只允许intent(in)。
为什么会这样呢？这只是一种风格上的约定，还是调用函数和子例程有一般性的不同？
换句话说，
Elemental Integer Function FOO(i)
Integer, intent(in) :: i
...
FOO=something
End Function
和
Elemental Subroutine FOO(i, v)
Integer, intent(in) :: i
Integer, intent(out) :: v
.
浏览 0提问于2011-07-30得票数 8
2回答
我用“步骤进入”来确保VBA得到正确的答案。
当我将变量调用到另一个子变量时，它返回零。
Sub ComboBox5_Change()
Call htot
Dim h As Double
TextBox4.Value = h
End Sub
Sub htot()
Call daltutil
Call cobr
Dim h As Long
Dim d As Long
Dim c As Long
h = (d + c + 0.5)
End Sub
Sub dalt
浏览 3提问于2020-11-25得票数 0
回答已采纳
我希望能够有两个ComboBoxes，其中一个是第二个的父或所有者，通过Server上的一个连接字符串。这意味着每当我在第一个ComboBox中选择一个值时，第二个ComboBox将过滤它的结果，以显示与第一个ComboBox相关的相应值。如果您在下面看到我的代码，我会得到一个错误，即：
错误1方法‘私有子cboClient_SelectedIndexChanged(发送方作为对象，e作为System.EventArgs，EnvName作为字符串)’不能处理事件‘公共事件SelectedIndexChanged(发送方作为对象，e作为System.EventArgs)，因为它们没有兼容的签名
浏览 1提问于2015-06-18得票数 0
5回答
可能复制：
我有一个函数或子例程，它接受第一个参数作为数组，第二个参数作为标量。例如,
sub calc {
my @array = $_[0];
my $scalar = $_[1];
print @array, $scalar;
}
问题是，函数使数组等于传入的数组的第一个值，而标量是数组传入的第二个值。当我希望第一个数组是整个数组时，我不需要对数组进行深度复制。例如,
my @array = ('51', 'M');
my $scalar = 21;
和
calc(@array, $scalar)
当我想要51 M的时候会
浏览 0提问于2012-05-23得票数 37
回答已采纳
1回答
我有2个私有子Worksheet_change(ByVal目标作为范围)代码，他们自己的工作。我需要他们在同一张纸上工作。每当我这样做的时候，第二个代码就不会运行。请告诉我如何合并这些！！？
代码1：
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range, cel As Range
Set rng = Intersect(Target, Range([H2], Cells(Rows.Count,
"H").End(xlUp)))
If rng Is N
浏览 2提问于2018-09-11得票数 0
3回答
我是编程新手，有人告诉我应该使用ByRef和ByVal传递东西，但当我这样做时，我收到一个错误，说：
Error 3 Method 'Private Sub Activate_Click(ByRef intIDToChange As Integer, sender As Object, e As System.EventArgs)'
cannot handle event 'Public Event Click(sender As Object, e As System.EventArgs)' because they do not have a co
浏览 51提问于2013-03-26得票数 0
我正在浏览这段代码，并且：
Private Sub Button3_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles Button3.Click
SendMessage(Me.Handle, WM_APPCOMMAND, &H200EB0,
APPCOMMAND_VOLUME_MUTE * &H10000)
End Sub
我不知道发送消息函数的最后两个参数是什么，以及这两个参数中发生了什么？"
浏览 2提问于2014-08-06得票数 0
回答已采纳
首先，对不起我的英语不好。
我的问题是，当我从不同的线程加载数据时，会导致“对象引用没有设置为对象的实例”。
这是我的代码：
Private Sub GetData(ByVal startRecord As Integer, ByVal maxRecord As Integer)
Dim ds As DataSet = New DataSet()
Dim da As MySqlDataAdapter = New MySqlDataAdapter("select * from my_data", SqlCon)
Try
da.Fill(
浏览 1提问于2017-05-20得票数 1
回答已采纳
1回答
解释反编译源代码中的错误
、、、
我在网上找到了一些有用的代码，其中只提供了库文件，我重新创建了源代码，但发现了一些我不确定的错误。
<StandardModule()> _
Friend NotInheritable Class CreateFiles
' Methods
' Fields
Private Shared Configuration As Configuration = New Configuration
' Nested Types
Private Delegate Sub showITDelegate(ByVal message As String)
<STA
浏览 0提问于2013-01-24得票数 0
回答已采纳
为什么下列内容是有效的？
my @ys = map { $_ * $_ } @xs;
下面的那个是无效的？
my @ys = map { $_ * $_ }, @xs;
map是语言构造而不是真正的函数，还是块有特殊的规则？
浏览 4提问于2013-09-26得票数 4
回答已采纳
参数传递给Perl子例程的顺序重要吗？当我调试以下代码时：
my $loopCounter = 1;
foreach(@authors) {
my @splitAffiliations = splitAffiliations($params);
my @foundItems = findAffiliationForAuthor($_, @splitAffiliations, $loopCounter);
# Process @foundItems
$loopCounter++;
}
...
sub findAffiliationForAuthor {
浏览 3提问于2015-02-01得票数 1
回答已采纳
我发现在为Tkx小部件指定-command参数时，我必须匿名包装已定义的子例程，这有点奇怪。
的一段摘录演示了这一点：
my $cb = $frm->new_ttk__button ( -text => "Calculate",
-command => sub {calculate();} );
sub calculate {
$meters = int(0.3048*$feet*10000.0+.5)/10000.0 || '';
}
为什么当我写-command =
浏览 7提问于2010-04-12得票数 2
回答已采纳
我无法使我的代码在Excel VBA (office 365)中运行。 我想让这段代码在用户或代码更改任何单元格后运行： ` Sub Workbook_SC()
Dim var1 As Double
Application.EnableEvents = False
Worksheets("GSCells").Cells(5, 4).Value = 22
Worksheets("GSCells").Cells(5, 5).GoalSeek Goal:=0, ChangingCell:=Worksheets("GSCells").Cells
浏览 42提问于2019-09-14得票数 3
回答已采纳
2回答
Private Sub Workbook_SheetSelectionChange _
(ByVal Sh As Object, ByVal Target As Excel.Range)
x = Sh.UsedRange.Rows.Count
End Sub
我有一个像这样的私人程序，我正试图通过
Workbook_SheetSelectionChange _
我得到一个编译错误，我试图重命名子，但它不允许我删除下划线，因为第二行在潜艇。我想知道这是为什么，我该怎么称呼这艘潜艇？
浏览 3提问于2013-07-29得票数 0
回答已采纳
出于好奇，我曾经尝试过原型化，但似乎只允许在第一个位置使用子例程的原型&。
当我写的时候
sub test (&$$) {
do_something;
}
并将其称为
test {doing_something_else} 1,2;
它起作用了。
当我像这样做原型时
sub test ($$&) {
do_something;
}
并再次将其称为
test 1,2 {doing_something_else};
它不起作用。我尝试了各种排列，但似乎都没有效果。
我是否错过了什么，或者这是不可能的？如果不是，原因何在？
(我可能需要指定，我成功地尝试了调用
浏览 0提问于2011-12-03得票数 2
回答已采纳
我正在看一些旧的VB6代码。我是VB的新手，而且我有C/Java背景，所以我不理解一些赋值语句。这里有一个例子-
Private Type UGH
Rsp(3) As Byte
ProgramId(7) As Byte
RID(7) As Byte
TID(3) As Byte
FL(39) As Byte
End Type
Private UHeader As UGH
稍后，分配如下所示：
With UHeader
StringToByteArray UHeader.Program
浏览 0提问于2012-05-01得票数 4
回答已采纳
我是第一次接触perl和使用regex。我有一个子例程，它应该显示我们正在寻找一个具有多个点的模式“.”。下一行是使用此子例程检查某些模式中是否有点。但是，我发现if/else语句中的if块没有被计算，它只计算else块。
my $hostname1 = "hh.uu";
my $hostname2 = "yyhu";
sub isDotted {
return 1 if @_ =~ /\./g; return 0;
}
if (isDotted($hostname1) != isDotted($hostname2))
{
pr
浏览 20提问于2019-08-14得票数 0
希望每个人都做得很好。 我在这个工作簿模块中有Private Sub Workbook_AfterSave(ByVal Success As Boolean)，我想从我的模块代码Sub Mail_it()中调用它。 所以简单地说，如果我从Sub Mail_it()调用，那么Private Sub Workbook_AfterSave(ByVal Success As Boolean)应该运行/执行。 请提前帮助并感谢您。
浏览 15提问于2020-09-09得票数 0
回答已采纳
我正在编写一个应用程序，可以获取和复制文件夹(由用户在列表框中选择)到指定位置，它有一个进度条，应该一直运行，但似乎后台工作人员没有捕捉到进程。它只是冻结UI，直到复制完成。当我在副本之间插入一条消息时，消息会工作，所以我知道它能够工作。我错过了一些东西..
Private Sub Button4_Click_1(sender As Object, e As EventArgs) Handles Btn_SaveApps.Click
bw.WorkerSupportsCancellation = True
bw.WorkerReportsProgress = True
浏览 1提问于2013-12-29得票数 0
2回答
我不理解pgf90 7.2的present()内部函数的行为。我写了一个20行的示例程序来测试这一点，但结果对我来说仍然没有任何意义。请注意：
subroutine testopt(one,two,three,four,five)
implicit none
integer, intent(in) :: one,two
integer, intent(out) :: three
integer, intent(in), optional :: four
integer, intent(out), optional :: five
three = one + two
浏览 0提问于2010-06-26得票数 10
回答已采纳
我正在尝试使用带有命令按钮的MouseMove事件，但不知道如何防止出现以下错误：
编译错误:过程声明与具有相同名称的事件或过程的描述不匹配。
代码非常简单。我在这里使用了“虚拟”代码，因为我永远不能进入事件处理程序来获得有用的东西。
Private Sub Button_Name_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim X as Integer
x = x+1
End Sub
我直接从对象浏览器中获取了参数列表。我在其他事件中得到了类似的结果，包括DblClick()，但
浏览 2提问于2011-05-17得票数 0
回答已采纳
Sub work()
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Target = Target * 1000
Application.EnableEvents = True
End Sub
我找到了一种不使用excel来解决这个问题的方法。我使用R来解决这个问题。只有一个提示，如果你有很多数据，不要使用excel。这是极其缓慢和复杂的。任何人都可以以更简单的方式使用R或Python。
浏览 0提问于2016-06-14得票数 0
当进入一个子例程时，我得到了一个分段错误。在调试器中，我可以单步执行，直到下面代码段中的第一个call RK_sub_step。我一进入该子例程，它就会分段。 module RK_mod
type(MyType), dimension(1:2) :: q0, q1, q2
contains
subroutine RK_sub_step(src, alpha, dest)
real(8), dimension(:) :: alpha
type(MyType), dimension(1:2,size(alpha)) :: src
type(MyType), dimensi
浏览 0提问于2013-07-15得票数 1
1回答
我有一个接口类和一个实现该接口的用户窗体。只有当有第二个语句(me.hide)时，cmdOK()子函数才能工作，否则它就不能工作。怎么了？接口： Public Property Get Description() As String
End Property
Public Property Let Description(ByVal Description As String)
End Property
Public Property Get DialogResult() As VbMsgBoxResult
End Property
Public Property Get Name()
浏览 28提问于2021-11-17得票数 0
回答已采纳
我对Perl语法感到困惑。这是一个关于的例子。
my $t = scraper {
process "li", "list[]" => "TEXT";
};
print ref($tweets), "\n";
输出：
Web::Scraper
我不明白大括号的意思。如果scraper是一个函数，那么为什么要使用{}而不是()
浏览 4提问于2011-03-04得票数 6
回答已采纳
我想将可分配数组的一部分传递给子例程。源阵列由三个指标组成。子例程期待一个包含两个索引的数组。假设我想对源数组的第五个索引进行操作。我做了这样的事，但最后一句被抓住了：
module lots_of_stuff
...
contains
subroutine process_points(points)
integer, allocatable, intent(inout) :: points(:,:)
! do stuff
end subroutine
end module
program foo
use lots_of_stuff
integer, allocatable :: inpo
浏览 2提问于2018-12-03得票数 3
回答已采纳
我有以下测试代码：
sub one_argument {
($a) = @_;
print "In one argument: \$a = $a\n";
return "one_argument";
}
sub mul_arguments {
(@a) = @_;
return "mul_argument";
}
print &one_argument &mul_arguments "something", "\n";
我的目标是能够更好地理解per
浏览 2提问于2013-09-18得票数 1
回答已采纳
1回答
问题是在main()中声明的MPI结构在函数中不可见。编译器给出以下错误：
my_prog.c: In function ‘void get(int)’:
my_prog.c:585:21: error: ‘MPI_GETSET’ was not declared in this scope
MPI_Send(&msg, 1, MPI_GETSET, rank, 0, MPI_COMM_WORLD);
代码段包括：
struct mpi_send{
int job;
int z;
int img;
short grp;
short stp;
};
mpi_send
浏览 2提问于2018-07-24得票数 0
在Statistics::Regression的文档中，添加观察的说明是：$reg->include( 2.0、1.0、3.0、-1.0 )；
然后，只对您自己的数据运行回归：
my @obs;
observations are like: %oneobs= %{$obs[1]};
...
foreach my $obshashptr (@obs) { $reg->include( $_[1], $_[3] ); }
我对%oneobs= %{$obs[1]}感到困惑:这个表示法是什么意思？此外，foreach my $obshashptr (@obs) { $reg->in
浏览 2提问于2014-07-11得票数 0
回答已采纳
2回答
这是我们必须使用Eulers显式格式来研究捕食者-猎物模型的家庭作业(过去的截止日期)中的观察结果。我比较了Fortran和C代码(如下所示)，当我比较Fortran代码和C代码时，我无法解释为什么结果会有所不同。
C代码：
#include <stdio.h>
//Functions for Euler Explicit
float FR(float R,float F,float alpha)
{
return (2*R - alpha*R*F);
}
float FF(float R,float F,float alpha)
{
return (-F +
浏览 0提问于2013-03-27得票数 2
回答已采纳
1回答
我试图通过添加一个简单的错误记录子例程来更新一些遗留的VB6代码，该子例程使用ADO将一行插入到SQL Server表中，其中包含错误的基本详细信息。子例程接收标识错误类型的整数参数值(errorCode)。解析XML文件时将发生错误。XML文件名(通过objFile.Name获得)将与日期、用户名和errorCode参数值一起记录。
下面的代码显示了我到目前为止所处的位置。我试图插入的表如下所示：
[dbo].[tblXMLerrorLog](
[errorLogID] [int] IDENTITY(1,1) NOT NULL,
[runDate] [datetime2](0) NULL,
浏览 50提问于2019-07-11得票数 2
回答已采纳
我在Perl中尝试过：
#!/usr/bin/perl
use 5.010;
state @files;
sub marin{
if (opendir DIR, $_){
marin $_;
} else {
push @files, $_;
}
closedir DIR;
}
$input = opendir DIR, '/home';
marin $input;
print "@files";
但出现错误：'Cant opendir('DIR'，undef)：没有这样的文件或目录(第7行)。那就是if(ope
浏览 0提问于2019-10-18得票数 0
我有一个perl子程序，它应该返回a和b之间的素数。我在testSub.t上做了个测试
my $arrayref = MyPackage::generatePrimes(1,2);
my @array = @$arrayref;
is ( scalar(@array), 1, "One primes between (1,2)");
我需要用一些其他的输入重新运行MyPackage::generatePrimes (1..3，10..15等)。我可以这么做：
my $arrayref;
my @array;
# Test between (1,2)
$arrayref =
浏览 3提问于2012-05-27得票数 1
回答已采纳
就Perl而言，->到底是做什么的？
例如，我调用main：
$result = a::b->mymethod( );
在我定义mymethod()的包中，我使用了以下内容：
my( $class ) = @_;
在main中，我显然没有向mymethod()传递任何参数，那么$class参数从何而来？有没有人对此有一个很好的解释，或者有一个文档来解释这个？
浏览 0提问于2012-05-28得票数 2
回答已采纳
我对VBA非常陌生，所以到目前为止我想出的东西都是在网上找到的。我有一个工作簿，它是其他几个workbooks...so的顶点，它有很多到其他几个工作簿的链接。我需要基本上复制没有链接的工作簿数据发送到公司外部。我找到了执行此操作的代码，它工作正常。问题是，我希望每次保存工作簿时都会发生这种情况。我也找到了这方面的代码，但当我试图将两者结合起来时，excel崩溃了。以下是用于创建工作簿副本的代码：
Sub nowe_poprawione()
Dim Output As Workbook
Dim Current As String
Dim FileName As Str
浏览 0提问于2014-07-11得票数 0
我不确定这个问题是否正确地问了我想要什么，因为我是一个新手，但我想要做的是编写一个sub或函数，当单击一个标签时我可以运行它，并且我希望在多个标签上可重用。总共有12个，我不希望一遍又一遍地写同样的东西，字符略有不同。程序员永远不会想把同一件事写两次，对吧？此外，还有一些其他因素使得动态地做这件事成为必然。
因此，我试图实现这一点的方法是使用一个字符串，并在单击时将标签的名称添加到字符串中。
click1 = "Label1"
事实证明，您不能只说click1.Text就返回Label1的文本。隐式操作之所以重要，是因为我需要以某种方式记住我之前单击的那个，比较第一次单击和第
浏览 1提问于2012-04-01得票数 0
回答已采纳
1回答
调用类型绑定子例程seed_rng的最佳方法是什么？
以下代码的编译命令gfortran -Wall mwe.f90生成警告
subroutine seed_rng_sub ( self, checkOS, mySeed )
1
Warning: Unused dummy argument ‘self’ at (1) [-Wunused-dummy-argument]
对于新手来说，这建议删除子例程定义中的self参数(即使用subroutine seed_rng_sub ( checkOS, myS
浏览 0提问于2015-08-22得票数 2
回答已采纳
为什么下面的Fortran代码只有在我将循环变量'i‘和'j’作为子例程'mat_init‘的输入参数时才能运行？循环变量'i‘和'j’被声明为私有，所以当我调用子例程时，它们不应该保持私有吗？
program main
use omp_lib
implicit none
real(8), dimension(:,:), allocatable:: A
integer:: i, j, n
n = 20
allocate(A(n,n)); A(:,:) = 0.0d+00
!$omp parallel do p
浏览 2提问于2015-04-24得票数 0
1回答
我正在努力让一个光线跟踪代码工作，我想我可能已经隔离了这个问题。我刚开始使用Fortran 77，但希望获得更多使用这种语言的经验(即使它已经过时了)。我在其中一个子例程中有一些等价语句，可以用来将变量输送到子例程中(这可能就是问题的一半)。
子例程：
c s/r qparxdp
SUBROUTINE QPARAB PARA001
implicit real*8 (a-h, o-z)
character*8 modx, id
C PLAIN PARABOLIC OR QUAS
浏览 8提问于2014-09-22得票数 1
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
对象存储
腾讯会议
实时音视频活动推荐
腾讯云开发者
