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.
15 lines
345 B
15 lines
345 B
subroutine pvswap(q1,q2,m1s,m2s)
|
|
implicit none
|
|
include 'lib/TensorReduction/Include/types.f'
|
|
real(dp)::q1(4),q2(4),qtemp(4),m1s,m2s,mtemps
|
|
integer nu
|
|
do nu=1,4
|
|
qtemp(nu)=q1(nu)
|
|
q1(nu)=q2(nu)
|
|
q2(nu)=qtemp(nu)
|
|
enddo
|
|
mtemps=m1s
|
|
m1s=m2s
|
|
m2s=mtemps
|
|
return
|
|
end
|