27   integer(kind=i4_kind), 
dimension(:), 
allocatable, 
intent(inout) :: buf
 
   28   integer, 
dimension(1), 
intent(in) :: sizes
 
   30   if (
allocated(buf)) 
then 
   33   allocate(buf(sizes(1)))
 
   40   integer(kind=i4_kind), 
dimension(:), 
intent(in) :: section
 
   41   integer(kind=i4_kind), 
dimension(:), 
intent(inout) :: array
 
   42   integer, 
dimension(1), 
intent(in) :: s
 
   43   integer, 
dimension(1), 
intent(in) :: c
 
   45   array(s(1):s(1)+c(1)-1 ) = section(:)
 
   52   integer(kind=i4_kind), 
dimension(:), 
intent(inout) :: section
 
   53   integer(kind=i4_kind), 
dimension(:), 
intent(in) :: array
 
   54   integer, 
dimension(1), 
intent(in) :: s
 
   55   integer, 
dimension(1), 
intent(in) :: c
 
   57   section(:) = array(s(1):s(1)+c(1)-1 )
 
   64   integer(kind=i4_kind), 
dimension(:,:), 
allocatable, 
intent(inout) :: buf
 
   65   integer, 
dimension(2), 
intent(in) :: sizes
 
   67   if (
allocated(buf)) 
then 
   70   allocate(buf(sizes(1),sizes(2)))
 
   77   integer(kind=i4_kind), 
dimension(:,:), 
intent(in) :: section
 
   78   integer(kind=i4_kind), 
dimension(:,:), 
intent(inout) :: array
 
   79   integer, 
dimension(2), 
intent(in) :: s
 
   80   integer, 
dimension(2), 
intent(in) :: c
 
   82   array(s(1):s(1)+c(1)-1 ,s(2):s(2)+c(2)-1 ) = section(:,:)
 
   89   integer(kind=i4_kind), 
dimension(:,:), 
intent(inout) :: section
 
   90   integer(kind=i4_kind), 
dimension(:,:), 
intent(in) :: array
 
   91   integer, 
dimension(2), 
intent(in) :: s
 
   92   integer, 
dimension(2), 
intent(in) :: c
 
   94   section(:,:) = array(s(1):s(1)+c(1)-1 ,s(2):s(2)+c(2)-1 )
 
  101   integer(kind=i4_kind), 
dimension(:,:,:), 
allocatable, 
intent(inout) :: buf
 
  102   integer, 
dimension(3), 
intent(in) :: sizes
 
  104   if (
allocated(buf)) 
then 
  107   allocate(buf(sizes(1),sizes(2),sizes(3)))
 
  114   integer(kind=i4_kind), 
dimension(:,:,:), 
intent(in) :: section
 
  115   integer(kind=i4_kind), 
dimension(:,:,:), 
intent(inout) :: array
 
  116   integer, 
dimension(3), 
intent(in) :: s
 
  117   integer, 
dimension(3), 
intent(in) :: c
 
  119   array(s(1):s(1)+c(1)-1 ,s(2):s(2)+c(2)-1 ,s(3):s(3)+c(3)-1 ) = section(:,:,:)
 
  126   integer(kind=i4_kind), 
dimension(:,:,:), 
intent(inout) :: section
 
  127   integer(kind=i4_kind), 
dimension(:,:,:), 
intent(in) :: array
 
  128   integer, 
dimension(3), 
intent(in) :: s
 
  129   integer, 
dimension(3), 
intent(in) :: c
 
  131   section(:,:,:) = array(s(1):s(1)+c(1)-1 ,s(2):s(2)+c(2)-1 ,s(3):s(3)+c(3)-1 )
 
  138   integer(kind=i4_kind), 
dimension(:,:,:,:), 
allocatable, 
intent(inout) :: buf
 
  139   integer, 
dimension(4), 
intent(in) :: sizes
 
  141   if (
allocated(buf)) 
then 
  144   allocate(buf(sizes(1),sizes(2),sizes(3),sizes(4)))
 
  151   integer(kind=i4_kind), 
dimension(:,:,:,:), 
intent(in) :: section
 
  152   integer(kind=i4_kind), 
