IAP GITLAB

Commit ae6d8e2b authored by Ralf Ulrich's avatar Ralf Ulrich

fixed error in crmc-aaa that switched off root output

git-svn-id: https://devel-ik.fzk.de/svn/mc/crmc/trunk@4935 c7a5e08c-de06-0410-9364-b41cf42a0b17
parent dcc70cf2
......@@ -188,14 +188,14 @@ c boost output to cms frame
+ ,vhep(1,i),vhep(2,i),vhep(3,i),vhep(4,i),-99)
call utlob5dbl(-ycm2det
+ ,phep(1,i), phep(2,i), phep(3,i), phep(4,i), mass)
outpart(i)=idhep(i)
outpx(i)=phep(1,i)
outpy(i)=phep(2,i)
outpz(i)=phep(3,i)
oute(i)=phep(4,i)
outm(i)=phep(5,i)
outstat(i)=isthep(i)
endif
outpart(i)=idhep(i)
outpx(i)=phep(1,i)
outpy(i)=phep(2,i)
outpz(i)=phep(3,i)
oute(i)=phep(4,i)
outm(i)=phep(5,i)
outstat(i)=isthep(i)
c write(*,'(4x,i6,1x,4(e12.6,1x))')idhep(i),(vhep(k,i),k=1,4)
c write(*,'(i5,3x,i2,2x,2i5,2x,2i5)')i,isthep(i)
c * ,jmohep(1,i),jmohep(2,i),jdahep(1,i),jdahep(2,i)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment