[cig-commits] [commit] devel: Remove non-ASCII characters in sources of DSM big storage version (462e8d2)
cig_noreply at geodynamics.org
cig_noreply at geodynamics.org
Tue Jan 20 05:55:54 PST 2015
Repository : https://github.com/geodynamics/specfem3d
On branch : devel
Link : https://github.com/geodynamics/specfem3d/compare/bd292102cae66aecc788d13f6b2028bc4157b63b...462e8d278777ec2ed63a456797c283be3e45cad9
>---------------------------------------------------------------
commit 462e8d278777ec2ed63a456797c283be3e45cad9
Author: Clément Durochat <c.durochat at gmail.com>
Date: Tue Jan 20 12:31:04 2015 +0100
Remove non-ASCII characters in sources of DSM big storage version
>---------------------------------------------------------------
462e8d278777ec2ed63a456797c283be3e45cad9
.../dcsymbdl_vector.f90 | 36 +++++++++++-----------
.../TraPSV-0.1.3.f90 | 10 +++---
.../dcsymbdl.f90 | 36 +++++++++++-----------
.../TraPSV_MPI_read_Zmin/TraPSV-0.1.3.f90 | 22 ++++++-------
.../TraPSV-0.1.3.f90 | 8 ++---
.../FFT_MPI_FACES_VERT_FULL/rotations_matrix.f90 | 2 +-
.../FFT_MPI_FACES_VERT_PSV/rotations_matrix.f90 | 2 +-
.../FFT_MPI_FACES_VERT_SH/rotations_matrix.f90 | 2 +-
.../UTILS/create_all_input_files_for_Hybrid.f90 | 2 +-
.../UTILS/create_inputs_files.f90 | 2 +-
.../UTILS/create_inputs_files_OLD_FROM_VADIM.f90 | 2 +-
11 files changed, 62 insertions(+), 62 deletions(-)
diff --git a/utils/DSM_FOR_SPECFEM3D/DSM-1-BIG_3D_storage_version/Part-1a-compute_DSM_coefficients_with_FEMs_SH/dcsymbdl_vector.f90 b/utils/DSM_FOR_SPECFEM3D/DSM-1-BIG_3D_storage_version/Part-1a-compute_DSM_coefficients_with_FEMs_SH/dcsymbdl_vector.f90
index 85050ff..516823b 100755
--- a/utils/DSM_FOR_SPECFEM3D/DSM-1-BIG_3D_storage_version/Part-1a-compute_DSM_coefficients_with_FEMs_SH/dcsymbdl_vector.f90
+++ b/utils/DSM_FOR_SPECFEM3D/DSM-1-BIG_3D_storage_version/Part-1a-compute_DSM_coefficients_with_FEMs_SH/dcsymbdl_vector.f90
@@ -1,27 +1,27 @@
!! From Vadim Monteiller, April 2013:
-! Je n'ai jamais réussi à comprendre ce qu'il y a dans le système de ces deux routines.
-! En dépit des apparences et des commentaires dans le code, le système n'est pas
-! symétrique. Nobuaki m'a dit qu'à l'origine ce système était bien
-! symétrique mais qu'à la suite des travaux de Ohminato, le système à été
-! modifié en ajoutant des coefficients qu'il a trouvé de manière empirique
-! qui le rend non symétrique.
+! Je n'ai jamais reussi a comprendre ce qu'il y a dans le systeme de ces deux routines.
+! En depit des apparences et des commentaires dans le code, le systeme n'est pas
+! symetrique. Nobuaki m'a dit qu'a l'origine ce systeme etait bien
+! symetrique mais qu'a la suite des travaux de Ohminato, le systeme a ete
+! modifie en ajoutant des coefficients qu'il a trouve de maniere empirique
+! qui le rend non symetrique.
!
-! Il y a un moment j'avais envisagé d'utiliser MKL, mais je n'ai pas réussi Ã
-! le faire. Roland avait essayé de tester les routines dcsymbdl0 et dcsbdlv0
+! Il y a un moment j'avais envisage d'utiliser MKL, mais je n'ai pas reussi a
+! le faire. Roland avait essaye de tester les routines dcsymbdl0 et dcsbdlv0
! sur un de ses pb, mais il n'obtenait pas la solution voulue, nous avons alors
-! conclu que ces routines avaient été modifiées pour les rendre
-! opérationnelles sur leur système particulier et que elles ne résolvent
-! plus des systèmes symétriques à bandes diagonales.
+! conclu que ces routines avaient ete modifiees pour les rendre
+! operationnelles sur leur systeme particulier et que elles ne resolvent
+! plus des systemes symetriques a bandes diagonales.
!
-! Du coup c'est très dur de savoir ce qu'il y a dans les tableaux, même en
-! discutant avec Nobuaki j'ai pas du tout compris comment étaient stockées
-! les différentes diagonales, j'ai juste cru comprendre que c'était pas la
-! même convention que les routines de MKL. Du coup, je ne sais pas si ça
-! vaut le coup de regarder çà à fond, surtout que l'essentiel du coût
-! était dans le relecture des coefs et sur ce point-là on a beaucoup
-! gagné. Je pense qu'il vaut mieux qu'on regarde les I/O parallèles.
+! Du coup c'est tres dur de savoir ce qu'il y a dans les tableaux, meme en
+! discutant avec Nobuaki j'ai pas du tout compris comment etaient stockees
+! les differentes diagonales, j'ai juste cru comprendre que c'etait pas la
+! meme convention que les routines de MKL. Du coup, je ne sais pas si ca
+! vaut le coup de regarder ca a fond, surtout que l'essentiel du cout
+! etait dans le relecture des coefs et sur ce point-la on a beaucoup
+! gagne. Je pense qu'il vaut mieux qu'on regarde les I/O paralleles.
subroutine dcsymbdl0_m_equals_3_nn_equals_6(a,n,eps,z,w,ier)
diff --git a/utils/DSM_FOR_SPECFEM3D/DSM-1-BIG_3D_storage_version/Part-1b-compute_DSM_coefficients_with_FEMs_PSV/TraPSV-0.1.3.f90 b/utils/DSM_FOR_SPECFEM3D/DSM-1-BIG_3D_storage_version/Part-1b-compute_DSM_coefficients_with_FEMs_PSV/TraPSV-0.1.3.f90
index a8dd142..a65f9d9 100755
--- a/utils/DSM_FOR_SPECFEM3D/DSM-1-BIG_3D_storage_version/Part-1b-compute_DSM_coefficients_with_FEMs_PSV/TraPSV-0.1.3.f90
+++ b/utils/DSM_FOR_SPECFEM3D/DSM-1-BIG_3D_storage_version/Part-1b-compute_DSM_coefficients_with_FEMs_PSV/TraPSV-0.1.3.f90
@@ -893,10 +893,10 @@ endif
! on ecrit ici les fichiers des coefficients
!! From Vadim Monteiller, April 2013:
-! je n'écris pas tous les ir_ en une seule fois car le lmax dépend des ir_.
-! Au cours de la boucle sur l, au début, il est vrai que l'on doit écrire le tableau tabg0 pour tous les ir_,
-! mais au fur et à mesure que l grandit, on perd des ir_ (i.e. les coefs sont considérés comme nuls),
-! donc j'évite d'écrire des zéros, et pour l'instant la seule solution que j'ai trouvée c'est celle que j'ai implémentée.
+! je n'ecris pas tous les ir_ en une seule fois car le lmax depend des ir_.
+! Au cours de la boucle sur l, au debut, il est vrai que l'on doit ecrire le tableau tabg0 pour tous les ir_,
+! mais au fur et a mesure que l grandit, on perd des ir_ (i.e. les coefs sont consideres comme nuls),
+! donc j'evite d'ecrire des zeros, et pour l'instant la seule solution que j'ai trouvee c'est celle que j'ai implementee.
if (index_l == maxlmax_g) then
if(SLOW_DEBUG_MODE) then
write(24,*) 'partial writing of the coefficients'
@@ -944,7 +944,7 @@ endif
!! le test "if (SUM(arret(:)) == 0) exit" mais que la boucle s'est poursuivie jusqu'au bout sans arret,
!! alors je crois que ce que tu ecris en complement de datas ci-dessous aura deja ete ecrit une fois ci-dessous
!! a la fin de la boucle, et apparaitra donc deux fois. Solution: soit imposer que maxlmax ne soit jamais un
-!! multiple de maxlmax_g (et s'il l'est, lui ajouter 1 au début du code), soit tester avec un flag logique
+!! multiple de maxlmax_g (et s'il l'est, lui ajouter 1 au debut du code), soit tester avec un flag logique
!! si tu es sorti de la boucle par le exit ou non, et si non et si en plus maxlmax est un multiple de maxlmax_g
!! alors il ne faudrait pas faire l'ecriture ci-dessous? Stp verifie.
!********************************************************************************************
diff --git a/utils/DSM_FOR_SPECFEM3D/DSM-1-BIG_3D_storage_version/Part-1b-compute_DSM_coefficients_with_FEMs_PSV/dcsymbdl.f90 b/utils/DSM_FOR_SPECFEM3D/DSM-1-BIG_3D_storage_version/Part-1b-compute_DSM_coefficients_with_FEMs_PSV/dcsymbdl.f90
index 5a3f317..db0a1ce 100755
--- a/utils/DSM_FOR_SPECFEM3D/DSM-1-BIG_3D_storage_version/Part-1b-compute_DSM_coefficients_with_FEMs_PSV/dcsymbdl.f90
+++ b/utils/DSM_FOR_SPECFEM3D/DSM-1-BIG_3D_storage_version/Part-1b-compute_DSM_coefficients_with_FEMs_PSV/dcsymbdl.f90
@@ -1,27 +1,27 @@
!! From Vadim Monteiller, April 2013:
-! Je n'ai jamais réussi à comprendre ce qu'il y a dans le système de ces deux routines.
-! En dépit des apparences et des commentaires dans le code, le système n'est pas
-! symétrique. Nobuaki m'a dit qu'à l'origine ce système était bien
-! symétrique mais qu'à la suite des travaux de Ohminato, le système à été
-! modifié en ajoutant des coefficients qu'il a trouvé de manière empirique
-! qui le rend non symétrique.
+! Je n'ai jamais reussi a comprendre ce qu'il y a dans le systeme de ces deux routines.
+! En depit des apparences et des commentaires dans le code, le systeme n'est pas
+! symetrique. Nobuaki m'a dit qu'a l'origine ce systeme etait bien
+! symetrique mais qu'a la suite des travaux de Ohminato, le systeme a ete
+! modifie en ajoutant des coefficients qu'il a trouve de maniere empirique
+! qui le rend non symetrique.
!
-! Il y a un moment j'avais envisagé d'utiliser MKL, mais je n'ai pas réussi Ã
-! le faire. Roland avait essayé de tester les routines dcsymbdl0 et dcsbdlv0
+! Il y a un moment j'avais envisage d'utiliser MKL, mais je n'ai pas reussi a
+! le faire. Roland avait essaye de tester les routines dcsymbdl0 et dcsbdlv0
! sur un de ses pb, mais il n'obtenait pas la solution voulue, nous avons alors
-! conclu que ces routines avaient été modifiées pour les rendre
-! opérationnelles sur leur système particulier et que elles ne résolvent
-! plus des systèmes symétriques à bandes diagonales.
+! conclu que ces routines avaient ete modifiees pour les rendre
+! operationnelles sur leur systeme particulier et que elles ne resolvent
+! plus des systemes symetriques a bandes diagonales.
!
-! Du coup c'est très dur de savoir ce qu'il y a dans les tableaux, même en
-! discutant avec Nobuaki j'ai pas du tout compris comment étaient stockées
-! les différentes diagonales, j'ai juste cru comprendre que c'était pas la
-! même convention que les routines de MKL. Du coup, je ne sais pas si ça
-! vaut le coup de regarder çà à fond, surtout que l'essentiel du coût
-! était dans le relecture des coefs et sur ce point-là on a beaucoup
-! gagné. Je pense qu'il vaut mieux qu'on regarde les I/O parallèles.
+! Du coup c'est tres dur de savoir ce qu'il y a dans les tableaux, meme en
+! discutant avec Nobuaki j'ai pas du tout compris comment etaient stockees
+! les differentes diagonales, j'ai juste cru comprendre que c'etait pas la
+! meme convention que les routines de MKL. Du coup, je ne sais pas si ca
+! vaut le coup de regarder ca a fond, surtout que l'essentiel du cout
+! etait dans le relecture des coefs et sur ce point-la on a beaucoup
+! gagne. Je pense qu'il vaut mieux qu'on regarde les I/O paralleles.
subroutine dcsymbdl0_m_equals_3_nn_equals_6(a,n,eps,z,w,ier)
diff --git a/utils/DSM_FOR_SPECFEM3D/DSM-1-BIG_3D_storage_version/Part-2b-read_DSM_coefficients_back_PSV/TraPSV_MPI_read_Zmin/TraPSV-0.1.3.f90 b/utils/DSM_FOR_SPECFEM3D/DSM-1-BIG_3D_storage_version/Part-2b-read_DSM_coefficients_back_PSV/TraPSV_MPI_read_Zmin/TraPSV-0.1.3.f90
index e85a8b8..17f2faa 100755
--- a/utils/DSM_FOR_SPECFEM3D/DSM-1-BIG_3D_storage_version/Part-2b-read_DSM_coefficients_back_PSV/TraPSV_MPI_read_Zmin/TraPSV-0.1.3.f90
+++ b/utils/DSM_FOR_SPECFEM3D/DSM-1-BIG_3D_storage_version/Part-2b-read_DSM_coefficients_back_PSV/TraPSV_MPI_read_Zmin/TraPSV-0.1.3.f90
@@ -993,21 +993,21 @@
if (myrank==0.and.SLOW_DEBUG_MODE) write(24,*) 'TIME :',mybigrank,time_to_read, time_to_plm,time_to_project
! Sur le cas des data de Pyrope (sur CURIE), j'ai un nsta = ~4000 pour chaque
-! proc. J'ai un nsta_global qui vaut ~200000 que je répartis en 48. Je fais
-! par ailleurs aussi une parallélisation sur les fréquences. Je me retrouve
+! proc. J'ai un nsta_global qui vaut ~200000 que je repartis en 48. Je fais
+! par ailleurs aussi une parallelisation sur les frequences. Je me retrouve
! avec 10 sous communicateurs de 48 procs (480 procs au total sur CURIE).
-! Chaque sous communicateur calcule sur une plage de fréquence spécifique et
-! à l'intérieur de chaque sous communicateur les procs se partagent le
-! nsta_global. J'ai fait ce type de découpage car c'était le seul moyen d'arriver
-! à faire passer le code avec le code non optimisé.
+! Chaque sous communicateur calcule sur une plage de frequence specifique et
+! a l'interieur de chaque sous communicateur les procs se partagent le
+! nsta_global. J'ai fait ce type de decoupage car c'etait le seul moyen d'arriver
+! a faire passer le code avec le code non optimise.
-! Maintenant ça doit valoir le coup de réfléchir à optimiser les boucles
+! Maintenant ca doit valoir le coup de reflechir a optimiser les boucles
! de copies car on ne va pas toujours tourner sur autant de procs, je dirais
-! que nsta va aller de 1000 (pour ~2000 procs) Ã 20000 (~100 procs). Si dans
-! le futur quelqu'un fait tourner le code sur un centre régional, il va
-! plutôt utiliser 100 procs. Dans l'immédiat pour nos deux prochains papiers, on
+! que nsta va aller de 1000 (pour ~2000 procs) a 20000 (~100 procs). Si dans
+! le futur quelqu'un fait tourner le code sur un centre regional, il va
+! plutot utiliser 100 procs. Dans l'immediat pour nos deux prochains papiers, on
! va faire tous les calculs sur les centres nationaux, donc ce n'est pas crucial
-! de faire l'optimisation maintenant, mais il faudra y penser à terme.
+! de faire l'optimisation maintenant, mais il faudra y penser a terme.
!! DK DK not a good idea to put indices when working on the whole array
!! DK DK because some compilers will then perform loops instead of memory copies
diff --git a/utils/DSM_FOR_SPECFEM3D/DSM-1-BIG_3D_storage_version/Part-2b-read_DSM_coefficients_back_PSV/TraPSV_MPI_read_vertical_faces/TraPSV-0.1.3.f90 b/utils/DSM_FOR_SPECFEM3D/DSM-1-BIG_3D_storage_version/Part-2b-read_DSM_coefficients_back_PSV/TraPSV_MPI_read_vertical_faces/TraPSV-0.1.3.f90
index 7d60f11..b5d3419 100755
--- a/utils/DSM_FOR_SPECFEM3D/DSM-1-BIG_3D_storage_version/Part-2b-read_DSM_coefficients_back_PSV/TraPSV_MPI_read_vertical_faces/TraPSV-0.1.3.f90
+++ b/utils/DSM_FOR_SPECFEM3D/DSM-1-BIG_3D_storage_version/Part-2b-read_DSM_coefficients_back_PSV/TraPSV_MPI_read_vertical_faces/TraPSV-0.1.3.f90
@@ -391,10 +391,10 @@
! From Vadim Monteiller, April 2013:
! TO DO (DK DK: NOW DONE): on pourrait gagner ici sans stocker les harmoniques spheriques.
-! Ce commentaire date du moment où j'essayais de gagner de la mémoire. J'avais vu la possibilité de réduire la taille
-! du tableau plm() sans le pré-calculer mais en calculant les harmoniques sphériques à l'intérieur de la boucle sur l
-! (comme on le fait pour la face zmin). Mais comme jusqu'à présent pour les faces verticales j'arrive à stocker ce tableau,
-! je l'ai laissé tel quel.
+! Ce commentaire date du moment ou j'essayais de gagner de la memoire. J'avais vu la possibilite de reduire la taille
+! du tableau plm() sans le pre-calculer mais en calculant les harmoniques spheriques a l'interieur de la boucle sur l
+! (comme on le fait pour la face zmin). Mais comme jusqu'a present pour les faces verticales j'arrive a stocker ce tableau,
+! je l'ai laisse tel quel.
!! DK DK April 2013: I have now removed it and I recompute the plm() array inside, thus this optimization is now implemented.
! call clPLM(plm,maxlmax,theta,theta_n,myrank)
!! VM VM initialisation
diff --git a/utils/DSM_FOR_SPECFEM3D/DSM-1-BIG_3D_storage_version/Part-3-modify_DSM_results_for_SPECFEM/FFT_MPI_FACES_VERT_FULL/rotations_matrix.f90 b/utils/DSM_FOR_SPECFEM3D/DSM-1-BIG_3D_storage_version/Part-3-modify_DSM_results_for_SPECFEM/FFT_MPI_FACES_VERT_FULL/rotations_matrix.f90
index 7176ec3..bc8581a 100755
--- a/utils/DSM_FOR_SPECFEM3D/DSM-1-BIG_3D_storage_version/Part-3-modify_DSM_results_for_SPECFEM/FFT_MPI_FACES_VERT_FULL/rotations_matrix.f90
+++ b/utils/DSM_FOR_SPECFEM3D/DSM-1-BIG_3D_storage_version/Part-3-modify_DSM_results_for_SPECFEM/FFT_MPI_FACES_VERT_FULL/rotations_matrix.f90
@@ -5,7 +5,7 @@
! Vadim Monteiller Mars 2013
!
!-------------------------------------------------------------------------------
-! matrice de rotation 3D d'axe "axe" et d'angle theta (d°)
+! matrice de rotation 3D d'axe "axe" et d'angle theta (degres)
! cette matrice est en complexe
subroutine rotation_matrix(R,axe,theta)
implicit none
diff --git a/utils/DSM_FOR_SPECFEM3D/DSM-1-BIG_3D_storage_version/Part-3-modify_DSM_results_for_SPECFEM/FFT_MPI_FACES_VERT_PSV/rotations_matrix.f90 b/utils/DSM_FOR_SPECFEM3D/DSM-1-BIG_3D_storage_version/Part-3-modify_DSM_results_for_SPECFEM/FFT_MPI_FACES_VERT_PSV/rotations_matrix.f90
index 7176ec3..bc8581a 100755
--- a/utils/DSM_FOR_SPECFEM3D/DSM-1-BIG_3D_storage_version/Part-3-modify_DSM_results_for_SPECFEM/FFT_MPI_FACES_VERT_PSV/rotations_matrix.f90
+++ b/utils/DSM_FOR_SPECFEM3D/DSM-1-BIG_3D_storage_version/Part-3-modify_DSM_results_for_SPECFEM/FFT_MPI_FACES_VERT_PSV/rotations_matrix.f90
@@ -5,7 +5,7 @@
! Vadim Monteiller Mars 2013
!
!-------------------------------------------------------------------------------
-! matrice de rotation 3D d'axe "axe" et d'angle theta (d°)
+! matrice de rotation 3D d'axe "axe" et d'angle theta (degres)
! cette matrice est en complexe
subroutine rotation_matrix(R,axe,theta)
implicit none
diff --git a/utils/DSM_FOR_SPECFEM3D/DSM-1-BIG_3D_storage_version/Part-3-modify_DSM_results_for_SPECFEM/FFT_MPI_FACES_VERT_SH/rotations_matrix.f90 b/utils/DSM_FOR_SPECFEM3D/DSM-1-BIG_3D_storage_version/Part-3-modify_DSM_results_for_SPECFEM/FFT_MPI_FACES_VERT_SH/rotations_matrix.f90
index 7176ec3..bc8581a 100755
--- a/utils/DSM_FOR_SPECFEM3D/DSM-1-BIG_3D_storage_version/Part-3-modify_DSM_results_for_SPECFEM/FFT_MPI_FACES_VERT_SH/rotations_matrix.f90
+++ b/utils/DSM_FOR_SPECFEM3D/DSM-1-BIG_3D_storage_version/Part-3-modify_DSM_results_for_SPECFEM/FFT_MPI_FACES_VERT_SH/rotations_matrix.f90
@@ -5,7 +5,7 @@
! Vadim Monteiller Mars 2013
!
!-------------------------------------------------------------------------------
-! matrice de rotation 3D d'axe "axe" et d'angle theta (d°)
+! matrice de rotation 3D d'axe "axe" et d'angle theta (degres)
! cette matrice est en complexe
subroutine rotation_matrix(R,axe,theta)
implicit none
diff --git a/utils/DSM_FOR_SPECFEM3D/DSM-1-BIG_3D_storage_version/UTILS/create_all_input_files_for_Hybrid.f90 b/utils/DSM_FOR_SPECFEM3D/DSM-1-BIG_3D_storage_version/UTILS/create_all_input_files_for_Hybrid.f90
index c35bb32..d82528b 100755
--- a/utils/DSM_FOR_SPECFEM3D/DSM-1-BIG_3D_storage_version/UTILS/create_all_input_files_for_Hybrid.f90
+++ b/utils/DSM_FOR_SPECFEM3D/DSM-1-BIG_3D_storage_version/UTILS/create_all_input_files_for_Hybrid.f90
@@ -523,7 +523,7 @@ end program create_input_files
! Vadim Monteiller Mars 2013
!
!---------------------------------------------------------------------------------------------------------------------------------------------------------
-! matrice de rotation 3D d'axe "axe" et d'angle theta (d°)
+! matrice de rotation 3D d'axe "axe" et d'angle theta (degres)
!
subroutine rotation_matrix_axe(R,axe,theta)
implicit none
diff --git a/utils/DSM_FOR_SPECFEM3D/DSM-1-BIG_3D_storage_version/UTILS/create_inputs_files.f90 b/utils/DSM_FOR_SPECFEM3D/DSM-1-BIG_3D_storage_version/UTILS/create_inputs_files.f90
index 5719260..001e105 100755
--- a/utils/DSM_FOR_SPECFEM3D/DSM-1-BIG_3D_storage_version/UTILS/create_inputs_files.f90
+++ b/utils/DSM_FOR_SPECFEM3D/DSM-1-BIG_3D_storage_version/UTILS/create_inputs_files.f90
@@ -523,7 +523,7 @@ end program create_input_files
! Vadim Monteiller Mars 2013
!
!---------------------------------------------------------------------------------------------------------------------------------------------------------
-! matrice de rotation 3D d'axe "axe" et d'angle theta (d°)
+! matrice de rotation 3D d'axe "axe" et d'angle theta (degres)
!
subroutine rotation_matrix_axe(R,axe,theta)
implicit none
diff --git a/utils/DSM_FOR_SPECFEM3D/DSM-1-BIG_3D_storage_version/UTILS/create_inputs_files_OLD_FROM_VADIM.f90 b/utils/DSM_FOR_SPECFEM3D/DSM-1-BIG_3D_storage_version/UTILS/create_inputs_files_OLD_FROM_VADIM.f90
index 9fe6a47..84a67d6 100755
--- a/utils/DSM_FOR_SPECFEM3D/DSM-1-BIG_3D_storage_version/UTILS/create_inputs_files_OLD_FROM_VADIM.f90
+++ b/utils/DSM_FOR_SPECFEM3D/DSM-1-BIG_3D_storage_version/UTILS/create_inputs_files_OLD_FROM_VADIM.f90
@@ -523,7 +523,7 @@ end program create_input_files
! Vadim Monteiller Mars 2013
!
!---------------------------------------------------------------------------------------------------------------------------------------------------------
-! matrice de rotation 3D d'axe "axe" et d'angle theta (d°)
+! matrice de rotation 3D d'axe "axe" et d'angle theta (degres)
!
subroutine rotation_matrix_axe(R,axe,theta)
implicit none
More information about the CIG-COMMITS
mailing list