<%@ LANGUAGE="VBScript" %>
<%
Function GetIon(aa)
Select Case aa
Case 197
GetIon="Au"
Case 1
GetIOn="p"
Case -1
GetIOn="Undefined"
Case Else
GetIOn="A_" & CStr(aa)
End Select
End Function
Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Mode = adModeRead
Connection.Open phdb_rd
SQLStmtx = "select to_char(sysdate,'DD Mon YYYY') ddate,to_char(sysdate,'HH24:MI:SS') ttime,global_name from global_name "
' response.write(SQLStmtx & " " )
Set RSx = Connection.Execute(SQLStmtx)
If Not RSx.EOF Then
select case CStr(RSx("global_name"))
case "PHDB.WORLD"
dbname="Main Phobos Database"
case "ORACLE.WORLD"
dbname="Phobos Server (old) Database"
case "KRPHOBOS.WORLD"
dbname="Krakow Database"
case "ROCHESTER.WORLD"
dbname="Rochester Database"
end select
Else
dbname="Undefined Database"
End If
genname_req = CStr(Request("genname_form"))
a1_req = CStr(Request("a1_form"))
a2_req = CStr(Request("a2_form"))
e1_req = CStr(Request("energy1_form"))
e2_req = CStr(Request("energy2_form"))
bmin_req = CStr(Request("bmin_form"))
bmax_req = CStr(Request("bmax_form"))
geov_req = CStr(Request("geov_form"))
rzmn_req = CStr(Request("vtxzmin_form"))
rzmx_req = CStr(Request("vtxzmax_form"))
magt_req = CStr(Abs(Request("mags_form")))
mags_tmp = Sgn(Request("mags_form"))
If mags_tmp=0 Then
mags_tmp=1
End If
mags_req = CStr(mags_tmp)
SQLStmt = " select sr.run,sr.mcrun,mcr.program_name, "
SQLStmt = SQLStmt & " nvl(t1.numvalue,-1) bmin, "
SQLStmt = SQLStmt & " nvl(t2.numvalue,-1) bmax, "
SQLStmt = SQLStmt & " nvl(t3.numvalue,-1) e1, "
SQLStmt = SQLStmt & " nvl(t4.numvalue,-1) e2, "
SQLStmt = SQLStmt & " nvl(t5.numvalue,-1) a1, "
SQLStmt = SQLStmt & " nvl(t6.numvalue,-1) a2, "
SQLStmt = SQLStmt & " nvl(s7.textvalue,-1) geov, "
SQLStmt = SQLStmt & " nvl(s8.numvalue,-1) rzmn, "
SQLStmt = SQLStmt & " nvl(s9.numvalue,-1) rzmx, "
SQLStmt = SQLStmt & " nvl(s10.numvalue,0) magt, "
SQLStmt = SQLStmt & " nvl(s11.numvalue,1) sclb, "
SQLStmt = SQLStmt & " to_char(sr.run_date,'MM/DD/YYYY') rdate,nvl(mcr.num_events,0) n_eve,nvl(se.sim_events,0) s_eve "
SQLStmt = SQLStmt & " from phoffline.simruns sr,phoffline.mcruns mcr, "
SQLStmt = SQLStmt & " phoffline.mc_pars t1, "
SQLStmt = SQLStmt & " phoffline.mc_pars t2, "
SQLStmt = SQLStmt & " phoffline.mc_pars t3, "
SQLStmt = SQLStmt & " phoffline.mc_pars t4, "
SQLStmt = SQLStmt & " phoffline.mc_pars t5, "
SQLStmt = SQLStmt & " phoffline.mc_pars t6, "
SQLStmt = SQLStmt & " phoffline.simulation_pars s7, "
SQLStmt = SQLStmt & " phoffline.simulation_pars s8, "
SQLStmt = SQLStmt & " phoffline.simulation_pars s9, "
SQLStmt = SQLStmt & " phoffline.simulation_pars s10, "
SQLStmt = SQLStmt & " phoffline.simulation_pars s11, "
SQLStmt = SQLStmt & " (select max(sr.run) run,sum(sr.num_events) sim_events "
SQLStmt = SQLStmt & " from phoffline.simrunseqs sr, "
SQLStmt = SQLStmt & " (select max(runseq) runseq,run from phoffline.simrunseqs "
SQLStmt = SQLStmt & " where num_events>0 "
SQLStmt = SQLStmt & " group by run,first_event,last_event) srs "
SQLStmt = SQLStmt & " where sr.run=srs.run and sr.runseq=srs.runseq "
SQLStmt = SQLStmt & " group by sr.run) se "
SQLStmt = SQLStmt & " where "
If CInt(Request("genrunnum_form")) <> 0 Then
SQLStmt = SQLStmt & " sr.mcrun=" & CStr(Request("genrunnum_form"))
SQLStmt = SQLStmt & " and sr.mcrun=mcr.run and se.run(+)=sr.run "
SQLStmt = SQLStmt & " and t1.keyname(+)='BMIN' and t1.run(+)=mcr.run "
SQLStmt = SQLStmt & " and t2.keyname(+)='BMAX' and t2.run(+)=mcr.run "
SQLStmt = SQLStmt & " and t3.keyname(+)='E1' and t3.run(+)=mcr.run "
SQLStmt = SQLStmt & " and t4.keyname(+)='E2' and t4.run(+)=mcr.run "
SQLStmt = SQLStmt & " and t5.keyname(+)='A1' and t5.run(+)=mcr.run "
SQLStmt = SQLStmt & " and t6.keyname(+)='A2' and t6.run(+)=mcr.run "
SQLStmt = SQLStmt & " and s7.keyname(+)='GEOV' and s7.run(+)=sr.run "
SQLStmt = SQLStmt & " and s8.keyname(+)='RZMN' and s8.run(+)=sr.run "
SQLStmt = SQLStmt & " and s9.keyname(+)='RZMX' and s9.run(+)=sr.run "
SQLStmt = SQLStmt & " and s10.keyname(+)='MAGT' and s10.run(+)=sr.run "
SQLStmt = SQLStmt & " and s11.keyname(+)='SCLB' and s11.run(+)=sr.run "
SQLStmt = SQLStmt & " order by sr.run desc "
Else
SQLStmt = SQLStmt & " sr.mcrun=mcr.run and se.run(+)=sr.run "
SQLStmt = SQLStmt & " and mcr.program_name='" & genname_req & "' "
SQLStmt = SQLStmt & " and t1.keyname(+)='BMIN' and abs(t1.numvalue-" & bmin_req & ")<0.1" & " and t1.run(+)=mcr.run "
SQLStmt = SQLStmt & " and t2.keyname(+)='BMAX' and abs(t2.numvalue-" & bmax_req & ")<0.1" & " and t2.run(+)=mcr.run "
SQLStmt = SQLStmt & " and t3.keyname(+)='E1' and abs(t3.numvalue-" & e1_req & ")<1.0" & " and t3.run(+)=mcr.run "
SQLStmt = SQLStmt & " and t4.keyname(+)='E2' and abs(t4.numvalue-" & e2_req & ")<1.0" & " and t4.run(+)=mcr.run "
SQLStmt = SQLStmt & " and t5.keyname(+)='A1' and abs(t5.numvalue-" & a1_req & ")<1.0" & " and t5.run(+)=mcr.run "
SQLStmt = SQLStmt & " and t6.keyname(+)='A2' and abs(t6.numvalue-" & a2_req & ")<1.0" & " and t6.run(+)=mcr.run "
SQLStmt = SQLStmt & " and s7.keyname(+)='GEOV' and abs(s7.numvalue-" & geov_req & ")<0.0009" & " and s7.run(+)=sr.run "
SQLStmt = SQLStmt & " and s8.keyname(+)='RZMN' and (s8.numvalue-(" & rzmn_req & "))<=0" & " and s8.run(+)=sr.run "
SQLStmt = SQLStmt & " and s9.keyname(+)='RZMX' and (s9.numvalue-(" & rzmx_req & "))>=0" & " and s9.run(+)=sr.run "
SQLStmt = SQLStmt & " and s10.keyname(+)='MAGT' and s10.numvalue=" & magt_req & " and s10.run(+)=sr.run "
SQLStmt = SQLStmt & " and s11.keyname(+)='SCLB' and s11.numvalue=" & mags_req & " and s11.run(+)=sr.run "
SQLStmt = SQLStmt & " order by sr.run desc "
End If
' response.write(SQLStmt & " " )
Set RS = Connection.Execute(SQLStmt)
%>
Simulation Run Finder
Simulation Runs
Status on <%=RSx("ddate")%> at <%=RSx("ttime")%> in <%=dbname%>
Run
MC Run
MC Type
Run Date
GEO Vers
Events (generated)
Energy
Ions
b Range
Z VTX Range
Field type
Details
[GeV]
[fm]
[cm]
<%
Do While Not RS.EoF
e1=Round(RS("e1"),1)
e2=Round(RS("e2"),1)
ion1=GetIon(CInt(RS("a1")))
ion2=GetIon(CInt(RS("a2")))
rzmn=Round(RS("rzmn"),0)
rzmx=Round(RS("rzmx"),0)
bmin=CDbl(RS("bmin"))
bmax=CDbl(RS("bmax"))
If bmin=bmax Then
bran="=" & CStr(bmin)
Else
bran=CStr(bmin) & "-" & CStr(bmax)
End If
rzmn=Round(RS("rzmn"),0)
rzmx=Round(RS("rzmx"),0)
If rzmn=rzmx Then
zran="=" & CStr(rzmn)
Else
zran=CStr(rzmn) & " to " & CStr(rzmx)
End If
s_eve=CInt(RS("s_eve"))
n_eve=CInt(RS("n_eve"))
if s_eve0 Then
magt=magt*Sgn(sclb)
End If
magtc=CStr(magt)
%>
