Changeset 224 for trunk/SOURCES/deformation_mod_2lois.f90

Timestamp:

12/18/18 18:25:28 (6 years ago)

Author:

dumas

Message:

format of the parameter file created by the code, possibility to use it in reading

File:

• trunk/SOURCES/deformation_mod_2lois.f90 (modified) (2 diffs)

trunk/SOURCES/deformation_mod_2lois.f90

@@ -111 +111 @@
 rewind(num_param)        ! pour revenir au debut du fichier param_list.dat
 read(num_param,loidef_1)
-
-write(num_rep_42,*)'!___________________________________________________________' 
-write(num_rep_42,*)'! loi de deformation 1          module deformation_mod_2lois'
-write(num_rep_42,*)
-write(num_rep_42,*)
-write(num_rep_42,*)'! exposant (glen), temperature de transition (ttrans)'
-write(num_rep_42,*)'! enhancement factor (sf)'
-write(num_rep_42,*)'! pour les temperatures inf. a Temp_trans :'
-write(num_rep_42,*)'!                            coef_cold (Bat1) et Q_cold (Q1)'
-write(num_rep_42,*)'! pour les temperatures sup. a Temp_trans :'
-write(num_rep_42,*)'!                            coef_warm (Bat2) et Q_warm (Q2)'
-write(num_rep_42,*)'!___________________________________________________________' 
+write(num_rep_42,loidef_1)
 
 glen(1)   = exposant_1 
@@ -138 +127 @@
 rewind(num_param)        ! pour revenir au debut du fichier param_list.dat
 read(num_param,loidef_2)
+write(num_rep_42,loidef_2)
 
 write(num_rep_42,*)'!___________________________________________________________' 
-write(num_rep_42,*)'! loi de deformation 2          module deformation_mod_2lois'
-write(num_rep_42,*)
-write(num_rep_42,*)
+write(num_rep_42,*)'! loi de deformation            module deformation_mod_2lois'
 write(num_rep_42,*)'! exposant (glen), temperature de transition (ttrans)'
 write(num_rep_42,*)'! enhancement factor (sf)'