← Back to branch summary

~maddevelopers/mg5amcnlo/2.9.4

« back to all changes in this revision

Viewing changes to vendor/StdHEP/src/display/stdHepFortranUtil.F

pass to v2.0.0

Show diffs side-by-side

added added

removed removed

Lines of Context:
vendor/StdHEP/src/display/stdHepFortranUtil.F
 
1
c
 
2
c       stdHepFortranUtil.F : 
 
3
c               Bunch of small utility functions to communicate with the 
 
4
c               Fortran StdHep library.
 
5
c               The assumption is that only 1 file is open at a time.
 
6
c
 
7
        subroutine closestdhep
 
8
#include "stdlun.inc" 
 
9
#include "stdheputil.inc"
 
10
        COMMON /QUEST/ IQUEST(100)
 
11
        if (file_type .eq. 1) then
 
12
          call fzendi(LNHRD,'I')
 
13
        elseif (file_type .eq. 2) then
 
14
          write(lnhout,*) ' ERROR - should not be in calling stdxend '
 
15
        else
 
16
          close(lnhrd)
 
17
        end if
 
18
        return
 
19
        end 
 
20
c
 
21
c       These are dummy routine to avoid linking the entire GEANT pacakge.
 
22
c
 
23
c
 
24
        subroutine gsvert(vert, ntbeam, ntt, ub, nu, nv)
 
25
        dimension vert(*)
 
26
        return
 
27
        end
 
28
        subroutine gskine(vert, ntbeam, ntt, ub, nu, nv)
 
29
        dimension vert(*)
 
30
        return
 
31
        end
 
32
        
 
33