integer function kdrdim() 
C return value of KD       
      IMPLICIT NONE
      include 'drfmcm.for'
      
C      integer kdrdim
   
      KDRDIM = KD 
      return 
      end