- allocate(ffthet_all1(maxdouble,maxdouble,maxtheterm3,&
- -maxthetyp1:maxthetyp1,-maxthetyp1:maxthetyp1,&
- -maxthetyp1:maxthetyp1,iparm))
- allocate(ggthet_all1(maxdouble,maxdouble,maxtheterm3,&
- -maxthetyp1:maxthetyp1,-maxthetyp1:maxthetyp1,&
- -maxthetyp1:maxthetyp1,iparm))
- allocate(ffthet_all2(maxdouble,maxdouble,maxtheterm3,&
- -maxthetyp1:maxthetyp1,-maxthetyp1:maxthetyp1,&
- -maxthetyp1:maxthetyp1,iparm))
- allocate(ggthet_all2(maxdouble,maxdouble,maxtheterm3,&
- -maxthetyp1:maxthetyp1,-maxthetyp1:maxthetyp1,&
- -maxthetyp1:maxthetyp1,iparm))
+ allocate(ffthet_all1(ndouble,ndouble,ntheterm3,&
+ -nthetyp-1:nthetyp+1,-nthetyp-1:nthetyp+1,&
+ -nthetyp-1:nthetyp+1,iparm))
+ allocate(ggthet_all1(ndouble,ndouble,ntheterm3,&
+ -nthetyp-1:nthetyp+1,-nthetyp-1:nthetyp+1,&
+ -nthetyp-1:nthetyp+1,iparm))
+ allocate(ffthet_all2(ndouble,ndouble,ntheterm3,&
+ -nthetyp-1:nthetyp+1,-nthetyp-1:nthetyp+1,&
+ -nthetyp-1:nthetyp+1,iparm))
+ allocate(ggthet_all2(ndouble,ndouble,ntheterm3,&
+ -nthetyp-1:nthetyp+1,-nthetyp-1:nthetyp+1,&
+ -nthetyp-1:nthetyp+1,iparm))