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.
9 lines
236 B
9 lines
236 B
subroutine pvsetmudim(mu)
|
|
implicit none
|
|
include 'lib/TensorReduction/Include/types.f'
|
|
include 'lib/TensorReduction/Include/TRscale.f'
|
|
real(dp):: mu
|
|
scale=mu
|
|
musq=scale**2
|
|
return
|
|
end
|