Advanced Computing Platform for Theoretical Physics

Commit b6176a22 authored by pierog's avatar pierog
Browse files

correct bug introduced in epovapor for nuclear fragmentation basically switching of evaporation

parent 2d943bf5
......@@ -9846,8 +9846,8 @@ c momenta squared
if ( infragm .ge. 2 ) then
c remaining nucleus is evaporating nucleons and alpha particles
jfin = 0
call epovapor( mapro,inew,jfin,ityp,pfrx,pfry,pfrz )
jfin = 0
call epovapor( maproj,inew,jfin,ityp,pfrx,pfry,pfrz )
if ( jfin .eq. 0 )then !something failed
iret=1
goto 1000
......@@ -10097,7 +10097,7 @@ c momenta squared
if ( infragm .ge. 2 ) then
c remaining nucleus is evaporating nucleons and alpha particles
jfin = 0
call epovapor( matar,inew,jfin,ityp,pfrx,pfry,pfrz )
call epovapor( matarg,inew,jfin,ityp,pfrx,pfry,pfrz )
if ( jfin .eq. 0 )then !something failed
iret=1
goto 1000
......
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