/[lmdze]/trunk/Sources/phylmd/Radlwsw/swtt.f
ViewVC logotype

Diff of /trunk/Sources/phylmd/Radlwsw/swtt.f

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 177 by guez, Wed Apr 29 15:47:56 2015 UTC revision 178 by guez, Fri Mar 11 18:47:26 2016 UTC
# Line 49  SUBROUTINE swtt(knu, ka, pu, ptr) Line 49  SUBROUTINE swtt(knu, ka, pu, ptr)
49    
50    DOUBLE PRECISION apad(2, 3, 7), bpad(2, 3, 7), d(2, 3)    DOUBLE PRECISION apad(2, 3, 7), bpad(2, 3, 7), d(2, 3)
51    SAVE apad, bpad, d    SAVE apad, bpad, d
52    DATA ((apad(1,i,j),i=1,3), j=1, 7)/0.912418292E+05, 0.000000000E-00, &    DATA ((apad(1,i,j),i=1,3), j=1, 7)/0.912418292D+05, 0.000000000D-00, &
53      0.925887084E-04, 0.723613782E+05, 0.000000000E-00, 0.129353723E-01, &      0.925887084D-04, 0.723613782D+05, 0.000000000D-00, 0.129353723D-01, &
54      0.596037057E+04, 0.000000000E-00, 0.800821928E+00, 0.000000000E-00, &      0.596037057D+04, 0.000000000D-00, 0.800821928D+00, 0.000000000D-00, &
55      0.000000000E-00, 0.242715973E+02, 0.000000000E-00, 0.000000000E-00, &      0.000000000D-00, 0.242715973D+02, 0.000000000D-00, 0.000000000D-00, &
56      0.878331486E+02, 0.000000000E-00, 0.000000000E-00, 0.191559725E+02, &      0.878331486D+02, 0.000000000D-00, 0.000000000D-00, 0.191559725D+02, &
57      0.000000000E-00, 0.000000000E-00, 0.000000000E+00/      0.000000000D-00, 0.000000000D-00, 0.000000000D+00/
58    DATA ((apad(2,i,j),i=1,3), j=1, 7)/0.376655383E-08, 0.739646016E-08, &    DATA ((apad(2,i,j),i=1,3), j=1, 7)/0.376655383D-08, 0.739646016D-08, &
59      0.410177786E+03, 0.978576773E-04, 0.131849595E-03, 0.672595424E+02, &      0.410177786D+03, 0.978576773D-04, 0.131849595D-03, 0.672595424D+02, &
60      0.387714006E+00, 0.437772681E+00, 0.000000000E-00, 0.118461660E+03, &      0.387714006D+00, 0.437772681D+00, 0.000000000D-00, 0.118461660D+03, &
61      0.151345118E+03, 0.000000000E-00, 0.119079797E+04, 0.233628890E+04, &      0.151345118D+03, 0.000000000D-00, 0.119079797D+04, 0.233628890D+04, &
62      0.000000000E-00, 0.293353397E+03, 0.797219934E+03, 0.000000000E-00, &      0.000000000D-00, 0.293353397D+03, 0.797219934D+03, 0.000000000D-00, &
63      0.000000000E+00, 0.000000000E+00, 0.000000000E+00/      0.000000000D+00, 0.000000000D+00, 0.000000000D+00/
64    
65    DATA ((bpad(1,i,j),i=1,3), j=1, 7)/0.912418292E+05, 0.000000000E-00, &    DATA ((bpad(1,i,j),i=1,3), j=1, 7)/0.912418292D+05, 0.000000000D-00, &
66      0.925887084E-04, 0.724555318E+05, 0.000000000E-00, 0.131812683E-01, &      0.925887084D-04, 0.724555318D+05, 0.000000000D-00, 0.131812683D-01, &
67      0.602593328E+04, 0.000000000E-00, 0.812706117E+00, 0.100000000E+01, &      0.602593328D+04, 0.000000000D-00, 0.812706117D+00, 0.100000000D+01, &
68      0.000000000E-00, 0.249863591E+02, 0.000000000E-00, 0.000000000E-00, &      0.000000000D-00, 0.249863591D+02, 0.000000000D-00, 0.000000000D-00, &
69      0.931071925E+02, 0.000000000E-00, 0.000000000E-00, 0.252233437E+02, &      0.931071925D+02, 0.000000000D-00, 0.000000000D-00, 0.252233437D+02, &
70      0.000000000E-00, 0.000000000E-00, 0.100000000E+01/      0.000000000D-00, 0.000000000D-00, 0.100000000D+01/
71    DATA ((bpad(2,i,j),i=1,3), j=1, 7)/0.376655383E-08, 0.739646016E-08, &    DATA ((bpad(2,i,j),i=1,3), j=1, 7)/0.376655383D-08, 0.739646016D-08, &
72      0.410177786E+03, 0.979023421E-04, 0.131861712E-03, 0.731185438E+02, &      0.410177786D+03, 0.979023421D-04, 0.131861712D-03, 0.731185438D+02, &
73      0.388611139E+00, 0.437949001E+00, 0.100000000E+01, 0.120291383E+03, &      0.388611139D+00, 0.437949001D+00, 0.100000000D+01, 0.120291383D+03, &
74      0.151692730E+03, 0.000000000E+00, 0.130531005E+04, 0.237071130E+04, &      0.151692730D+03, 0.000000000D+00, 0.130531005D+04, 0.237071130D+04, &
75      0.000000000E+00, 0.415049409E+03, 0.867914360E+03, 0.000000000E+00, &      0.000000000D+00, 0.415049409D+03, 0.867914360D+03, 0.000000000D+00, &
76      0.100000000E+01, 0.100000000E+01, 0.000000000E+00/      0.100000000D+01, 0.100000000D+01, 0.000000000D+00/
77    
78    DATA (d(1,i), i=1, 3)/0.00, 0.00, 0.00/    DATA (d(1,i), i=1, 3)/0.00d0, 0.00d0, 0.00d0/
79    DATA (d(2,i), i=1, 3)/0.000000000, 0.000000000, 0.800000000/    DATA (d(2,i), i=1, 3)/0.000000000d0, 0.000000000d0, 0.800000000d0/
80    
81    ! -----------------------------------------------------------------------    ! -----------------------------------------------------------------------
82    
Legend:
Removed from v.177  
changed lines
  Added in v.178
  ViewVC Help
Powered by ViewVC 1.1.21