Télécharger afic66.eso

Retour à la liste

Numérotation des lignes :

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

© Cast3M 2003 - Tous droits réservés.
Mentions légales