dimension(:,:,:,:), 
intent(inout) :: array
 
  153   integer, 
dimension(4), 
intent(in) :: s
 
  154   integer, 
dimension(4), 
intent(in) :: c
 
  156   array(s(1):s(1)+c(1)-1 ,s(2):s(2)+c(2)-1 ,s(3):s(3)+c(3)-1 ,s(4):s(4)+c(4)-1 ) = section(:,:,:,:)
 
  163   integer(kind=i4_kind), 
dimension(:,:,:,:), 
intent(inout) :: section
 
  164   integer(kind=i4_kind), 
dimension(:,:,:,:), 
intent(in) :: array
 
  165   integer, 
dimension(4), 
intent(in) :: s
 
  166   integer, 
dimension(4), 
intent(in) :: c
 
  168   section(:,:,:,:) = array(s(1):s(1)+c(1)-1 ,s(2):s(2)+c(2)-1 ,s(3):s(3)+c(3)-1 ,s(4):s(4)+c(4)-1 )
 
  175   integer(kind=i4_kind), 
dimension(:,:,:,:,:), 
allocatable, 
intent(inout) :: buf
 
  176   integer, 
dimension(5), 
intent(in) :: sizes
 
  178   if (
allocated(buf)) 
then 
  181   allocate(buf(sizes(1),sizes(2),sizes(3),sizes(4),sizes(5)))
 
  188   integer(kind=i4_kind), 
dimension(:,:,:,:,:), 
intent(in) :: section
 
  189   integer(kind=i4_kind), 
dimension(:,:,:,:,:), 
intent(inout) :: array
 
  190   integer, 
dimension(5), 
intent(in) :: s
 
  191   integer, 
dimension(5), 
intent(in) :: c
 
  193   array(s(1):s(1)+c(1)-1 ,s(2):s(2)+c(2)-1 ,s(3):s(3)+c(3)-1 ,s(4):s(4)+c(4)-1 ,s(5):s(5)+c(5)-1 ) = section(:,:,:,:,:)
 
  200   integer(kind=i4_kind), 
dimension(:,:,:,:,:), 
intent(inout) :: section
 
  201   integer(kind=i4_kind), 
dimension(:,:,:,:,:), 
intent(in) :: array
 
  202   integer, 
dimension(5), 
intent(in) :: s
 
  203   integer, 
dimension(5), 
intent(in) :: c
 
  205   section(:,:,:,:,:) = array(s(1):s(1)+c(1)-1 ,s(2):s(2)+c(2)-1 ,s(3):s(3)+c(3)-1 ,s(4):s(4)+c(4)-1 ,s(5):s(5)+c(5)-1 )
 
  212   integer(kind=i8_kind), 
dimension(:), 
allocatable, 
intent(inout) :: buf
 
  213   integer, 
dimension(1), 
intent(in) :: sizes
 
  215   if (
allocated(buf)) 
then 
  218   allocate(buf(sizes(1)))
 
  225   integer(kind=i8_kind), 
dimension(:), 
intent(in) :: section
 
  226   integer(kind=i8_kind), 
dimension(:), 
intent(inout) :: array
 
  227   integer, 
dimension(1), 
intent(in) :: s
 
  228   integer, 
dimension(1), 
intent(in) :: c
 
  230   array(s(1):s(1)+c(1)-1 ) = section(:)
 
  237   integer(kind=i8_kind), 
dimension(:), 
intent(inout) :: section
 
  238   integer(kind=i8_kind), 
dimension(:), 
intent(in) :: array
 
  239   integer, 
dimension(1), 
intent(in) :: s
 
  240   integer, 
dimension(1), 
intent(in) :: c
 
  242   section(:) = array(s(1):s(1)+c(1)-1 )
 
  249   integer(kind=i8_kind), 
dimension(:,:), 
allocatable, 
intent(inout) :: buf
 
  250   integer, 
dimension(2), 
intent(in) :: sizes
 
  252   if (
allocated(buf)) 
then 
  255   allocate(buf(sizes(1),sizes(2)))
 
  262   integer(kind=i8_kind), 
dimension(:,:), 
intent(in) :: section
 
  263   integer(kind=i8_kind), 
dimension(:,:), 
intent(inout) :: array
 
  264   integer, 
