source/cluster/unres/src/COMMON.VAR

   1 C Store the geometric variables in the following COMMON block.
   2       integer ntheta,nphi,nside,nvar,Origin,nstore,ialph,ivar
   3       double precision theta,phi,alph,omeg,varsave,esave
   4       common /var/ theta(maxres),phi(maxres),alph(maxres),omeg(maxres),
   5      &          ialph(maxres,2),ivar(4*maxres2),ntheta,nphi,nside,nvar
   6 C Store the angles and variables corresponding to old conformations (for use
   7 C in MCM).
   8       common /oldgeo/ varsave(maxvar,maxsave),esave(maxsave),
   9      &  Origin(maxsave),nstore