Qual é a diferença entre um bloco INTERFACE e um procedimento MODULE em fortran?

Fortran - Retorna uma função anônima da sub-rotina

Estou tentando generalizar uma chamada de função de uma sub-rotina. Então, minha ideia é algo como isto if (case1) then call MainSubroutine1(myFun) elseif (case2) call MainSubroutine2(myFun) end if do i = 1,4 data = myFun(i) end doSei que isso ...

Chamando uma sub-rotina interna na região do OpenMP

Eu tenho um módulo que contém uma sub-rotina que contém outra sub-rotina. A sub-rotina externa possui uma região OpenMP paralela na qual chamo de sub-rotina interna. O código compila e executa sem nenhum erro, mas os resultados não ...

Como posso fazer referência a uma sub-rotina Perl?

Estou tendo problemas para descobrir como fazer referência a uma sub-rotina em um arquivo de módulo externo. No momento, estou fazendo o seguinte: Arquivo externo package settingsGeneral; sub printScreen { print $_[0]; }a Principal use ...

Passando um caractere alocável para uma sub-rotina com argumento fictício polimórfico ilimitado no Fortran

Estou tentando escrever uma rotina capaz de converter uma string em diferentes tipos de dados, com base no polimorfismo ilimitado. A idéia é que o usuário chame essa rotina, passando a variável onde deseja armazenar os dados e a rotina para ...

Variável declarada externamente (global) no Fortran

Quero saber se é possível declarar uma variável e fazer com que a declaração seja transferida para outra sub-rotina ou programa (portanto, torne-se global) Por exemplo program main implicit none call mysub print *, x end program main ...

Contém declaração

Eu não estou entendendo a importância deCONTÉMdeclaração no fortran 90 Por exemplo PROGRAM BLABLA IMPLICIT NONE INTEGER :: i,j,k i = 1; j = 1;k =1 PRINT *, i,j,k CALL ABC(i,j,k) PRINT *, i,j,k CONTAINS SUBROUTINE ABC(r,s,t) IMPLICIT ...

sub-rotina perl retornando array e str, mas eles estão sendo mesclados

sub process_feed { my ($line) = @_; my @lines; my $last_received = ""; while (1) { if ($line =~/^{(.*?)}(.*)/) { push @lines, $1; $line = $2; } else { $last_received = $line; last; } } print "sending back @lines, $last_received\n"; return ...

Qual é a melhor maneira de descobrir todas as sub-rotinas que um módulo Perl possu

Qual é a melhor maneira de descobrir programaticamente todas as sub-rotinas que um módulo perl possui? Pode ser um módulo, uma classe (sem @EXPORT) ou qualquer coisa intermediária. Edit: Todos os métodos abaixo parecem funcionar. Eu ...

Astérks no Fortran: Erro de sintaxe na lista de argumentos em (1)

No código fortran77 a seguir, existe esta definição de sub-rotina SUBROUTINE MSIRNS ( D , NOBST , N , X , R , RR , SURFT , , INOBSI , ISUR , IDELTS , IRELPS , , RNOBSI , RSUR , RDELTS , RRELPS , , OBSD , * , * )ual é o significado dos dois ...