MBDyn-1.7.3
 All Classes Namespaces Files Functions Variables Typedefs Enumerations Enumerator Friends Macros Groups
external.cc
Go to the documentation of this file.
1 /* $Header: /var/cvs/mbdyn/mbdyn/mbdyn-1.0/mbdyn/base/external.cc,v 1.20 2017/01/12 14:46:09 masarati Exp $ */
2 /*
3  * MBDyn (C) is a multibody analysis code.
4  * http://www.mbdyn.org
5  *
6  * Copyright (C) 1996-2017
7  *
8  * Pierangelo Masarati <masarati@aero.polimi.it>
9  * Paolo Mantegazza <mantegazza@aero.polimi.it>
10  *
11  * Dipartimento di Ingegneria Aerospaziale - Politecnico di Milano
12  * via La Masa, 34 - 20156 Milano, Italy
13  * http://www.aero.polimi.it
14  *
15  * Changing this copyright notice is forbidden.
16  *
17  * This program is free software; you can redistribute it and/or modify
18  * it under the terms of the GNU General Public License as published by
19  * the Free Software Foundation (version 2 of the License).
20  *
21  *
22  * This program is distributed in the hope that it will be useful,
23  * but WITHOUT ANY WARRANTY; without even the implied warranty of
24  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
25  * GNU General Public License for more details.
26  *
27  * You should have received a copy of the GNU General Public License
28  * along with this program; if not, write to the Free Software
29  * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
30  */
31 
32 /* external Communications */
33 
34 
35 #include "mbconfig.h" /* This goes first in every *.c,*.cc file */
36 
37 
38 #include "external.h"
39 
40 #ifdef USE_EXTERNAL
41 
42 namespace External {
43 
44 /* setta il sistema per una connessione con /dev/null */
45 void SendNull(void) {
46  std::list<MPI::Intercomm>::iterator iComm;
47  std::list<MPI::Intercomm>::const_iterator iComm_end = InterfaceComms.end();
48  char buff = 'N';
49  for(iComm = InterfaceComms.begin(); iComm != iComm_end; ++iComm) {
50  iComm->Send(&buff, 1, MPI::CHAR, 0, 0);
51  }
52 }
53 
54 /* setta il sistema per una comunicare che gli ultimi dati inviati
55  sono le condizioni iniziali post assemblaggio e passi fittizi */
56 void SendInitial(void) {
57  std::list<MPI::Intercomm>::iterator iComm;
58  std::list<MPI::Intercomm>::const_iterator iComm_end = InterfaceComms.end();
59  char buff = 'I';
60  for(iComm = InterfaceComms.begin(); iComm != iComm_end; ++iComm) {
61  iComm->Send(&buff, 1, MPI::CHAR, 0, 0);
62  }
63 }
64 
65 /* setta il sistema per una ricevere le stesse forze del passo precedente */
66 void SendFreeze(void) {
67  std::list<MPI::Intercomm>::iterator iComm;
68  std::list<MPI::Intercomm>::const_iterator iComm_end = InterfaceComms.end();
69  char buff = 'F';
70  for(iComm = InterfaceComms.begin(); iComm != iComm_end; ++iComm) {
71  iComm->Send(&buff, 1, MPI::CHAR, 0, 0);
72  }
73 }
74 
75 /* setta il sistema per una connessione regolare con il codice interfaciato */
76 void SendRegular(void) {
77  std::list<MPI::Intercomm>::iterator iComm;
78  std::list<MPI::Intercomm>::const_iterator iComm_end = InterfaceComms.end();
79  char buff = 'R';
80  for(iComm = InterfaceComms.begin(); iComm != iComm_end; ++iComm) {
81  iComm->Send(&buff, 1, MPI::CHAR, 0, 0);
82  }
83 }
84 
85 /* setta il sistema per la chiusura del calcolo */
86 void SendClose(void) {
87  std::list<MPI::Intercomm>::iterator iComm;
88  std::list<MPI::Intercomm>::const_iterator iComm_end = InterfaceComms.end();
89  char buff = 'Q';
90  for(iComm = InterfaceComms.begin(); iComm != iComm_end; ++iComm) {
91  iComm->Send(&buff, 1, MPI::CHAR, 0, 0);
92  }
93 }
94 
95 /* setta il sistema per la chiusura del calcolo in seguito ad un errore */
96 void SendError(void) {
97  std::list<MPI::Intercomm>::iterator iComm;
98  std::list<MPI::Intercomm>::const_iterator iComm_end = InterfaceComms.end();
99  char buff = 'X';
100  for(iComm = InterfaceComms.begin(); iComm != iComm_end; ++iComm) {
101  iComm->Send(&buff, 1, MPI::CHAR, 0, 0);
102  }
103 }
104 
105 }
106 #endif /* USE_EXTERNAL */