copyright (C) 2001  MSC-RPN COMM  %%%MC2%%%
      character*16 current_nest
      integer Pil_nesdt,Pil_datacvrg,gndtini
      logical sfc2d,init3d,bcs,ctebcs
      real grninit
      real*8 tf_nest
*
      integer nesting_c_first(-1:0),nesting_c_last,
     $        nesting_i_first(-1:0),nesting_i_last,
     $        nesting_l_first(-1:0),nesting_l_last,
     $        nesting_r_first(-1:0),nesting_r_last,
     $        nesting_r8_first(-1:0),nesting_r8_last
*
      common /nesting_c/ nesting_c_first
      common /nesting_c/ current_nest
      common /nesting_c/ nesting_c_last
*
      common /nesting_i/ nesting_i_first
      common /nesting_i/ Pil_nesdt,Pil_datacvrg,gndtini
      common /nesting_i/ nesting_i_last
*
      common /nesting_l/ nesting_l_first
      common /nesting_l/ sfc2d,init3d,bcs,ctebcs
      common /nesting_l/ nesting_l_last
*
      common /nesting_r/ nesting_r_first
      common /nesting_r/ grninit
      common /nesting_r/ nesting_r_last
*
      common /nesting_r8/ nesting_r8_first
      common /nesting_r8/ tf_nest
      common /nesting_r8/ nesting_r8_last
*