c_grnd_5 Subroutine

subroutine c_grnd_5(A)

Arguments

Type IntentOptional Attributes Name
complex(kind=8), dimension(:,:,:,:,:) :: A

Calls

proc~~c_grnd_5~~CallsGraph proc~c_grnd_5 c_grnd_5 mersenne mersenne proc~c_grnd_5->mersenne

Source Code

subroutine c_grnd_5(A)
  complex(8),dimension(:,:,:,:,:) :: A
  integer                         :: i1,i2,i3,i4,i5
  do i1=1,size(A,1)
     do i2=1,size(A,2)
        do i3=1,size(A,3)
           do i4=1,size(A,4)
              do i5=1,size(A,5)
                 A(i1,i2,i3,i4,i5) = dcmplx(mersenne(),mersenne())
              enddo
           enddo
        enddo
     enddo
  enddo
end subroutine c_grnd_5