Revision 279 -
(download)
(annotate)
Wed Jun 27 20:30:08 2018 UTC
(5 years, 11 months ago)
by baaden File size: 363 byte(s)
move to trunk 1
program tst_bim
use constants
implicit none
integer, parameter :: dp = selected_real_kind(15,307)
! program to calculate tst rate
real (dp) :: deltag,rate,temp,deg,corr
! read deltag (in kcal/mol) and temperature (in K)
read(*,*) deltag,temp,deg
corr=ratm*temp
rate=deg*boltz*temp/planck*exp(-deltag/r/temp)
! rate in s-1
print*, rate*corr
end program tst_bim