dimension(2), 
intent(in) :: s
 
  265   integer, 
dimension(2), 
intent(in) :: c
 
  267   array(s(1):s(1)+c(1)-1 ,s(2):s(2)+c(2)-1 ) = section(:,:)
 
  274   integer(kind=i8_kind), 
dimension(:,:), 
intent(inout) :: section
 
  275   integer(kind=i8_kind), 
dimension(:,:), 
intent(in) :: array
 
  276   integer, 
dimension(2), 
intent(in) :: s
 
  277   integer, 
dimension(2), 
intent(in) :: c
 
  279   section(:,:) = array(s(1):s(1)+c(1)-1 ,s(2):s(2)+c(2)-1 )
 
  286   integer(kind=i8_kind), 
dimension(:,:,:), 
allocatable, 
intent(inout) :: buf
 
  287   integer, 
dimension(3), 
intent(in) :: sizes
 
  289   if (
allocated(buf)) 
then 
  292   allocate(buf(sizes(1),sizes(2),sizes(3)))
 
  299   integer(kind=i8_kind), 
dimension(:,:,:), 
intent(in) :: section
 
  300   integer(kind=i8_kind), 
dimension(:,:,:), 
intent(inout) :: array
 
  301   integer, 
dimension(3), 
intent(in) :: s
 
  302   integer, 
dimension(3), 
intent(in) :: c
 
  304   array(s(1):s(1)+c(1)-1 ,s(2):s(2)+c(2)-1 ,s(3):s(3)+c(3)-1 ) = section(:,:,:)
 
  311   integer(kind=i8_kind), 
dimension(:,:,:), 
intent(inout) :: section
 
  312   integer(kind=i8_kind), 
dimension(:,:,:), 
intent(in) :: array
 
  313   integer, 
dimension(3), 
intent(in) :: s
 
  314   integer, 
dimension(3), 
intent(in) :: c
 
  316   section(:,:,:) = array(s(1):s(1)+c(1)-1 ,s(2):s(2)+c(2)-1 ,s(3):s(3)+c(3)-1 )
 
  323   integer(kind=i8_kind), 
dimension(:,:,:,:), 
allocatable, 
intent(inout) :: buf
 
  324   integer, 
dimension(4), 
intent(in) :: sizes
 
  326   if (
allocated(buf)) 
then 
  329   allocate(buf(sizes(1),sizes(2),sizes(3),sizes(4)))
 
  336   integer(kind=i8_kind), 
dimension(:,:,:,:), 
intent(in) :: section
 
  337   integer(kind=i8_kind), 
dimension(:,:,:,:), 
intent(inout) :: array
 
  338   integer, 
dimension(4), 
intent(in) :: s
 
  339   integer, 
dimension(4), 
intent(in) :: c
 
  341   array(s(1):s(1)+c(1)-1 ,s(2):s(2)+c(2)-1 ,s(3):s(3)+c(3)-1 ,s(4):s(4)+c(4)-1 ) = section(:,:,:,:)
 
  348   integer(kind=i8_kind), 
dimension(:,:,:,:), 
intent(inout) :: section
 
  349   integer(kind=i8_kind), 
dimension(:,:,:,:), 
intent(in) :: array
 
  350   integer, 
dimension(4), 
intent(in) :: s
 
  351   integer, 
dimension(4), 
intent(in) :: c
 
  353   section(:,:,:,:) = array(s(1):s(1)+c(1)-1 ,s(2):s(2)+c(2)-1 ,s(3):s(3)+c(3)-1 ,s(4):s(4)+c(4)-1 )
 
  360   integer(kind=i8_kind), 
dimension(:,:,:,:,:), 
allocatable, 
intent(inout) :: buf
 
  361   integer, 
dimension(5), 
intent(in) :: sizes
 
  363   if (
allocated(buf)) 
then 
  366   allocate(buf(sizes(1),sizes(2),sizes(3),sizes(4),sizes(5)))
 
  373   integer(kind=i8_kind), 
dimension(:,:,:,:,:), 
intent(in) :: section
 
  374   integer(kind=i8_kind), 
dimension(:,:,:,:,:), 
intent(inout) :: array
 
  375   integer, 
