← Back to branch summary

~maddevelopers/mg5amcnlo/WWW5_caching

« back to all changes in this revision

Viewing changes to users/mardelcourt/PROC_141512/PROC_141512/Source/run_printout.f

  • Committer: John Doe
  • Date: 2013-03-25 20:27:02 UTC
  • Revision ID: john.doe@gmail.com-20130325202702-5sk3t1r8h33ca4p4
first clean version

Show diffs side-by-side

added added

removed removed

Lines of Context:
users/mardelcourt/PROC_141512/PROC_141512/Source/run_printout.f
 
1
      subroutine run_printout
 
2
      implicit none
 
3
c
 
4
c     local
 
5
c
 
6
      integer i,iformat
 
7
      character*2 ab(2)
 
8
      real*8 ene
 
9
      double precision  Zero, One, Two, Three, Four, Half, Rt2
 
10
      parameter( Zero = 0.0d0, One = 1.0d0, Two = 2.0d0 )
 
11
c
 
12
c     include
 
13
c
 
14
      include 'PDF/pdf.inc'
 
15
      include 'run.inc'
 
16
      include 'alfas.inc'
 
17
c
 
18
c output all info
 
19
c
 
20
      write(6,*)            
 
21
      write(6,*)  'Collider parameters:'
 
22
      write(6,*)  '--------------------'
 
23
 
 
24
      do i=1,2
 
25
         IF(LPP(i).EQ. 0) ab(i)='e'
 
26
         IF(LPP(i).EQ. 1) ab(i)='P'
 
27
         IF(LPP(i).EQ.-1) ab(i)='Pb'
 
28
         IF(LPP(i).EQ.2) ab(i)='a2'
 
29
         IF(LPP(i).EQ.3) ab(i)='a3'
 
30
      enddo
 
31
 
 
32
      ene=2d0*dsqrt(ebeam(1)*ebeam(2))
 
33
 
 
34
      write(6,*)  
 
35
      write(6,*) 'Running at ',ab(1),ab(2),'  machine @ ', ene, ' GeV'
 
36
      write(6,*) 'PDF set = ',pdlabel
 
37
      write(6,'(1x,a12,1x,f6.4,a12,i1,a7)') 
 
38
     &     'alpha_s(Mz)=', asmz ,' running at ', nloop , ' loops.'
 
39
      if(lpp(1).ne.0.or.lpp(2).ne.0) then    
 
40
      write(6,'(1x,a12,1x,f6.4,a12,i1,a7)') 
 
41
     &     'alpha_s(Mz)=', asmz ,' running at ', nloop , ' loops. Value tuned to the PDF set.'
 
42
      else 
 
43
      write(6,'(1x,a12,1x,f6.4,a12,i1,a7)') 
 
44
     &     'alpha_s(Mz)=', asmz ,' running at ', nloop , ' loops. Value set in param_card.dat'
 
45
      endif      
 
46
           
 
47
      if(fixed_ren_scale) then
 
48
         write(6,*) 'Renormalization scale fixed @ ',scale 
 
49
      else
 
50
         write(6,*) 'Renormalization scale set on event-by-event basis'
 
51
      endif
 
52
      if(fixed_fac_scale) then
 
53
         write(6,*) 'Factorization scales  fixed @ ',
 
54
     &   dsqrt(q2fact(1)),dsqrt(q2fact(2)) 
 
55
      else
 
56
         write(6,*) 'Factorization   scale set on event-by-event basis'
 
57
      endif
 
58
   
 
59
      write(6,*)  
 
60
      write(6,*)  
 
61
      
 
62
      return
 
63
      end
 
64