| Index | Rundeck: P1SoM40 | Created: Fri May 10 03:30:18 EDT 2024 |
strend | Module: | File: RAD_UTILS.f |
Author :
Version:
Declaration:
subroutine strend(jyear, idec, jdec, swti, swtj)- jyear :
integer, intent(in)
- idec :
integer, intent(out)
- jdec :
integer, intent(out)
- swti :
real*8, intent(out)
- swtj :
real*8, intent(out)
- sue :
real*8, parameter, dimension(3, 41)
- Initial Value
= reshape( (/ 1950.0, 30.46669769, 14.4, 1951.0, 32.38347244, 14.4, 1952.0, 32.18632889, 14.4, 1953.0, 32.83379745, 14.4, 1954.0, 32.79270935, 14.4, 1955.0, 35.79611969, 14.4, 1956.0, 39.93603897, 14.4, 1957.0, 38.68806839, 14.4, 1958.0, 39.35904312, 14.4, 1959.0, 41.06065369, 14.4, 1960.0, 42.67050934, 14.4, 1961.0, 41.32410431, 14.4, 1962.0, 41.80470276, 14.4, 1963.0, 43.26312637, 14.4, 1964.0, 44.68368530, 14.4, 1965.0, 45.81701660, 14.4, 1966.0, 46.61584091, 14.4, 1967.0, 46.42276001, 14.4, 1968.0, 47.77438354, 14.4, 1969.0, 49.30817032, 14.4, 1970.0, 52.81050873, 14.4, 1971.0, 52.95043945, 14.4, 1972.0, 54.10167694, 14.4, 1973.0, 55.93037415, 14.4, 1974.0, 57.31056213, 14.4, 1975.0, 58.52788162, 14.4, 1976.0, 59.71361542, 14.4, 1977.0, 62.59599304, 14.4, 1978.0, 61.98198318, 14.4, 1979.0, 64.71042633, 14.4, 1980.0, 65.28986359, 14.4, 1981.0, 63.23768234, 14.4, 1982.0, 62.88000488, 14.4, 1983.0, 61.45023346, 14.4, 1984.0, 63.85008621, 14.4, 1985.0, 66.47412872, 14.4, 1986.0, 68.00902557, 14.4, 1987.0, 69.87956238, 14.4, 1988.0, 70.52937317, 14.4, 1989.0, 72.06355286, 14.4, 1990.0, 71.29174805, 14.4 /), (/3,41/) )
- xdec :
real*8
- isudec :
integer
- jsudec :
integer
- ijyear :
integer