dimension(5), 
intent(in) :: s
 
  376   integer, 
dimension(5), 
intent(in) :: c
 
  378   array(s(1):s(1)+c(1)-1 ,s(2):s(2)+c(2)-1 ,s(3):s(3)+c(3)-1 ,s(4):s(4)+c(4)-1 ,s(5):s(5)+c(5)-1 ) = section(:,:,:,:,:)
 
  385   integer(kind=i8_kind), 
dimension(:,:,:,:,:), 
intent(inout) :: section
 
  386   integer(kind=i8_kind), 
dimension(:,:,:,:,:), 
intent(in) :: array
 
  387   integer, 
dimension(5), 
intent(in) :: s
 
  388   integer, 
dimension(5), 
intent(in) :: c
 
  390   section(:,:,:,:,:) = array(s(1):s(1)+c(1)-1 ,s(2):s(2)+c(2)-1 ,s(3):s(3)+c(3)-1 ,s(4):s(4)+c(4)-1 ,s(5):s(5)+c(5)-1 )
 
  397   real(kind=r4_kind), 
dimension(:), 
allocatable, 
intent(inout) :: buf 
 
  398   integer, 
dimension(1), 
intent(in) :: sizes
 
  400   if (
allocated(buf)) 
then 
  403   allocate(buf(sizes(1)))
 
  410   real(kind=r4_kind), 
dimension(:), 
intent(in) :: section 
 
  411   real(kind=r4_kind), 
dimension(:), 
intent(inout) :: array 
 
  412   integer, 
dimension(1), 
intent(in) :: s
 
  413   integer, 
dimension(1), 
intent(in) :: c
 
  415   array(s(1):s(1)+c(1)-1 ) = section(:)
 
  422   real(kind=r4_kind), 
dimension(:), 
intent(inout) :: section 
 
  423   real(kind=r4_kind), 
dimension(:), 
intent(in) :: array 
 
  424   integer, 
dimension(1), 
intent(in) :: s
 
  425   integer, 
dimension(1), 
intent(in) :: c
 
  427   section(:) = array(s(1):s(1)+c(1)-1 )
 
  434   real(kind=r4_kind), 
dimension(:,:), 
allocatable, 
intent(inout) :: buf 
 
  435   integer, 
dimension(2), 
intent(in) :: sizes
 
  437   if (
allocated(buf)) 
then 
  440   allocate(buf(sizes(1),sizes(2)))
 
  447   real(kind=r4_kind), 
dimension(:,:), 
intent(in) :: section 
 
  448   real(kind=r4_kind), 
dimension(:,:), 
intent(inout) :: array 
 
  449   integer, 
dimension(2), 
intent(in) :: s
 
  450   integer, 
dimension(2), 
intent(in) :: c
 
  452   array(s(1):s(1)+c(1)-1 ,s(2):s(2)+c(2)-1 ) = section(:,:)
 
  459   real(kind=r4_kind), 
dimension(:,:), 
intent(inout) :: section 
 
  460   real(kind=r4_kind), 
dimension(:,:), 
intent(in) :: array 
 
  461   integer, 
dimension(2), 
intent(in) :: s
 
  462   integer, 
dimension(2), 
intent(in) :: c
 
  464   section(:,:) = array(s(1):s(1)+c(1)-1 ,s(2):s(2)+c(2)-1 )
 
  471   real(kind=r4_kind), 
dimension(:,:,:), 
allocatable, 
intent(inout) :: buf 
 
  472   integer, 
dimension(3), 
intent(in) :: sizes
 
  474   if (
allocated(buf)) 
then 
  477   allocate(buf(sizes(1),sizes(2),sizes(3)))
 
  484   real(kind=r4_kind), 
dimension(:,:,:), 
intent(in) :: section 
 
  485   real(kind=r4_kind), 
dimension(:,:,:), 
intent(inout) :: array 
 
  486   integer, 
dimension(3), 
intent(in) :: s
 
  487   integer, 
dimension(3), 
intent(in) :: c
 
  489   array(s(1):s(1)+c(1)-1 ,s(2):s(2)+c(2)-1 ,s(3):s(3)+c(3)-1 ) = section(:,:,:)
 
  496   real(kind=r4_kind), 
