[u/mrichter/AliRoot.git] / PDF / spdf / strpriv.F

*
* $Id$
*
* $Log$
* Revision 1.1.1.2  1996/10/30 08:31:49  cernlib
* Version 7.04
*
* Revision 1.1.1.1  1996/04/12 15:30:05  plothow
* Version 7.01
*
*
#include "pdf/pilot.h"
C
      SUBROUTINE STRPRIV(X,Q2,UPV,DNV,USEA,DSEA,STR,CHM,BOT,TOP,GL)
C.......................................................................
C.
C :::::::::::: PRIVATE set of structure functions :::::::::::::::::
C.
C.......................................................................
#include "pdf/impdp.inc"
#include "pdf/w5051p7.inc"
#include "pdf/w50517.inc"
#include "pdf/w50516.inc"
      DATA ZEROD/0.D0/
      SAVE /W50516/
C
      IF (N6.LE.0) N6 = L6
      IF (FIRST) WRITE(N6,1000)
 1000 FORMAT(1H ,' This is a DUMMY private SF routine ')
      UPV  = ZEROD
      DNV  = ZEROD
      USEA = ZEROD
      DSEA = ZEROD
      STR  = ZEROD
      CHM  = ZEROD
      BOT  = ZEROD
      TOP  = ZEROD
      GL   = ZEROD
      RETURN
      END
Commit	Line	Data
fe4da5cc	1	*
	2	* $Id$
	3	*
	4	* $Log$
	5	* Revision 1.1.1.2 1996/10/30 08:31:49 cernlib
	6	* Version 7.04
	7	*
	8	* Revision 1.1.1.1 1996/04/12 15:30:05 plothow
	9	* Version 7.01
	10	*
	11	*
	12	#include "pdf/pilot.h"
	13	C
	14	SUBROUTINE STRPRIV(X,Q2,UPV,DNV,USEA,DSEA,STR,CHM,BOT,TOP,GL)
	15	C.......................................................................
	16	C.
	17	C :::::::::::: PRIVATE set of structure functions :::::::::::::::::
	18	C.
	19	C.......................................................................
	20	#include "pdf/impdp.inc"
	21	#include "pdf/w5051p7.inc"
	22	#include "pdf/w50517.inc"
	23	#include "pdf/w50516.inc"
	24	DATA ZEROD/0.D0/
	25	SAVE /W50516/
	26	C
	27	IF (N6.LE.0) N6 = L6
	28	IF (FIRST) WRITE(N6,1000)
	29	1000 FORMAT(1H ,' This is a DUMMY private SF routine ')
	30	UPV = ZEROD
	31	DNV = ZEROD
	32	USEA = ZEROD
	33	DSEA = ZEROD
	34	STR = ZEROD
	35	CHM = ZEROD
	36	BOT = ZEROD
	37	TOP = ZEROD
	38	GL = ZEROD
	39	RETURN
	40	END