在Fortran90内部函数上使用routine指令
Fortran90是一种编程语言，它是Fortran语言的一种版本，主要用于科学计算和数值分析。在Fortran90中，可以使用内部函数和routine指令来实现特定的功能。
内部函数是在Fortran90程序中定义的函数，它们可以在程序的任何地方被调用。内部函数可以接受参数并返回一个值，用于执行特定的计算或操作。内部函数可以用于简化代码、提高代码的可读性和可维护性。
routine指令是Fortran90中的一种指令，用于定义一个子程序或子例程。它可以在程序中的任何位置使用，并且可以接受参数和返回值。routine指令可以用于封装一系列相关的操作或计算，以便在程序中多次调用。
使用routine指令可以将一段代码封装为一个子程序，使得代码更加模块化和可重用。这样可以提高代码的可维护性和可扩展性。通过将代码封装为子程序，可以将复杂的计算或操作分解为更小的部分，使得程序更易于理解和调试。
在Fortran90中，可以通过以下步骤在内部函数上使用routine指令：
- 定义内部函数：使用Fortran90的语法定义一个内部函数，可以指定函数的参数和返回值类型。
- 使用routine指令：在内部函数的定义之前使用routine指令来声明一个子程序或子例程。
- 实现子程序：在routine指令之后，编写子程序的具体实现代码。子程序可以包含任意的Fortran90语句和语法。
- 调用子程序：在程序的其他地方，可以通过调用内部函数来执行子程序的代码。可以传递参数给内部函数，并接收返回值。
Fortran90内部函数上使用routine指令的优势包括：
- 模块化和可重用性：通过将代码封装为子程序，可以将复杂的计算或操作分解为更小的部分，使得程序更易于理解和调试。这样的代码可以在程序的不同部分多次调用，提高了代码的可重用性。
- 可维护性和可扩展性：将代码封装为子程序可以提高代码的可维护性和可扩展性。如果需要修改或扩展某个功能，只需要修改或扩展对应的子程序，而不需要修改整个程序。
- 提高代码的可读性：通过将复杂的计算或操作封装为子程序，可以提高代码的可读性。通过调用内部函数，可以更清晰地表达代码的意图和逻辑。
- 代码复用：通过将常用的计算或操作封装为子程序，可以在不同的程序中复用这些代码。这样可以减少代码的重复编写，提高开发效率。
在Fortran90中，可以使用腾讯云的云计算产品来支持Fortran90程序的开发和部署。腾讯云提供了丰富的云计算服务，包括云服务器、云数据库、云存储等。具体推荐的腾讯云产品和产品介绍链接地址可以根据实际需求来选择，例如：
- 云服务器（ECS）：腾讯云的云服务器提供了高性能、可靠的计算资源，可以满足Fortran90程序的运行需求。产品介绍链接：https://cloud.tencent.com/product/cvm
- 云数据库（CDB）：腾讯云的云数据库提供了可扩展、高可用的数据库服务，可以存储和管理Fortran90程序的数据。产品介绍链接：https://cloud.tencent.com/product/cdb
- 云存储（COS）：腾讯云的云存储提供了安全、可靠的对象存储服务，可以存储和管理Fortran90程序的文件和数据。产品介绍链接：https://cloud.tencent.com/product/cos
需要根据具体的需求选择适合的腾讯云产品，并参考相应的产品介绍链接了解更多详细信息。
相关·内容
我为OpenAcc提供了对名为"lang_force“的子例程的访问权限，并在该子例程中调用了Fortran90内部函数RANDOM_NUMBER()。 subroutine lang_force(damp, temp, noise)
!$acc routine(lang_force)
implicit none
double precision, intent(in) :: damp, temp
double precision, dimension(1:3), intent(out) :: noise
double precision :: kb, a1, t
浏览 19提问于2020-09-23得票数 1
我有Fortran90函数 function eg_fun(r) bind(c)
use, intrinsic :: iso_c_binding
implicit none
real(c_double), intent(in) :: r
real(c_double) :: eg_fun
real(c_double), parameter :: PI = acos(-1.d0)
eg_fun = PI * r * r + cos(r)
end function 和我的C程序 #include <stdio.h>
#includ
浏览 39提问于2021-03-18得票数 1
回答已采纳
我正在用Fortran90编写一个模块，主要是在模块中定义一个函数，以及一个使用该函数的子例程。下面是模块的摘录
module Mesh_io
implicit none
private
contains
integer function findkey ( )
content of this function
end function
subroutine getNumber_Mesh ()
integer :: findkey
content of the routine
end subroutine getNumber_Mesh
end m
浏览 0提问于2018-05-17得票数 2
回答已采纳
3回答
我今天遇到了一些代码，看起来像这样：
subroutine sub(hello,world,this,routine,takes,a, &
& crazy,large,number,of,arguments, &
& so,many,that,it,gets,split,across,four, &
& lines)
似乎第5列中的&号是为了防止用户想要用f77编译器编译代码--我的问题是这是不是合法的(符合标准的)Fortran90代码。我猜想它
浏览 0提问于2012-05-14得票数 4
回答已采纳
如果SUBS后的标志EQ == 0，是否执行Routine1？或者必须通过BEQ进行分支(EQ标志必须为1)才能执行 。 我有以下代码： Change
SUBS R1, R1, #0x1
BEQ Routine 1
Routine 1
MOV R1, #0x10
B Change 。
浏览 14提问于2019-01-20得票数 0
回答已采纳
1回答
#include <thread>
#include <functional>
#include <utility>
using namespace std;
template<typename Callable, typename... Args>
void Async(Callable&& fn, Args&&... args)
{
auto fn_wrapper = [](Callable&& fn, Args&&... args)
{
in
浏览 3提问于2017-02-10得票数 6
回答已采纳
我有一台ArrayList <GeneralTemplate> items
在我的整个程序中，我都在添加例程，这些例程是GeneralTemplate的子类，即items.add(new Routine("Test"));，一切都很好。
最重要的是，我可以执行以下操作。Routine myRoutine = items.get(position);
我使用Google的GSON库将这个庞大的项目列表保存在JSON中的一个特殊数据对象中。我相信这可能是问题所在。
此数据对象包含ArrayList <GeneralTemplate> items。在我的程序中
浏览 0提问于2013-04-01得票数 3
回答已采纳
1回答
RISC-V跳转/呼叫指令需要目标地址对齐为4的倍数。因此，对于每个函数和标签，我按照下面的代码与p2align对齐：
.p2align 2
trap_routine: /* trap routine */
nop;
csrr t0, mcause;
...
li t2, 4;
beq t2, t1, LB_uart1_intr;
/* HACK: if not uart1, for gpio21 interrupt */
j LB_gpio21_intr;
浏览 10提问于2022-06-15得票数 0
几天前我问了的问题。
我希望获得堆栈分配大小(在函数创建之后)。答案建议这样做：
if((INS_Opcode(ins) == XED_ICLASS_ADD + INS_Opcode(ins) == XED_ICLASS_SUB) & REG(INS_OperandReg(ins，0)) == REG_STACK_PTR & INS_OperandIsImmediate(ins，1)
理论上是正确的，也是有意义的。但是，它在实践中行不通(如果我错了，请告诉我)。如果我删除REG(INS_OperandReg(ins, 0)) == REG_STACK_PTR检查，它会非
浏览 1提问于2019-03-27得票数 3
回答已采纳
3回答
头文件的C++样式
、、、
假设我有以下文件：
main.cpproutine.cpproutine.h
进一步假设main.cpp调用在routine.cpp中定义的函数routine()，但routine.cpp也包含仅由routine()函数使用的函数。换句话说，routine.cpp包含仅从routine.cpp内部调用的函数和从其他源文件调用的函数。
显然，main.cpp将包含#include "routine.h"。但是，是否应该包含的原型所有在routine.cpp (样式A)中定义的函数，还是只有才能包含从其他源文件调用的函数原型(样式B)？
我总是在样式A之后编写代码，但最近我想知道样
浏览 0提问于2012-04-22得票数 1
回答已采纳
我正在尝试在Fortran90中并行化我的python代码的一小部分。因此，作为一个开始，我试图了解产卵功能是如何工作的。
首先，我试图从python父母那里在python中生成一个子进程。我使用了来自的动态流程管理示例。一切都很好。在这种情况下，据我所了解，只使用父进程和子进程之间的互传器。
然后，我转到了一个示例，用于在fortran90中从python父进程中生成子进程。为此，我在 python代码(master.py)中使用了一个生成fortran子程序的示例，如下所示：
from mpi4py import MPI
import numpy
'''
slav
浏览 2提问于2020-04-25得票数 3
回答已采纳
1回答
这个问题与有关
其思想是定义一个DSL，用于在云中操作文件，并定义一个处理不同方面(如与REST接口的通信和日志记录)的解释器组合。
为了使这更具体，假设我们有以下数据结构来定义DSL的术语。
data CloudFilesF a
= SaveFile Path Bytes a
| ListFiles Path ([Path] -> a)
deriving Functor
我们将构建CloudFiles程序的函数定义为：
saveFile :: Path -> Bytes -> Free CloudFilesF ()
saveFile path bytes = liftF $
浏览 1提问于2016-10-18得票数 8
回答已采纳
1回答
为什么这个块不起作用？
、、、、
我有这个块，但由于某些原因，UITableView不能重新加载。你知道为什么吗？我在控制台中看到了保存的NSLog。
-(void)addRoutine
{
PFObject *routine = [[PFObject alloc] initWithClassName:@"Routine"];
[routine setObject:self.entered forKey:@"name"];
[routine saveInBackgroundWithBlock:^(BOOL succeeded, NSError *error
浏览 0提问于2011-10-26得票数 0
回答已采纳
我目前正试图在统一的情况下制作一本协同词典。其思想是，有几个字符，当玩家按下一个按钮时，它会调用一个函数，查找字典并运行一个与字符能力相对应的协同线(因为每个字符都有不同的能力)。
下面是我的代码：
private string characterName // The name of the player's character
private Dictionary<string, IEnumerator> abilitiesDictionary = new Dictionary<string, IEnumerator>();
void Start()
浏览 4提问于2022-05-26得票数 0
回答已采纳
目前正在阅读 (这是非常出色的一点)，并且有一个非常简单的问题：
如果我将(+3)和(+2)这样的两个函数与<$>组合在一起，它似乎给了我一个新函数，它为传递给它的任何函数添加了5。如果我对函数组合运算符(即(+3) . (+2) )做同样的操作，它会不会做同样的事情？如果这是真的，这两个操作符之间是否有关系，在这个简单的情况下，他们做同样的事情？
这是个聪明的问题吗？
浏览 6提问于2015-01-11得票数 7
回答已采纳
1回答
; another attempt to terminate program with Esc that hooks
; keyboard interrupt
[org 0x100]
jmp start
oldisr: dd 0 ; space for saving old isr
; keyboard interrupt service routine
kbisr: push ax
push es
mov ax, 0xb800
mov es, ax ; point es to video memory
in al, 0x60 ; rea
浏览 0提问于2017-05-11得票数 1
回答已采纳
1回答
Note这个问题现在已经解决了--见下面的答案--除非有人删除这篇文章，否则它只会在这里记录我自己的愚蠢，我想……尽管如此，使C++异常在Android JNI代码中工作的所有步骤和配置在下面都是正确的，所以它可能偶尔会帮助到某些人- Greg。
我正在阅读关于这个问题的所有可能的材料，并且不能在静态构建的本机库中使我的C++例外。知道我错过了什么吗？
Application.mk，正如您在下面看到的，我尝试了gnustl_static和stlport_static，但没有任何效果。我甚至强迫重建stlport_static..。
NDK_TOOLCHAIN_VERSION= 4.9
APP_
浏览 1提问于2016-01-13得票数 1
回答已采纳
1回答
我用Fortran90编写了一个科学程序。源代码包含一个注释的帮助部分作为标题，以帮助用户。
但是，我已经看到，在C程序中编写程序是可能的，比如可以使用-h作为选项将标头显示为标准输出。
在fortran中有什么方法可以做到吗？
也就是说，我可以做些什么来显示我的报头作为"myprogram -h“的响应吗？
谢谢你的帮助。
干杯。
浏览 0提问于2013-11-05得票数 1
1回答
Haskell中有类似于以下类型类的东西吗？
class Mergeable (f :: Type -> Type -> Type) where
merge :: f a b -> f c d -> f (a, c) (Either b d)
特别是，假设在某些值和路由上有一个Site类型的索引：
data Site a r
我们希望“合并”两个站点，例如和都将其数据(值)保存在内存中，同时支持路由的或。
instance Mergeable Site where
merge site1 site2 = ...
还有另一种类型，称为RouteEncoder
浏览 4提问于2022-02-18得票数 4
以下是我在FE310 Sifive-Hifive1-Rev B板上的陷阱例程。 my_trap_routine:
// read mcause
csrr t0, mcause;
// read mepc
csrr t1, mepc;
mret; 现在，我生成了一个加载访问错误异常，并且执行跳到了陷阱例程中。现在，如何清除处理程序内部的异常，使其不会一次又一次地跳入陷阱例程？
浏览 24提问于2021-07-04得票数 0
回答已采纳
这是我上一次的一个持续问题，但大部分都是无关的。
wrap方法被记录为返回“一个名为WrapHandle的私有类的实例。除了泄漏一个私有类之外，它实际上不是返回的东西的名称。这个类实际上是Routine::WrapHandle
$ perl6
> sub f() { say 'f was called' }
sub f () { #`(Sub|140397740886648) ... }
> my $wrap-handle = &f.wrap({ say 'before'; callsame; say 'after' });
浏览 5提问于2017-05-05得票数 5
回答已采纳
我有自己的测试库函数run_test_routine()
我在设置部分、测试部分和拆卸部分中的RF套件中调用相同的函数“运行测试例程”，如下所示
my RF test case
[Setup] Run Test Routine setup_input
Run Test Routine test_input
[Teardown] Run Test Routine teardown_input
现在，当这个run_test_routine()在RF库中被调用时，我如何知道它是从哪里调用的？也就是说，它是从设置部分、测试部分还是测试部分调用的？
浏览 3提问于2014-09-15得票数 0
回答已采纳
2回答
我们正在用FORTRAN90开发一个数值模拟程序(过程化的，而不是面向对象的，不幸的是，有一些公共块存在，但没有GOTO的:-)，并且正在考虑使用Python来帮助我们进行单元测试(追溯)和验证测试。我们希望在Python中建立一个测试环境，以便a)进行单元测试，b)进行验证测试(即使用知名的解决方案运行小型测试用例)。我们希望能够将不同的测试分组在一起(通过FORTRAN90过程进行单元测试，或者通过问题主题进行验证测试)，并允许单独或按组运行测试。
模拟程序是基于文本输入/输出的，因此我们可以提出一些要运行的输入文件，并与验证的输出文件进行比较。但是，对于单元测试，我猜我们可能需要为每个F
浏览 0提问于2013-08-06得票数 0
1回答
当我的R包目录结构直接在test文件夹中有R文件时
.
+--Projroot
+---- R
| -- routine1.R
| -- routine2.R
+---- tests
-- test_routine1.R
-- test_routine2.R
testthat捕获test_*.R文件，但是当测试本身依赖于大量的文件时，使用测试子目录就更干净了
.
+--Projroot
+---- R
| -- routine1.R
| -- routine2.R
+---- tests
|
+---- test_
浏览 0提问于2018-02-26得票数 2
回答已采纳
1回答
我有一个可以迭代很长时间(几个小时)的求解器，为了节省时间，我正在尝试从主循环中删除几个if语句。
实际上，我在这里要做的是创建一个例程updateGhosts，它指向一个指定的例程。此例程属于派生数据类型，其中包含其他几个属性和例程。我想使用例程setGhosts将updateGhost设置为ghostOne或ghostTwo，这将是正确更新某些条件的例程。
我似乎找不出一种方法来编译代码，尽管我已经尝试了几种不同的方法，但都没有用。
为了简单起见，我试图尽可能减少代码样本，但实际上，类型GridPoint和BlockType需要处理更多的参数，因此不能进行简单的重构。
下面是精简后的代码：
浏览 2提问于2013-11-10得票数 1
2回答
我以C++ 中的这个例子为例
这是C实现
#include <stdio.h>
#include <stdlib.h>
#define max(a,b) \
({ __typeof__ (a) _a = (a); \
__typeof__ (b) _b = (b); \
_a > _b ? _a : _b; })
//#ifndef max
// #define max(a,b) ((a) > (b) ? (a) : (b))
//#endif
struct rent
{
int starttime, end
浏览 4提问于2017-04-28得票数 0
回答已采纳
NVC++-W-1056-External variables used in acc routine need to be in #pragma acc create() - i (sim_xy1.c: 1012)
NVC++-W-1056-External variables used in acc routine need to be in #pragma acc create() - i (sim_xy1.c: 1010)
NVC++-W-1056-External variables used in acc routine need to be in #pragma acc crea
浏览 5提问于2022-07-01得票数 0
2回答
我想使用Fortran 90中的系统命令来执行以下命令：
command = awk '{print "C"NR,$1,$2,$3}' filename1 > filename2
call system(trim(command))
在这里，我的filename1和filename2是Fortran90程序中的变量。但问题是，任何字符都可以分配给一个包含在撇号之间的变量，而我的变量也应该由撇号组成。我不知道如何在Fortran 90中输入它。
浏览 0提问于2015-05-19得票数 3
1回答
在tasklet_action例程中-处理来自tasklet_vec列表的条目时
核心，我们正在原子读取计数(&t->atomic_read)，我看不到
它在日常生活中的任何用法，它的意义是什么？
if (tasklet_trylock(t)) { // check is it is not already being executed
if (!atomic_read(&t->count)) {
if (!test_and_clear_bit(TASKLET_STATE_SCHED, &t->state))
浏览 5提问于2015-10-16得票数 0
我试图在一个特定的例程中迭代一个基本块，但是我发现了一些问题：
VOID Routine(RTN rtn, VOID *v)
{
RTN_Open(rtn)
for (BBL bbl = RTN_BblHead(rtn); BBL_Valid(bbl); bbl = BBL_Next(bbl))
{ /* some code */ }
RTN_Close(rtn);
}
错误:不推荐-声明，
我怎样才能修正这个错误，或者用另一种方式去做呢？
浏览 2提问于2015-11-01得票数 0
回答已采纳
2回答
我正在尝试从编写引导加载程序。编写的代码是
BITS 16
start:
mov ax, 07C0h ; Set up 4K stack space after this bootloader
add ax, 288 ; (4096 + 512) / 16 bytes per paragraph
mov ss, ax
mov sp, 4096
mov ax, 07C0h ; Set data segment to where we're loaded
mov ds, ax
mov si, t
浏览 0提问于2016-03-03得票数 2
我想使用Visual 2010从使用英特尔fortran 2011在Windows 7上编译的fortran90程序创建一个fortran90数据集
我可以使用预构建的二进制文件吗?或者如何构建新的二进制文件？
浏览 4提问于2013-11-18得票数 1
回答已采纳
在Haskell关于不动点的文本中，经常提到最小和最大的不动点。例如在文档或中。
最小和最大的含义是关于所涉及的类型的顺序(或者仅仅在不动点上定义它就足够了吗？)不管怎么说，我从来没见过这个命令被明文规定。
在哈斯克尔，一个定点比另一个定点更大，这在形式上意味着什么？
浏览 3提问于2020-05-13得票数 8
回答已采纳
我在理解Fortran90的kind参数时遇到了问题。据我所知，它不决定变量的精度(即，浮点数或双精度)，也不决定变量的类型。
那么，它决定了什么，它到底是为了什么呢？
浏览 0提问于2009-05-08得票数 46
2回答
我不明白为什么我的Fortran90程序不再写入文件。几个小时前它还能用。我没有修改这部分代码，也没有引入一些它不应该写入文件的条件。在下一行，我放了一个print命令，它在终端上写入应该写入文件的相同值，这是有效的。
open(500, file='data.dat')
write(500,fmt='(E14.4,E14.4)') A,B !this SHOULD be printed on unit 500
write(*, fmt='(E14.4,E14.4)') A,B ! this is printed on terminal
浏览 2提问于2016-12-31得票数 0
为什么在模块测试之外调用r1和r2有区别？
module TEST {
our &r1 := OUR::{'&r1'} := sub {
say 'routine 1'
}
r1(); # routine 1
our &r2 := sub {
say 'routine 2'
}
r2(); # routine 2
}
import TEST;
say TEST::.keys; # (
浏览 1提问于2020-06-06得票数 5
回答已采纳
我想将一个类方法传递给另一个函数，并编写了以下代码：
class x {
executeQuery(std::string query, int (*f)(void* cpuInfo, int argc, char** argv, char** azColName))
{
int rc = sqlite3_exec(db, query.c_str(), &f, 0, &errMessage);
...
}
};
上面的代码显示了我从类构造函数中调用的函数！
myclass()
{
xObject->exec
浏览 1提问于2014-04-07得票数 1
回答已采纳
1回答
我有一堂课“课程表”。
public class schedule {
public int P;
public int K;
Vector<Vector<element>> r;
public schedule(int p, int k) {
this.P = p;
this.K = k;
r = new Vector<Vector<element>>(5 * P);
for (int i = 0; i < 5 * p; i++) {
Vector<e
浏览 3提问于2017-11-14得票数 1
回答已采纳
函子显然效率更高，因为编译器更容易将它们内联，而且它们在参数化方面工作得更好。什么时候应该对函子使用普通的旧函数？
浏览 3提问于2017-05-03得票数 7
回答已采纳
3回答
通过动态值调用子例程
、、、
我对68k非常陌生，我想知道是否可以通过内存中的值调用特定的子例程。
伪代码示例：
X: dc.w 0
routine1:
code
rts
routine2:
more code
rts
在代码中的某个地方，比如：
move.w #2,X
JSR routine(X)
为了让routine2被执行，move.w #1,X在routine1之前
我不知道也找不到任何例子，我的猜测是制作一个包含例程的标签，然后使用地址寄存器跳转到特定的偏移量，但不知道怎么做。
欢迎任何帮助！
浏览 8提问于2020-11-09得票数 2
回答已采纳
1回答
我正在构建一个可搜索/可选择的组合框，并希望在失去焦点时关闭控件。使用tabindex和ng模糊，这是有效的，除非有一个子控件，可以接收焦点(搜索输入)。
是否有一种方法可以检查顶部的div#combo是否有任何具有焦点的子控件？
简化代码：
<div name="combo" ng-click="show=!show" ng-show="show" ng-blur="show=false" tabindex="1">
<input type="text" name=
浏览 0提问于2018-06-15得票数 0
我得到以下错误
错误:模板解析错误:不能绑定到'ngforOf‘，因为它不是一个已知的’离子-项目‘属性。1.如果“离子项”是一个角度分量，并且它有“ngforOf”输入，则验证它是该模块的一部分。2.如果“离子-项目”是网络组件，则在该组件的“CUSTOM_ELEMENTS_SCHEMA”中添加“@NgModule.schemas”以抑制此消息。3.若要允许任何属性添加“NO_ERRORS_SCHEMA”到此组件的“@NgModule.schemas”，请执行以下操作。(...
有关以下模板代码
<ion-card *ngFor="let i of routineL
浏览 5提问于2017-10-15得票数 0
回答已采纳
我想制定一个有一个独立范围的指令。在该指令中有一些其他指令，这些指令应该具有与其父指令相同的作用域。
<parent> <!-- Isolated scope -->
<child> </child> <!-- Belongs to the container isolated scope -->
</parent>
我无法做到这一点。
编辑
柱塞显示了如果父范围是子作用域，子域如何与父作用域保持相同的作用域。我忘记了，当您不使用模板/templateUrl时，元素中的数据不会被丢弃。
如果父作用域是孤立的，那么子范
浏览 1提问于2015-08-18得票数 0
回答已采纳
1回答
我不想编写一个使用大量内联程序集的内核模块。由于我已经习惯了英特尔语法，我想完全避免AT&T语法。下面的最小示例显示了一种实现此功能的方法：
samplemodule.c
#include <linux/init.h>
#include <linux/kernel.h>
#include <linux/module.h>
MODULE_LICENSE("GPL");
unsigned long foo(void) {
unsigned long ret = 0;
asm (
".intel
浏览 1提问于2015-01-09得票数 1
回答已采纳
今天，当我在linux上调试代码时，我突然发现gdb中的函数地址与nm显示的不同。(可执行文件是静态链接的。)
我认为它们显示的地址应该是相同的，因为它们都是逻辑地址。但今天的发现让我很困惑。
有人知道他们与众不同的原因吗？
我编写了下面的简单程序来说明我遇到了什么。
void fo()
{
return ;
}
void foo()
{
fo();
浏览 4提问于2013-09-24得票数 4
回答已采纳
1回答
我有一个fortran90代码要优化。现在，我想访问外部循环中结构的内存位置，然后访问嵌套循环中最深的结构。就像这样：
示例fortran循环-遗留版本
do i = 1, N
ii = some integer
jj = some other integer
do j = 1, M
c = a(ii, jj)%b(i)
enddo
enddo
必须成为：
第二个fortran循环-我想写什么
do i = 1, N
ii = some integer
jj = some other integer
pointertoa = &a(ii, jj) !
浏览 1提问于2014-10-13得票数 0
3回答
汇编子例程
、、
我可以在汇编bne jsr swap上做这样的事情吗?如果不能，我如何从C语言解决这个问题，提前谢谢
if(start!=pivot_index){
swap(board,start,pivot_index);
}
我被教导必须写jsr和sub-routine，但我能做像这样的bne sub-routine吗
浏览 14提问于2010-05-23得票数 4
回答已采纳
我正试着翻译关于写免费单曲的内容。
该示例的要点似乎是将单独的关注点分解为不同的数据类型：
data Interact a = Ask (String -> a) | Tell String a deriving (Functor)
data DataOp = AddCat String | GetAllCats [String] deriving (Functor)
type CatsApp = Sum Interact DataOp
如果没有这两个独立的关注点，我将为Interact操作构建如下“语言”：
ask :: Free Interact String
ask = lif
浏览 3提问于2017-11-18得票数 4
回答已采纳
1回答
日安，
我正在写一个程序“地理计算器”作为我们大学的一项任务。我面对一个设计问题。接口包含两个组:A和B。每个组由两个组合框和一个表组成。第一个组合框允许用户在两个参考系统(WGS-84、SK-42、SK-95等)之间进行选择。大地坐标系、空间坐标系和平面坐标系之间的第二个。该表用于输入一组点(标号、X(或B)、Y(或L)、Z(或H))。转换函数涉及大量的常数和大量的公式。
我的问题是:为了调用适当的转换函数，组织代码、连接组合框和函数的最佳方法是什么？
让我们来谈谈重点。我子类化了一个抽象模型(PointsModel)，其中存储了我所有的观点。它对组合框和算法一无所知。组合框在MainWin
浏览 2提问于2014-11-25得票数 0
回答已采纳
1回答
为什么不伯爵夫人？
、、、
我使用Fortran分析我的gprof代码，我有两个主要子程序-- subroutine A和subroutine B。我运行每个例程10倍，然后平均运行时。这两个例程都使用matmul，但使用subroutine B moreso。
当我在与-fexternal-blas链接时打印出运行时，我得到：
Average time taken for routine A .... 0.41080 seconds
Average time taken for routine B .... 2.28760 seconds
当我不使用-fexternal-blas打印运行时时，我得到：
Av
浏览 2提问于2015-07-25得票数 1
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
对象存储
实时音视频
即时通信 IM活动推荐
腾讯云开发者
