Changeset 106 for trunk/libf/phytitan/lell.F

Timestamp:

Mar 28, 2011, 3:18:39 PM (14 years ago)

Author:

slebonnois

Message:

SL : mise a jour de phytitan pour etre conforme aux sources actuelles
utilisees sur gnome.

File:

• trunk/libf/phytitan/lell.F (modified) (3 diffs)

trunk/libf/phytitan/lell.F

@@ -105 +105 @@
      &  71.2,  71.4,  71.5,  71.8,  72.3,  73.1,  73.9,  74.7,  75.7,
      &  76.7,  78.0,  79.2,  80.6,  82.1,  83.6,  85.5,  87.3,  88.5,
-     &  89.5,  90.5,  91.5,  92.1,  92.7,  93.3,  93.9/
+     &  89.5,  90.5,  91.5,  92.1,  92.9,  93.7,  94.5/
+!    &  89.5,  90.5,  91.5,  92.1,  92.7,  93.3,  93.9/
 ! PRESSURE IN MILLIBARS
       DATA PLE/
@@ -132 +133 @@
      & 4.87E+02, 5.47E+02, 6.14E+02, 6.88E+02, 7.70E+02, 8.59E+02,
      & 9.57E+02, 1.06E+03, 1.12E+03, 1.18E+03, 1.24E+03, 1.30E+03,
-     & 1.34E+03, 1.37E+03, 1.40E+03, 1.44E+03/
+     & 1.34E+03, 1.38E+03, 1.43E+03, 1.48E+03/
+!    & 1.34E+03, 1.37E+03, 1.40E+03, 1.44E+03/
 ! NUMBER DENSITY
       DATA DLE/
@@ -159 +161 @@
      & 4.68E+19, 5.19E+19, 5.75E+19, 6.34E+19, 6.97E+19, 7.66E+19,
      & 8.36E+19, 9.11E+19, 9.48E+19, 9.88E+19, 1.03E+20, 1.07E+20,
-     & 1.09E+20, 1.11E+20, 1.13E+20, 1.15E+20/
+     & 1.09E+20, 1.11E+20, 1.14E+20, 1.17E+20/
+!    & 1.09E+20, 1.11E+20, 1.13E+20, 1.15E+20/
 ! MEAN MOLECULAR WEIGHT
       DATA XMULE/