Page Menu
Home
HEPForge
Search
Configure Global Search
Log In
Files
F8309891
parameters.Threeshl.f90
No One
Temporary
Actions
View File
Edit File
Delete File
View Transforms
Subscribe
Mute Notifications
Award Token
Flag For Later
Size
2 KB
Subscribers
None
parameters.Threeshl.f90
View Options
! $Id: parameters.Threeshl.f90 3070 2011-03-28 08:09:25Z jr_reuter $
!
! Copyright (C) 1999-2011 by
! Wolfgang Kilian <kilian@physik.uni-siegen.de>
! Thorsten Ohl <ohl@physik.uni-wuerzburg.de>
! Juergen Reuter <juergen.reuter@desy.de>
! Christian Speckner <christian.speckner@physik.uni-freiburg.de>
!
! WHIZARD is free software; you can redistribute it and/or modify it
! under the terms of the GNU General Public License as published by
! the Free Software Foundation; either version 2, or (at your option)
! any later version.
!
! WHIZARD is distributed in the hope that it will be useful, but
! WITHOUT ANY WARRANTY; without even the implied warranty of
! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
! GNU General Public License for more details.
!
! You should have received a copy of the GNU General Public License
! along with this program; if not, write to the Free Software
! Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
module
parameters_threeshl
use
threeshl
use
tglue
use
kinds
,
only
:
default
use
file_utils
,
only
:
free_unit
implicit none
public
private
::
default
,
free_unit
contains
subroutine
import_from_whizard
(
par
)
real
(
default
),
dimension
(
49
),
intent
(
in
)
::
par
real
(
default
)
::
alphas
,
mhw
,
mbulk
,
eps_l
,
nideloc
,
dump
,
nlow
integer
::
u
me_pdg
=
par
(
1
)
mmu_pdg
=
par
(
2
)
mtau_pdg
=
par
(
3
)
muq_pdg
=
par
(
4
)
mdq_pdg
=
par
(
5
)
mcq_pdg
=
par
(
6
)
msq_pdg
=
par
(
7
)
mtq_pdg
=
par
(
8
)
mbq_pdg
=
par
(
9
)
mw_pdg
=
par
(
10
)
mz_pdg
=
par
(
11
)
wt_pdg
=
par
(
12
)
ww_pdg
=
par
(
13
)
wz_pdg
=
par
(
14
)
e_pdg
=
par
(
15
)
alphas
=
par
(
16
)
mhw
=
par
(
17
)
mbulk
=
par
(
18
)
eps_l
=
par
(
19
)
nideloc
=
par
(
20
)
dump
=
par
(
21
)
nlow
=
par
(
22
)
threeshl_error
=
.
false
.
threeshl_quit_on_panic
=
.
false
.
threeshl_print_errors
=
.
false
.
call
tglue_set_alphas
(
alphas
)
if
(
nideloc
>
0.
)
then
call
tglue_init
(
mhw
,
mbulk
,
eps_l
)
else
call
tglue_init
(
mhw
,
mbulk
)
end if
if
(
dump
>
0.
)
then
u
=
free_unit
()
open
(
unit
=
u
,
file
=
"threeshl.omega.dump"
,
action
=
"write"
,
status
=
"replace"
)
call
threeshl_print_parameters
(
unit
=
u
)
call
threeshl_print_particles
(
unit
=
u
)
call
threeshl_print_gwff
(
unit
=
u
)
call
threeshl_print_gzff
(
unit
=
u
)
call
threeshl_print_gauge_coup
(
unit
=
u
)
close
(
u
)
end if
end subroutine
import_from_whizard
subroutine
model_update_alpha_s
(
alpha_s
)
real
(
default
),
intent
(
in
)
::
alpha_s
call
tglue_set_alphas
(
alpha_s
)
end subroutine
model_update_alpha_s
end module
parameters_threeshl
File Metadata
Details
Attached
Mime Type
text/plain
Expires
Sat, Dec 21, 4:49 PM (18 h, 50 m)
Storage Engine
blob
Storage Format
Raw Data
Storage Handle
4023520
Default Alt Text
parameters.Threeshl.f90 (2 KB)
Attached To
rWHIZARDSVN whizardsvn
Event Timeline
Log In to Comment