src/exciimp.inc

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

Source module last modified on Tue, 2 May 2006, 17:38;
HTML image of Fortran source automatically generated by for2html on Mon, 29 May 2006, 15:06.


#// c define structures compatible with a common blocks in EXCI
#/// NOTICE:  'const.inc' must precede to get dimension constants

      STRUCTURE /QOMEGA/
        real*4 qom0(4,mdat)
        real*4 qom(4,mqom)
        real*4 pqom(mqom)
        integer*4 iqom(mqom)
        integer*4 nqom(0:mdat)
        integer*4 ndatqom
        real*8 chkqom
      end structure

      STRUCTURE /MODEL/
        integer*4 nterm,nbr,excread,excunit
        integer*4 fixparam(mpar)
        real*8 wen(6)
        real*8 param(mpar)
        character*128 phonname,phontitle
        character*16  parname(mpar)
      end structure

      STRUCTURE /RECLATTICE/
       real*8 cell(6)
       real*8 veca(3),vecb(3);
       real*8 smat(4,4),sinv(4,4),cosb(3)
       real*8 mrab(4,4),mabr(4,4);
       real*8 cellvol;
      end structure
      
      record /QOMEGA/ rq
      common /rqcommon/ rq