src/rescal.inc

Fortran project SIMRES, source module src/rescal.inc.

Source module last modified on Sat, 26 Mar 2005, 11:40;
HTML image of Fortran source automatically generated by for2html on Mon, 23 May 2005, 21:29.


       
      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  


#// RESCAL parameters (moved from inout.inc): 
#//  _NAM .. command names,
#//  _HLP .. command hints 
#//  _DAT .. variable values 
#//  _DEF .. default values 
      integer*4 mres
      parameter(mres=256)   ! dimension of RES_DAT array (RESCAL params) 
      character*5 res_nam(mres)
      character*60 res_hlp(mres)
      real*8 res_dat(mres),res_def(mres) 
      common /rescal/ res_nam,res_hlp,res_dat,res_def
      
#------------------------------------------------------------------
#/// 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))