5 * Revision 1.1.1.2 1996/10/30 08:31:49 cernlib
8 * Revision 1.1.1.1 1996/04/12 15:30:05 plothow
12 #include "pdf/pilot.h"
14 SUBROUTINE STRPRIV(X,Q2,UPV,DNV,USEA,DSEA,STR,CHM,BOT,TOP,GL)
15 C.......................................................................
17 C :::::::::::: PRIVATE set of structure functions :::::::::::::::::
19 C.......................................................................
20 #include "pdf/impdp.inc"
21 #include "pdf/w5051p7.inc"
22 #include "pdf/w50517.inc"
23 #include "pdf/w50516.inc"
28 IF (FIRST) WRITE(N6,1000)
29 1000 FORMAT(1H ,' This is a DUMMY private SF routine ')