source/unres/src-HCD-5D/keys.f

   1 c
   2 c
   3 c     ###################################################
   4 c     ##  COPYRIGHT (C)  1992  by  Jay William Ponder  ##
   5 c     ##              All Rights Reserved              ##
   6 c     ###################################################
   7 c
   8 c     #############################################################
   9 c     ##                                                         ##
  10 c     ##  module keys  --  contents of the keyword control file  ##
  11 c     ##                                                         ##
  12 c     #############################################################
  13 c
  14 c
  15 c     maxkey    maximum number of lines in the keyword file
  16 c
  17 c     nkey      number of nonblank lines in the keyword file
  18 c     keyline   contents of each individual keyword file line
  19 c
  20 c
  21       module keys
  22       implicit none
  23       integer maxkey
  24       parameter (maxkey=25000)
  25       integer nkey
  26       character*240 keyline(maxkey)
  27       save
  28       end