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