PDF/spdf/strpriv.F

   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