dimension(:,:,:), 
intent(inout) :: section 
 
  497   real(kind=r4_kind), 
dimension(:,:,:), 
intent(in) :: array 
 
  498   integer, 
dimension(3), 
intent(in) :: s
 
  499   integer, 
dimension(3), 
intent(in) :: c
 
  501   section(:,:,:) = array(s(1):s(1)+c(1)-1 ,s(2):s(2)+c(2)-1 ,s(3):s(3)+c(3)-1 )
 
  508   real(kind=r4_kind), 
dimension(:,:,:,:), 
allocatable, 
intent(inout) :: buf 
 
  509   integer, 
dimension(4), 
intent(in) :: sizes
 
  511   if (
allocated(buf)) 
then 
  514   allocate(buf(sizes(1),sizes(2),sizes(3),sizes(4)))
 
  521   real(kind=r4_kind), 
dimension(:,:,:,:), 
intent(in) :: section 
 
  522   real(kind=r4_kind), 
dimension(:,:,:,:), 
intent(inout) :: array 
 
  523   integer, 
dimension(4), 
intent(in) :: s
 
  524   integer, 
dimension(4), 
intent(in) :: c
 
  526   array(s(1):s(1)+c(1)-1 ,s(2):s(2)+c(2)-1 ,s(3):s(3)+c(3)-1 ,s(4):s(4)+c(4)-1 ) = section(:,:,:,:)
 
  533   real(kind=r4_kind), 
dimension(:,:,:,:), 
intent(inout) :: section 
 
  534   real(kind=r4_kind), 
dimension(:,:,:,:), 
intent(in) :: array 
 
  535   integer, 
dimension(4), 
intent(in) :: s
 
  536   integer, 
dimension(4), 
intent(in) :: c
 
  538   section(:,:,:,:) = array(s(1):s(1)+c(1)-1 ,s(2):s(2)+c(2)-1 ,s(3):s(3)+c(3)-1 ,s(4):s(4)+c(4)-1 )
 
  545   real(kind=r4_kind), 
dimension(:,:,:,:,:), 
allocatable, 
intent(inout) :: buf 
 
  546   integer, 
dimension(5), 
intent(in) :: sizes
 
  548   if (
allocated(buf)) 
then 
  551   allocate(buf(sizes(1),sizes(2),sizes(3),sizes(4),sizes(5)))
 
  558   real(kind=r4_kind), 
dimension(:,:,:,:,:), 
intent(in) :: section 
 
  559   real(kind=r4_kind), 
dimension(:,:,:,:,:), 
intent(inout) :: array 
 
  560   integer, 
dimension(5), 
intent(in) :: s
 
  561   integer, 
dimension(5), 
intent(in) :: c
 
  563   array(s(1):s(1)+c(1)-1 ,s(2):s(2)+c(2)-1 ,s(3):s(3)+c(3)-1 ,s(4):s(4)+c(4)-1 ,s(5):s(5)+c(5)-1 ) = section(:,:,:,:,:)
 
  570   real(kind=r4_kind), 
dimension(:,:,:,:,:), 
intent(inout) :: section 
 
  571   real(kind=r4_kind), 
dimension(:,:,:,:,:), 
intent(in) :: array 
 
  572   integer, 
dimension(5), 
intent(in) :: s
 
  573   integer, 
dimension(5), 
intent(in) :: c
 
  575   section(:,:,:,:,:) = array(s(1):s(1)+c(1)-1 ,s(2):s(2)+c(2)-1 ,s(3):s(3)+c(3)-1 ,s(4):s(4)+c(4)-1 ,s(5):s(5)+c(5)-1 )
 
  582   real(kind=r8_kind), 
dimension(:), 
allocatable, 
intent(inout) :: buf 
 
  583   integer, 
dimension(1), 
intent(in) :: sizes
 
  585   if (
allocated(buf)) 
then 
  588   allocate(buf(sizes(1)))
 
  595   real(kind=r8_kind), 
dimension(:), 
intent(in) :: section 
 
  596   real(kind=r8_kind), 
dimension(:), 
intent(inout) :: array 
 
  597   integer, 
