1c 2c 3c ################################################### 4c ## COPYRIGHT (C) 1992 by Jay William Ponder ## 5c ## All Rights Reserved ## 6c ################################################### 7c 8c ################################################################# 9c ## ## 10c ## module light -- method of lights pair neighbors indices ## 11c ## ## 12c ################################################################# 13c 14c 15c nlight total number of sites for method of lights calculation 16c kbx low index of neighbors of each site in the x-sorted list 17c kby low index of neighbors of each site in the y-sorted list 18c kbz low index of neighbors of each site in the z-sorted list 19c kex high index of neighbors of each site in the x-sorted list 20c key high index of neighbors of each site in the y-sorted list 21c kez high index of neighbors of each site in the z-sorted list 22c locx maps the x-sorted list into original interaction list 23c locy maps the y-sorted list into original interaction list 24c locz maps the z-sorted list into original interaction list 25c rgx maps the original interaction list into x-sorted list 26c rgy maps the original interaction list into y-sorted list 27c rgz maps the original interaction list into z-sorted list 28c 29c 30 module light 31 implicit none 32 integer nlight 33 integer, allocatable :: kbx(:) 34 integer, allocatable :: kby(:) 35 integer, allocatable :: kbz(:) 36 integer, allocatable :: kex(:) 37 integer, allocatable :: key(:) 38 integer, allocatable :: kez(:) 39 integer, allocatable :: locx(:) 40 integer, allocatable :: locy(:) 41 integer, allocatable :: locz(:) 42 integer, allocatable :: rgx(:) 43 integer, allocatable :: rgy(:) 44 integer, allocatable :: rgz(:) 45 save 46 end 47