OpenMPI를 사용하는 다른 프로세서에서 hist(1:1000)이라는 동일한 배열을 갖고 싶습니다. 하나의 프로세서가 수정 될 때 hist이 수정 사항이 나머지 프로세서에서 업데이트됩니다. 코드를 작성하고 hist(1:1000)을 선언했지만 문제는 hist이 각 프로세서에서 독립적으로 업데이트된다는 것입니다. 그런 다음 정보를 기반으로 다른 히스토그램을
함수를 인수로 취하는 Fortran 90 서브 루틴을 가지고 있으며이 함수의 수정 된 버전을 다른 서브 루틴으로 전달하려고합니다. 프로그램이 다음과 같이 보이길 원합니다 : subroutine foo(f, ...)
real :: pt(2), dir(2)
interface
function f(x) result(y)
현재 포트란 매트릭스 계산기에서 작업 중입니다. 컴파일하는 프로그램이 있고 올바른 결과를받지 못하는 것 외에는 작동하는 것 같습니다. 추가 기능을 선택하면 프로그램이 두 행렬을 받아들이고 함께 추가합니다. 내 결과가 잘못 나오는 것 같습니다. 예를 들어, 두 개의 행렬을 크기 2x2와리스트 1을 각각 선택하면 3,3,3의 덧셈 결과를받습니다. 나는 알고리즘
나는 코드 모듈 (포트란 F90 파일)를 정의하고이 두 서브 루틴으로 공급했습니다이 pure Subroutine XRotation (x, y, z, Xrot, xp, yp, zp)
! Rotate about X-axis through the angle Xrot
real*4, INTENT(IN) :: x, y, z, xrot
real*4, INTENT
C++ 메인 프로그램에서 Fortran 90 코드를 호출하려고합니다. Fortran 서브 루틴은 double (X라고 함) 배열을 매개 변수로 사용하여 코드의 여러 위치에서 크기 (X)를 사용합니다. 나는 double *x = new double[21]
을 통해 생성 된 C 배열로 루틴을 호출하지만 포트란 코드 크기 (X)의 결과를 인쇄 할 때 나는 8
Fortran을 사용하여 exp (x)/sin (x)에 대한 Taylor 시리즈 확장을 작성하려고했지만, = 3 및 X = 1.0) 수동으로 추가하면 결과가 예상과 일치하지 않습니다. 손으로 4.444 ..를 계산했고, 프로그램에서 7.54113을 찾았습니다. 내 코드를 확인하고 내가 잘못 됐는지 말해 줄래? 여기 는 울프 럼 알파의 전자^X/죄 (x)에
각 노드에 16 개의 프로세서가있는 클러스터에서 작업하고 있습니다. Open MPI의 내 버전은 입니다. 1.5.3. 내가 포트란에 다음과 같은 간단한 코드를 작성했습니다 : program MAIN
implicit none
include 'mpif.h'
integer status(MPI_STATUS_SIZE)
intege