dimension(1), 
intent(in) :: s
 
  598   integer, 
dimension(1), 
intent(in) :: c
 
  600   array(s(1):s(1)+c(1)-1 ) = section(:)
 
  607   real(kind=r8_kind), 
dimension(:), 
intent(inout) :: section 
 
  608   real(kind=r8_kind), 
dimension(:), 
intent(in) :: array 
 
  609   integer, 
dimension(1), 
intent(in) :: s
 
  610   integer, 
dimension(1), 
intent(in) :: c
 
  612   section(:) = array(s(1):s(1)+c(1)-1 )
 
  619   real(kind=r8_kind), 
dimension(:,:), 
allocatable, 
intent(inout) :: buf 
 
  620   integer, 
dimension(2), 
intent(in) :: sizes
 
  622   if (
allocated(buf)) 
then 
  625   allocate(buf(sizes(1),sizes(2)))
 
  632   real(kind=r8_kind), 
dimension(:,:), 
intent(in) :: section 
 
  633   real(kind=r8_kind), 
dimension(:,:), 
intent(inout) :: array 
 
  634   integer, 
dimension(2), 
intent(in) :: s
 
  635   integer, 
dimension(2), 
intent(in) :: c
 
  637   array(s(1):s(1)+c(1)-1 ,s(2):s(2)+c(2)-1 ) = section(:,:)
 
  644   real(kind=r8_kind), 
dimension(:,:), 
intent(inout) :: section 
 
  645   real(kind=r8_kind), 
dimension(:,:), 
intent(in) :: array 
 
  646   integer, 
dimension(2), 
intent(in) :: s
 
  647   integer, 
dimension(2), 
intent(in) :: c
 
  649   section(:,:) = array(s(1):s(1)+c(1)-1 ,s(2):s(2)+c(2)-1 )
 
  656   real(kind=r8_kind), 
dimension(:,:,:), 
allocatable, 
intent(inout) :: buf 
 
  657   integer, 
dimension(3), 
intent(in) :: sizes
 
  659   if (
allocated(buf)) 
then 
  662   allocate(buf(sizes(1),sizes(2),sizes(3)))
 
  669   real(kind=r8_kind), 
dimension(:,:,:), 
intent(in) :: section 
 
  670   real(kind=r8_kind), 
dimension(:,:,:), 
intent(inout) :: array 
 
  671   integer, 
dimension(3), 
intent(in) :: s
 
  672   integer, 
dimension(3), 
intent(in) :: c
 
  674   array(s(1):s(1)+c(1)-1 ,s(2):s(2)+c(2)-1 ,s(3):s(3)+c(3)-1 ) = section(:,:,:)
 
  681   real(kind=r8_kind), 
dimension(:,:,:), 
intent(inout) :: section 
 
  682   real(kind=r8_kind), 
dimension(:,:,:), 
intent(in) :: array 
 
  683   integer, 
dimension(3), 
intent(in) :: s
 
  684   integer, 
dimension(3), 
intent(in) :: c
 
  686   section(:,:,:) = array(s(1):s(1)+c(1)-1 ,s(2):s(2)+c(2)-1 ,s(3):s(3)+c(3)-1 )
 
  693   real(kind=r8_kind), 
dimension(:,:,:,:), 
allocatable, 
intent(inout) :: buf 
 
  694   integer, 
dimension(4), 
intent(in) :: sizes
 
  696   if (
allocated(buf)) 
then 
  699   allocate(buf(sizes(1),sizes(2),sizes(3),sizes(4)))
 
  706   real(kind=r8_kind), 
dimension(:,:,:,:), 
intent(in) :: section 
 
  707   real(kind=r8_kind), 
dimension(:,:,:,:), 
intent(inout) :: array 
 
  708   integer, 
dimension(4), 
intent(in) :: s
 
  709   integer, 
dimension(4), 
intent(in) :: c
 
  711   array(s(1):s(1)+c(1)-1 ,s(2):s(2)+c(2)-1 ,s(3):s(3)+c(3)-1 ,s(4):s(4)+c(4)-1 ) = section(:,:,:,:)
 
  718   real(kind=r8_kind), 
dimension(:,:,:,:), 
intent(inout) :: section 
 
  719   real(kind=r8_kind), 
