c_grnd_2 Subroutine

subroutine c_grnd_2(A)

Arguments

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

Calls

proc~~c_grnd_2~~CallsGraph proc~c_grnd_2 c_grnd_2 mersenne mersenne proc~c_grnd_2->mersenne

Source Code

subroutine c_grnd_2(A)
  complex(8),dimension(:,:) :: A
  integer                   :: i1,i2
  do i1=1,size(A,1)
     do i2=1,size(A,2)
        A(i1,i2) = dcmplx(mersenne(),mersenne())
     enddo
  enddo
end subroutine c_grnd_2