src/trax.inc

Fortran project RESTRAX, source module src/trax.inc.

Source module last modified on Wed, 13 Jul 2005, 16:20;
HTML image of Fortran source automatically generated by for2html on Mon, 29 May 2006, 15:06.


#////  Variables for TRAX code  ////
     
      real*8 vki,slamdi,ei0,vkf,slamdf,ef0,vq0,homega,grad(3),dirq, 
     * gradi(3),tau1,dirtau,dirtd,dirqd,epsln,qsmall,dirqt,srctemp
      real*8 cryti,cryd(2),d0kovd(2),svmo(31),comiu(10),poiss(2)
      real*8 nsou,wsou,hsou,diasou,wmon,thmon,hmon,
     1 wsam,thsam,hsam,diasam,wana,thana,hana,ndet,wdet,hdet,diadet
      real*8 vlcanm,vlsm,hdm1,hdm2,vdm1,vdm2,
     1       vlcans,vlms,hds1,hds2,vds1,vds2,
     2       vlcana,vlsa,hda1,hda2,vda1,vda2,
     3       vlcand,vlad,hdd1,hdd2,vdd1,vdd2    
      real*8 tetam,himon,rohm,rovm,etm,pm,pm0,rkinm,rlamm      
      real*8 tetaa,hiana,roha,rova,eta,pa,pa0,rkina,rlama      
      real*8 vl0,vl1,vl2,vl3,vlmin,vlmax
      real*8 tetas,hisam,ets      
      real*8 gamacr,alpha(4),beta(4)     
      real*8 om,him,etamef,os,his,oa,hia,etaaef,phi,phim      
      real*8 etvm,etvmef,anrm,etva,etvaef,anra      
      real*8 pii,tdr,tmr,r8ln2,hsqovm      
      real*8 volsam,volef,fracv,radet,volcki,volckf,cki(3,3),ckf(3,3)
      real*8 r0trax,reltrax     
            
      integer*4 nda,ncy,nefix,im,ia,isc,ncr1,ncr2,nsam,nopt,nwr,ncf
      integer*4 nfm,nfs,nfa,nfd
      integer*4 ngradm,ngrada
      integer*4 nguide
      
      
      common /index/nda,ncy,nefix,im,ia,isc,ncr1,ncr2,nsam,nopt,nwr,ncf 
      common /mean/vki,slamdi,ei0,vkf,slamdf,ef0,vq0,homega,grad,dirq 
     *,gradi,tau1,dirtau,dirtd,dirqd,epsln,qsmall,dirqt,srctemp 
      common /cryti/cryti/cryd/cryd/d0kovd/d0kovd/sv/svmo
     1/comiu/comiu/poiss/poiss
      common /dimens/nsou,wsou,hsou,diasou,wmon,thmon,hmon,
     1wsam,thsam,hsam,diasam,wana,thana,hana,ndet,wdet,hdet,diadet
      common /coarse/vlcanm,vlsm,hdm1,hdm2,vdm1,vdm2,
     1               vlcans,vlms,hds1,hds2,vds1,vds2,
     2               vlcana,vlsa,hda1,hda2,vda1,vda2,
     3               vlcand,vlad,hdd1,hdd2,vdd1,vdd2,
     4               nfm,nfs,nfa,nfd   
      common /monoch/tetam,himon,rohm,rovm,etm,pm,pm0,rkinm,rlamm,ngradm
      common /analys/tetaa,hiana,roha,rova,eta,pa,pa0,rkina,rlama,ngrada
      common /setp/vl0,vl1,vl2,vl3,vlmin,vlmax
      common /sample/tetas,hisam,ets
      common /SOLLER/gamacr,alpha,beta,nguide
      common /angles/om,him,etamef,os,his,oa,hia,etaaef,phi,phim
      common /vertic/etvm,etvmef,anrm,etva,etvaef,anra
      common /ctants/pii,tdr,tmr,r8ln2,hsqovm
      common /vols/volsam,volef,fracv,radet,volcki,volckf,cki,ckf
      common /abnorm/r0trax,reltrax