Searched refs:maxdim (Results 1 – 2 of 2) sorted by relevance
30 integer maxdim variable31 parameter(maxdim=3)33 parameter(qdimnmax=q**maxdim)35 parameter(pdimnmax=p**maxdim)37 parameter(xdimmax=2**maxdim)40 real*8 xx(xdimmax*maxdim)41 real*8 xxx(maxdim)42 real*8 xxq(pdimnmax*maxdim)43 real*8 uuq(qdimnmax*maxdim)56 do dimn=1,maxdim
31 integer maxdim variable32 parameter(maxdim=3)34 parameter(qdimmax=q**maxdim)36 parameter(xdimmax=2**maxdim)39 real*8 xx(xdimmax*maxdim)40 real*8 xxx(maxdim)41 real*8 xxq(qdimmax*maxdim)51 do dimn=1,maxdim