http://www.wiki.mohid.com/index.php?action=history&feed=atom&title=ModuleMPImanagementModuleMPImanagement - Revision history2026-04-04T21:17:38ZRevision history for this page on the wikiMediaWiki 1.28.0http://www.wiki.mohid.com/index.php?title=ModuleMPImanagement&diff=7183&oldid=prevMiranda ricardo: Created page with "!------------------------------------------------------------------------------ ! IST/MARETEC, Water Modelling Group, Mohid modelling system !-----------------------------..."2014-11-30T18:24:22Z<p>Created page with "!------------------------------------------------------------------------------ ! IST/MARETEC, Water Modelling Group, Mohid modelling system !-----------------------------..."</p>
<p><b>New page</b></p><div>!------------------------------------------------------------------------------<br />
! IST/MARETEC, Water Modelling Group, Mohid modelling system<br />
!------------------------------------------------------------------------------<br />
<br />
!<br />
<br />
! TITLE : moduleMPImanagement<br />
<br />
! PROJECT : Example of the actor model using Fortran and MPI<br />
<br />
! URL : http://www.mohid.com<br />
<br />
! AFFILIATION : IST/MARETEC, Marine Modelling Group<br />
<br />
! DATE : Nov 2014<br />
<br />
! REVISION : Rciardo Miranda - v1.0<br />
<br />
!<br />
<br />
!------------------------------------------------------------------------------<br />
<br />
!<br />
<br />
!This program is free software; you can redistribute it and/or<br />
<br />
!modify it under the terms of the GNU General Public License<br />
<br />
!version 2, as published by the Free Software Foundation.<br />
<br />
!<br />
<br />
!This program is distributed in the hope that it will be useful,<br />
<br />
!but WITHOUT ANY WARRANTY; without even the implied warranty of<br />
<br />
!MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the<br />
<br />
!GNU General Public License for more details.<br />
<br />
!<br />
<br />
!You should have received a copy of the GNU General Public License<br />
<br />
!along with this program; if not, write to the Free Software<br />
<br />
!Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.<br />
<br />
!<br />
<br />
!------------------------------------------------------------------------------<br />
<br />
module moduleMPImanagement<br />
<br />
implicit none<br />
<br />
private<br />
<br />
integer, parameter :: msgPlayBall1Tag = 11111<br />
integer, parameter :: msgPlayBall2Tag = 11122<br />
integer, parameter :: msgPlayBall3Tag = 33333<br />
integer, parameter :: msgPlayBall4Tag = 44444<br />
integer, parameter :: msgMyMPITag = 22222<br />
integer, parameter :: msgEndGameTag = 34232<br />
integer, parameter :: msgMsgIDTag = 34555<br />
<br />
!Subroutines---------------------------------------------------------------<br />
<br />
public :: getMsgPlayBall1Tag<br />
public :: getMsgPlayBall2Tag<br />
public :: getMsgPlayBall3Tag<br />
public :: getMsgPlayBall4Tag<br />
public :: getMsgMyMPITag<br />
public :: getMsgEndGameTag<br />
public :: getMsgIDTag<br />
<br />
contains<br />
<br />
integer function getMsgPlayBall1Tag()<br />
getMsgPlayBall1Tag = msgPlayBall1Tag<br />
end function getMsgPlayBall1Tag<br />
<br />
integer function getMsgPlayBall2Tag()<br />
getMsgPlayBall2Tag = msgPlayBall2Tag<br />
end function getMsgPlayBall2Tag<br />
<br />
integer function getMsgPlayBall3Tag()<br />
getMsgPlayBall3Tag = msgPlayBall3Tag<br />
end function getMsgPlayBall3Tag<br />
<br />
integer function getMsgPlayBall4Tag()<br />
getMsgPlayBall4Tag = msgPlayBall4Tag<br />
end function getMsgPlayBall4Tag<br />
<br />
integer function getMsgMyMPITag()<br />
getMsgMyMPITag = msgMyMPITag<br />
end function getMsgMyMPITag<br />
<br />
integer function getMsgEndGameTag()<br />
getMsgEndGameTag = msgEndGameTag<br />
end function getMsgEndGameTag<br />
<br />
integer function getMsgIDTag()<br />
getMsgIDTag = msgMsgIDTag<br />
end function getMsgIDTag<br />
<br />
end module moduleMPImanagement</div>Miranda ricardo