c
c- by RF - Feb. 2006
c====================================================================
c
c  Set the dimension of the wavefunctions.
c
c====================================================================
c
 
      integer DIM

c Set the dimension of the wavefunctions to an arbitrary length

      parameter ( DIM=18 )

c
c      integer DIM_T, DIM_V, DIM_F
c
c dimension vector particle:
c      parameter ( DIM_V=6 )
c
c dimension scalar particle:
c      parameter ( DIM_S=3 )
c
c dimension fermionic particle:
c      parameter ( DIM_F=6 )
c
c demension tensor particle:
c      parameter ( DIM_T=18 )
c