+++ /dev/null
- module wham_data
-!---------------------------------------------------------------------------
-!---------------------------------------------------------------------------
- integer,parameter :: max_eneW=21
- integer,parameter :: maxQ=1
- integer,parameter :: maxQ1=MaxQ+2
- integer,parameter :: max_parm=1
- integer,parameter :: MaxSlice=40
- integer,parameter :: MaxN=100
- integer,parameter :: MaxR=1
- integer,parameter :: MaxT_h=32
- integer,parameter :: maxstr=200000
- integer,parameter :: maxfile_prot=100
-! Maximum number of structures to be dealt with by one processor
- integer,parameter :: maxstr_proc=10000
- integer :: n_eneW
- integer :: ijunk
-!---------------------------------------------------------------------------
-
-!---------------------------------------------------------------------------
-! DIMENSIONS.COMPAR
-! Array dimensions for level-based conformation comparison program:
-!
-! Max. number of conformations in the data set.
-!
-! integer maxconf
-! PARAMETER (MAXCONF=maxstr_proc)
-!
-! Max. number levels of comparison
-!
-! integer maxlevel
-! PARAMETER (MAXLEVEL=3)
-!
-! Max. number of fragments at a given level of comparison
-!
- integer,parameter :: maxfrag=30
- integer,parameter :: MMAXFRAG=MAXFRAG*(MAXFRAG+1)/2
-!
-! Max. number of pieces forming a substructure to be compared
-!
- integer,parameter :: MAXPIECE=20
-!
-!---------------------------------------------------------------------------
-!---------------------------------------------------------------------------
-! COMMON.WEIGHTS
-! common /chujec/
- real(kind=8),dimension(:),allocatable :: ww,ww0,ww_low,ww_up,&
- ww_orig !(max_ene)
- real(kind=8),dimension(:),allocatable :: x_orig,x_up,x_low !(max_paropt)
- real(kind=8),dimension(2,2) :: epp_low,epp_up,rpp_low,rpp_up,&
- elpp6_low,elpp6_up,elpp3_low,elpp3_up
- real(kind=8),dimension(13,3) :: b_low,b_up
- real(kind=8),dimension(:,:),allocatable :: epscp_low,epscp_up,&
- rscp_low,rscp_up !(0:ntyp,2)
- real(kind=8),dimension(:),allocatable :: epss_low,epss_up !(ntyp)
- real(kind=8),dimension(:),allocatable :: epsp_low,epsp_up !(nntyp)
- real(kind=8),dimension(:,:),allocatable :: xm,xm1,&
- xm2 !(max_paropt,0:maxprot)
-
- integer,dimension(:),allocatable :: imask,iwW !(max_ene)
- integer :: nsingle_sc,npair_sc
- integer,dimension(:),allocatable :: ityp_ssc !(ntyp)
- integer,dimension(:,:),allocatable :: ityp_psc !(2,nntyp)
- integer :: mask_elec(2,2,4),mask_fourier(13,3),mod_fourier(0:3)
- integer,dimension(:,:,:),allocatable :: mask_scp !(0:ntyp,2,2)
- integer,dimension(:,:),allocatable :: indz !(maxbatch+1,maxprot)
- logical :: mod_other_params,mod_elec,mod_scp,mod_side
-!---------------------------------------------------------------------------
-! COMMON.FREE
-! common /wham/
- integer :: nQ,nparmset,rescale_modeW,iparmprint,myparm
- integer,dimension(:),allocatable :: stot !(maxslice)
- logical :: hamil_rep,separate_parset
- real(kind=8),dimension(:,:,:,:),allocatable :: Kh,q0 !(MaxQ,MaxR,MaxT_h,max_parm)
- real(kind=8) :: delta,deltrms,deltrgy,fimin
- real(kind=8),dimension(:,:,:),allocatable :: f !(maxR,maxT_h,max_parm)
- real(kind=8),dimension(:,:),allocatable :: beta_h !(MaxT_h,max_parm)
- integer,dimension(:,:),allocatable :: nR,nRR !(maxT_h,max_parm)
- integer,dimension(:,:,:,:),allocatable :: snk !(MaxR,MaxT_h,max_parm,MaxSlice)
- integer,dimension(:),allocatable :: nT_h !(max_parm)
- integer :: maxit
- integer,dimension(:,:),allocatable :: totraj !(maxR,max_parm)
- logical,dimension(:),allocatable :: replica,umbrella,read_iset !(max_parm)
-!---------------------------------------------------------------------------
-! COMMON.PROT
-! common /protein/
- integer,dimension(:),allocatable :: ntot !(maxslice)
- integer,dimension(:),allocatable :: isampl !(max_parm)
- integer :: nslice
-!---------------------------------------------------------------------------
-! COMMON.PROTFILES
-! common /protfil/
- character(len=80),dimension(:,:,:,:,:),allocatable :: protfiles !(maxfile_prot,2,MaxR,MaxT_h,Max_Parm)
- character(len=80) :: bprotfiles
- integer,dimension(:,:,:),allocatable :: nfile_bin,nfile_asc,&
- nfile_cx,rec_start,rec_end !(MaxR,MaxT_h,Max_Parm)
- integer :: lenrec,lenrec1,lenrec2
-!---------------------------------------------------------------------------
-! COMMON.ENERGIES
-! common /energies/
- real(kind=8),dimension(:,:),allocatable :: potE !(MaxStr_Proc,Max_Parm)
- real(kind=8),dimension(:),allocatable :: entfac !(MaxStr_Proc)
- real(kind=8),dimension(:,:),allocatable :: q !(MaxQ+2,MaxStr_Proc)
- real(kind=8),dimension(:,:,:),allocatable :: enetb !(max_ene,MaxStr_Proc,Max_Parm)
- integer :: einicheck
-!---------------------------------------------------------------------------
-! COMMON.CONTROL
-! common /cntrl/
- logical :: punch_dist,print_rms,caonly,verbose,merge_helices,&
- bxfile,cxfile,histfile,entfile,zscfile,rmsrgymap,&
- with_dihed_constr,check_conf,histout
- integer :: icomparfunc,pdbint,ensembles,constr_dist
-!---------------------------------------------------------------------------
-! COMMON.OBCINKA
-! common /obcinka/
- real(kind=8),dimension(:,:,:),allocatable :: time_start_collect,&
- time_end_collect !(maxR,MaxT_h,Max_Parm)
-!---------------------------------------------------------------------------
-! COMMON.PEPTCONT
-! common /peptcont/
- integer :: ncont_pept_ref
- integer,dimension(:,:),allocatable :: icont_pept_ref !(2,maxcont)
- integer,dimension(:),allocatable :: ncont_frag_ref !(mmaxfrag)
- integer,dimension(:,:,:),allocatable :: icont_frag_ref !(2,maxcont,mmaxfrag)
- integer,dimension(:),allocatable :: isec_ref !(maxres)
-!---------------------------------------------------------------------------
-! COMMON.CONTPAR
-! common /contpar/
-! real(kind=8),dimension(:,:),allocatable :: sig_comp,chi_comp,&
-! chip_comp,sc_cutoff !(ntyp,ntyp)
-!---------------------------------------------------------------------------
- end module wham_data