write a program to invert a given matrices

implicit double precision (a-h,o-z)
    dimension A(3,3), B(3,3)
    DATA A/1.0, 2.0, 3.0, 4.0, 5.0, 6.0, 7.0, 8.0, 9.0/
    do i=1,3
    do j=1,3   
    B(i,j)=A(j,i)
    enddo
    enddo
    write(*,*)B
    stop
    end