1*
2* $Id: mm_data.fh 19697 2010-10-29 16:57:34Z d3y133 $
3*
4
5      integer nvdw
6      integer nqm
7      integer nmm
8      integer h_ivdw,i_ivdw
9      integer h_jvdw,i_jvdw
10      integer h_avdw,i_avdw
11      integer h_bvdw,i_bvdw
12      integer h_r,i_r
13      integer h_t,i_t
14      integer ntot
15
16      common /mm_data/
17     &                   ntot,
18     &                   nvdw,nmm,nqm,
19     &                   h_ivdw,i_ivdw,
20     &                   h_jvdw,i_jvdw,
21     &                   h_avdw,i_avdw,
22     &                   h_bvdw,i_bvdw,
23     &                   h_r,i_r,
24     &                   h_t,i_t
25
26