*$ CREATE LPPSOK.FOR
*COPY LPPSOK
*
*=== Lppsok ===========================================================*
*
      LOGICAL FUNCTION LPPSOK ( NPSECN )

      INCLUDE '(DBLPRC)'
      INCLUDE '(DIMPAR)'
      INCLUDE '(IOUNIT)'
*
*----------------------------------------------------------------------*
*                                                                      *
*     Copyright (C) 2016-2016      by    Alfredo Ferrari & Paola Sala  *
*     All Rights Reserved.                                             *
*                                                                      *
*     Logical flag for PP Source event OKing:                          *
*                                                                      *
*                                                                      *
*     Created on  15 August 2016   by    Alfredo Ferrari & Paola Sala  *
*                                                   Infn - Milan       *
*                                                                      *
*     Last change on  15-Aug-16    by    Alfredo Ferrari               *
*                                                                      *
*                                                                      *
*----------------------------------------------------------------------*
*
      INCLUDE '(FHEAVY)'
      INCLUDE '(GENSTK)'
*
      LPPSOK = .TRUE.
      RETURN
*=== End of function Lppsok ===========================================*
      END

