      REAL FUNCTION NOMINAL(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     
*
      
      NOMINAL=0.
      if (id.eq.07180044.).or.(id.eq.07180142.).or.(id.eq.07180202.) 
       .or.(id.eq.07180232.).or.(id.eq.07180316.).or.(id.eq.07180330.) 
       .or.(id.eq.07180347.).or.(id.eq.07180411.).or.(id.eq.07180425.) 
       .or.(id.eq.07180439.).or.(id.eq.07180454.).or.(id.eq.07180531.) 
       .or.(id.eq.07180548.).or.(id.eq.07180610.).or.(id.eq.07180840.) 
       .or.(id.eq.07180855.).or.(id.eq.07180908.).or.(id.eq.07180921.) 
       .or.(id.eq.07180937.).or.(id.eq.07180951.).or.(id.eq.07181003.) 
       .or.(id.eq.07181018.).or.(id.eq.07181032.).or.(id.eq.07181045.) 
       .or.(id.eq.07181131.).or.(id.eq.07181145.).or.(id.eq.07181234.) 
       .or.(id.eq.07181258.).or.(id.eq.07181318.).or.(id.eq.07181440.) 
       .or.(id.eq.07181458.).or.(id.eq.07181547.).or.(id.eq.07181610.) 
       .or.(id.eq.07181652.)
      then
        NOMINAL=1.
      end if

      END
