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

Diff of /trunk/Sources/phylmd/Radlwsw/swtt1.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 51  SUBROUTINE swtt1(knu, kabs, kind, pu, pt Line 51  SUBROUTINE swtt1(knu, kabs, kind, pu, pt
51    
52    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)
53    SAVE apad, bpad, d    SAVE apad, bpad, d
54    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, &
55      0.925887084E-04, 0.723613782E+05, 0.000000000E-00, 0.129353723E-01, &      0.925887084D-04, 0.723613782D+05, 0.000000000D-00, 0.129353723D-01, &
56      0.596037057E+04, 0.000000000E-00, 0.800821928E+00, 0.000000000E-00, &      0.596037057D+04, 0.000000000D-00, 0.800821928D+00, 0.000000000D-00, &
57      0.000000000E-00, 0.242715973E+02, 0.000000000E-00, 0.000000000E-00, &      0.000000000D-00, 0.242715973D+02, 0.000000000D-00, 0.000000000D-00, &
58      0.878331486E+02, 0.000000000E-00, 0.000000000E-00, 0.191559725E+02, &      0.878331486D+02, 0.000000000D-00, 0.000000000D-00, 0.191559725D+02, &
59      0.000000000E-00, 0.000000000E-00, 0.000000000E+00/      0.000000000D-00, 0.000000000D-00, 0.000000000D+00/
60    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, &
61      0.410177786E+03, 0.978576773E-04, 0.131849595E-03, 0.672595424E+02, &      0.410177786D+03, 0.978576773D-04, 0.131849595D-03, 0.672595424D+02, &
62      0.387714006E+00, 0.437772681E+00, 0.000000000E-00, 0.118461660E+03, &      0.387714006D+00, 0.437772681D+00, 0.000000000D-00, 0.118461660D+03, &
63      0.151345118E+03, 0.000000000E-00, 0.119079797E+04, 0.233628890E+04, &      0.151345118D+03, 0.000000000D-00, 0.119079797D+04, 0.233628890D+04, &
64      0.000000000E-00, 0.293353397E+03, 0.797219934E+03, 0.000000000E-00, &      0.000000000D-00, 0.293353397D+03, 0.797219934D+03, 0.000000000D-00, &
65      0.000000000E+00, 0.000000000E+00, 0.000000000E+00/      0.000000000D+00, 0.000000000D+00, 0.000000000D+00/
66    
67    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, &
68      0.925887084E-04, 0.724555318E+05, 0.000000000E-00, 0.131812683E-01, &      0.925887084D-04, 0.724555318D+05, 0.000000000D-00, 0.131812683D-01, &
69      0.602593328E+04, 0.000000000E-00, 0.812706117E+00, 0.100000000E+01, &      0.602593328D+04, 0.000000000D-00, 0.812706117D+00, 0.100000000D+01, &
70      0.000000000E-00, 0.249863591E+02, 0.000000000E-00, 0.000000000E-00, &      0.000000000D-00, 0.249863591D+02, 0.000000000D-00, 0.000000000D-00, &
71      0.931071925E+02, 0.000000000E-00, 0.000000000E-00, 0.252233437E+02, &      0.931071925D+02, 0.000000000D-00, 0.000000000D-00, 0.252233437D+02, &
72      0.000000000E-00, 0.000000000E-00, 0.100000000E+01/      0.000000000D-00, 0.000000000D-00, 0.100000000D+01/
73    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, &
74      0.410177786E+03, 0.979023421E-04, 0.131861712E-03, 0.731185438E+02, &      0.410177786D+03, 0.979023421D-04, 0.131861712D-03, 0.731185438D+02, &
75      0.388611139E+00, 0.437949001E+00, 0.100000000E+01, 0.120291383E+03, &      0.388611139D+00, 0.437949001D+00, 0.100000000D+01, 0.120291383D+03, &
76      0.151692730E+03, 0.000000000E+00, 0.130531005E+04, 0.237071130E+04, &      0.151692730D+03, 0.000000000D+00, 0.130531005D+04, 0.237071130D+04, &
77      0.000000000E+00, 0.415049409E+03, 0.867914360E+03, 0.000000000E+00, &      0.000000000D+00, 0.415049409D+03, 0.867914360D+03, 0.000000000D+00, &
78      0.100000000E+01, 0.100000000E+01, 0.000000000E+00/      0.100000000D+01, 0.100000000D+01, 0.000000000D+00/
79    
80    DATA (d(1,i), i=1, 3)/0.00, 0.00, 0.00/    DATA (d(1,i), i=1, 3)/0.00d0, 0.00d0, 0d0/
81    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/
82    ! -----------------------------------------------------------------------    ! -----------------------------------------------------------------------
83    
84    ! *         1.      HORNER'S ALGORITHM TO COMPUTE TRANSMISSION FUNCTION    ! *         1.      HORNER'S ALGORITHM TO COMPUTE TRANSMISSION FUNCTION
Legend:
Removed from v.177  
changed lines
  Added in v.178
  ViewVC Help
Powered by ViewVC 1.1.21