--- trunk/Sources/phylmd/Radlwsw/swtt.f	2015/04/29 15:47:56	134
+++ trunk/Sources/phylmd/Radlwsw/swtt.f	2016/03/11 18:47:26	178
@@ -49,34 +49,34 @@
 
   DOUBLE PRECISION apad(2, 3, 7), bpad(2, 3, 7), d(2, 3)
   SAVE apad, bpad, d
-  DATA ((apad(1,i,j),i=1,3), j=1, 7)/0.912418292E+05, 0.000000000E-00, &
-    0.925887084E-04, 0.723613782E+05, 0.000000000E-00, 0.129353723E-01, &
-    0.596037057E+04, 0.000000000E-00, 0.800821928E+00, 0.000000000E-00, &
-    0.000000000E-00, 0.242715973E+02, 0.000000000E-00, 0.000000000E-00, &
-    0.878331486E+02, 0.000000000E-00, 0.000000000E-00, 0.191559725E+02, &
-    0.000000000E-00, 0.000000000E-00, 0.000000000E+00/
-  DATA ((apad(2,i,j),i=1,3), j=1, 7)/0.376655383E-08, 0.739646016E-08, &
-    0.410177786E+03, 0.978576773E-04, 0.131849595E-03, 0.672595424E+02, &
-    0.387714006E+00, 0.437772681E+00, 0.000000000E-00, 0.118461660E+03, &
-    0.151345118E+03, 0.000000000E-00, 0.119079797E+04, 0.233628890E+04, &
-    0.000000000E-00, 0.293353397E+03, 0.797219934E+03, 0.000000000E-00, &
-    0.000000000E+00, 0.000000000E+00, 0.000000000E+00/
+  DATA ((apad(1,i,j),i=1,3), j=1, 7)/0.912418292D+05, 0.000000000D-00, &
+    0.925887084D-04, 0.723613782D+05, 0.000000000D-00, 0.129353723D-01, &
+    0.596037057D+04, 0.000000000D-00, 0.800821928D+00, 0.000000000D-00, &
+    0.000000000D-00, 0.242715973D+02, 0.000000000D-00, 0.000000000D-00, &
+    0.878331486D+02, 0.000000000D-00, 0.000000000D-00, 0.191559725D+02, &
+    0.000000000D-00, 0.000000000D-00, 0.000000000D+00/
+  DATA ((apad(2,i,j),i=1,3), j=1, 7)/0.376655383D-08, 0.739646016D-08, &
+    0.410177786D+03, 0.978576773D-04, 0.131849595D-03, 0.672595424D+02, &
+    0.387714006D+00, 0.437772681D+00, 0.000000000D-00, 0.118461660D+03, &
+    0.151345118D+03, 0.000000000D-00, 0.119079797D+04, 0.233628890D+04, &
+    0.000000000D-00, 0.293353397D+03, 0.797219934D+03, 0.000000000D-00, &
+    0.000000000D+00, 0.000000000D+00, 0.000000000D+00/
 
-  DATA ((bpad(1,i,j),i=1,3), j=1, 7)/0.912418292E+05, 0.000000000E-00, &
-    0.925887084E-04, 0.724555318E+05, 0.000000000E-00, 0.131812683E-01, &
-    0.602593328E+04, 0.000000000E-00, 0.812706117E+00, 0.100000000E+01, &
-    0.000000000E-00, 0.249863591E+02, 0.000000000E-00, 0.000000000E-00, &
-    0.931071925E+02, 0.000000000E-00, 0.000000000E-00, 0.252233437E+02, &
-    0.000000000E-00, 0.000000000E-00, 0.100000000E+01/
-  DATA ((bpad(2,i,j),i=1,3), j=1, 7)/0.376655383E-08, 0.739646016E-08, &
-    0.410177786E+03, 0.979023421E-04, 0.131861712E-03, 0.731185438E+02, &
-    0.388611139E+00, 0.437949001E+00, 0.100000000E+01, 0.120291383E+03, &
-    0.151692730E+03, 0.000000000E+00, 0.130531005E+04, 0.237071130E+04, &
-    0.000000000E+00, 0.415049409E+03, 0.867914360E+03, 0.000000000E+00, &
-    0.100000000E+01, 0.100000000E+01, 0.000000000E+00/
+  DATA ((bpad(1,i,j),i=1,3), j=1, 7)/0.912418292D+05, 0.000000000D-00, &
+    0.925887084D-04, 0.724555318D+05, 0.000000000D-00, 0.131812683D-01, &
+    0.602593328D+04, 0.000000000D-00, 0.812706117D+00, 0.100000000D+01, &
+    0.000000000D-00, 0.249863591D+02, 0.000000000D-00, 0.000000000D-00, &
+    0.931071925D+02, 0.000000000D-00, 0.000000000D-00, 0.252233437D+02, &
+    0.000000000D-00, 0.000000000D-00, 0.100000000D+01/
+  DATA ((bpad(2,i,j),i=1,3), j=1, 7)/0.376655383D-08, 0.739646016D-08, &
+    0.410177786D+03, 0.979023421D-04, 0.131861712D-03, 0.731185438D+02, &
+    0.388611139D+00, 0.437949001D+00, 0.100000000D+01, 0.120291383D+03, &
+    0.151692730D+03, 0.000000000D+00, 0.130531005D+04, 0.237071130D+04, &
+    0.000000000D+00, 0.415049409D+03, 0.867914360D+03, 0.000000000D+00, &
+    0.100000000D+01, 0.100000000D+01, 0.000000000D+00/
 
-  DATA (d(1,i), i=1, 3)/0.00, 0.00, 0.00/
-  DATA (d(2,i), i=1, 3)/0.000000000, 0.000000000, 0.800000000/
+  DATA (d(1,i), i=1, 3)/0.00d0, 0.00d0, 0.00d0/
+  DATA (d(2,i), i=1, 3)/0.000000000d0, 0.000000000d0, 0.800000000d0/
 
   ! -----------------------------------------------------------------------