]> git.uio.no Git - u/mrichter/AliRoot.git/blame - GEANT321/gheisha/steep.F
Avoid the problem of lines too long on HP
[u/mrichter/AliRoot.git] / GEANT321 / gheisha / steep.F
CommitLineData
fe4da5cc 1*
2* $Id$
3*
4* $Log$
5* Revision 1.1.1.1 1995/10/24 10:20:59 cernlib
6* Geant
7*
8*
9#include "geant321/pilot.h"
10*CMZ : 3.21/02 29/03/94 15.41.38 by S.Giani
11*-- Author :
12 SUBROUTINE STEEP(XX)
13C
14C *** NVE 16-MAR-1988 CERN GENEVA ***
15C
16C ORIGIN : H.FESEFELDT (22-FEB-1985)
17C
18 XX=1.
19 RETURN
20 END