Eq 1 then do i32n3 1 do i22n2 1 bufflen bufflen

Info iconThis preview shows page 1. Sign up to view the full content.

View Full Document Right Arrow Icon
This is the end of the preview. Sign up to access the rest of the document.

Unformatted text preview: buff_len,buff_id+1)[nbr(axis,dir,k)] = buff(1:buff_len,buff_id) > else if( dir .eq. +1 ) then do i2=1,n2 do i1=1,n1 buff_len = buff_len + 1 buff(buff_len, buff_id ) = u( i1,i2,n3-1) enddo enddo subroutine give3( axis, dir, u, n1, n2, n3, k ) use caf_intrinsics buff(1:buff_len,buff_id+1)[nbr(axis,dir,k)] = buff(1:buff_len,buff_id) > implicit none endif endif include 'cafnpb.h' include 'globals.h' return end subroutine comm1p( axis, u, n1, n2, n3, kk ) use caf_intrinsics implicit none i2,i3) if( axis .eq. 2 )then do i3=2,n3-1 do i1=1,n1 buff_len = buff_len + 1 buff(buff_len, buff_id ) = u( i1, 2,i3) enddo enddo endif if( axis .eq. 3 )then do i2=1,n2 do i1=1,n1 buff_len = buff_len + 1 buff(buff_len, buff_id ) = u( i1,i2,2) enddo enddo endif include 'cafnpb.h' include 'globals.h' return end integer axis, dir, n1, n2, n3, k, ierr double precision u( n1, n2, n3 ) endif endif if( axis .eq. 1 )then do i3=2,n3-1 do i2=2,n2-1 buff_len = buff_len + 1 buff(buff_len,buff_id ) = u( 2, enddo enddo endif do i=1,nm2 b...
View Full Document

This document was uploaded on 04/04/2014.

Ask a homework question - tutors are online