- Timestamp:
- 09/05/08 11:49:42 (16 years ago)
- Branches:
- master
- Children:
- fafe4d6
- Parents:
- 2ebb8b6
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
setvar.f
r2ebb8b6 rbd2278d 1 c**************************************************************2 c 3 cThis file contains the subroutines: setvar4 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: setvar 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 13 13 subroutine setvar(nml,vlvrx) 14 14 15 c..............................................................16 cPURPOSE: Reset variables in molecule 'nml' to new values given17 cin 'vlvrx' and rebuild molecule18 c19 c! assure constant PHASE angles for branches from same atom20 c 21 cCALLS: bldmol,difang22 c....................................................15 ! .............................................................. 16 ! PURPOSE: Reset variables in molecule 'nml' to new values given 17 ! in 'vlvrx' and rebuild molecule 18 ! 19 ! ! assure constant PHASE angles for branches from same atom 20 ! 21 ! CALLS: bldmol,difang 22 ! .................................................... 23 23 24 24 include 'INCL.H'
Note:
See TracChangeset
for help on using the changeset viewer.