- Timestamp:
- 06/16/10 08:25:47 (14 years ago)
- Branches:
- master
- Children:
- 5fef0d7
- Parents:
- 9f146fa
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
enyshe.f
r9f146fa r3fbbfbb 10 10 ! ************************************************************** 11 11 12 !> PURPOSE: Calculate internal energy of molecule 'nml' with ECEPP parameters 13 !! 14 !! CALLS: none 15 !! 16 !! The function loops over all moving sets within the molecule. Within 17 !! this loop it loops over the van-der-Waals domains of each atom in the 18 !! moving set and finally over the atoms that belong to the 1-4 interaction 19 !! set. 20 !< ............................................................................ 12 21 13 22 real*8 function enyshe(nml) 14 23 15 ! ............................................................................16 !17 ! PURPOSE: Calculate internal energy of molecule 'nml' with ECEPP parameters18 !19 ! CALLS: none20 !21 ! The function loops over all moving sets within the molecule. Within22 ! this loop it loops over the van-der-Waals domains of each atom in the23 ! moving set and finally over the atoms that belong to the 1-4 interaction24 ! set.25 ! ............................................................................26 24 27 25 include 'INCL.H'
Note:
See TracChangeset
for help on using the changeset viewer.