*----------------------------------------------------------------------*     
* $Id: djdat.f,v 2.4 2003/02/19 08:38:24 vflegel Exp $
*----------------------------------------------------------------------*     
*       Version:  File under developpment for release 2.3
*----------------------------------------------------------------------*     
* DISJOINT 
      
      Parameter        (KDIS=2)
      Parameter        (KDPM=2)
      
      Character*16      CDIS(KDIS)
      Integer           JDIP(KDIS)
      
      Integer           MDIS 
      Integer           NDIP(KDPM)     
      
