[ViewVC] Diff of: group/trunk/mdtools/mpi_implementation/mpiForceField.c

Comparing trunk/mdtools/mpi_implementation/mpiForceField.c (file contents):
Revision 142 by chuckv, Wed Oct 16 22:24:51 2002 UTC vs.
Revision 150 by mmeineke, Fri Oct 18 21:20:29 2002 UTC

+#include <stdio.h>
+#include <stdlib.h>
-+
+#include <string.h>
+#include <mpi.h>
+#include <mpiForceField.h>
-+
-+
-+
-+
+void sendFrcStruct( void *frcStruct, MPI_Datatype structType ){
-+
-+
+  int mpiError;
-+
-+
+  mpiError = MPI_Bcast(frcStruct,1,structType,0,MPI_COMM_WORLD);
-+
+  if (mpiError != MPI_SUCCESS){
-+
+    mpiError = MPI_Finalize();
-+
+    if (mpiError != MPI_SUCCESS) mpiError = MPI_Abort(MPI_COMM_WORLD,0);
-+
+    exit (0);
-+
+  }
-+
+}
-+
-+
-+
+void recieveFrcStruct( void *frcStruct, MPI_Datatype structType ){
-+
-+
+  int mpiError;
-+
-+
+  mpiError = MPI_Bcast(frcStruct,1,structType,0,MPI_COMM_WORLD);
-+
+  if (mpiError != MPI_SUCCESS){
-+
+    mpiError = MPI_Finalize();
-+
+    if (mpiError != MPI_SUCCESS) mpiError = MPI_Abort(MPI_COMM_WORLD,0);
-+
+    exit (0);
-+
+  }
-+
+}
-+
-+
+void ffInterfaceExit( char* errMsg ){
-+
-+
+  int mpiError;
-+
+  int myNode;
-+
-+
+  MPI_Comm_rank( MPI_COMM_WORLD, &myNode);
-+
-+
+  if( errMsg != NULL ){
-+
+    fprintf( stderr,
-+
+             "Force Field Parameter MPI error at node %d\n"
-+
+             "    => %s\n",
-+
+             myNode, errMsg );
-+
+  }
-+
-+
+  mpiError = MPI_Finalize();
-+
+  if (mpiError != MPI_SUCCESS) mpiError = MPI_Abort(MPI_COMM_WORLD,0);
-+
+  exit (0);
-+
+}

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines