src/gmxlib/tcontrol.c

   1 /*
   2  * This file is part of the GROMACS molecular simulation package.
   3  *
   4  * Copyright (c) 1991-2000, University of Groningen, The Netherlands.
   5  * Copyright (c) 2001-2004, The GROMACS development team,
   6  * check out http://www.gromacs.org for more information.
   7  * Copyright (c) 2012, by the GROMACS development team, led by
   8  * David van der Spoel, Berk Hess, Erik Lindahl, and including many
   9  * others, as listed in the AUTHORS file in the top-level source
  10  * directory and at http://www.gromacs.org.
  11  *
  12  * GROMACS is free software; you can redistribute it and/or
  13  * modify it under the terms of the GNU Lesser General Public License
  14  * as published by the Free Software Foundation; either version 2.1
  15  * of the License, or (at your option) any later version.
  16  *
  17  * GROMACS is distributed in the hope that it will be useful,
  18  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  19  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  20  * Lesser General Public License for more details.
  21  *
  22  * You should have received a copy of the GNU Lesser General Public
  23  * License along with GROMACS; if not, see
  24  * http://www.gnu.org/licenses, or write to the Free Software Foundation,
  25  * Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA.
  26  *
  27  * If you want to redistribute modifications to GROMACS, please
  28  * consider that scientific software is very special. Version
  29  * control is crucial - bugs must be traceable. We will be happy to
  30  * consider code for inclusion in the official distribution, but
  31  * derived work must not be called official GROMACS. Details are found
  32  * in the README & COPYING files - if they are missing, get the
  33  * official version at http://www.gromacs.org.
  34  *
  35  * To help us fund GROMACS development, we humbly ask that you cite
  36  * the research papers on the package. Check out http://www.gromacs.org.
  37  */
  38 #ifdef HAVE_CONFIG_H
  39 #include <config.h>
  40 #endif
  41
  42 #include "typedefs.h"
  43 #include "statutil.h"
  44 #include "gmx_fatal.h"
  45
  46 #ifdef GMX_THREAD_MPI
  47 #include "thread_mpi.h"
  48 #endif
  49
  50 /* The source code in this file should be thread-safe.
  51          Please keep it that way. */
  52
  53 /* Globals for trajectory input */
  54 typedef struct {
  55   real t;
  56   gmx_bool bSet;
  57 } t_timecontrol;
  58
  59 static t_timecontrol timecontrol[TNR] = {
  60   { 0, FALSE },
  61   { 0, FALSE },
  62   { 0, FALSE }
  63 };
  64
  65 #ifdef GMX_THREAD_MPI
  66 static tMPI_Thread_mutex_t tc_mutex=TMPI_THREAD_MUTEX_INITIALIZER;
  67 #endif
  68
  69 gmx_bool bTimeSet(int tcontrol)
  70 {
  71     gmx_bool ret;
  72
  73 #ifdef GMX_THREAD_MPI
  74     tMPI_Thread_mutex_lock(&tc_mutex);
  75 #endif
  76     range_check(tcontrol,0,TNR);
  77     ret=timecontrol[tcontrol].bSet;
  78 #ifdef GMX_THREAD_MPI
  79     tMPI_Thread_mutex_unlock(&tc_mutex);
  80 #endif
  81
  82     return ret;
  83 }
  84
  85 real rTimeValue(int tcontrol)
  86 {
  87     real ret;
  88
  89 #ifdef GMX_THREAD_MPI
  90     tMPI_Thread_mutex_lock(&tc_mutex);
  91 #endif
  92     range_check(tcontrol,0,TNR);
  93     ret=timecontrol[tcontrol].t;
  94 #ifdef GMX_THREAD_MPI
  95     tMPI_Thread_mutex_unlock(&tc_mutex);
  96 #endif
  97     return ret;
  98 }
  99
 100 void setTimeValue(int tcontrol,real value)
 101 {
 102 #ifdef GMX_THREAD_MPI
 103     tMPI_Thread_mutex_lock(&tc_mutex);
 104 #endif
 105     range_check(tcontrol,0,TNR);
 106     timecontrol[tcontrol].t = value;
 107     timecontrol[tcontrol].bSet = TRUE;
 108 #ifdef GMX_THREAD_MPI
 109     tMPI_Thread_mutex_unlock(&tc_mutex);
 110 #endif
 111 }
 112
 113