Sources Esope | Cast3M

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