1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
|
!++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
!******************************************************************************************
!* INSERTION DES INSTRUCTIONS POUR L'ECRITURE DANS UN FICHIER deriv.txt DE LA MATRICE ddr *
!******************************************************************************************
open( unit=1, &
file = "deriv.txt", &
form = "formated", &
access = "sequential", &
action = "write", &
status = "new", &
iostat = ios)
! ---- line correspond aux lignes de la matrice ddr
do line = 1,6
! --- column correspond aux colonnes de la matrice ddr
do column = 1,6
write(unit=1, fmt=*) ddr(line,column),"|"
end do
write(unit=1, fmt=*) "newline"
end do
!++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ |
Partager