source/unres/geometry_data.f90

   1       module geometry_data
   2 !-----------------------------------------------------------------------------
   3 ! commom.bounds
   4 !      common /bounds/
   5       real(kind=8),dimension(:,:),allocatable :: phibound !(2,maxres)
   6 !-----------------------------------------------------------------------------
   7 ! commom.chain
   8 !      common /chain/
   9       real(kind=8),dimension(:,:),allocatable :: c !(3,maxres2+2)
  10       real(kind=8),dimension(:,:),allocatable :: dc,dc_old,&
  11        dc_norm,dc_norm2 !(3,0:maxres2)
  12       real(kind=8),dimension(:,:),allocatable :: xloc,xrot !(3,maxres)
  13       real(kind=8),dimension(:),allocatable :: dc_work !(MAXRES6)
  14       integer :: nres,nres0
  15 !      common /rotmat/
  16       real(kind=8),dimension(:,:,:),allocatable :: prod,rt !(3,3,maxres)
  17 !      common /refstruct/
  18       real(kind=8),dimension(:,:,:),allocatable :: cref !(3,maxres2+2,maxperm),
  19       real(kind=8),dimension(:,:),allocatable :: crefjlee !(3,maxres2+2),
  20       real(kind=8),dimension(:,:,:),allocatable :: chain_rep !(3,maxres2+2,maxsym)
  21       integer :: nsup,nstart_sup,nstart_seq,chain_length,iprzes,nperm
  22       integer :: nend_sup,ishift_pdb  !wham
  23       real(kind=8) :: rmssing,anatemp !wham
  24       integer,dimension(:,:),allocatable :: tabperm !(maxperm,maxsym)
  25 !      common /from_zscore/ in module.compare
  26 !-----------------------------------------------------------------------------
  27 ! common.geo
  28 !      common /geo/
  29       real(kind=8) :: pi,dwapi,pipol,pi3,dwapi3,deg2rad,rad2deg,angmin
  30 !-----------------------------------------------------------------------------
  31 ! common.local
  32 ! Inverses of the actual virtual bond lengths
  33 !      common /invlen/
  34       real(kind=8),dimension(:),allocatable :: vbld_inv !(maxres2)
  35 !-----------------------------------------------------------------------------
  36 ! Max. number of lobes in SC distribution
  37       integer,parameter :: maxlob=4
  38 !-----------------------------------------------------------------------------
  39 ! Max number of symetric chains
  40       integer,parameter :: maxsym=50
  41       integer,parameter :: maxperm=120
  42 !-----------------------------------------------------------------------------
  43 ! common.var
  44 ! Store the geometric variables in the following COMMON block.
  45 !      common /var/
  46       real(kind=8),dimension(:),allocatable :: theta,phi,alph,omeg,&
  47        thetaref,phiref,costtab,sinttab,cost2tab,sint2tab !(maxres)
  48       real(kind=8),dimension(:),allocatable :: vbld !(2*maxres)
  49       real(kind=8),dimension(:,:),allocatable :: omicron !(2,maxres)
  50       real(kind=8),dimension(:,:),allocatable :: tauangle !(3,maxres)
  51       real(kind=8),dimension(:),allocatable :: xxtab,yytab,zztab,&
  52        xxref,yyref,zzref !(maxres)
  53       integer,dimension(:,:),allocatable :: ialph !(maxres,2)
  54       integer,dimension(:),allocatable :: ivar !(4*maxres2)
  55       integer :: ntheta,nphi,nside,nvar
  56 !-----------------------------------------------------------------------------
  57       integer,dimension(:),allocatable :: itype_pdb !(maxres) initialize in molread
  58 !-----------------------------------------------------------------------------
  59 !-----------------------------------------------------------------------------
  60       end module geometry_data