You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
12 lines
439 B
12 lines
439 B
subroutine TRsetmaxindex(cindex,dindex,eindex)
|
|
c--- sets the maximum number of tensor indices calculated in the
|
|
c--- routines pvCfill (cindex), pvDfill (dindex) and pvEfill (eindex);
|
|
c--- should be set on a per-calculation basis
|
|
implicit none
|
|
include 'lib/TensorReduction/Include/TRmaxindex.f'
|
|
integer cindex,dindex,eindex
|
|
maxcindex=cindex
|
|
maxdindex=dindex
|
|
maxeindex=eindex
|
|
return
|
|
end
|