ADAS Subroutine bgeset

C
      SUBROUTINE BGESET( NDTRN  , NDGEN  , NDSPF  , NPLR   , NPLI  ,
     &                   ITRAN  , TCODE  , 
     &                   ICNTE  , ICNTP  , ICNTR  , ICNTH  , ICNTI ,
     &                   IETRN  , IPTRN  , IRTRN  , IHTRN  , IITRN ,
     &                   IE1A   , IE2A   , IP1A   , IP2A   ,
     &                   NUMEXC , DEFEXC , GENEXC , SPFEXC ,
     &                   NUMREC , DEFREC , GENREC , SPFREC ,
     &                   NUMCXR , DEFCXR , GENCXR , SPFCXR ,
     &                   NUMION , DEFION , GENION , SPFION ,
     &                   ERRMUL   
     &                  )
C-----------------------------------------------------------------------
C
C  ****************** FORTRAN77 SUBROUTINE: BGESET *********************
C
C  PURPOSE:  TO SET THE ERROR MULTIPLER ACCORDING TO ERROR VALUES
C
C  CALLING PROGRAM: ADAS216
C
C  ROUTINES:
C          ROUTINE    SOURCE    BRIEF DESCRIPTION
C          ------------------------------------------------------------
C
C  
C  AUTHOR   : Martin O'Mullane,
C             K1/1/43,
C             JET
C
C  VERSION  : 1.1                          
C  DATE     : 17/03/1999
C
C  MODIFIED : Martin O'Mullane  
C             First version.
C
C-----------------------------------------------------------------------
      CHARACTER           TCODE(NDTRN)
      INTEGER             ICNTE,       ICNTH,       ICNTI,       ICNTP
      INTEGER             ICNTR,       IE1A(NDTRN), IE2A(NDTRN)
      INTEGER             IETRN(NDTRN),             IHTRN(NDTRN)
      INTEGER             IITRN(NDTRN),             IP1A(NDTRN)
      INTEGER             IP2A(NDTRN), IPTRN(NDTRN)
      INTEGER             IRTRN(NDTRN),             ITRAN,       NDGEN
      INTEGER             NDSPF,       NDTRN,       NPLI,        NPLR
      INTEGER             NUMCXR(3),   NUMEXC(3),   NUMION(3)
      INTEGER             NUMREC(3)
      REAL*8              DEFCXR,      DEFEXC,      DEFION,      DEFREC
      REAL*8              ERRMUL(NDTRN),            GENCXR(NDGEN,2)
      REAL*8              GENEXC(NDGEN,2),          GENION(NDGEN,2)
      REAL*8              GENREC(NDGEN,2),          SPFCXR(NDSPF,3)
      REAL*8              SPFEXC(NDSPF,3),          SPFION(NDSPF,3)
      REAL*8              SPFREC(NDSPF,3)