TobiR's questions

Tenho o seguinte exemplo:

LIST_JOB = job1 job2 job3

define macro
$(info "JOB: $(1)")
job_$(1): job.f90
   ifort -c job.f90
   $(shell touch job.f90)
endef

all: rule

rule: $(foreach job,$(LIST_JOB), job_$(job))

$(foreach job,$(LIST_JOB), \
   $(eval $(call macro,$(job))) \
)

que imprime as $(info "JOB: $(1)")linhas primeiro e depois os comandos de compilação:

"JOB: job1"
"JOB: job2"
"JOB: job3"
ifort -c job.f90
ifort -c job.f90
ifort -c job.f90

Existe alguma maneira de imprimir as linhas de cabeçalho logo antes da compilação (claro, mantendo o loop macroe o foreachloop)? Isso significaria a seguinte ordem:

"JOB: job1"
ifort -c job.f90
"JOB: job2"
ifort -c job.f90
"JOB: job3"
ifort -c job.f90

Tenho o seguinte exemplo de Makefile:

BUILD = build
PATH_POT3 = src/pot/pot3/
MPIFC = mpiifort
FFLAGS = -O3

MOL_LIST = $(shell find $(PATH_POT3) -mindepth 1 -maxdepth 1 -type d)

$(foreach MOL,$(MOL_LIST), \
  $(eval LIST_MOL := $(shell find $(MOL) -name "*.f90")) \
  $(info Fortran files: $(LIST_MOL)) \
  $(foreach SRC,$(LIST_MOL), \
    $(eval OBJ := $(BUILD)/$(notdir $(SRC:.f90=.o))) \
    $(OBJ): $(SRC) ; \
    $(info Compiling: $(SRC)) \
    $(info Output: $(OBJ)) \
    $(MPIFC) $(FFLAGS) -c $(SRC) -o $(OBJ) \
  ) \
)

all: $(foreach MOL,$(MOL_LIST),\
    $(foreach SRC,$(shell find $(MOL) -name "*.f90"),\
        $(BUILD)/$(notdir $(SRC:.f90=.o))\
    )\
)

Aqui, eu gostaria de compilar o conteúdo (recursivo) de cada PATH_POT3subdiretório de forma sequencial (um subdiretório após o outro). Infelizmente, essa construção não fornece o resultado desejado, pois compila apenas o primeiro arquivo-objeto da lista, ignorando todos os outros. O Makefile imprime as seguintes informações para o meu caso de teste:

Fortran files: src/pot/pot3/ar3/pot_ar3.f90 src/pot/pot3/ar3/ar43/pot_ar43.f90
Compiling: mpiifort -O3 -c src/pot/pot3/ar3/pot_ar3.f90 -o build/pot_ar3.o
Output: build/pot_ar3.o
Compiling: mpiifort -O3 -c src/pot/pot3/ar3/ar43/pot_ar43.f90 -o build/pot_ar43.o
Output: build/pot_ar43.o
Fortran files: src/pot/pot3/ar33/pot_ar33.f90 src/pot/pot3/ar33/pot_ar333.f90 src/pot/pot3/ar33/ar53/pot_ar53.f90
Compiling: mpiifort -O3 -c src/pot/pot3/ar33/pot_ar33.f90 -o build/pot_ar33.o
Output: build/pot_ar33.o
Compiling: mpiifort -O3 -c src/pot/pot3/ar33/pot_ar333.f90 -o build/pot_ar333.o
Output: build/pot_ar333.o
Compiling: mpiifort -O3 -c src/pot/pot3/ar33/ar53/pot_ar53.f90 -o build/pot_ar53.o
Output: build/pot_ar53.o
make: 'build/pot_ar3.o' is up to date.

Tudo parece estar configurado corretamente, mas a compilação é executada somente para build/pot_ar3.o.

Como devo alterar este arquivo para obter o comportamento necessário?

Gostaria de chamar a syevdsub-rotina Lapack95 para uma matriz não contígua da seguinte maneira:

real :: mat(15000, 15000), vec(15000)
mat=1.d0
associate(eig_vects=>mat(:10000,:10000),eig_vals=>vec(:10000))
   call syevd(eig_vects,eig_evals,'V')
end associate

É seguro fazer isso? Anteriormente, tive problemas ao passar fatias de array não contíguas para uma subrotina (o array temporário criado por essa subrotina não pôde ser alocado). Posso esperar problemas semelhantes ao usar o eig_vectsponteiro como argumento?

Estou com dificuldades para preencher um array de strings em um código C++. Aqui está o que tentei fazer:

principal.f90:

program main
    implicit none
    character(len=100) arr(3)
    call get_string_array(arr, 100, 3)
    write(*,'(3(a,3x))') arr
end

cpp_func.cpp:

#include <cstring>
#include <algorithm>

using namespace std;

void ConvertToFortran(char* fstring, size_t fstring_len, const char* cstring)
{
    size_t inlen = strlen(cstring);
    size_t cpylen = min(inlen, fstring_len);

    fill(fstring, fstring + fstring_len, ' ');
    copy(cstring, cstring + cpylen, fstring);
}

extern "C"
{
  void get_string_array_(char** arr, int len, int n)
  {
      const char* strings[] = {"duma1", "duma2", "duma3"};
      for (int i = 0; i < n; i++)
          ConvertToFortran(arr[i], len, strings[i]);
  }
}

Depois de compilar os dois arquivos como

ifx -c main.f90
icx -c cpp_func.cpp
ifx main.o cpp_func.o

Recebo uma falha de segmentação. Você poderia me ajudar a imprimir array arrcorretamente dentro de main.f90?

*** Editar ***

Qualquer solução que seja capaz de passar uma matriz de strings de C++ para Fortran seria apreciada.