*$ CREATE DBLPRU.ADD
*COPY DBLPRU
*                                                                      *
*=== dblpru ===========================================================*
*                                                                      *
*----------------------------------------------------------------------*
*                                                                      *
*     Copyright (C) 1989-2011      by  Alberto Fasso`, Alfredo Ferrari *
*     All Rights Reserved.                   & Paola Sala              *
*                                                                      *
*                                                                      *
*      Dblpru: included in any routine which requires the blank        *
*              common, it is just a dummy container for DBLPRC         *
*              and USFLMD when both are required                       *
*                                                                      *
*     Last change on  30-Sep-11    by      Alfredo Ferrari             *
*                                                                      *
*----------------------------------------------------------------------*
*
* Start_GFort_seq
      INCLUDE '(USFLMD)'
* End_GFort_seq
* Start_G95_seq
*     INCLUDE '(USFLMD)'
* End_G95_seq
      INCLUDE '(DBLPRC)'
* Fake parameter
      PARAMETER ( PRFAKE = ONEONE )