← Back to branch summary

~alifson/chiralityflow/trunk

« back to all changes in this revision

Viewing changes to vendor/StdHEP/src/stdhep/stdqquset.F

  • Committer: andrew.lifson at lu
  • Date: 2021-09-01 15:34:39 UTC
  • Revision ID: andrew.lifson@thep.lu.se-20210901153439-7fasjhav4cp4m88r
testing a new repository of a madgraph folder

Show diffs side-by-side

added added

removed removed

Lines of Context:
vendor/StdHEP/src/stdhep/stdqquset.F
 
1
 
 
2
      subroutine STDQQUSET
 
3
 
 
4
C  >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 
5
C    Initialize QQ stuff
 
6
C  >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 
7
 
 
8
      IMPLICIT NONE
 
9
 
 
10
#include "stdlun.inc"
 
11
#include "qqinfo.inc"
 
12
#include "qqluns.inc"
 
13
#include "qqmisc.inc"
 
14
 
 
15
      logical LERROR,lfile
 
16
C  >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 
17
 
 
18
C     Initialize variables 
 
19
      call QBINIT
 
20
 
 
21
C     Initialize unit numbers
 
22
      LTTOQQ = lnhout
 
23
      LTTIQQ = 5
 
24
      LOUTQQ = lnhout
 
25
      call QQGLUN(LTMPQQ)
 
26
      call QQGLUN(LTINQQ)
 
27
      call QQGLUN(LTOUQQ)
 
28
C     set the QQ user decay file if appropriate
 
29
      if(qqufile .ne. ' ')then
 
30
        inquire(file=qqufile,exist=lfile)
 
31
        if(.not.lfile)then
 
32
          write(LNHOUT,1002) qqufile
 
33
        else
 
34
          newdec = qqufile
 
35
        endif
 
36
      endif
 
37
 
 
38
C     Date and time from Driver
 
39
      call DATIMH(DATEQQ, TIMEQQ)
 
40
      write(LTTOQQ,1001) DATEQQ,TIMEQQ
 
41
 
 
42
C     Initialize QQ
 
43
      call QQINIT(LERROR)
 
44
      if(LERROR) STOP
 
45
 
 
46
      return
 
47
1001  format(//' QQ date and time: ',A8,2x,A8)
 
48
1002  format(' STDQQUSET: WARNING file ',A80,' does not exist'/
 
49
     1       '            The QQ user decay file is not defined')
 
50
      end