Example, Nov. 7, 2016

k(:, 1, 3, 6) = (/-2.168970e-07, 8.695480e-07/)

k(:, 1, 4, 6) = (/ 6.900410e-05, 2.749200e-06/)

k(:, 1, 5, 6) = (/ 6.900410e-05, 2.749200e-06/)

k(:, 2, 1, 6) = (/ 0.000000e+00, 0.000000e+00/)

k(:, 2, 2, 6) = (/ 0.000000e+00, 0.000000e+00/)

k(:, 2, 3, 6) = (/ 0.000000e+00, 0.000000e+00/)

k(:, 2, 4, 6) = (/ 0.000000e+00, 0.000000e+00/)

k(:, 2, 5, 6) = (/ 0.000000e+00, 0.000000e+00/)

k(:, 1, 1, 7) = (/ 0.000000e+00, 0.000000e+00/)

k(:, 1, 2, 7) = (/-2.082470e-05, 7.975570e-07/)

k(:, 1, 3, 7) = (/-2.122660e-05, 2.897200e-06/)

k(:, 1, 4, 7) = (/-2.704370e-06, 7.528350e-06/)

k(:, 1, 5, 7) = (/-2.704370e-06, 0.000000e+00/)

k(:, 2, 1, 7) = (/ 0.000000e+00, 0.000000e+00/)

k(:, 2, 2, 7) = (/ 0.000000e+00, 0.000000e+00/)

k(:, 2, 3, 7) = (/ 0.000000e+00, 0.000000e+00/)

k(:, 2, 4, 7) = (/ 0.000000e+00, 0.000000e+00/)

k(:, 2, 5, 7) = (/ 0.000000e+00, 0.000000e+00/)

k(:, 1, 1, 8) = (/ 0.000000e+00, 0.000000e+00/)

k(:, 1, 2, 8) = (/-4.555340e-05, 5.356330e-07/)

k(:, 1, 3, 8) = (/-4.013790e-05, 3.255770e-06/)

k(:, 1, 4, 8) = (/ 9.978290e-05, 2.754410e-06/)

k(:, 1, 5, 8) = (/ 0.000000e+00, 0.000000e+00/)

k(:, 2, 1, 8) = (/ 0.000000e+00, 0.000000e+00/)

k(:, 2, 2, 8) = (/ 0.000000e+00, 0.000000e+00/)

k(:, 2, 3, 8) = (/ 0.000000e+00, 0.000000e+00/)

k(:, 2, 4, 8) = (/ 0.000000e+00, 0.000000e+00/)

k(:, 2, 5, 8) = (/ 0.000000e+00, 0.000000e+00/)

k(:, 1, 1, 9) = (/ 0.000000e+00, 0.000000e+00/)

k(:, 1, 2, 9) = (/ 0.000000e+00, 0.000000e+00/)

k(:, 1, 3, 9) = (/ 0.000000e+00, 0.000000e+00/)

k(:, 1, 4, 9) = (/ 0.000000e+00, 0.000000e+00/)

k(:, 1, 5, 9) = (/ 0.000000e+00, 0.000000e+00/)

k(:, 2, 1, 9) = (/-7.491630e-06, 0.000000e+00/)

k(:, 2, 2, 9) = (/-7.491630e-05,-4.316920e-08/)

k(:, 2, 3, 9) = (/ 0.000000e+00, 0.000000e+00/)

k(:, 2, 4, 9) = (/ 0.000000e+00, 0.000000e+00/)

k(:, 2, 5, 9) = (/ 0.000000e+00, 0.000000e+00/)

k(:, 1, 1,10) = (/ 0.000000e+00, 0.000000e+00/)

k(:, 1, 2,10) = (/ 5.130000e-03, 1.485000e-02/)

k(:, 1, 3,10) = (/ 1.480000e-03, 4.802000e-02/)

k(:, 1, 4,10) = (/-2.045000e-02, 2.725000e-02/)

k(:, 1, 5,10) = (/ 0.000000e+00, 0.000000e+00/)