dimension(:,:,:,:), 
intent(in) :: array 
 
  720   integer, 
dimension(4), 
intent(in) :: s
 
  721   integer, 
dimension(4), 
intent(in) :: c
 
  723   section(:,:,:,:) = array(s(1):s(1)+c(1)-1 ,s(2):s(2)+c(2)-1 ,s(3):s(3)+c(3)-1 ,s(4):s(4)+c(4)-1 )
 
  730   real(kind=r8_kind), 
dimension(:,:,:,:,:), 
allocatable, 
intent(inout) :: buf 
 
  731   integer, 
dimension(5), 
intent(in) :: sizes
 
  733   if (
allocated(buf)) 
then 
  736   allocate(buf(sizes(1),sizes(2),sizes(3),sizes(4),sizes(5)))
 
  743   real(kind=r8_kind), 
dimension(:,:,:,:,:), 
intent(in) :: section 
 
  744   real(kind=r8_kind), 
dimension(:,:,:,:,:), 
intent(inout) :: array 
 
  745   integer, 
dimension(5), 
intent(in) :: s
 
  746   integer, 
dimension(5), 
intent(in) :: c
 
  748   array(s(1):s(1)+c(1)-1 ,s(2):s(2)+c(2)-1 ,s(3):s(3)+c(3)-1 ,s(4):s(4)+c(4)-1 ,s(5):s(5)+c(5)-1 ) = section(:,:,:,:,:)
 
  755   real(kind=r8_kind), 
dimension(:,:,:,:,:), 
intent(inout) :: section 
 
  756   real(kind=r8_kind), 
dimension(:,:,:,:,:), 
intent(in) :: array 
 
  757   integer, 
dimension(5), 
intent(in) :: s
 
  758   integer, 
dimension(5), 
intent(in) :: c
 
  760   section(:,:,:,:,:) = array(s(1):s(1)+c(1)-1 ,s(2):s(2)+c(2)-1 ,s(3):s(3)+c(3)-1 ,s(4):s(4)+c(4)-1 ,s(5):s(5)+c(5)-1 )
 
