--- /dev/null
+ SUBROUTINE STRUCTP(X,Q2,P2,IP,
+ + UPV,DNV,USEA,DSEA,STR,CHM,BOT,TOP,GL)
+ END
+
+ SUBROUTINE STRUCTM(X,SCALE,UPV,DNV,USEA,DSEA,STR,CHM,BOT,TOP,GL)
+ END
+
+ SUBROUTINE STRUCTA(X,SCALE,ANO,
+ + UPV,DNV,USEA,DSEA,STR,CHM,BOT,TOP,GL)
+ END
+
+ SUBROUTINE PDFSET(PARM,VAL)
+ END