Compile and Execute FORTRAN-95 Online

program mpadilla26HW04_03
implicit none
real, dimension(20):: array_a
real, dimension(4,5):: matrix
integer::d
array_a=(/0.2481, 0.4133, 0.4961, 0.4618, 0.3686,&
-0.0495, -0.3477, -0.4219, &
 -0.4954, -0.4156, -0.4162, 0.3258,&
 -0.0574, 0.2749, -0.1003, -0.2711,&
 0.0383, -0.3934, 0.3173, -0.2402/)
matrix=reshape(array_a, [4,5])
do d = 1,4
print*, '(5E13.4)' , matrix(d,:)
end do
end program mpadilla26HW04_03