subroutine allocate_array_r8_kind_1d(buf, sizes)
Allocate arrays using an input array of sizes.
subroutine put_array_section_i8_kind_2d(section, array, s, c)
Put a section of an array into a larger array.
subroutine put_array_section_r8_kind_4d(section, array, s, c)
Put a section of an array into a larger array.
subroutine put_array_section_i4_kind_2d(section, array, s, c)
Put a section of an array into a larger array.
subroutine put_array_section_i4_kind_1d(section, array, s, c)
Put a section of an array into a larger array.
subroutine get_array_section_i8_kind_4d(section, array, s, c)
Get a section of larger array.
subroutine get_array_section_r4_kind_3d(section, array, s, c)
Get a section of larger array.
subroutine get_array_section_r8_kind_1d(section, array, s, c)
Get a section of larger array.
subroutine get_array_section_i8_kind_3d(section, array, s, c)
Get a section of larger array.
subroutine allocate_array_i8_kind_2d(buf, sizes)
Allocate arrays using an input array of sizes.
subroutine put_array_section_i4_kind_3d(section, array, s, c)
Put a section of an array into a larger array.
subroutine put_array_section_r8_kind_2d(section, array, s, c)
Put a section of an array into a larger array.
subroutine put_array_section_r8_kind_3d(section, array, s, c)
Put a section of an array into a larger array.
subroutine get_array_section_i8_kind_5d(section, array, s, c)
Get a section of larger array.
subroutine get_array_section_r4_kind_1d(section, array, s, c)
Get a section of larger array.
subroutine put_array_section_i8_kind_1d(section, array, s, c)
Put a section of an array into a larger array.
subroutine put_array_section_i8_kind_5d(section, array, s, c)
Put a section of an array into a larger array.
subroutine allocate_array_r4_kind_3d(buf, sizes)
Allocate arrays using an input array of sizes.
subroutine allocate_array_i8_kind_1d(buf, sizes)
Allocate arrays using an input array of sizes.
subroutine allocate_array_r8_kind_4d(buf, sizes)
Allocate arrays using an input array of sizes.
subroutine allocate_array_r8_kind_3d(buf, sizes)
Allocate arrays using an input array of sizes.
subroutine allocate_array_i8_kind_5d(buf, sizes)
Allocate arrays using an input array of sizes.
subroutine allocate_array_i4_kind_2d(buf, sizes)
Allocate arrays using an input array of sizes.
subroutine allocate_array_r4_kind_1d(buf, sizes)
Allocate arrays using an input array of sizes.
subroutine get_array_section_r8_kind_5d(section, array, s, c)
Get a section of larger array.
subroutine put_array_section_r4_kind_5d(section, array, s, c)
Put a section of an array into a larger array.
subroutine allocate_array_r8_kind_5d(buf, sizes)
Allocate arrays using an input array of sizes.
subroutine allocate_array_r4_kind_4d(buf, sizes)
Allocate arrays using an input array of sizes.
subroutine get_array_section_i4_kind_5d(section, array, s, c)
Get a section of larger array.
subroutine get_array_section_i4_kind_3d(section, array, s, c)
Get a section of larger array.
subroutine allocate_array_r4_kind_2d(buf, sizes)
Allocate arrays using an input array of sizes.
subroutine allocate_array_i4_kind_4d(buf, sizes)
Allocate arrays using an input array of sizes.
subroutine put_array_section_i8_kind_4d(section, array, s, c)
Put a section of an array into a larger array.
subroutine allocate_array_i4_kind_3d(buf, sizes)
Allocate arrays using an input array of sizes.
subroutine put_array_section_r4_kind_3d(section, array, s, c)
Put a section of an array into a larger array.
subroutine get_array_section_i8_kind_1d(section, array, s, c)
Get a section of larger array.
subroutine get_array_section_r4_kind_4d(section, array, s, c)
Get a section of larger array.
subroutine put_array_section_r8_kind_1d(section, array, s, c)
Put a section of an array into a larger array.
subroutine get_array_section_i4_kind_2d(section, array, s, c)
Get a section of larger array.
subroutine get_array_section_r8_kind_2d(section, array, s, c)
Get a section of larger array.
subroutine get_array_section_r8_kind_4d(section, array, s, c)
Get a section of larger array.
subroutine allocate_array_i8_kind_3d(buf, sizes)
Allocate arrays using an input array of sizes.
subroutine put_array_section_i4_kind_5d(section, array, s, c)
Put a section of an array into a larger array.
subroutine get_array_section_i4_kind_4d(section, array, s, c)
Get a section of larger array.
subroutine put_array_section_i4_kind_4d(section, array, s, c)
Put a section of an array into a larger array.
subroutine allocate_array_i4_kind_5d(buf, sizes)
Allocate arrays using an input array of sizes.
subroutine allocate_array_r4_kind_5d(buf, sizes)
Allocate arrays using an input array of sizes.
subroutine allocate_array_i4_kind_1d(buf, sizes)
Allocate arrays using an input array of sizes.
subroutine put_array_section_r8_kind_5d(section, array, s, c)
Put a section of an array into a larger array.
subroutine get_array_section_i4_kind_1d(section, array, s, c)
Get a section of larger array.
subroutine put_array_section_i8_kind_3d(section, array, s, c)
Put a section of an array into a larger array.
subroutine get_array_section_i8_kind_2d(section, array, s, c)
Get a section of larger array.
subroutine put_array_section_r4_kind_1d(section, array, s, c)
Put a section of an array into a larger array.
subroutine allocate_array_i8_kind_4d(buf, sizes)
Allocate arrays using an input array of sizes.
subroutine put_array_section_r4_kind_4d(section, array, s, c)
Put a section of an array into a larger array.
subroutine allocate_array_r8_kind_2d(buf, sizes)
Allocate arrays using an input array of sizes.
subroutine get_array_section_r4_kind_2d(section, array, s, c)
Get a section of larger array.
subroutine get_array_section_r8_kind_3d(section, array, s, c)
Get a section of larger array.
subroutine get_array_section_r4_kind_5d(section, array, s, c)
Get a section of larger array.
subroutine put_array_section_r4_kind_2d(section, array, s, c)
Put a section of an array into a larger array.