{[ promptMessage ]}

Bookmark it

{[ promptMessage ]}

# Eq 1 then do i32n3 1 do i22n2 1 bufflen bufflen

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

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

{[ snackBarMessage ]}

Ask a homework question - tutors are online