~maddevelopers/mg5amcnlo/2.6.6_bug_1813292

« back to all changes in this revision

Viewing changes to Template/NLO/Source/pawgraphs.f

• browse files at revision 272
• compare with another revision
• download diff
• download tarball
• view history from revision 272

Show diffs side-by-side

added

removed

Template/NLO/Source/pawgraphs.f

1

 

      subroutine graph_init

2

 

c*************************************************************************

3

 

c     Set up graphing

4

 

c*************************************************************************

5

 

      implicit none

6

 

c

7

 

c     Local

8

 

c

9

 

      real xmin,xmax

10

 

c

11

 

c     Global

12

 

c

13

 

      real        h(80000)

14

 

      common/pawc/h

15

 

c-----

16

 

c  Begin Code

17

 

c-----

18

 

c      call hlimit(80000)

19

 

c

20

 

c     Total

21

 

c

22

 

c      print*,'Setting up graphs'

23

 

c      call hbook1(1,'s hat',100,0.,500.,0.)

24

 

      end

25

 

 

26

 

      subroutine graph_point2(x,y)

27

 

      double precision x,y

28

 

      end

29

 

 

30

 

 

31

 

      subroutine graph_point(p,dwgt)

32

 

c***************************************************************************

33

 

c     fill historgrams

34

 

c***************************************************************************

35

 

      implicit none

36

 

c

37

 

c     Constants

38

 

c

39

 

      double precision  pi              , to_deg

40

 

      parameter        (pi = 3.1415927d0, to_deg=180d0/pi)

41

 

c

42

 

c     Arguments

43

 

c

44

 

      double precision dwgt

45

 

      REAL*8 P(0:3,7)

46

 

c

47

 

c     Local

48

 

c

49

 

      real*4 wgt

50

 

      real*8 ptot(0:3),maxamp, shat

51

 

      integer i,iconfig, imax

52

 

c

53

 

c     Global

54

 

c

55

 

      include 'run.inc'

56

 

 

57

 

c

58

 

c     External

59

 

c

60

 

      double precision dot,et,eta,r2

61

 

c-----

62

 

c  Begin Code

63

 

c-----

64

 

      wgt=dwgt

65

 

c      call hfill(1,real(et(p(0,4))),0.,wgt)

66

 

      end

67

 

 

68

 

      subroutine graph_store

69

 

c*************************************************************************

70

 

c     Stores graphs

71

 

c*************************************************************************

72

 

      implicit none

73

 

 

74

 

c-----

75

 

c  Begin Code

76

 

c-----

77

 

c      call hcurve(1,'shat.dat')

78

 

c      call hrput(0,'wg.paw','N')

79

 

      end

80

 

 

81

 

 

82

 

 

83

 

 

• Older »

Loggerhead is a web-based interface for Breezy
Version: 2.0.1