src/gromacs/legacyheaders/types/forcerec.h

   1 /*
   2  *
   3  *                This source code is part of
   4  *
   5  *                 G   R   O   M   A   C   S
   6  *
   7  *          GROningen MAchine for Chemical Simulations
   8  *
   9  *                        VERSION 3.2.0
  10  * Written by David van der Spoel, Erik Lindahl, Berk Hess, and others.
  11  * Copyright (c) 1991-2000, University of Groningen, The Netherlands.
  12  * Copyright (c) 2001-2004, The GROMACS development team,
  13  * check out http://www.gromacs.org for more information.
  14
  15  * This program is free software; you can redistribute it and/or
  16  * modify it under the terms of the GNU General Public License
  17  * as published by the Free Software Foundation; either version 2
  18  * of the License, or (at your option) any later version.
  19  *
  20  * If you want to redistribute modifications, please consider that
  21  * scientific software is very special. Version control is crucial -
  22  * bugs must be traceable. We will be happy to consider code for
  23  * inclusion in the official distribution, but derived work must not
  24  * be called official GROMACS. Details are found in the README & COPYING
  25  * files - if they are missing, get the official version at www.gromacs.org.
  26  *
  27  * To help us fund GROMACS development, we humbly ask that you cite
  28  * the papers on the package - you can find them in the top README file.
  29  *
  30  * For more info, check our website at http://www.gromacs.org
  31  *
  32  * And Hey:
  33  * GRoups of Organic Molecules in ACtion for Science
  34  */
  35
  36 #include "ns.h"
  37 #include "genborn.h"
  38 #include "qmmmrec.h"
  39 #include "idef.h"
  40 #include "nb_verlet.h"
  41 #include "interaction_const.h"
  42 #include "hw_info.h"
  43
  44 #ifdef __cplusplus
  45 extern "C" {
  46 #endif
  47
  48 /* Abstract type for PME that is defined only in the routine that use them. */
  49 typedef struct gmx_pme *gmx_pme_t;
  50
  51 typedef struct {
  52   real r;         /* range of the table */
  53   int  n;         /* n+1 is the number of points */
  54   real scale;     /* distance between two points */
  55   real scale_exp; /* distance for exponential Buckingham table */
  56   real *tab;      /* the actual tables, per point there are  4 numbers for
  57                    * Coulomb, dispersion and repulsion (in total 12 numbers)
  58                    */
  59 } t_forcetable;
  60
  61 typedef struct {
  62   t_forcetable tab;
  63   /* We duplicate tables for cache optimization purposes */
  64   real *coultab;      /* Coul only */
  65   real *vdwtab;       /* Vdw only   */
  66   /* The actual neighbor lists, short and long range, see enum above
  67    * for definition of neighborlist indices.
  68    */
  69   t_nblist nlist_sr[eNL_NR];
  70   t_nblist nlist_lr[eNL_NR];
  71 } t_nblists;
  72
  73 /* macros for the cginfo data in forcerec */
  74 /* The maximum cg size in cginfo is 63
  75  * because we only have space for 6 bits in cginfo,
  76  * this cg size entry is actually only read with domain decomposition.
  77  * But there is a smaller limit due to the t_excl data structure
  78  * which is defined in nblist.h.
  79  */
  80 #define SET_CGINFO_GID(cgi,gid)      (cgi) = (((cgi)  &  ~65535)  |  (gid)   )
  81 #define GET_CGINFO_GID(cgi)        ( (cgi)            &   65535)
  82 #define SET_CGINFO_EXCL_INTRA(cgi)   (cgi) =  ((cgi)  |  (1<<16))
  83 #define GET_CGINFO_EXCL_INTRA(cgi) ( (cgi)            &  (1<<16))
  84 #define SET_CGINFO_EXCL_INTER(cgi)   (cgi) =  ((cgi)  |  (1<<17))
  85 #define GET_CGINFO_EXCL_INTER(cgi) ( (cgi)            &  (1<<17))
  86 #define SET_CGINFO_SOLOPT(cgi,opt)   (cgi) = (((cgi)  & ~(3<<18)) | ((opt)<<18))
  87 #define GET_CGINFO_SOLOPT(cgi)     (((cgi)>>18)       &   3)
  88 #define SET_CGINFO_CONSTR(cgi)       (cgi) =  ((cgi)  |  (1<<20))
  89 #define GET_CGINFO_CONSTR(cgi)     ( (cgi)            &  (1<<20))
  90 #define SET_CGINFO_SETTLE(cgi)       (cgi) =  ((cgi)  |  (1<<21))
  91 #define GET_CGINFO_SETTLE(cgi)     ( (cgi)            &  (1<<21))
  92 /* This bit is only used with bBondComm in the domain decomposition */
  93 #define SET_CGINFO_BOND_INTER(cgi)   (cgi) =  ((cgi)  |  (1<<22))
  94 #define GET_CGINFO_BOND_INTER(cgi) ( (cgi)            &  (1<<22))
  95 #define SET_CGINFO_HAS_VDW(cgi)      (cgi) =  ((cgi)  |  (1<<23))
  96 #define GET_CGINFO_HAS_VDW(cgi)    ( (cgi)            &  (1<<23))
  97 #define SET_CGINFO_HAS_Q(cgi)        (cgi) =  ((cgi)  |  (1<<24))
  98 #define GET_CGINFO_HAS_Q(cgi)      ( (cgi)            &  (1<<24))
  99 #define SET_CGINFO_NATOMS(cgi,opt)   (cgi) = (((cgi)  & ~(63<<25)) | ((opt)<<25))
 100 #define GET_CGINFO_NATOMS(cgi)     (((cgi)>>25)       &   63)
 101
 102
 103 /* Value to be used in mdrun for an infinite cut-off.
 104  * Since we need to compare with the cut-off squared,
 105  * this value should be slighlty smaller than sqrt(GMX_FLOAT_MAX).
 106  */
 107 #define GMX_CUTOFF_INF 1E+18
 108
 109 /* enums for the neighborlist type */
 110 enum { enbvdwNONE,enbvdwLJ,enbvdwBHAM,enbvdwTAB,enbvdwNR};
 111 /* OOR is "one over r" -- standard coul */
 112 enum { enbcoulNONE,enbcoulOOR,enbcoulRF,enbcoulTAB,enbcoulGB,enbcoulFEWALD,enbcoulNR};
 113
 114 enum { egCOULSR, egLJSR, egBHAMSR, egCOULLR, egLJLR, egBHAMLR,
 115        egCOUL14, egLJ14, egGB, egNR };
 116
 117 typedef struct {
 118   int  nener;        /* The number of energy group pairs     */
 119   real *ener[egNR];  /* Energy terms for each pair of groups */
 120 } gmx_grppairener_t;
 121
 122 typedef struct {
 123   real term[F_NRE];    /* The energies for all different interaction types */
 124   gmx_grppairener_t grpp;
 125   double dvdl_lin[efptNR];       /* Contributions to dvdl with linear lam-dependence */
 126   double dvdl_nonlin[efptNR];    /* Idem, but non-linear dependence                  */
 127   int    n_lambda;
 128   int    fep_state;              /*current fep state -- just for printing */
 129   double *enerpart_lambda; /* Partial energy for lambda and flambda[] */
 130 } gmx_enerdata_t;
 131 /* The idea is that dvdl terms with linear lambda dependence will be added
 132  * automatically to enerpart_lambda. Terms with non-linear lambda dependence
 133  * should explicitly determine the energies at foreign lambda points
 134  * when n_lambda > 0.
 135  */
 136
 137 typedef struct {
 138   int cg_start;
 139   int cg_end;
 140   int cg_mod;
 141   int *cginfo;
 142 } cginfo_mb_t;
 143
 144
 145 /* ewald table type */
 146 typedef struct ewald_tab *ewald_tab_t;
 147
 148 typedef struct {
 149     rvec *f;
 150     int  f_nalloc;
 151     unsigned red_mask; /* Mask for marking which parts of f are filled */
 152     rvec *fshift;
 153     real ener[F_NRE];
 154     gmx_grppairener_t grpp;
 155     real Vcorr;
 156     real dvdl[efptNR];
 157     tensor vir;
 158 } f_thread_t;
 159
 160 typedef struct {
 161   interaction_const_t *ic;
 162
 163   /* Domain Decomposition */
 164   gmx_bool bDomDec;
 165
 166   /* PBC stuff */
 167   int  ePBC;
 168   gmx_bool bMolPBC;
 169   int  rc_scaling;
 170   rvec posres_com;
 171   rvec posres_comB;
 172
 173   gmx_hw_info_t *hwinfo;
 174   gmx_bool      use_cpu_acceleration;
 175
 176   /* Use special N*N kernels? */
 177   gmx_bool bAllvsAll;
 178   /* Private work data */
 179   void *AllvsAll_work;
 180   void *AllvsAll_workgb;
 181
 182   /* Cut-Off stuff.
 183    * Infinite cut-off's will be GMX_CUTOFF_INF (unlike in t_inputrec: 0).
 184    */
 185   real rlist,rlistlong;
 186
 187   /* Dielectric constant resp. multiplication factor for charges */
 188   real zsquare,temp;
 189   real epsilon_r,epsilon_rf,epsfac;
 190
 191   /* Constants for reaction fields */
 192   real kappa,k_rf,c_rf;
 193
 194   /* Charge sum and dipole for topology A/B ([0]/[1]) for Ewald corrections */
 195   double qsum[2];
 196   double q2sum[2];
 197   rvec   mu_tot[2];
 198
 199   /* Dispersion correction stuff */
 200   int  eDispCorr;
 201   /* The shift of the shift or user potentials */
 202   real enershiftsix;
 203   real enershifttwelve;
 204   /* Integrated differces for energy and virial with cut-off functions */
 205   real enerdiffsix;
 206   real enerdifftwelve;
 207   real virdiffsix;
 208   real virdifftwelve;
 209   /* Constant for long range dispersion correction (average dispersion)
 210    * for topology A/B ([0]/[1]) */
 211   real avcsix[2];
 212   /* Constant for long range repulsion term. Relative difference of about
 213    * 0.1 percent with 0.8 nm cutoffs. But hey, it's cheap anyway...
 214    */
 215   real avctwelve[2];
 216
 217   /* Fudge factors */
 218   real fudgeQQ;
 219
 220   /* Table stuff */
 221   gmx_bool bcoultab;
 222   gmx_bool bvdwtab;
 223   /* The normal tables are in the nblists struct(s) below */
 224   t_forcetable tab14; /* for 1-4 interactions only */
 225
 226   /* PPPM & Shifting stuff */
 227   gmx_bool coul_pot_shift;
 228   real rcoulomb_switch,rcoulomb;
 229   real *phi;
 230
 231   /* VdW stuff */
 232   gmx_bool vdw_pot_shift;
 233   double reppow;
 234   real rvdw_switch,rvdw;
 235   real bham_b_max;
 236
 237   /* Free energy */
 238   int  efep;
 239   real sc_alphavdw;
 240   real sc_alphacoul;
 241   int  sc_power;
 242   real sc_r_power;
 243   real sc_sigma6_def;
 244   real sc_sigma6_min;
 245   gmx_bool bSepDVDL;
 246
 247   /* NS Stuff */
 248   int  eeltype;
 249   int  vdwtype;
 250   int  cg0,hcg;
 251   /* solvent_opt contains the enum for the most common solvent
 252    * in the system, which will be optimized.
 253    * It can be set to esolNO to disable all water optimization */
 254   int  solvent_opt;
 255   int  nWatMol;
 256   gmx_bool bGrid;
 257   gmx_bool bExcl_IntraCGAll_InterCGNone;
 258   cginfo_mb_t *cginfo_mb;
 259   int  *cginfo;
 260   rvec *cg_cm;
 261   int  cg_nalloc;
 262   rvec *shift_vec;
 263
 264   /* The neighborlists including tables */
 265   int  nnblists;
 266   int  *gid2nblists;
 267   t_nblists *nblists;
 268
 269   int      cutoff_scheme; /* old- or Verlet-style cutoff */
 270   gmx_bool bNonbonded;    /* true if nonbonded calculations are *not* turned off */
 271   nonbonded_verlet_t *nbv;
 272
 273   /* The wall tables (if used) */
 274   int  nwall;
 275   t_forcetable **wall_tab;
 276
 277   /* The number of charge groups participating in do_force_lowlevel */
 278   int ncg_force;
 279   /* The number of atoms participating in do_force_lowlevel */
 280   int natoms_force;
 281   /* The number of atoms participating in force and constraints */
 282   int natoms_force_constr;
 283   /* The allocation size of vectors of size natoms_force */
 284   int nalloc_force;
 285
 286   /* Twin Range stuff, f_twin has size natoms_force */
 287   gmx_bool bTwinRange;
 288   int  nlr;
 289   rvec *f_twin;
 290
 291   /* Forces that should not enter into the virial summation:
 292    * PPPM/PME/Ewald/posres
 293    */
 294   gmx_bool bF_NoVirSum;
 295   int  f_novirsum_n;
 296   int  f_novirsum_nalloc;
 297   rvec *f_novirsum_alloc;
 298   /* Pointer that points to f_novirsum_alloc when pressure is calcaluted,
 299    * points to the normal force vectors wen pressure is not requested.
 300    */
 301   rvec *f_novirsum;
 302
 303   /* Long-range forces and virial for PPPM/PME/Ewald */
 304   gmx_pme_t pmedata;
 305   tensor    vir_el_recip;
 306
 307   /* PME/Ewald stuff */
 308   gmx_bool bEwald;
 309   real ewaldcoeff;
 310   ewald_tab_t ewald_table;
 311
 312   /* Virial Stuff */
 313   rvec *fshift;
 314   rvec vir_diag_posres;
 315   dvec vir_wall_z;
 316
 317   /* Non bonded Parameter lists */
 318   int  ntype; /* Number of atom types */
 319   gmx_bool bBHAM;
 320   real *nbfp;
 321
 322   /* Energy group pair flags */
 323   int *egp_flags;
 324
 325   /* xmdrun flexible constraints */
 326   real fc_stepsize;
 327
 328   /* Generalized born implicit solvent */
 329   gmx_bool bGB;
 330   /* Generalized born stuff */
 331   real gb_epsilon_solvent;
 332   /* Table data for GB */
 333   t_forcetable gbtab;
 334   /* VdW radius for each atomtype (dim is thus ntype) */
 335   real *atype_radius;
 336   /* Effective radius (derived from effective volume) for each type */
 337   real *atype_vol;
 338   /* Implicit solvent - surface tension for each atomtype */
 339   real *atype_surftens;
 340   /* Implicit solvent - radius for GB calculation */
 341   real *atype_gb_radius;
 342   /* Implicit solvent - overlap for HCT model */
 343   real *atype_S_hct;
 344   /* Generalized born interaction data */
 345   gmx_genborn_t *born;
 346
 347   /* Table scale for GB */
 348   real gbtabscale;
 349   /* Table range for GB */
 350   real gbtabr;
 351   /* GB neighborlists (the sr list will contain for each atom all other atoms
 352    * (for use in the SA calculation) and the lr list will contain
 353    * for each atom all atoms 1-4 or greater (for use in the GB calculation)
 354    */
 355   t_nblist gblist_sr;
 356   t_nblist gblist_lr;
 357   t_nblist gblist;
 358
 359   /* Inverse square root of the Born radii for implicit solvent */
 360   real *invsqrta;
 361   /* Derivatives of the potential with respect to the Born radii */
 362   real *dvda;
 363   /* Derivatives of the Born radii with respect to coordinates */
 364   real *dadx;
 365   real *dadx_rawptr;
 366   int   nalloc_dadx; /* Allocated size of dadx */
 367
 368   /* If > 0 signals Test Particle Insertion,
 369    * the value is the number of atoms of the molecule to insert
 370    * Only the energy difference due to the addition of the last molecule
 371    * should be calculated.
 372    */
 373   gmx_bool n_tpi;
 374
 375   /* Neighbor searching stuff */
 376   gmx_ns_t ns;
 377
 378   /* QMMM stuff */
 379   gmx_bool         bQMMM;
 380   t_QMMMrec    *qr;
 381
 382   /* QM-MM neighborlists */
 383   t_nblist QMMMlist;
 384
 385   /* Limit for printing large forces, negative is don't print */
 386   real print_force;
 387
 388   /* coarse load balancing time measurement */
 389   double t_fnbf;
 390   double t_wait;
 391   int timesteps;
 392
 393   /* parameter needed for AdResS simulation */
 394   int  adress_type;
 395   gmx_bool badress_tf_full_box;
 396   real adress_const_wf;
 397   real adress_ex_width;
 398   real adress_hy_width;
 399   int  adress_icor;
 400   int  adress_site;
 401   rvec adress_refs;
 402   int n_adress_tf_grps;
 403   int * adress_tf_table_index;
 404   int *adress_group_explicit;
 405   t_forcetable *  atf_tabs;
 406   real adress_ex_forcecap;
 407   gmx_bool adress_do_hybridpairs;
 408
 409   /* User determined parameters, copied from the inputrec */
 410   int  userint1;
 411   int  userint2;
 412   int  userint3;
 413   int  userint4;
 414   real userreal1;
 415   real userreal2;
 416   real userreal3;
 417   real userreal4;
 418
 419   /* Thread local force and energy data */
 420   /* FIXME move to bonded_thread_data_t */
 421   int  nthreads;
 422   int  red_ashift;
 423   int  red_nblock;
 424   f_thread_t *f_t;
 425
 426   /* Exclusion load distribution over the threads */
 427   int  *excl_load;
 428 } t_forcerec;
 429
 430 #define C6(nbfp,ntp,ai,aj)     (nbfp)[2*((ntp)*(ai)+(aj))]
 431 #define C12(nbfp,ntp,ai,aj)    (nbfp)[2*((ntp)*(ai)+(aj))+1]
 432 #define BHAMC(nbfp,ntp,ai,aj)  (nbfp)[3*((ntp)*(ai)+(aj))]
 433 #define BHAMA(nbfp,ntp,ai,aj)  (nbfp)[3*((ntp)*(ai)+(aj))+1]
 434 #define BHAMB(nbfp,ntp,ai,aj)  (nbfp)[3*((ntp)*(ai)+(aj))+2]
 435
 436 #ifdef __cplusplus
 437 }
 438 #endif
 439