copyright (C) 2001  MSC-RPN COMM  %%%MC2%%%
      integer nh_maxx, nh_maxy, t1maxk, t1n, t2maxx, t2n, t2n0, 
     $        nk_solv, teast
      common /transpose/ nh_maxx,nh_maxy,t1maxk,t1n,
     $                   t2maxx,t2n,t2n0,nk_solv,teast