real(kind=8),dimension(:),allocatable :: utheta,ugamma,uscdiff !(maxfrag_back)
real(kind=8),dimension(:,:,:),allocatable :: wfrag_back !(3,maxfrag_back,maxprocs/20)
integer,dimension(:,:,:),allocatable :: ifrag_back !(3,maxfrag_back,maxprocs/20)
-! common /qmeas/
- real(kind=8),dimension(50) :: qfrag
- real(kind=8),dimension(100) :: qpair
- real(kind=8),dimension(:,:),allocatable :: qinfrag,wfrag !(50,maxprocs/20)
- real(kind=8),dimension(:,:),allocatable :: qinpair,wpair !(100,maxprocs/20)
- real(kind=8) :: eq_time,Uconst
- integer :: iset,nset
- integer,dimension(:),allocatable :: mset !(maxprocs/20)
- integer,dimension(:,:,:),allocatable :: ifrag !(2,50,maxprocs/20)
- integer,dimension(:,:,:),allocatable :: ipair !(2,100,maxprocs/20)
- integer :: nfrag,npair
- logical :: usampl
+! common /qmeas/ in module geometry
!-----------------------------------------------------------------------------
! common.sbridge
! common /sbridge/
! common/fourier/ z wham
real(kind=8),dimension(:,:),allocatable :: b !(13,0:maxtor)
!-----------------------------------------------------------------------------
-! common.var
-! Store the geometric variables in the following COMMON block.
-! common /var/ in module geometry_data
-! Store the angles and variables corresponding to old conformations (for use
-! in MCM).
-! common /oldgeo/
-!el real(kind=8),dimension(:,:),allocatable :: varsave !(maxvar,maxsave)
-! real(kind=8),dimension(:),allocatable :: esave !(maxsave)
-! integer,dimension(:),allocatable :: Origin !(maxsave)
-! integer :: nstore
-! freeze some variables
-! common /restr/
- real(kind=8),dimension(:),allocatable :: varall !(maxvar)
- integer,dimension(:),allocatable :: mask_theta,&
- mask_phi,mask_side !(maxres)
- logical :: mask_r
-!-----------------------------------------------------------------------------
!-----------------------------------------------------------------------------
end module energy_data