Sources Esope | Cast3M

afic33
C AFIC33    SOURCE    PV090527  23/01/27    21:15:03     11574          
c**************************************************************************
 
      subroutine afic33(v)
      real*8 v(3,3)
      integer j,k
      do j=1,3
          write(*,'(1x,3e10.3)') (v(j,k),k=1,3)
      end do
      end