k(:, 2, 1,10) = (/ 0.000000e+00, 0.000000e+00/)

k(:, 2, 2,10) = (/ 0.000000e+00, 0.000000e+00/)

k(:, 2, 3,10) = (/ 0.000000e+00, 0.000000e+00/)

k(:, 2, 4,10) = (/ 0.000000e+00, 0.000000e+00/)

k(:, 2, 5,10) = (/ 0.000000e+00, 0.000000e+00/)

k(:, 1, 1,11) = (/ 0.000000e+00, 0.000000e+00/)

k(:, 1, 2,11) = (/ 0.000000e+00, 0.000000e+00/)

k(:, 1, 3,11) = (/ 0.000000e+00, 0.000000e+00/)

k(:, 1, 4,11) = (/ 0.000000e+00, 0.000000e+00/)

k(:, 1, 5,11) = (/ 0.000000e+00, 0.000000e+00/)

k(:, 2, 1,11) = (/-5.007750e-06, 0.000000e+00/)

k(:, 2, 2,11) = (/-5.007750e-05,-1.521600e-07/)

k(:, 2, 3,11) = (/ 0.000000e+00, 0.000000e+00/)

k(:, 2, 4,11) = (/ 0.000000e+00, 0.000000e+00/)

k(:, 2, 5,11) = (/ 0.000000e+00, 0.000000e+00/)

!--- END generated by "python gen_uijparam.py u13-t_param.txt 1"

case(23)

k(:, 1, 1, 1) = (/ 3.080780e-05, 0.000000e+00/)

k(:, 1, 2, 1) = (/ 3.080780e-04, 3.101950e-06/)

k(:, 1, 3, 1) = (/-1.744460e-05, 3.392200e-06/)

k(:, 1, 4, 1) = (/-1.113940e-04,-1.402690e-06/)

k(:, 1, 5, 1) = (/ 0.000000e+00, 0.000000e+00/)

k(:, 2, 1, 1) = (/ 0.000000e+00, 0.000000e+00/)

k(:, 2, 2, 1) = (/ 0.000000e+00, 0.000000e+00/)

k(:, 2, 3, 1) = (/ 0.000000e+00, 0.000000e+00/)

k(:, 2, 4, 1) = (/ 0.000000e+00, 0.000000e+00/)

k(:, 2, 5, 1) = (/ 0.000000e+00, 0.000000e+00/)

k(:, 1, 1, 2) = (/ 4.534340e-06, 0.000000e+00/)

k(:, 1, 2, 2) = (/ 4.534340e-05, 9.405500e-08/)

k(:, 1, 3, 2) = (/-4.708560e-05, 4.713280e-07/)

k(:, 1, 4, 2) = (/-7.667080e-05,-9.933570e-07/)

k(:, 1, 5, 2) = (/-7.667080e-05, 0.000000e+00/)

k(:, 2, 1, 2) = (/ 0.000000e+00, 0.000000e+00/)

k(:, 2, 2, 2) = (/ 0.000000e+00, 0.000000e+00/)

k(:, 2, 3, 2) = (/ 0.000000e+00, 0.000000e+00/)

k(:, 2, 4, 2) = (/ 0.000000e+00, 0.000000e+00/)

k(:, 2, 5, 2) = (/ 0.000000e+00, 0.000000e+00/)

k(:, 1, 1, 3) = (/-1.501560e-05, 0.000000e+00/)

k(:, 1, 2, 3) = (/-1.501560e-04, 1.661390e-07/)

k(:, 1, 3, 3) = (/-6.065620e-05, 8.299980e-07/)

k(:, 1, 4, 3) = (/ 1.482230e-05,-2.747200e-07/)

k(:, 1, 5, 3) = (/ 1.482230e-05, 0.000000e+00/)

k(:, 2, 1, 3) = (/ 0.000000e+00, 0.000000e+00/)

k(:, 2, 2, 3) = (/ 0.000000e+00, 0.000000e+00/)

