DMARC-Filter: OpenDMARC Filter v1.3.2 sourceware.org 948CB384607B
Subject: Re: Problem with OpenMPI
To: cygwin AT cygwin DOT com
References: <CAL8czr2kheRUF+PPt6RinGdoYROc82hXEUGzcA7Lsa_gt680iA AT mail DOT gmail DOT com>
Message-ID: <fca6059d-ea72-a758-3ed2-8dcecee5d414@gmail.com>
Date: Thu, 1 Oct 2020 21:29:48 +0200
User-Agent: Mozilla/5.0 (Windows NT 10.0; WOW64; rv:68.0) Gecko/20100101
 Thunderbird/68.12.0
MIME-Version: 1.0
In-Reply-To: <CAL8czr2kheRUF+PPt6RinGdoYROc82hXEUGzcA7Lsa_gt680iA@mail.gmail.com>
Content-Language: it
Precedence: list
From: Marco Atzeri via Cygwin <cygwin AT cygwin DOT com>
Reply-To: Marco Atzeri <marco DOT atzeri AT gmail DOT com>
Content-Type: text/plain; charset="utf-8"; Format="flowed"
Errors-To: cygwin-bounces AT cygwin DOT com
Sender: "Cygwin" <cygwin-bounces AT cygwin DOT com>
Content-Transfer-Encoding: 8bit

On 01.10.2020 16:47, Rudnei Dias da Cunha via Cygwin wrote:
> Hi,
> I have installed all the relevant OpenMPI packages to develop programs in
> Fortran but found a problem when compiling programs in Fortran 90 with the
> clause
> 
> use mpi
> 
> as mpifort then complains:
> 
> $ mpifort hello_usempi.f90
> hello_usempi.f90:13:9:
> 
>     13 |     use mpi
>        |         1
> Fatal Error: Cannot open module file ‘mpi.mod’ for reading at (1): No such
> file or directory
> 
> The workaround was to use
> 
> mpifort -J/usr/lib
> 
> as /usr/lib is the directory where mpi.mod resides after the installation
> of the OpenMPI packages.
> 
> Has anyone found this before? Shouldn't the flag -J/usr/lib be issued as
> part of the string issued by mpifort?
> 
> Regards
> Rudnei

there are not so many user of mpifort
but I do not see the problem building the examples:


$ make
mpicc -g  hello_c.c  -o hello_c
mpicc -g  ring_c.c  -o ring_c
mpicc -g  connectivity_c.c  -o connectivity_c
make[1]: Entering directory '/pub/devel/openmpi/examples64'
make[2]: Entering directory '/pub/devel/openmpi/examples64'
mpifort -g  hello_mpifh.f  -o hello_mpifh
mpifort -g  ring_mpifh.f  -o ring_mpifh
make[2]: Leaving directory '/pub/devel/openmpi/examples64'
make[2]: Entering directory '/pub/devel/openmpi/examples64'
mpifort -g  hello_usempi.f90  -o hello_usempi
mpifort -g  ring_usempi.f90  -o ring_usempi
make[2]: Leaving directory '/pub/devel/openmpi/examples64'
make[2]: Entering directory '/pub/devel/openmpi/examples64'
mpifort -g  hello_usempif08.f90  -o hello_usempif08
mpifort -g  ring_usempif08.f90  -o ring_usempif08
make[2]: Leaving directory '/pub/devel/openmpi/examples64'
make[1]: Leaving directory '/pub/devel/openmpi/examples64'


$ cat hello_usempi.f90
!
! Copyright (c) 2004-2006 The Trustees of Indiana University and Indiana
!                         University Research and Technology
!                         Corporation.  All rights reserved.
! Copyright (c) 2004-2005 The Regents of the University of California.
!                         All rights reserved.
! Copyright (c) 2006-2015 Cisco Systems, Inc.  All rights reserved.
! $COPYRIGHT$
!
! Sample MPI "hello world" application using the Fortran mpi module
! bindings.
!
program main
     use mpi
     implicit none
     integer :: ierr, rank, size, len
     character(len=MPI_MAX_LIBRARY_VERSION_STRING) :: version

     call MPI_INIT(ierr)
     call MPI_COMM_RANK(MPI_COMM_WORLD, rank, ierr)
     call MPI_COMM_SIZE(MPI_COMM_WORLD, size, ierr)
     call MPI_GET_LIBRARY_VERSION(version, len, ierr)

     write(*, '("Hello, world, I am ", i2, " of ", i2, ": ", a)') &
           rank, size, version

     call MPI_FINALIZE(ierr)
end



--
Problem reports:      https://cygwin.com/problems.html
FAQ:                  https://cygwin.com/faq/
Documentation:        https://cygwin.com/docs.html
Unsubscribe info:     https://cygwin.com/ml/#unsubscribe-simple