--- trunk/libf/phylmd/Radlwsw/swtt1.f	2010/03/03 13:23:49	24
+++ trunk/libf/phylmd/Radlwsw/swtt1.f	2013/07/08 18:12:18	71
@@ -36,20 +36,20 @@
       INTEGER KNU          ! INDEX OF THE SPECTRAL INTERVAL
       INTEGER KABS         ! NUMBER OF ABSORBERS
       INTEGER KIND(KABS)   ! INDICES OF THE ABSORBERS
-      REAL*8 PU(KDLON,KABS)  ! ABSORBER AMOUNT
+      DOUBLE PRECISION PU(KDLON,KABS)  ! ABSORBER AMOUNT
 C
-      REAL*8 PTR(KDLON,KABS) ! TRANSMISSION FUNCTION
+      DOUBLE PRECISION PTR(KDLON,KABS) ! TRANSMISSION FUNCTION
 C
 C* LOCAL VARIABLES:
 C
-      REAL*8 ZR1(KDLON)
-      REAL*8 ZR2(KDLON)
-      REAL*8 ZU(KDLON)
+      DOUBLE PRECISION ZR1(KDLON)
+      DOUBLE PRECISION ZR2(KDLON)
+      DOUBLE PRECISION ZU(KDLON)
       INTEGER jl, ja, i, j, ia
 C
 C* Prescribed Data:
 C
-      REAL*8 APAD(2,3,7), BPAD(2,3,7), D(2,3)
+      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) /
      S 0.912418292E+05, 0.000000000E-00, 0.925887084E-04,