1c
2c
3c     ################################################################
4c     ##  COPYRIGHT (C) 2006 by Michael Schnieders & Jay W. Ponder  ##
5c     ##                     All Rights Reserved                    ##
6c     ################################################################
7c
8c     ############################################################
9c     ##                                                        ##
10c     ##  routines below implement dummy versions of the APBS   ##
11c     ##  calls required for Tinker to interface with the APBS  ##
12c     ##  Poisson-Boltzmann solver package from Nathan Baker    ##
13c     ##                                                        ##
14c     ############################################################
15c
16c     ##############################
17c     ##                          ##
18c     ##  subroutine apbsinitial  ##
19c     ##                          ##
20c     ##############################
21c
22c
23      subroutine apbsinitial (dime,grid,gcent,cgrid,cgcent,fgrid,
24     &                        fgcent,pdie,sdie,srad,swin,sdens,
25     &                        kelvin,ionn,ionc,ionq,ionr,pbtyp,
26     &                        pbtyplen,pbsoln,pbsolnlen,bcfl,
27     &                        bcfllen,chgm,chgmlen,srfm,srfmlen)
28      use iounit
29      implicit none
30      integer dime(*)
31      integer ionn
32      integer ionq(*)
33      integer pbtyplen
34      integer pbsolnlen
35      integer bcfllen
36      integer chgmlen
37      integer srfmlen
38      real*8 grid(*)
39      real*8 gcent(*)
40      real*8 cgrid(*)
41      real*8 cgcent(*)
42      real*8 fgrid(*)
43      real*8 fgcent(*)
44      real*8 pdie
45      real*8 sdie
46      real*8 srad
47      real*8 swin
48      real*8 sdens
49      real*8 kelvin
50      real*8 ionc(*)
51      real*8 ionr(*)
52      character*(*) pbtyp
53      character*(*) pbsoln
54      character*(*) bcfl
55      character*(*) chgm
56      character*(*) srfm
57c
58c
59c     exit with an error message if APBS calculation is attempted
60c
61      write (iout,10)
62   10 format (/,' APBSINITIAL  --  APBS Not Supported by This',
63     &           ' Tinker Version')
64      call fatal
65      return
66      end
67c
68c
69c     #############################
70c     ##                         ##
71c     ##  subroutine apbsempole  ##
72c     ##                         ##
73c     #############################
74c
75c
76      subroutine apbsempole (n,pos,rsolv,pbpole,pbe,apbe,pbep,pbfp,pbtp)
77      implicit none
78      integer n
79      real*8 pos(*)
80      real*8 rsolv(*)
81      real*8 pbpole(*)
82      real*8 pbe
83      real*8 apbe(*)
84      real*8 pbep(*)
85      real*8 pbfp(*)
86      real*8 pbtp(*)
87      return
88      end
89c
90c
91c     #############################
92c     ##                         ##
93c     ##  subroutine apbsinduce  ##
94c     ##                         ##
95c     #############################
96c
97c
98      subroutine apbsinduce (indpole,pbeuind)
99      implicit none
100      real*8 indpole(*)
101      real*8 pbeuind(*)
102      return
103      end
104c
105c
106c     ###############################
107c     ##                           ##
108c     ##  subroutine apbsnlinduce  ##
109c     ##                           ##
110c     ###############################
111c
112c
113      subroutine apbsnlinduce (inppole,pbeuinp)
114      implicit none
115      real*8 inppole(*)
116      real*8 pbeuinp(*)
117      return
118      end
119c
120c
121c     ###################################
122c     ##                               ##
123c     ##  subroutine pbdirectpolforce  ##
124c     ##                               ##
125c     ###################################
126c
127c
128      subroutine pbdirectpolforce (indpole,inppole,directf,directt)
129      implicit none
130      real*8 indpole(*)
131      real*8 inppole(*)
132      real*8 directf(*)
133      real*8 directt(*)
134      return
135      end
136c
137c
138c     ###################################
139c     ##                               ##
140c     ##  subroutine pbmutualpolforce  ##
141c     ##                               ##
142c     ###################################
143c
144c
145      subroutine pbmutualpolforce (indpole,inppole,mutualf)
146      implicit none
147      real*8 indpole(*)
148      real*8 inppole(*)
149      real*8 mutualf(*)
150      return
151      end
152c
153c
154c     ############################
155c     ##                        ##
156c     ##  subroutine apbsfinal  ##
157c     ##                        ##
158c     ############################
159c
160c
161      subroutine apbsfinal
162      implicit none
163      return
164      end
165