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

Diff of /trunk/phylmd/Radlwsw/swtt1.f

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

trunk/phylmd/Radlwsw/swtt1.f90 revision 81 by guez, Wed Mar 5 14:38:41 2014 UTC trunk/phylmd/Radlwsw/swtt1.f revision 265 by guez, Tue Mar 20 09:35:59 2018 UTC
# Line 1  Line 1 
1  SUBROUTINE swtt1(knu, kabs, kind, pu, ptr)  SUBROUTINE swtt1(knu, kabs, kind, pu, ptr)
2    USE dimens_m    USE dimensions
3    USE dimphy    USE dimphy
4    USE raddim    USE raddim
5    IMPLICIT NONE    IMPLICIT NONE
# 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.81  
changed lines
  Added in v.265
  ViewVC Help
Powered by ViewVC 1.1.21