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