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.
real*8 mcr(4,4),mcg(4,4),mcd(4,4),mrc(4,4),mdr(4,4),mlc(4,4)
common /transm/ mcr,mcg,mcd,mrc,mdr
real*8 somega,comega,omega
common /scattang/ mlc,somega,comega,omega ! scattering angle
real*8 ki0,kf0,q0
common /kikfq/ ki0,kf0,q0 ! scattering triangle
#------------------------------------------------------------------
#/// indices to RESCAL variables:
integer*4 i_dm,i_da,i_etam,i_etaa,i_etas,i_sm,i_ss,i_sa,
* i_kfix,i_fx,
* i_alf1,i_alf2,i_alf3,i_alf4,i_bet1,i_bet2,i_bet3,i_bet4,
* i_as,i_bs,i_cs,i_aa,i_bb,i_cc,i_ax,i_ay,i_az,i_bx,i_by,i_bz,
* i_qh,i_qk,i_ql,i_en,i_dqh,i_dqk,i_dql,i_den,i_da3,i_da4,
* i_gh,i_gk,i_gl,i_gmod,i_romh,i_romv,i_roah,i_roav,i_sdi,i_shi
parameter(
* i_dm=1 ,
* i_da=2 ,
* i_etam=3 ,
* i_etaa=4 ,
* i_etas=5 ,
* i_sm=6 ,
* i_ss=7 ,
* i_sa=8 ,
* i_kfix=9 ,
* i_fx=10 ,
* i_alf1=11 ,
* i_alf2=12 ,
* i_alf3=13 ,
* i_alf4=14 ,
* i_bet1=15 ,
* i_bet2=16 ,
* i_bet3=17 ,
* i_bet4=18 ,
* i_as=19 ,
* i_bs=20 ,
* i_cs=21 ,
* i_aa=22 ,
* i_bb=23 ,
* i_cc=24 ,
* i_ax=25 ,
* i_ay=26 ,
* i_az=27 ,
* i_bx=28 ,
* i_by=29 ,
* i_bz=30 ,
* i_qh=31 ,
* i_qk=32 ,
* i_ql=33 ,
* i_en=34 ,
* i_dqh=35 ,
* i_dqk=36 ,
* i_dql=37 ,
* i_den=38 ,
* i_da3=39 ,
* i_da4=40 ,
* i_gh=41 ,
* i_gk=42 ,
* i_gl=43 ,
* i_gmod=44 ,
* i_romh=45 ,
* i_romv=46 ,
* i_roah=47 ,
* i_roav=48 ,
* i_sdi=49 ,
* i_shi=50)
real*8 delq(3),grd(3),qhkl(3)
equivalence (delq(1),res_dat(i_dqh))
equivalence (grd(1),res_dat(i_gh))
equivalence (qhkl(1),res_dat(i_qh))