I tried to run this code after compile it, and it
did't run. Can somebody help me with this?
program sph
include 'mpif.h'
call data_
end
subroutine data_
C
integer nprocs, rank, ierror
integer start_address, address
integer x
integer l(2), d(2), t(2)
real c
C
call mpi_init(ierror)
call mpi_comm_size(MPI_COMM_WORLD, nprocs,
ierror)
call mpi_comm_rank(MPI_COMM_WORLD, rank,
ierror)
C
l(1) = 1
l(2) = 1
call mpi_address(x, start_address, ierror)
d(1) = 0
call mpi_address(c, address, ierror)
d(2) = address - start_address
t(1) = MPI_INTEGER
t(2) = MPI_REAL
call mpi_type_struct(2, l, d, t, packz,
ierror)
call mpi_type_commit(packz, ierror)
call mpi_finalize(ierror)
end
=====
Mathias Brito
Universidade Estadual de Santa Cruz - UESC
Departamento de Ciências Exatas e Tecnológicas
Estudante do Curso de Ciência da Computação
______________________________________________________________________
Yahoo! Mail - O melhor e-mail do Brasil! Abra sua conta agora:
http://br.yahoo.com/info/mail.html
|
