IAP GITLAB

Commit 1d26f835 authored by Tanguy Pierog's avatar Tanguy Pierog

correct missing variable initialization



git-svn-id: https://devel-ik.fzk.de/svn/mc/crmc/trunk@4533 c7a5e08c-de06-0410-9364-b41cf42a0b17
parent 7de69d60
......@@ -656,11 +656,11 @@ c------------------------------------------------------------------------------
if(maproj.gt.1.or.matarg.gt.1)then
C....calculate the Glauber probability and its integrated value:
DIP=BMAX**2/100.0
GBTOT=0.0
if(idtrg.eq.0)then
hijcrse=0
do k=1,3
IHNT2(3)=int(airanxs(k))
GBTOT=0.0
DO 10 I=1,101
XBI=sqrt((I-1)*DIP)
OV=HIPROFILE(XBI)
......
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