Dear Gus, Dear All, so are you suggesting to use DOUBLE PRECISION and not REAL(dp)? Thanks again
Diego On 9 January 2015 at 00:02, Gus Correa <g...@ldeo.columbia.edu> wrote: > On 01/08/2015 05:50 PM, Diego Avesani wrote: > >> Dear George, Dear all, >> what are the other issues? >> >> Why did you put in selected_real_kind(15, 307) the number 307 >> >> > Hi Diego > > That is the Fortran 90 (and later) syntax for selected_real_kind. > The first number is the number of digits in the mantissa, > the second is the exponent range. > For (simpler) alternatives, see here: > > http://fortranwiki.org/fortran/show/Real+precision > > A lot of grief (and probably the segfault) > could have been saved if you just used > "DOUBLE PRECISION", instead of REAL in your > structure components declaration, as I suggested a while back. > > I hope this helps, > Gus Correa > > > Thanks again >> >> Diego >> >> >> On 8 January 2015 at 23:24, George Bosilca <bosi...@icl.utk.edu >> <mailto:bosi...@icl.utk.edu>> wrote: >> >> Diego, >> >> Please find below the corrected example. There were several issues >> but the most important one, which is certainly the cause of the >> segfault, is that "real(dp)" (with dp = selected_real_kind(p=16)) is >> NOT equal to MPI_DOUBLE_RECISION. For double precision you should >> use 15 (and not 16). >> >> George. >> >> >> On Thu, Jan 8, 2015 at 6:08 AM, Jeff Squyres (jsquyres) >> <jsquy...@cisco.com <mailto:jsquy...@cisco.com>> wrote: >> >> There were still some minor errors left over in the attached >> program. >> >> I strongly encourage you to use "use mpi" instead of "include >> 'mpif.h'" because you will get compile time errors when you pass >> incorrect / forget to pass parameters to MPI subroutines. When >> I switched your program to "use mpi", here's what the compiler >> showed me: >> >> 1. the name "MPI" is reserved >> 2. need to pass displacements(1:nstruct+1) to >> mpi_type_create_struct >> 3. need to pass request(1) to mpi_isend >> 4. need to pass request(1) to mpi_wait >> 5. need to pass ierr argument to mpi_wait >> >> 1-4 are technically not correct, but the program would likely >> (usually) compile/run "correctly" anyway. 5 is probably what >> caused your segv. >> >> Attached is my copy of your program with fixes for the >> above-mentioned issues. >> >> BTW, I missed the beginning of this thread -- I assume that this >> is an artificial use of mpi_type_create_resized for the purposes >> of a small example. The specific use of it in this program >> appears to be superfluous. >> >> >> >> >> >> On Jan 8, 2015, at 4:26 AM, Gilles Gouaillardet >> <gilles.gouaillar...@iferc.org >> <mailto:gilles.gouaillar...@iferc.org>> wrote: >> >> > Diego, >> > >> > yes, it works for me (at least with the v1.8 head and gnu >> compilers) >> > >> > Cheers, >> > >> > Gilles >> > >> > On 2015/01/08 17:51, Diego Avesani wrote: >> >> Dear Gilles, >> >> thanks again, however it does not work. >> >> >> >> the program says: "SIGSEGV, segmentation fault occurred" >> >> >> >> Does the program run in your case? >> >> >> >> Thanks again >> >> >> >> >> >> >> >> Diego >> >> >> >> >> >> On 8 January 2015 at 03:02, Gilles Gouaillardet < >> >> >> >>gilles.gouaillar...@iferc.org <mailto:gilles.gouaillardet@ >> iferc.org> >> >> > wrote: >> >> >> >> >> >>> Diego, >> >>> >> >>> my bad, i should have passed displacements(1) to >> MPI_Type_create_struct >> >>> >> >>> here is an updated version >> >>> >> >>> (note you have to use a REQUEST integer for MPI_Isend and >> MPI_Irecv, >> >>> and you also have to call MPI_Wait to ensure the requests >> complete) >> >>> >> >>> Cheers, >> >>> >> >>> Gilles >> >>> >> >>> >> >>> On 2015/01/08 8:23, Diego Avesani wrote: >> >>> >> >>> Dear Gilles, Dear all, >> >>> >> >>> I'm sorry to bother you again, but I have some problem with >> send and >> >>> receive the struct_data. >> >>> >> >>> I tried to send a MPI_Type_Create_Struct but I get a >> segmentation fault >> >>> occurred and I do not know why. The program is very simple, >> it is the old >> >>> one with the isend and irecv subroutines >> >>> >> >>> (you can find it in the attachment) >> >>> >> >>> Thanks again >> >>> >> >>> >> >>> Diego >> >>> >> >>> >> >>> On 5 January 2015 at 15:54, Diego Avesani >> >>> <diego.aves...@gmail.com <mailto:diego.aves...@gmail.com>> >> <diego.aves...@gmail.com <mailto:diego.aves...@gmail.com>> >> >>> wrote: >> >>> >> >>> >> >>> Dear Gilles, >> >>> >> >>> Thanks, Thanks a lot. >> >>> Now is more clear. >> >>> >> >>> Again, thanks a lot >> >>> >> >>> Diego >> >>> >> >>> >> >>> >> >>> >> >>> >> >>> _______________________________________________ >> >>> users mailing >> >>>listus...@open-mpi.org <mailto:listus...@open-mpi.org> >> >>> >> >>> Subscription: >> >>>http://www.open-mpi.org/mailman/listinfo.cgi/users >> >>> >> >>> Link to this post: >> >>>http://www.open-mpi.org/community/lists/users/2015/01/ >> 26116.php >> >>> >> >>> >> >>> >> >>> >> >>> _______________________________________________ >> >>> users mailing list >> >>> >> >>>us...@open-mpi.org <mailto:us...@open-mpi.org> >> >>> >> >>> Subscription: >> >>>http://www.open-mpi.org/mailman/listinfo.cgi/users >> >>> >> >>> Link to this post: >> >>> >> >>>http://www.open-mpi.org/community/lists/users/2015/01/ >> 26118.php >> >>> >> >>> >> >>> >> >> >> >> >> >> _______________________________________________ >> >> users mailing list >> >> >> >>us...@open-mpi.org <mailto:us...@open-mpi.org> >> >> >> >> Subscription: >> >>http://www.open-mpi.org/mailman/listinfo.cgi/users >> >> >> >> Link to this post: >> >>http://www.open-mpi.org/community/lists/users/2015/01/26124.php >> > >> > _______________________________________________ >> > users mailing list >> >us...@open-mpi.org <mailto:us...@open-mpi.org> >> > Subscription:http://www.open-mpi.org/mailman/listinfo.cgi/users >> > Link to this post:http://www.open-mpi.org/ >> community/lists/users/2015/01/26126.php >> >> >> -- >> Jeff Squyres >> jsquy...@cisco.com <mailto:jsquy...@cisco.com> >> For corporate legal information go to: >> http://www.cisco.com/web/about/doing_business/legal/cri/ >> >> >> _______________________________________________ >> users mailing list >> us...@open-mpi.org <mailto:us...@open-mpi.org> >> Subscription: http://www.open-mpi.org/mailman/listinfo.cgi/users >> Link to this post: >> http://www.open-mpi.org/community/lists/users/2015/01/26127.php >> >> >> >> _______________________________________________ >> users mailing list >> us...@open-mpi.org <mailto:us...@open-mpi.org> >> Subscription: http://www.open-mpi.org/mailman/listinfo.cgi/users >> Link to this post: >> http://www.open-mpi.org/community/lists/users/2015/01/26140.php >> >> >> >> >> _______________________________________________ >> users mailing list >> us...@open-mpi.org >> Subscription: http://www.open-mpi.org/mailman/listinfo.cgi/users >> Link to this post: http://www.open-mpi.org/community/lists/users/2015/01/ >> 26141.php >> >> > _______________________________________________ > users mailing list > us...@open-mpi.org > Subscription: http://www.open-mpi.org/mailman/listinfo.cgi/users > Link to this post: http://www.open-mpi.org/community/lists/users/2015/01/ > 26142.php >
