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 |