- Timestamp:
- 09/05/08 11:49:42 (16 years ago)
- Branches:
- master
- Children:
- fafe4d6
- Parents:
- 2ebb8b6
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
opesol.f
r2ebb8b6 rbd2278d 1 c**************************************************************2 c 3 cThis file contains the subroutines: opesol,gdtsol4 c 5 cCopyright 2003-2005 Frank Eisenmenger, U.H.E. Hansmann,6 cShura Hayryan, Chin-Ku7 cCopyright 2007 Frank Eisenmenger, U.H.E. Hansmann,8 cJan H. Meinke, Sandipan Mohanty9 c 10 c**************************************************************1 ! ************************************************************** 2 ! 3 ! This file contains the subroutines: opesol,gdtsol 4 ! 5 ! Copyright 2003-2005 Frank Eisenmenger, U.H.E. Hansmann, 6 ! Shura Hayryan, Chin-Ku 7 ! Copyright 2007 Frank Eisenmenger, U.H.E. Hansmann, 8 ! Jan H. Meinke, Sandipan Mohanty 9 ! 10 ! ************************************************************** 11 11 12 12 subroutine opesol(nml) 13 13 14 c......................................................................15 cPURPOSE: derivatives of solvatation energy vs. internal variables for16 cmolecule 'nml'17 c 18 cNB: if the unit axis for an internal variable coincides with a19 cglobal axis (i.e. for torsion or bond length variation round20 cor along 'xrfax', respectively, and bd. angle var. round21 c'zrfax'): VdW & 14 interaction partners of moving set atoms22 cshould be used for calculation, instead of the mov. sets,23 cwith opposite sign.24 c 25 cExample: By the the way the molecule-fixed system is set up,26 cchanges in Phi_1 affect atomic positions BEFORE the27 cN-C^alpha bond relatively to the space-fixed system,28 cnot the moving set of Phi_1.29 c 30 cCALLS: esolan, gdtsol31 c......................................................................14 ! ...................................................................... 15 ! PURPOSE: derivatives of solvatation energy vs. internal variables for 16 ! molecule 'nml' 17 ! 18 ! NB: if the unit axis for an internal variable coincides with a 19 ! global axis (i.e. for torsion or bond length variation round 20 ! or along 'xrfax', respectively, and bd. angle var. round 21 ! 'zrfax'): VdW & 14 interaction partners of moving set atoms 22 ! should be used for calculation, instead of the mov. sets, 23 ! with opposite sign. 24 ! 25 ! Example: By the the way the molecule-fixed system is set up, 26 ! changes in Phi_1 affect atomic positions BEFORE the 27 ! N-C^alpha bond relatively to the space-fixed system, 28 ! not the moving set of Phi_1. 29 ! 30 ! CALLS: esolan, gdtsol 31 ! ...................................................................... 32 32 33 33 include 'INCL.H' 34 34 35 35 dimension xfat(mxat),yfat(mxat),zfat(mxat), 36 #xfrat(mxat),yfrat(mxat),zfrat(mxat),37 38 #xfvr(mxvr),yfvr(mxvr),zfvr(mxvr),39 #xfrvr(mxvr),yfrvr(mxvr),zfrvr(mxvr)36 & xfrat(mxat),yfrat(mxat),zfrat(mxat), 37 38 & xfvr(mxvr),yfvr(mxvr),zfvr(mxvr), 39 & xfrvr(mxvr),yfrvr(mxvr),zfrvr(mxvr) 40 40 41 41 logical lnb … … 45 45 if (ntlvr.eq.0) then 46 46 write (*,'(a,i4)') 47 #' opesol> No variables defined in molecule #',nml47 & ' opesol> No variables defined in molecule #',nml 48 48 return 49 49 endif … … 66 66 eysl = esolan(nml) 67 67 68 c-------------------------------------------------- f & g for atoms68 ! -------------------------------------------------- f & g for atoms 69 69 70 70 do i=iatrs1(irsml1(nml)),iatrs2(irsml2(nml)) … … 217 217 218 218 gdeysl(iv)= (ey*zb-ez*yb)*xfiv+(ez*xb-ex*zb)*yfiv+ 219 #(ex*yb-ey*xb)*zfiv220 #+ex*xfriv+ey*yfriv+ez*zfriv219 & (ex*yb-ey*xb)*zfiv 220 & +ex*xfriv+ey*yfriv+ez*zfriv 221 221 222 222 elseif (it.eq.1) then ! b.length … … 232 232 return 233 233 end 234 c*****************************234 ! ***************************** 235 235 subroutine gdtsol(nml,iv) 236 236 237 c.....................................................................238 cPURPOSE: calculate partial derivative of solvation energy for molecule239 c'nml' vs. variable 'iv' NUMERICALLY and compare with240 cits value obtained analytically241 c 242 cCALLS: setvar, esolan243 c.....................................................................237 ! ..................................................................... 238 ! PURPOSE: calculate partial derivative of solvation energy for molecule 239 ! 'nml' vs. variable 'iv' NUMERICALLY and compare with 240 ! its value obtained analytically 241 ! 242 ! CALLS: setvar, esolan 243 ! ..................................................................... 244 244 245 245 include 'INCL.H' … … 250 250 251 251 252 c____________________________ get & save values of variables252 ! ____________________________ get & save values of variables 253 253 do i=1,ivrml1(ntlml)+nvrml(ntlml)-1 254 254 it=ityvr(i) ! type … … 272 272 273 273 write (*,'(1x,2a,2(e12.6,a))') nmvr(iv),': ',gda,' (', 274 #abs(gda-gdn),')'275 276 c_________________________ restore vars274 & abs(gda-gdn),')' 275 276 ! _________________________ restore vars 277 277 vlvrx(iv)=ovr 278 278
Note:
See TracChangeset
for help on using the changeset viewer.