c_grnd_1 Subroutine

subroutine c_grnd_1(A)

Arguments

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

Calls

proc~~c_grnd_1~~CallsGraph proc~c_grnd_1 c_grnd_1 mersenne mersenne proc~c_grnd_1->mersenne

Source Code

subroutine c_grnd_1(A)
  complex(8),dimension(:) :: A
  integer                 :: i
  do i=1,size(A)
     A(i) = dcmplx(mersenne(),mersenne())
  enddo
end subroutine c_grnd_1