1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
#ifndef _SYMM2_COM_
#define _SYMM2_COM_
c symm2.com : begin
c This is initialized in vscf/symsiz.
#include "maxbasfn.par"
integer nirrep, nbfirr(8), irpsz1(36), irpsz2(28),
& irpds1(36), irpds2(56), irpoff(9), ireps(9),
& dirprd(8,8), iwoff1(37), iwoff2(29),
& inewvc(maxbasfn), idxvec(maxbasfn),
& itriln(9), itriof(8), isqrln(9), isqrof(8),
& mxirr2
common /SYMM2/ nirrep, nbfirr, irpsz1, irpsz2, irpds1, irpds2,
& irpoff, ireps, dirprd, iwoff1, iwoff2, inewvc,
& idxvec, itriln, itriof, isqrln, isqrof, mxirr2
c symm2.com : end
#endif /* _SYMM2_COM_ */
|
