use TMath::Abs() instead of ambiguous abs().

[u/mrichter/AliRoot.git] / HERWIG / src / qqinit.f

CDECK  ID>, PDFSET.

*CMZ :-        -26/04/91  11.11.54  by  Bryan Webber

*-- Author :    Bryan Webber

C----------------------------------------------------------------------

C      SUBROUTINE PDFSET(PARM,VAL)

C----------------------------------------------------------------------

C     DUMMY SUBROUTINE: DELETE AND SET MODPDF(I)

C     IN MAIN PROGRAM IF YOU USE PDFLIB CERN-LIBRARY

C     PACKAGE FOR NUCLEON STRUCTURE FUNCTIONS

C----------------------------------------------------------------------

C      DOUBLE PRECISION VAL(20)

C      CHARACTER*20 PARM(20)

C      WRITE (6,10)

C   10 FORMAT(/10X,'PDFSET CALLED BUT NOT LINKED')

C      STOP

C      END

CDECK  ID>, QQINIT.

*CMZ :-        -28/01/92  12.34.44  by  Mike Seymour

*-- Author :    Luca Stanco

C-----------------------------------------------------------------------

      SUBROUTINE QQINIT(QQLERR)

C-----------------------------------------------------------------------

C     DUMMY SUBROUTINE: DELETE AND SET BDECAY='CLEO'

C     IN MAIN PROGRAM IF YOU USE CLEO DECAY PACKAGE

C-----------------------------------------------------------------------

      LOGICAL QQLERR

      WRITE (6,10)

   10 FORMAT(/10X,'QQINIT CALLED BUT NOT LINKED')

      STOP

      END