IAP GITLAB

Commit d7da962c authored by Colin Baus's avatar Colin Baus

removed warning messages

git-svn-id: https://devel-ik.fzk.de/svn/mc/crmc/trunk@4517 c7a5e08c-de06-0410-9364-b41cf42a0b17
parent 8faea1ec
......@@ -19,11 +19,11 @@ CRMCoptions::CRMCoptions(int argc, char** argv)
fProjectileId(1),
fTargetId(1),
fHEModel(0),
fTypout(0),
fProjectileMomentum(3500),
fTargetMomentum(-3500),
fParamFileName("crmc.param "),
fOutputFileName(""),
fTypout(0),
fProduceTables(false),
fSeedProvided(false),
fTest(false)
......@@ -185,7 +185,7 @@ CRMCoptions::ParseOptions(int argc, char** argv)
if (opt.count("config")) {
fParamFileName = opt["config"].as<string>();
fParamFileName += ' '; //space needed at the end for Fortran command "index". "trim" needs f90 therefore not used here
fParamFileName += ' '; //space needed at the end for Fortran command "index". "trim" needs f90 therefore not used here
}
if (opt.count("out"))
......@@ -238,7 +238,7 @@ const
}
const int Z = pid/10000;
const int A = (pid%10000) / 10;
switch(Z) {
case 1: return "p"; break;
case 2: return "He"; break;
......@@ -246,10 +246,11 @@ const
case 7: return "N"; break;
case 8: return "O"; break;
case 26: return "Fe"; break;
case 82: return "Pb"; break;
case 82: return "Pb"; break;
}
ostringstream ss;
ss << "A" << A << "Z" << Z;
return ss.str();
}
void
......@@ -274,7 +275,7 @@ CRMCoptions::DumpConfig() const
const int Z = fTargetId/10000;
const int A = (fTargetId%10000) / 10;
cout << " (A=" << A << ", Z=" << Z <<")";
}
}
cout << "\n"
<< " target momentum: " << fTargetMomentum << "\n\n";
......@@ -387,7 +388,7 @@ CRMCoptions::GetOutputFileName() const
crmcFileName << ParticleName(fProjectileId) << "_";
crmcFileName << ParticleName(fTargetId);
crmcFileName << "_" << fProjectileMomentum
<< GetOutputTypeEnding();
......
......@@ -530,12 +530,12 @@ C cross sections
#endif
end
subroutine dpmjetSIGMA(stot,sine,sela,stotaa,sineaa,selaaa)
subroutine dpmjetSIGMA(stot,sine,sela)
#ifndef __DPMJET__
stop'please compile with requested model'
print *, stot,sine,sela,stotaa,sineaa,selaaa !get rid of unused warning
#else
#else
call GetDPMJETSigma(stot,sine,sela)
#endif
end
......@@ -564,7 +564,7 @@ c-----------------------------------------------------------------------
COMMON/PYDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200)
COMMON/PYDAT3/MDCY(500,3),MDME(4000,2),BRAT(4000),KFDP(4000,5)
character*100 NameDecay
c Integer function to translate normal id from pythia to compact one.
integer PYCOMP
......@@ -647,7 +647,7 @@ c set values according to EPOS settings
write(NameDecay,'(a,i4,a)')'MDCY(C',ic,',1)=0'
call PYGIVE(NameDecay(1:15))
endif
enddo
enddo
endif
if(ctaumin.gt.0.)then
......@@ -675,57 +675,55 @@ c--------------------------------------------------------------------
return
end
C*********************************************************************
C...PDFSET
C...Dummy routine, to be removed when PDFLIB is to be linked.
SUBROUTINE PDFSET(PARM,VALUE)
C...Double precision and integer declarations.
IMPLICIT DOUBLE PRECISION(A-H, O-Z)
IMPLICIT INTEGER(I-N)
INTEGER PYK,PYCHGE,PYCOMP
C...Commonblocks.
COMMON/PYDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200)
SAVE /PYDAT1/
C...Local arrays and character variables.
CHARACTER*20 PARM(20)
DOUBLE PRECISION VALUE(20)
C...Stop program if this routine is ever called.
WRITE(MSTU(11),5000)
IF(PYR(0).LT.10D0) STOP
PARM(20)=PARM(1)
VALUE(20)=VALUE(1)
C...Format for error printout.
5000 FORMAT(1X,'Error: you did not link PDFLIB correctly.'/
&1X,'Dummy routine PDFSET in PYTHIA file called instead.'/
&1X,'Execution stopped!')
RETURN
END
C*********************************************************************
C...STRUCTM
C...Dummy routine, to be removed when PDFLIB is to be linked.
SUBROUTINE STRUCTM(XX,QQ,UPV,DNV,USEA,DSEA,STR,CHM,BOT,TOP,GLU)
C...Double precision and integer declarations.
IMPLICIT DOUBLE PRECISION(A-H, O-Z)
IMPLICIT INTEGER(I-N)
INTEGER PYK,PYCHGE,PYCOMP
C...Commonblocks.
COMMON/PYDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200)
SAVE /PYDAT1/
C...Local variables
DOUBLE PRECISION XX,QQ,UPV,DNV,USEA,DSEA,STR,CHM,BOT,TOP,GLU
C...Stop program if this routine is ever called.
WRITE(MSTU(11),5000)
IF(PYR(0).LT.10D0) STOP
......@@ -738,34 +736,33 @@ C...Stop program if this routine is ever called.
BOT=XX+7D0*QQ
TOP=XX+8D0*QQ
GLU=XX+9D0*QQ
C...Format for error printout.
5000 FORMAT(1X,'Error: you did not link PDFLIB correctly.'/
&1X,'Dummy routine STRUCTM in PYTHIA file called instead.'/
&1X,'Execution stopped!')
RETURN
END
C*********************************************************************
C...STRUCTP
C...Dummy routine, to be removed when PDFLIB is to be linked.
SUBROUTINE STRUCTP(XX,QQ2,P2,IP2,UPV,DNV,USEA,DSEA,STR,CHM,
&BOT,TOP,GLU)
C...Double precision and integer declarations.
IMPLICIT DOUBLE PRECISION(A-H, O-Z)
IMPLICIT INTEGER(I-N)
INTEGER PYK,PYCHGE,PYCOMP
C...Commonblocks.
COMMON/PYDAT1/MSTU(200),PARU(200),MSTJ(200),PARJ(200)
SAVE /PYDAT1/
C...Local variables
DOUBLE PRECISION XX,QQ2,P2,UPV,DNV,USEA,DSEA,STR,CHM,BOT,
&TOP,GLU
C...Stop program if this routine is ever called.
WRITE(MSTU(11),5000)
IF(PYR(0).LT.10D0) STOP
......@@ -778,12 +775,12 @@ C...Stop program if this routine is ever called.
BOT=XX+7D0*QQ2
TOP=XX+8D0*QQ2
GLU=XX+9D0*QQ2
C...Format for error printout.
5000 FORMAT(1X,'Error: you did not link PDFLIB correctly.'/
&1X,'Dummy routine STRUCTP in PYTHIA file called instead.'/
&1X,'Execution stopped!')
RETURN
END
......
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