k(:, 2, 3, 3) = (/ 0.000000e+00, 0.000000e+00/)

k(:, 2, 4, 3) = (/ 0.000000e+00, 0.000000e+00/)

k(:, 2, 5, 3) = (/ 0.000000e+00, 0.000000e+00/)

k(:, 1, 1, 4) = (/ 1.403630e-05, 0.000000e+00/)

k(:, 1, 2, 4) = (/ 1.403630e-04, 1.939340e-08/)

k(:, 1, 3, 4) = (/ 1.966730e-05, 1.755230e-08/)

k(:, 1, 4, 4) = (/-1.062540e-05,-4.497190e-07/)

k(:, 1, 5, 4) = (/-1.062540e-05,-4.497190e-07/)

k(:, 2, 1, 4) = (/ 0.000000e+00, 0.000000e+00/)

k(:, 2, 2, 4) = (/ 0.000000e+00, 0.000000e+00/)

k(:, 2, 3, 4) = (/ 0.000000e+00, 0.000000e+00/)

k(:, 2, 4, 4) = (/ 0.000000e+00, 0.000000e+00/)

k(:, 2, 5, 4) = (/ 0.000000e+00, 0.000000e+00/)

k(:, 1, 1, 5) = (/ 0.000000e+00, 0.000000e+00/)

k(:, 1, 2, 5) = (/-2.618850e-05, 1.174180e-07/)

k(:, 1, 3, 5) = (/-4.449210e-05, 4.052410e-07/)

k(:, 1, 4, 5) = (/ 2.124070e-04,-4.271490e-06/)

k(:, 1, 5, 5) = (/ 2.124070e-04,-4.271490e-06/)

k(:, 2, 1, 5) = (/ 0.000000e+00, 0.000000e+00/)

k(:, 2, 2, 5) = (/ 0.000000e+00, 0.000000e+00/)

k(:, 2, 3, 5) = (/ 0.000000e+00, 0.000000e+00/)

k(:, 2, 4, 5) = (/ 0.000000e+00, 0.000000e+00/)

k(:, 2, 5, 5) = (/ 0.000000e+00, 0.000000e+00/)

k(:, 1, 1, 6) = (/ 0.000000e+00, 0.000000e+00/)

k(:, 1, 2, 6) = (/-5.736600e-05,-2.828080e-07/)

k(:, 1, 3, 6) = (/-1.353800e-04,-2.794580e-06/)

k(:, 1, 4, 6) = (/ 2.268140e-04, 3.924680e-06/)

k(:, 1, 5, 6) = (/ 2.268140e-04, 3.924680e-06/)

k(:, 2, 1, 6) = (/ 0.000000e+00, 0.000000e+00/)

k(:, 2, 2, 6) = (/ 0.000000e+00, 0.000000e+00/)

k(:, 2, 3, 6) = (/ 0.000000e+00, 0.000000e+00/)

k(:, 2, 4, 6) = (/ 0.000000e+00, 0.000000e+00/)

k(:, 2, 5, 6) = (/ 0.000000e+00, 0.000000e+00/)

k(:, 1, 1, 7) = (/ 0.000000e+00, 0.000000e+00/)

k(:, 1, 2, 7) = (/ 1.303790e-05,-4.460330e-07/)

k(:, 1, 3, 7) = (/ 8.400290e-05, 1.651570e-07/)

k(:, 1, 4, 7) = (/-1.930350e-04,-3.966430e-08/)

k(:, 1, 5, 7) = (/-1.930350e-04, 0.000000e+00/)

k(:, 2, 1, 7) = (/ 0.000000e+00, 0.000000e+00/)

k(:, 2, 2, 7) = (/ 0.000000e+00, 0.000000e+00/)

k(:, 2, 3, 7) = (/ 0.000000e+00, 0.000000e+00/)

k(:, 2, 4, 7) = (/ 0.000000e+00, 0.000000e+00/)

k(:, 2, 5, 7) = (/ 0.000000e+00, 0.000000e+00/)

