12 lines
222 B
FortranFixed
12 lines
222 B
FortranFixed
|
subroutine get_r_fd(array1d,dim1)
|
||
|
|
use dopplerState
|
||
|
|
implicit none
|
||
|
|
integer dim1,i
|
||
|
|
real*8, dimension(dim1) :: array1d
|
||
|
|
|
||
|
|
do i=1,dim1
|
||
|
|
array1d(i) = r_fd(i)
|
||
|
|
enddo
|
||
|
|
|
||
|
|
end
|