| Index | Rundeck: P1SoM40 | Created: Fri May 10 03:30:18 EDT 2024 |
ctrend | Module: | File: RAD_UTILS.f |
Author :
Version:
Declaration:
subroutine ctrend(jyear, idec, jdec, cwti, cwtj)- jyear :
integer, intent(in)
- idec :
integer, intent(out)
- jdec :
integer, intent(out)
- cwti :
real*8, intent(out)
- cwtj :
real*8, intent(out)
- bce :
real*8, parameter, dimension(5, 45)
- Initial Value
= RESHAPE( (/ 50.0, 2.280581713, 0.4449132979, 0.1599090248, 2.885536671, 51.0, 2.443193913, 0.4855868816, 0.1884280443, 3.117194653, 52.0, 2.473641872, 0.5115299225, 0.2027695477, 3.187930107, 53.0, 2.481340885, 0.5448409319, 0.2149295360, 3.241089582, 54.0, 2.505670071, 0.5780177116, 0.2343477309, 3.317960978, 55.0, 2.698692560, 0.6238067150, 0.2733324766, 3.595800638, 56.0, 2.855226278, 0.6531309485, 0.3043369055, 3.812692404, 57.0, 2.975781679, 0.6821750998, 0.3207367063, 3.978575468, 58.0, 3.341105223, 0.7035279870, 0.3370627165, 4.381746292, 59.0, 3.638528824, 0.7075053453, 0.3695519567, 4.715488434, 60.0, 3.770926714, 0.7416650057, 0.3832504749, 4.896034241, 61.0, 3.392980337, 0.7805693150, 0.4217525721, 4.595387459, 62.0, 3.288835049, 0.8179932237, 0.4603823125, 4.567360401, 63.0, 3.359177589, 0.8604368567, 0.5090782642, 4.728550911, 64.0, 3.432664871, 0.8952696323, 0.5388473868, 4.866865158, 65.0, 3.529418945, 0.8819132447, 0.5785927773, 4.989773750, 66.0, 3.577459812, 0.8817394972, 0.6323299408, 5.091631413, 67.0, 3.418204546, 0.8635972142, 0.6592246890, 4.941041946, 68.0, 3.452457905, 0.8943673372, 0.7338049412, 5.080585003, 69.0, 3.626069546, 0.9298774004, 0.7889106274, 5.344810009, 70.0, 3.264039755, 0.9229136109, 0.8880128860, 5.074741840, 71.0, 3.437611580, 0.9374827743, 0.9531223178, 5.328329086, 72.0, 3.473345757, 0.7836616039, 1.0180075170, 5.274850368, 73.0, 3.495583296, 0.8056778908, 1.1174367670, 5.418928623, 74.0, 3.506143808, 0.8251076341, 1.0828053950, 5.413989067, 75.0, 3.906814098, 0.8527192473, 1.0454736950, 5.804963112, 76.0, 4.005736828, 0.8900613785, 1.1400985720, 6.035901546, 77.0, 4.236912251, 0.9103702307, 1.2190728190, 6.366260529, 78.0, 4.459666252, 0.9303293228, 1.2408012150, 6.630728722, 79.0, 4.697422504, 0.9856286645, 1.3019220830, 6.984815121, 80.0, 4.796229839, 0.9959300756, 1.2336660620, 7.026207924, 81.0, 4.789204121, 1.0459070210, 1.1664049630, 7.001126766, 82.0, 4.872739315, 1.0975246430, 1.1601715090, 7.130136490, 83.0, 4.983223438, 1.1424025300, 1.1732926370, 7.298912525, 84.0, 5.265352249, 1.2178678510, 1.2251536850, 7.708741188, 85.0, 5.763637543, 1.2965050940, 1.2428865430, 8.303324699, 86.0, 5.924767494, 1.3386499880, 1.2930148840, 8.556744576, 87.0, 6.155550480, 1.3738890890, 1.3162037130, 8.845513344, 88.0, 6.379704475, 1.3670797350, 1.3813229800, 9.127896309, 89.0, 6.594299316, 1.4169263840, 1.4029121400, 9.414231300, 90.0, 6.566919804, 1.4685817960, 1.4224120380, 9.458042145, 91.0, 6.661097050, 1.2067918780, 1.4163945910, 9.284657478, 92.0, 7.737902641, 1.3509917260, 1.4471185210, 10.53625107, 93.0, 7.393332005, 1.2448183300, 1.4543261530, 10.09271908, 94.0, 7.515841007, 1.2333894970, 1.4780857560, 10.22745800 /), (/5,45/) )
- xdec :
real*8
- ibcdec :
integer
- jbcdec :
integer
- ijyear :
integer