k(:, 1, 1, 8) = (/ 0.000000e+00, 0.000000e+00/)

k(:, 1, 2, 8) = (/ 2.200940e-05, 9.830790e-08/)

k(:, 1, 3, 8) = (/ 4.424690e-05, 1.128610e-06/)

k(:, 1, 4, 8) = (/ 1.146040e-05,-1.061750e-07/)

k(:, 1, 5, 8) = (/ 0.000000e+00, 0.000000e+00/)

k(:, 2, 1, 8) = (/ 0.000000e+00, 0.000000e+00/)

k(:, 2, 2, 8) = (/ 0.000000e+00, 0.000000e+00/)

k(:, 2, 3, 8) = (/ 0.000000e+00, 0.000000e+00/)

k(:, 2, 4, 8) = (/ 0.000000e+00, 0.000000e+00/)

k(:, 2, 5, 8) = (/ 0.000000e+00, 0.000000e+00/)

k(:, 1, 1, 9) = (/ 0.000000e+00, 0.000000e+00/)

k(:, 1, 2, 9) = (/ 0.000000e+00, 0.000000e+00/)

k(:, 1, 3, 9) = (/ 0.000000e+00, 0.000000e+00/)

k(:, 1, 4, 9) = (/ 0.000000e+00, 0.000000e+00/)

k(:, 1, 5, 9) = (/ 0.000000e+00, 0.000000e+00/)

k(:, 2, 1, 9) = (/ 0.000000e+00, 0.000000e+00/)

k(:, 2, 2, 9) = (/ 0.000000e+00, 0.000000e+00/)

k(:, 2, 3, 9) = (/ 0.000000e+00, 0.000000e+00/)

k(:, 2, 4, 9) = (/ 0.000000e+00, 0.000000e+00/)

k(:, 2, 5, 9) = (/ 0.000000e+00, 0.000000e+00/)

k(:, 1, 1,10) = (/ 0.000000e+00, 0.000000e+00/)

k(:, 1, 2,10) = (/-1.080000e-03, 7.000000e-03/)

k(:, 1, 3,10) = (/-2.830000e-03, 9.010000e-03/)

k(:, 1, 4,10) = (/ 1.330000e-03, 4.556870e-04/)

k(:, 1, 5,10) = (/ 0.000000e+00, 0.000000e+00/)

k(:, 2, 1,10) = (/ 0.000000e+00, 0.000000e+00/)

k(:, 2, 2,10) = (/ 0.000000e+00, 0.000000e+00/)

k(:, 2, 3,10) = (/ 0.000000e+00, 0.000000e+00/)

k(:, 2, 4,10) = (/ 0.000000e+00, 0.000000e+00/)

k(:, 2, 5,10) = (/ 0.000000e+00, 0.000000e+00/)

k(:, 1, 1,11) = (/ 0.000000e+00, 0.000000e+00/)

k(:, 1, 2,11) = (/ 0.000000e+00, 0.000000e+00/)

k(:, 1, 3,11) = (/ 0.000000e+00, 0.000000e+00/)

k(:, 1, 4,11) = (/ 0.000000e+00, 0.000000e+00/)

k(:, 1, 5,11) = (/ 0.000000e+00, 0.000000e+00/)

k(:, 2, 1,11) = (/ 0.000000e+00, 0.000000e+00/)

k(:, 2, 2,11) = (/ 0.000000e+00, 0.000000e+00/)

k(:, 2, 3,11) = (/ 0.000000e+00, 0.000000e+00/)

k(:, 2, 4,11) = (/ 0.000000e+00, 0.000000e+00/)

k(:, 2, 5,11) = (/ 0.000000e+00, 0.000000e+00/)

!--- END generated by "python gen_uijparam.py u23-t_param.txt 1"

end select
end subroutine assignparamuij_t
end subroutine pot

!=================================================================

! *def preopt

! Dummy subroutine for interfacing with ANT.

!=================================================================

subroutine prepot

implicit none

return