~maddevelopers/mg5amcnlo/2.9.4

« back to all changes in this revision

Viewing changes to Template/NLO/Source/CERNLIB/lenocc.f

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

Show diffs side-by-side

added

removed

Template/NLO/Source/CERNLIB/lenocc.f

 

1

*

 

2

* $Id: lenocc.f,v 1.1 2009/07/30 22:46:16 madgraph Exp $

 

3

*

 

4

* $Log: lenocc.f,v $

 

5

* Revision 1.1  2009/07/30 22:46:16  madgraph

 

6

* JA: Implemented CKKW-style matching with Pythia pT-ordered showers

 

7

*

 

8

* Revision 1.1.1.1  1996/02/15 17:49:49  mclareni

 

9

* Kernlib

 

10

*

 

11

*

 

12

      FUNCTION LENOCC (CHV)

 

13

C

 

14

C CERN PROGLIB# M507    LENOCC          .VERSION KERNFOR  4.21  890323

 

15

C ORIG. March 85, A.Petrilli, re-write 21/02/89, JZ

 

16

C

 

17

C-    Find last non-blank character in CHV

 

18

 

 

19

      CHARACTER    CHV*(*)

 

20

 

 

21

      N = LEN(CHV)

 

22

 

 

23

      DO 17  JJ= N,1,-1

 

24

      IF (CHV(JJ:JJ).NE.' ') GO TO 99

 

25

   17 CONTINUE

 

26

      JJ = 0

 

27

 

 

28

   99 LENOCC = JJ

 

29

      RETURN

 

30

      END

• Older »

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