forked from TinkerTools/tinker
-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathchunks.f
36 lines (36 loc) · 1.47 KB
/
chunks.f
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
c
c
c ###################################################
c ## COPYRIGHT (C) 2010 by Jay William Ponder ##
c ## All Rights Reserved ##
c ###################################################
c
c ################################################################
c ## ##
c ## module chunks -- PME grid spatial decomposition values ##
c ## ##
c ################################################################
c
c
c nchunk total number of spatial regions for PME grid
c nchk1 number of spatial regions along the a-axis
c nchk2 number of spatial regions along the b-axis
c nchk3 number of spatial regions along the c-axis
c ngrd1 number of grid points per region along a-axis
c ngrd2 number of grid points per region along b-axis
c ngrd3 number of grid points per region along c-axis
c nlpts PME grid points to the left of center point
c nrpts PME grid points to the right of center point
c grdoff offset for index into B-spline coefficients
c pmetable PME grid spatial regions involved for each site
c
c
module chunks
implicit none
integer nchunk
integer nchk1,nchk2,nchk3
integer ngrd1,ngrd2,ngrd3
integer nlpts,nrpts,grdoff
integer, allocatable :: pmetable(:,:)
save
end