      REAL FUNCTION NOMINALg(XDUMMY)
      REAL
     +ID      ,IND     ,DEPTH   ,COINC   ,ASEG    ,BSEG    ,
     +APHA    ,ACHN    ,BPHA    ,BCHN    ,CPHA    ,CCHN    ,
     +DPHA    ,DCHN    ,EPHA    ,ECHN     
*
      LOGICAL         CHAIN
      CHARACTER*128   CFILE
*
      COMMON /PAWCHN/ CHAIN, NCHEVT, ICHEVT
      COMMON /PAWCHC/ CFILE
*
      COMMON/PAWIDN/IDNEVT,VIDN1,VIDN2,VIDN3,VIDN(10),
     +ID      ,IND     ,DEPTH   ,COINC   ,ASEG    ,BSEG    ,
     +APHA    ,ACHN    ,BPHA    ,BCHN    ,CPHA    ,CCHN    ,
     +DPHA    ,DCHN    ,EPHA    ,ECHN     
*
      
      NOMINALG=0.
      if (id.eq.08101415.).or.(id.eq.08101207.).or.(id.eq.08101130.)
       .or.(id.eq.08101057.).or.(id.eq.08101041.).or.(id.eq.08101030.)
       .or.(id.eq.08100931.).or.(id.eq.08100921.).or.(id.eq.08101452.)
       .or.(id.eq.08101500.).or.(id.eq.08101509.).or.(id.eq.08101518.)
       .or.(id.eq.08101531.).or.(id.eq.08101539.).or.(id.eq.08101616.)
       .or.(id.eq.08101634.).or.(id.eq.08101646.).or.(id.eq.08101902.)
       .or.(id.eq.08110923.).or.(id.eq.08101843.).or.(id.eq.08101914.)
       .or.(id.eq.08101923.).or.(id.eq.08101931.).or.(id.eq.08101938.)
       .or.(id.eq.08111040.).or.(id.eq.08111048.).or.(id.eq.08111112.)
       .or.(id.eq.08111121.).or.(id.eq.08111130.).or.(id.eq.08111224.)
       .or.(id.eq.08111235.).or.(id.eq.08111245.).or.(id.eq.08111256.)
       .or.(id.eq.08111437.).or.(id.eq.08111431.).or.(id.eq.08111448.)
       .or.(id.eq.08111500.).or.(id.eq.08111522.).or.(id.eq.08111532.)
       .or.(id.eq.08111542.).or.(id.eq.08111613.).or.(id.eq.08111704.)
       .or.(id.eq.08111720.).or.(id.eq.08111733.).or.(id.eq.08120956.)
       .or.(id.eq.08121016.).or.(id.eq.08121033.).or.(id.eq.08121043.)
       .or.(id.eq.08121056.).or.(id.eq.08121108.).or.(id.eq.08121129.)
       .or.(id.eq.08121148.)
      then
        NOMINALG=1.
      end if

      END
