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