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