!
      module protons_module
      implicit none
      integer,parameter,dimension(5) :: ntimes = (/120,144,240,168,144/)
      real,dimension(240,5) :: fe,eo,hour
      integer,dimension(240,5) :: iday
      contains
!-----------------------------------------------------------------------
      subroutine protons_data
!
! Proton flux parameters for July 14-18, 2000 Solar Proton Event
      fe(1:120,1)=(/
     | 5.370e+02, 5.338e+02, 4.851e+02, 4.398e+02, 4.476e+02, 4.578e+02,
     | 4.291e+02, 4.227e+02, 4.001e+02, 3.796e+02, 1.552e+03, 3.803e+05,
     | 6.947e+05, 5.005e+05, 3.962e+05, 4.302e+05, 7.033e+05, 7.091e+05,
     | 7.551e+05, 7.224e+05, 6.921e+05, 7.458e+05, 7.575e+05, 7.253e+05,
     | 7.679e+05, 7.915e+05, 8.804e+05, 1.105e+06, 1.343e+06, 1.287e+06,
     | 1.306e+06, 1.322e+06, 1.359e+06, 1.695e+06, 1.709e+06, 1.827e+06,
     | 2.006e+06, 1.859e+06, 1.844e+06, 1.235e+06, 9.673e+05, 8.286e+05,
     | 6.540e+05, 3.678e+05, 1.133e+05, 1.214e+05, 1.007e+05, 7.554e+04,
     | 5.989e+04, 5.059e+04, 5.302e+04, 4.488e+04, 4.379e+04, 3.235e+04,
     | 3.047e+04, 2.951e+04, 2.511e+04, 2.263e+04, 2.857e+04, 3.500e+04,
     | 3.431e+04, 2.632e+04, 2.744e+04, 2.199e+04, 2.081e+04, 1.914e+04,
     | 1.620e+04, 1.443e+04, 1.438e+04, 1.425e+04, 1.355e+04, 1.372e+04,
     | 1.500e+04, 1.675e+04, 1.577e+04, 1.538e+04, 1.461e+04, 1.369e+04,
     | 1.257e+04, 1.132e+04, 1.027e+04, 9.116e+03, 8.037e+03, 7.090e+03,
     | 6.900e+03, 6.495e+03, 5.689e+03, 4.848e+03, 4.409e+03, 4.204e+03,
     | 4.313e+03, 4.365e+03, 4.285e+03, 4.292e+03, 4.170e+03, 4.097e+03,
     | 4.334e+03, 4.259e+03, 4.329e+03, 4.208e+03, 3.856e+03, 3.822e+03,
     | 3.562e+03, 3.403e+03, 3.145e+03, 2.983e+03, 2.990e+03, 2.849e+03,
     | 2.478e+03, 2.533e+03, 2.491e+03, 2.291e+03, 2.096e+03, 2.143e+03,
     | 2.028e+03, 2.052e+03, 2.040e+03, 2.067e+03, 1.999e+03, 1.872e+03
     | /)
      eo(1:120,1)=(/
     | 4.166e+00, 4.132e+00, 4.081e+00, 4.057e+00, 4.094e+00, 4.056e+00,
     | 4.128e+00, 4.141e+00, 4.207e+00, 4.248e+00, 1.594e+01, 1.564e+02,
     | 1.041e+02, 3.611e+01, 2.433e+01, 2.011e+01, 1.703e+01, 1.525e+01,
     | 1.400e+01, 1.346e+01, 1.355e+01, 1.276e+01, 1.233e+01, 1.204e+01,
     | 1.156e+01, 1.123e+01, 1.075e+01, 1.039e+01, 1.024e+01, 9.950e+00,
     | 9.680e+00, 9.252e+00, 9.029e+00, 9.186e+00, 8.754e+00, 8.842e+00,
     | 8.505e+00, 8.159e+00, 8.026e+00, 6.951e+00, 6.459e+00, 6.345e+00,
     | 6.199e+00, 5.997e+00, 6.022e+00, 6.092e+00, 6.127e+00, 5.929e+00,
     | 5.898e+00, 5.978e+00, 5.913e+00, 5.970e+00, 5.760e+00, 5.987e+00,
     | 6.027e+00, 6.079e+00, 6.062e+00, 6.035e+00, 6.372e+00, 6.160e+00,
     | 6.157e+00, 6.442e+00, 6.595e+00, 6.831e+00, 6.935e+00, 7.042e+00,
     | 7.221e+00, 7.179e+00, 7.074e+00, 6.896e+00, 6.606e+00, 6.355e+00,
     | 6.123e+00, 5.948e+00, 5.820e+00, 5.778e+00, 5.818e+00, 5.848e+00,
     | 5.846e+00, 5.955e+00, 5.906e+00, 5.958e+00, 5.968e+00, 6.022e+00,
     | 6.067e+00, 6.066e+00, 6.182e+00, 6.386e+00, 6.473e+00, 6.412e+00,
     | 6.286e+00, 6.179e+00, 6.147e+00, 5.991e+00, 5.855e+00, 5.716e+00,
     | 5.672e+00, 5.515e+00, 5.373e+00, 5.410e+00, 5.461e+00, 5.439e+00,
     | 5.318e+00, 5.441e+00, 5.490e+00, 5.386e+00, 5.554e+00, 5.600e+00,
     | 5.706e+00, 5.713e+00, 5.653e+00, 5.608e+00, 5.751e+00, 5.696e+00,
     | 5.499e+00, 5.584e+00, 5.410e+00, 5.475e+00, 5.439e+00, 5.416e+00
     | /)
      iday(1:120,1)=(/
     |  196, 196, 196, 196, 196, 196, 196, 196, 196, 196, 196, 196,
     |  196, 196, 196, 196, 196, 196, 196, 196, 196, 196, 196, 196,
     |  197, 197, 197, 197, 197, 197, 197, 197, 197, 197, 197, 197,
     |  197, 197, 197, 197, 197, 197, 197, 197, 197, 197, 197, 197,
     |  198, 198, 198, 198, 198, 198, 198, 198, 198, 198, 198, 198,
     |  198, 198, 198, 198, 198, 198, 198, 198, 198, 198, 198, 198,
     |  199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199,
     |  199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199, 199,
     |  200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200,
     |  200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200, 200
     | /)
      hour(1:120,1)=(/
     |  0.5, 1.5, 2.5, 3.5, 4.5, 5.5, 6.5, 7.5, 8.5, 9.5,10.5,11.5,
     | 12.5,13.5,14.5,15.5,16.5,17.5,18.5,19.5,20.5,21.5,22.5,23.5,
     |  0.5, 1.5, 2.5, 3.5, 4.5, 5.5, 6.5, 7.5, 8.5, 9.5,10.5,11.5,
     | 12.5,13.5,14.5,15.5,16.5,17.5,18.5,19.5,20.5,21.5,22.5,23.5,
     |  0.5, 1.5, 2.5, 3.5, 4.5, 5.5, 6.5, 7.5, 8.5, 9.5,10.5,11.5,
     | 12.5,13.5,14.5,15.5,16.5,17.5,18.5,19.5,20.5,21.5,22.5,23.5,
     |  0.5, 1.5, 2.5, 3.5, 4.5, 5.5, 6.5, 7.5, 8.5, 9.5,10.5,11.5,
     | 12.5,13.5,14.5,15.5,16.5,17.5,18.5,19.5,20.5,21.5,22.5,23.5,
     |  0.5, 1.5, 2.5, 3.5, 4.5, 5.5, 6.5, 7.5, 8.5, 9.5,10.5,11.5,
     | 12.5,13.5,14.5,15.5,16.5,17.5,18.5,19.5,20.5,21.5,22.5,23.5
     | /)
!
! Proton flux parameters for November 8-13, 2000 Solar Proton Event
      fe(1:144,2)=(/
     | 1.436e+01, 1.145e+01, 1.309e+01, 1.237e+01, 1.275e+01, 1.080e+01,
     | 1.425e+01, 1.341e+01, 1.119e+01, 1.231e+01, 1.292e+01, 1.361e+01,
     | 1.192e+01, 1.458e+01, 1.391e+01, 1.626e+01, 1.733e+01, 1.259e+01,
     | 1.379e+01, 1.566e+01, 1.321e+01, 1.341e+01, 1.248e+01, 1.228e+03,
     | 1.626e+05, 4.880e+05, 6.858e+05, 8.596e+05, 9.473e+05, 9.977e+05,
     | 1.054e+06, 1.026e+06, 9.610e+05, 1.084e+06, 1.113e+06, 1.080e+06,
     | 1.032e+06, 1.027e+06, 9.566e+05, 1.028e+06, 9.316e+05, 8.217e+05,
     | 7.966e+05, 7.797e+05, 7.148e+05, 6.469e+05, 5.629e+05, 5.041e+05,
     | 4.015e+05, 3.049e+05, 2.851e+05, 2.553e+05, 2.374e+05, 2.187e+05,
     | 1.896e+05, 1.101e+05, 7.151e+04, 9.275e+04, 9.392e+04, 8.342e+04,
     | 1.058e+05, 7.999e+04, 5.872e+04, 5.401e+04, 5.356e+04, 4.946e+04,
     | 5.108e+04, 4.712e+04, 4.328e+04, 4.208e+04, 3.955e+04, 3.488e+04,
     | 3.344e+04, 3.050e+04, 2.698e+04, 2.621e+04, 2.423e+04, 1.543e+04,
     | 1.175e+04, 6.632e+03, 3.996e+03, 2.214e+03, 1.305e+03, 1.071e+03,
     | 1.291e+03, 1.224e+03, 1.597e+03, 1.913e+03, 2.007e+03, 2.054e+03,
     | 1.946e+03, 1.923e+03, 1.912e+03, 1.987e+03, 1.853e+03, 1.988e+03,
     | 2.055e+03, 2.123e+03, 2.015e+03, 1.933e+03, 1.819e+03, 1.875e+03,
     | 1.869e+03, 1.817e+03, 1.751e+03, 1.722e+03, 1.786e+03, 1.744e+03,
     | 1.586e+03, 1.581e+03, 1.614e+03, 1.583e+03, 1.561e+03, 1.355e+03,
     | 1.310e+03, 1.325e+03, 1.280e+03, 1.001e+03, 8.489e+02, 8.619e+02,
     | 9.062e+02, 8.352e+02, 8.520e+02, 8.421e+02, 8.695e+02, 8.452e+02,
     | 7.974e+02, 7.981e+02, 7.706e+02, 7.451e+02, 7.021e+02, 7.074e+02,
     | 7.042e+02, 6.948e+02, 6.458e+02, 6.401e+02, 5.542e+02, 5.472e+02,
     | 5.510e+02, 5.538e+02, 5.294e+02, 5.152e+02, 5.162e+02, 4.861e+02
     | /)
      eo(1:144,2)=(/
     | 1.444e+01, 1.302e+01, 1.152e+01, 1.358e+01, 1.339e+01, 1.327e+01,
     | 1.487e+01, 1.530e+01, 1.495e+01, 1.566e+01, 1.693e+01, 1.299e+01,
     | 1.695e+01, 1.575e+01, 1.460e+01, 1.923e+01, 1.527e+01, 1.637e+01,
     | 1.414e+01, 1.727e+01, 1.510e+01, 1.357e+01, 1.278e+01, 2.428e+01,
     | 1.691e+01, 1.604e+01, 1.630e+01, 1.684e+01, 1.597e+01, 1.497e+01,
     | 1.371e+01, 1.322e+01, 1.278e+01, 1.227e+01, 1.202e+01, 1.174e+01,
     | 1.158e+01, 1.147e+01, 1.088e+01, 9.817e+00, 8.372e+00, 7.525e+00,
     | 7.154e+00, 6.990e+00, 6.859e+00, 6.667e+00, 6.522e+00, 6.463e+00,
     | 6.652e+00, 6.636e+00, 6.441e+00, 6.422e+00, 6.394e+00, 6.346e+00,
     | 6.274e+00, 6.341e+00, 6.475e+00, 6.264e+00, 6.234e+00, 6.234e+00,
     | 6.084e+00, 6.324e+00, 6.608e+00, 6.662e+00, 6.608e+00, 6.751e+00,
     | 6.604e+00, 6.840e+00, 6.994e+00, 6.892e+00, 6.856e+00, 6.998e+00,
     | 7.036e+00, 6.953e+00, 6.939e+00, 6.898e+00, 6.890e+00, 7.078e+00,
     | 7.197e+00, 7.700e+00, 8.049e+00, 8.523e+00, 8.938e+00, 9.126e+00,
     | 9.187e+00, 9.564e+00, 9.189e+00, 8.815e+00, 8.737e+00, 8.660e+00,
     | 8.655e+00, 8.684e+00, 8.676e+00, 8.448e+00, 8.244e+00, 8.219e+00,
     | 8.161e+00, 8.038e+00, 8.135e+00, 8.233e+00, 8.461e+00, 8.273e+00,
     | 8.167e+00, 8.255e+00, 8.165e+00, 8.110e+00, 8.368e+00, 8.329e+00,
     | 8.463e+00, 8.314e+00, 8.254e+00, 8.299e+00, 8.139e+00, 8.481e+00,
     | 8.495e+00, 8.248e+00, 8.116e+00, 8.237e+00, 8.936e+00, 8.564e+00,
     | 8.197e+00, 8.156e+00, 8.194e+00, 8.125e+00, 8.020e+00, 8.434e+00,
     | 8.298e+00, 8.275e+00, 8.338e+00, 8.316e+00, 8.534e+00, 8.451e+00,
     | 8.100e+00, 8.298e+00, 8.068e+00, 8.592e+00, 8.564e+00, 8.942e+00,
     | 8.725e+00, 8.614e+00, 8.560e+00, 8.299e+00, 8.099e+00, 8.242e+00
     | /)
      iday(1:144,2)=(/
     |  313, 313, 313, 313, 313, 313, 313, 313, 313, 313, 313, 313,
     |  313, 313, 313, 313, 313, 313, 313, 313, 313, 313, 313, 313,
     |  314, 314, 314, 314, 314, 314, 314, 314, 314, 314, 314, 314,
     |  314, 314, 314, 314, 314, 314, 314, 314, 314, 314, 314, 314,
     |  315, 315, 315, 315, 315, 315, 315, 315, 315, 315, 315, 315,
     |  315, 315, 315, 315, 315, 315, 315, 315, 315, 315, 315, 315,
     |  316, 316, 316, 316, 316, 316, 316, 316, 316, 316, 316, 316,
     |  316, 316, 316, 316, 316, 316, 316, 316, 316, 316, 316, 316,
     |  317, 317, 317, 317, 317, 317, 317, 317, 317, 317, 317, 317,
     |  317, 317, 317, 317, 317, 317, 317, 317, 317, 317, 317, 317,
     |  318, 318, 318, 318, 318, 318, 318, 318, 318, 318, 318, 318,
     |  318, 318, 318, 318, 318, 318, 318, 318, 318, 318, 318, 318
     | /)
      hour(1:144,2)=(/
     |  0.5, 1.5, 2.5, 3.5, 4.5, 5.5, 6.5, 7.5, 8.5, 9.5,10.5,11.5,
     | 12.5,13.5,14.5,15.5,16.5,17.5,18.5,19.5,20.5,21.5,22.5,23.5,
     |  0.5, 1.5, 2.5, 3.5, 4.5, 5.5, 6.5, 7.5, 8.5, 9.5,10.5,11.5,
     | 12.5,13.5,14.5,15.5,16.5,17.5,18.5,19.5,20.5,21.5,22.5,23.5,
     |  0.5, 1.5, 2.5, 3.5, 4.5, 5.5, 6.5, 7.5, 8.5, 9.5,10.5,11.5,
     | 12.5,13.5,14.5,15.5,16.5,17.5,18.5,19.5,20.5,21.5,22.5,23.5,
     |  0.5, 1.5, 2.5, 3.5, 4.5, 5.5, 6.5, 7.5, 8.5, 9.5,10.5,11.5,
     | 12.5,13.5,14.5,15.5,16.5,17.5,18.5,19.5,20.5,21.5,22.5,23.5,
     |  0.5, 1.5, 2.5, 3.5, 4.5, 5.5, 6.5, 7.5, 8.5, 9.5,10.5,11.5,
     | 12.5,13.5,14.5,15.5,16.5,17.5,18.5,19.5,20.5,21.5,22.5,23.5,
     |  0.5, 1.5, 2.5, 3.5, 4.5, 5.5, 6.5, 7.5, 8.5, 9.5,10.5,11.5,
     | 12.5,13.5,14.5,15.5,16.5,17.5,18.5,19.5,20.5,21.5,22.5,23.5
     | /)
!
! Proton flux parameters for September 24 - October 3, 2001 Solar Proton Event
      fe(1:240,3)=(/
     | 1.918e+01, 1.836e+01, 1.596e+01, 1.682e+01, 1.423e+01, 1.473e+01,
     | 1.931e+01, 1.748e+01, 1.439e+01, 1.759e+01, 1.664e+01, 1.492e+02,
     | 2.321e+03, 6.584e+03, 9.583e+03, 2.110e+04, 4.969e+04, 6.970e+04,
     | 7.833e+04, 7.814e+04, 8.655e+04, 1.019e+05, 1.310e+05, 1.456e+05,
     | 1.501e+05, 1.492e+05, 1.572e+05, 1.676e+05, 1.798e+05, 1.957e+05,
     | 1.989e+05, 2.239e+05, 2.346e+05, 2.280e+05, 2.183e+05, 1.987e+05,
     | 2.140e+05, 2.318e+05, 2.292e+05, 2.315e+05, 2.291e+05, 2.335e+05,
     | 2.513e+05, 2.922e+05, 3.984e+05, 7.409e+05, 1.037e+06, 7.887e+05,
     | 6.374e+05, 5.263e+05, 5.230e+05, 4.727e+05, 4.357e+05, 3.955e+05,
     | 3.556e+05, 3.291e+05, 2.924e+05, 2.710e+05, 2.493e+05, 2.241e+05,
     | 2.036e+05, 1.811e+05, 1.681e+05, 1.464e+05, 1.409e+05, 1.327e+05,
     | 1.192e+05, 1.140e+05, 1.079e+05, 1.025e+05, 9.665e+04, 9.264e+04,
     | 8.786e+04, 8.247e+04, 7.855e+04, 7.650e+04, 7.525e+04, 6.808e+04,
     | 6.435e+04, 5.994e+04, 5.817e+04, 5.362e+04, 5.006e+04, 4.346e+04,
     | 3.406e+04, 3.108e+04, 2.971e+04, 3.170e+04, 3.122e+04, 3.316e+04,
     | 3.253e+04, 2.906e+04, 2.922e+04, 2.791e+04, 2.699e+04, 2.711e+04,
     | 2.572e+04, 2.529e+04, 2.358e+04, 2.256e+04, 2.166e+04, 2.143e+04,
     | 1.992e+04, 1.982e+04, 1.766e+04, 1.692e+04, 1.765e+04, 1.598e+04,
     | 1.452e+04, 1.446e+04, 1.462e+04, 1.533e+04, 1.416e+04, 1.235e+04,
     | 1.089e+04, 1.192e+04, 1.188e+04, 1.078e+04, 1.031e+04, 1.077e+04,
     | 1.073e+04, 1.053e+04, 9.843e+03, 9.308e+03, 9.021e+03, 8.735e+03,
     | 8.462e+03, 8.414e+03, 7.947e+03, 7.775e+03, 6.352e+03, 5.380e+03,
     | 4.764e+03, 4.229e+03, 3.850e+03, 3.771e+03, 3.599e+03, 3.475e+03,
     | 3.195e+03, 3.087e+03, 2.907e+03, 2.844e+03, 2.600e+03, 2.478e+03,
     | 2.426e+03, 2.269e+03, 1.840e+03, 1.666e+03, 1.675e+03, 1.583e+03,
     | 1.442e+03, 1.388e+03, 1.281e+03, 1.134e+03, 1.077e+03, 1.008e+03,
     | 9.474e+02, 1.042e+03, 1.054e+03, 9.716e+02, 1.041e+03, 1.015e+03,
     | 9.065e+02, 9.758e+02, 9.098e+02, 9.063e+02, 6.932e+02, 7.855e+02,
     | 8.672e+02, 1.002e+03, 1.165e+03, 1.123e+03, 1.232e+03, 1.199e+03,
     | 1.106e+03, 1.062e+03, 1.042e+03, 1.129e+03, 1.155e+03, 1.219e+03,
     | 1.410e+03, 1.521e+03, 4.106e+03, 8.545e+03, 1.234e+04, 1.665e+04,
     | 2.180e+04, 2.886e+04, 3.638e+04, 4.268e+04, 4.548e+04, 3.954e+04,
     | 4.026e+04, 3.269e+04, 3.814e+04, 4.279e+04, 4.980e+04, 9.232e+04,
     | 8.882e+04, 1.305e+05, 1.662e+05, 1.209e+05, 7.966e+04, 6.636e+04,
     | 5.938e+04, 5.106e+04, 3.652e+04, 2.375e+04, 2.167e+04, 2.142e+04,
     | 1.975e+04, 1.474e+04, 1.453e+04, 1.194e+04, 1.384e+04, 1.191e+04,
     | 1.212e+04, 1.000e+04, 9.902e+03, 9.652e+03, 9.392e+03, 9.066e+03,
     | 7.339e+03, 1.013e+04, 1.487e+04, 1.247e+04, 1.205e+04, 1.194e+04,
     | 5.047e+03, 4.742e+03, 5.060e+03, 4.449e+03, 4.570e+03, 4.158e+03,
     | 3.421e+03, 3.296e+03, 3.219e+03, 2.975e+03, 2.808e+03, 2.767e+03
     | /)
      eo(1:240,3)=(/
     | 1.380e+01, 1.371e+01, 1.256e+01, 1.289e+01, 1.682e+01, 1.664e+01,
     | 1.439e+01, 1.336e+01, 1.374e+01, 1.267e+01, 1.242e+01, 3.500e+01,
     | 2.034e+01, 1.281e+01, 1.150e+01, 1.105e+01, 1.057e+01, 1.099e+01,
     | 1.069e+01, 1.129e+01, 1.071e+01, 9.773e+00, 9.535e+00, 9.541e+00,
     | 9.383e+00, 9.640e+00, 9.455e+00, 9.019e+00, 8.870e+00, 8.768e+00,
     | 9.140e+00, 9.430e+00, 9.440e+00, 9.443e+00, 9.546e+00, 9.679e+00,
     | 9.615e+00, 9.322e+00, 9.328e+00, 9.315e+00, 9.303e+00, 9.146e+00,
     | 8.628e+00, 8.078e+00, 7.262e+00, 6.539e+00, 6.215e+00, 6.478e+00,
     | 6.435e+00, 6.444e+00, 6.424e+00, 6.368e+00, 6.319e+00, 6.207e+00,
     | 6.133e+00, 6.117e+00, 6.085e+00, 6.077e+00, 6.064e+00, 5.990e+00,
     | 5.945e+00, 5.966e+00, 5.908e+00, 5.968e+00, 5.860e+00, 5.830e+00,
     | 5.851e+00, 5.810e+00, 5.709e+00, 5.681e+00, 5.649e+00, 5.576e+00,
     | 5.569e+00, 5.556e+00, 5.560e+00, 5.529e+00, 5.465e+00, 5.539e+00,
     | 5.555e+00, 5.596e+00, 5.585e+00, 5.596e+00, 5.578e+00, 5.580e+00,
     | 5.856e+00, 5.911e+00, 5.931e+00, 5.791e+00, 5.759e+00, 5.620e+00,
     | 5.600e+00, 5.704e+00, 5.592e+00, 5.631e+00, 5.597e+00, 5.518e+00,
     | 5.552e+00, 5.451e+00, 5.479e+00, 5.478e+00, 5.447e+00, 5.444e+00,
     | 5.480e+00, 5.450e+00, 5.556e+00, 5.589e+00, 5.447e+00, 5.545e+00,
     | 5.608e+00, 5.567e+00, 5.492e+00, 5.355e+00, 5.365e+00, 5.501e+00,
     | 5.619e+00, 5.423e+00, 5.361e+00, 5.483e+00, 5.388e+00, 5.370e+00,
     | 5.334e+00, 5.292e+00, 5.345e+00, 5.329e+00, 5.373e+00, 5.351e+00,
     | 5.385e+00, 5.338e+00, 5.388e+00, 5.443e+00, 5.474e+00, 5.547e+00,
     | 5.541e+00, 5.524e+00, 5.549e+00, 5.631e+00, 5.533e+00, 5.518e+00,
     | 5.559e+00, 5.604e+00, 5.648e+00, 5.625e+00, 5.690e+00, 5.807e+00,
     | 5.682e+00, 5.746e+00, 5.695e+00, 5.520e+00, 5.594e+00, 5.620e+00,
     | 5.631e+00, 5.556e+00, 5.589e+00, 5.821e+00, 5.641e+00, 5.889e+00,
     | 6.016e+00, 5.981e+00, 5.952e+00, 5.961e+00, 5.828e+00, 5.730e+00,
     | 5.858e+00, 5.802e+00, 5.693e+00, 5.623e+00, 5.746e+00, 5.856e+00,
     | 5.639e+00, 5.616e+00, 5.355e+00, 5.392e+00, 5.454e+00, 5.684e+00,
     | 5.734e+00, 5.764e+00, 5.683e+00, 5.848e+00, 5.839e+00, 5.911e+00,
     | 6.147e+00, 6.561e+00, 7.093e+00, 6.936e+00, 6.708e+00, 6.672e+00,
     | 6.656e+00, 6.904e+00, 6.701e+00, 6.752e+00, 6.600e+00, 6.546e+00,
     | 6.755e+00, 6.751e+00, 6.493e+00, 6.420e+00, 6.332e+00, 6.347e+00,
     | 6.326e+00, 6.132e+00, 6.091e+00, 6.190e+00, 6.103e+00, 5.959e+00,
     | 5.859e+00, 5.779e+00, 5.761e+00, 5.912e+00, 5.885e+00, 5.461e+00,
     | 5.315e+00, 5.337e+00, 5.190e+00, 5.244e+00, 5.179e+00, 5.223e+00,
     | 5.100e+00, 5.045e+00, 4.910e+00, 4.899e+00, 4.866e+00, 4.823e+00,
     | 4.843e+00, 4.640e+00, 4.738e+00, 4.955e+00, 4.613e+00, 4.516e+00,
     | 4.521e+00, 4.404e+00, 4.562e+00, 4.700e+00, 4.514e+00, 4.459e+00,
     | 4.328e+00, 4.411e+00, 4.299e+00, 4.396e+00, 4.220e+00, 4.376e+00
     | /)
      iday(1:240,3)=(/
     |  267, 267, 267, 267, 267, 267, 267, 267, 267, 267, 267, 267,
     |  267, 267, 267, 267, 267, 267, 267, 267, 267, 267, 267, 267,
     |  268, 268, 268, 268, 268, 268, 268, 268, 268, 268, 268, 268,
     |  268, 268, 268, 268, 268, 268, 268, 268, 268, 268, 268, 268,
     |  269, 269, 269, 269, 269, 269, 269, 269, 269, 269, 269, 269,
     |  269, 269, 269, 269, 269, 269, 269, 269, 269, 269, 269, 269,
     |  270, 270, 270, 270, 270, 270, 270, 270, 270, 270, 270, 270,
     |  270, 270, 270, 270, 270, 270, 270, 270, 270, 270, 270, 270,
     |  271, 271, 271, 271, 271, 271, 271, 271, 271, 271, 271, 271,
     |  271, 271, 271, 271, 271, 271, 271, 271, 271, 271, 271, 271,
     |  272, 272, 272, 272, 272, 272, 272, 272, 272, 272, 272, 272,
     |  272, 272, 272, 272, 272, 272, 272, 272, 272, 272, 272, 272,
     |  273, 273, 273, 273, 273, 273, 273, 273, 273, 273, 273, 273,
     |  273, 273, 273, 273, 273, 273, 273, 273, 273, 273, 273, 273,
     |  274, 274, 274, 274, 274, 274, 274, 274, 274, 274, 274, 274,
     |  274, 274, 274, 274, 274, 274, 274, 274, 274, 274, 274, 274,
     |  275, 275, 275, 275, 275, 275, 275, 275, 275, 275, 275, 275,
     |  275, 275, 275, 275, 275, 275, 275, 275, 275, 275, 275, 275,
     |  276, 276, 276, 276, 276, 276, 276, 276, 276, 276, 276, 276,
     |  276, 276, 276, 276, 276, 276, 276, 276, 276, 276, 276, 276
     | /)
      hour(1:240,3)=(/
     |  0.5, 1.5, 2.5, 3.5, 4.5, 5.5, 6.5, 7.5, 8.5, 9.5,10.5,11.5,
     | 12.5,13.5,14.5,15.5,16.5,17.5,18.5,19.5,20.5,21.5,22.5,23.5,
     |  0.5, 1.5, 2.5, 3.5, 4.5, 5.5, 6.5, 7.5, 8.5, 9.5,10.5,11.5,
     | 12.5,13.5,14.5,15.5,16.5,17.5,18.5,19.5,20.5,21.5,22.5,23.5,
     |  0.5, 1.5, 2.5, 3.5, 4.5, 5.5, 6.5, 7.5, 8.5, 9.5,10.5,11.5,
     | 12.5,13.5,14.5,15.5,16.5,17.5,18.5,19.5,20.5,21.5,22.5,23.5,
     |  0.5, 1.5, 2.5, 3.5, 4.5, 5.5, 6.5, 7.5, 8.5, 9.5,10.5,11.5,
     | 12.5,13.5,14.5,15.5,16.5,17.5,18.5,19.5,20.5,21.5,22.5,23.5,
     |  0.5, 1.5, 2.5, 3.5, 4.5, 5.5, 6.5, 7.5, 8.5, 9.5,10.5,11.5,
     | 12.5,13.5,14.5,15.5,16.5,17.5,18.5,19.5,20.5,21.5,22.5,23.5,
     |  0.5, 1.5, 2.5, 3.5, 4.5, 5.5, 6.5, 7.5, 8.5, 9.5,10.5,11.5,
     | 12.5,13.5,14.5,15.5,16.5,17.5,18.5,19.5,20.5,21.5,22.5,23.5,
     |  0.5, 1.5, 2.5, 3.5, 4.5, 5.5, 6.5, 7.5, 8.5, 9.5,10.5,11.5,
     | 12.5,13.5,14.5,15.5,16.5,17.5,18.5,19.5,20.5,21.5,22.5,23.5,
     |  0.5, 1.5, 2.5, 3.5, 4.5, 5.5, 6.5, 7.5, 8.5, 9.5,10.5,11.5,
     | 12.5,13.5,14.5,15.5,16.5,17.5,18.5,19.5,20.5,21.5,22.5,23.5,
     |  0.5, 1.5, 2.5, 3.5, 4.5, 5.5, 6.5, 7.5, 8.5, 9.5,10.5,11.5,
     | 12.5,13.5,14.5,15.5,16.5,17.5,18.5,19.5,20.5,21.5,22.5,23.5,
     |  0.5, 1.5, 2.5, 3.5, 4.5, 5.5, 6.5, 7.5, 8.5, 9.5,10.5,11.5,
     | 12.5,13.5,14.5,15.5,16.5,17.5,18.5,19.5,20.5,21.5,22.5,23.5
     | /)
!
! Proton flux parameters for November 4-10, 2001 Solar Proton Event
      fe(1:168,4)=(/
     | 2.003e+01, 1.678e+01, 1.733e+01, 2.371e+01, 1.991e+01, 1.649e+01,
     | 1.863e+01, 2.049e+01, 1.750e+01, 1.578e+01, 1.612e+01, 1.649e+01,
     | 2.018e+01, 1.710e+01, 2.772e+01, 2.172e+01, 2.417e+02, 3.039e+04,
     | 8.204e+04, 1.028e+05, 1.431e+05, 1.086e+05, 1.208e+05, 1.490e+05,
     | 1.847e+05, 1.903e+05, 1.917e+05, 2.567e+05, 2.790e+05, 2.308e+05,
     | 1.896e+05, 2.456e+05, 2.995e+05, 2.765e+05, 3.058e+05, 3.359e+05,
     | 2.182e+05, 2.355e+05, 3.234e+05, 3.099e+05, 4.059e+05, 6.510e+05,
     | 7.449e+05, 5.788e+05, 8.605e+05, 1.699e+06, 1.894e+06, 2.009e+06,
     | 2.115e+06, 2.069e+06, 2.509e+06, 1.786e+06, 2.115e+06, 2.231e+06,
     | 8.112e+05, 4.410e+05, 3.943e+05, 2.590e+05, 2.551e+05, 2.206e+05,
     | 2.175e+05, 1.442e+05, 1.141e+05, 1.050e+05, 7.540e+04, 7.110e+04,
     | 6.655e+04, 6.074e+04, 5.786e+04, 5.589e+04, 5.063e+04, 4.706e+04,
     | 4.567e+04, 4.738e+04, 4.421e+04, 4.114e+04, 3.789e+04, 3.372e+04,
     | 3.132e+04, 3.289e+04, 3.088e+04, 3.198e+04, 3.235e+04, 3.215e+04,
     | 2.866e+04, 2.735e+04, 2.506e+04, 2.257e+04, 1.919e+04, 1.991e+04,
     | 1.832e+04, 1.495e+04, 1.469e+04, 1.566e+04, 1.216e+04, 1.063e+04,
     | 1.073e+04, 1.275e+04, 9.742e+03, 9.941e+03, 1.281e+04, 1.203e+04,
     | 1.124e+04, 1.113e+04, 1.011e+04, 8.075e+03, 7.979e+03, 7.244e+03,
     | 6.855e+03, 5.782e+03, 4.819e+03, 4.120e+03, 3.694e+03, 3.554e+03,
     | 3.423e+03, 3.246e+03, 3.095e+03, 3.372e+03, 3.271e+03, 2.655e+03,
     | 2.711e+03, 3.185e+03, 2.656e+03, 2.785e+03, 2.116e+03, 1.589e+03,
     | 1.189e+03, 1.165e+03, 1.203e+03, 1.273e+03, 1.336e+03, 1.157e+03,
     | 9.881e+02, 9.799e+02, 8.816e+02, 8.940e+02, 8.908e+02, 9.610e+02,
     | 9.035e+02, 8.257e+02, 9.833e+02, 1.113e+03, 1.104e+03, 1.092e+03,
     | 1.116e+03, 1.121e+03, 1.095e+03, 1.103e+03, 1.048e+03, 9.960e+02,
     | 9.345e+02, 9.003e+02, 8.899e+02, 9.176e+02, 8.732e+02, 8.379e+02,
     | 7.442e+02, 6.475e+02, 6.119e+02, 6.609e+02, 6.049e+02, 6.188e+02,
     | 6.774e+02, 6.334e+02, 6.159e+02, 7.293e+02, 6.841e+02, 6.358e+02
     | /)
      eo(1:168,4)=(/
     | 1.334e+01, 1.471e+01, 1.539e+01, 1.242e+01, 1.233e+01, 1.355e+01,
     | 1.435e+01, 1.628e+01, 1.555e+01, 1.218e+01, 1.267e+01, 1.421e+01,
     | 1.673e+01, 1.490e+01, 1.317e+01, 1.629e+01, 4.753e+01, 9.127e+01,
     | 8.036e+01, 2.853e+01, 1.649e+01, 1.461e+01, 1.403e+01, 1.288e+01,
     | 1.112e+01, 1.086e+01, 1.048e+01, 1.107e+01, 1.095e+01, 1.047e+01,
     | 9.886e+00, 1.009e+01, 1.039e+01, 9.979e+00, 9.579e+00, 9.871e+00,
     | 9.977e+00, 9.309e+00, 9.043e+00, 8.661e+00, 9.003e+00, 9.925e+00,
     | 9.375e+00, 8.879e+00, 9.462e+00, 9.188e+00, 8.814e+00, 8.669e+00,
     | 8.505e+00, 8.467e+00, 8.343e+00, 8.332e+00, 7.919e+00, 7.905e+00,
     | 7.214e+00, 6.636e+00, 6.407e+00, 6.123e+00, 6.128e+00, 6.119e+00,
     | 6.221e+00, 6.171e+00, 6.682e+00, 6.681e+00, 7.095e+00, 6.818e+00,
     | 6.768e+00, 6.731e+00, 6.747e+00, 6.598e+00, 6.598e+00, 6.559e+00,
     | 6.477e+00, 6.510e+00, 6.419e+00, 6.409e+00, 6.405e+00, 6.503e+00,
     | 6.532e+00, 6.419e+00, 6.402e+00, 6.347e+00, 6.282e+00, 6.083e+00,
     | 5.959e+00, 5.931e+00, 5.962e+00, 6.015e+00, 6.143e+00, 6.002e+00,
     | 5.957e+00, 6.170e+00, 6.004e+00, 5.781e+00, 5.960e+00, 6.178e+00,
     | 5.969e+00, 5.536e+00, 5.902e+00, 5.763e+00, 5.314e+00, 5.274e+00,
     | 5.238e+00, 5.173e+00, 5.169e+00, 5.387e+00, 5.360e+00, 5.315e+00,
     | 5.294e+00, 5.333e+00, 5.591e+00, 5.553e+00, 5.678e+00, 5.621e+00,
     | 5.568e+00, 5.553e+00, 5.508e+00, 5.242e+00, 5.142e+00, 5.489e+00,
     | 5.360e+00, 5.129e+00, 5.262e+00, 5.066e+00, 5.310e+00, 5.582e+00,
     | 5.862e+00, 6.088e+00, 5.917e+00, 5.759e+00, 5.643e+00, 5.744e+00,
     | 6.000e+00, 6.028e+00, 5.660e+00, 5.942e+00, 5.920e+00, 5.898e+00,
     | 5.537e+00, 5.643e+00, 5.368e+00, 5.169e+00, 5.175e+00, 5.268e+00,
     | 5.423e+00, 5.327e+00, 5.262e+00, 5.397e+00, 5.452e+00, 5.626e+00,
     | 5.543e+00, 5.305e+00, 5.357e+00, 5.468e+00, 5.273e+00, 5.552e+00,
     | 5.362e+00, 5.308e+00, 5.717e+00, 5.267e+00, 5.522e+00, 5.563e+00,
     | 5.490e+00, 5.209e+00, 5.086e+00, 5.179e+00, 5.190e+00, 5.308e+00
     | /)
      iday(1:168,4)=(/
     |  308, 308, 308, 308, 308, 308, 308, 308, 308, 308, 308, 308,
     |  308, 308, 308, 308, 308, 308, 308, 308, 308, 308, 308, 308,
     |  309, 309, 309, 309, 309, 309, 309, 309, 309, 309, 309, 309,
     |  309, 309, 309, 309, 309, 309, 309, 309, 309, 309, 309, 309,
     |  310, 310, 310, 310, 310, 310, 310, 310, 310, 310, 310, 310,
     |  310, 310, 310, 310, 310, 310, 310, 310, 310, 310, 310, 310,
     |  311, 311, 311, 311, 311, 311, 311, 311, 311, 311, 311, 311,
     |  311, 311, 311, 311, 311, 311, 311, 311, 311, 311, 311, 311,
     |  312, 312, 312, 312, 312, 312, 312, 312, 312, 312, 312, 312,
     |  312, 312, 312, 312, 312, 312, 312, 312, 312, 312, 312, 312,
     |  313, 313, 313, 313, 313, 313, 313, 313, 313, 313, 313, 313,
     |  313, 313, 313, 313, 313, 313, 313, 313, 313, 313, 313, 313,
     |  314, 314, 314, 314, 314, 314, 314, 314, 314, 314, 314, 314,
     |  314, 314, 314, 314, 314, 314, 314, 314, 314, 314, 314, 314
     | /)
      hour(1:168,4)=(/
     |  0.5, 1.5, 2.5, 3.5, 4.5, 5.5, 6.5, 7.5, 8.5, 9.5,10.5,11.5,
     | 12.5,13.5,14.5,15.5,16.5,17.5,18.5,19.5,20.5,21.5,22.5,23.5,
     |  0.5, 1.5, 2.5, 3.5, 4.5, 5.5, 6.5, 7.5, 8.5, 9.5,10.5,11.5,
     | 12.5,13.5,14.5,15.5,16.5,17.5,18.5,19.5,20.5,21.5,22.5,23.5,
     |  0.5, 1.5, 2.5, 3.5, 4.5, 5.5, 6.5, 7.5, 8.5, 9.5,10.5,11.5,
     | 12.5,13.5,14.5,15.5,16.5,17.5,18.5,19.5,20.5,21.5,22.5,23.5,
     |  0.5, 1.5, 2.5, 3.5, 4.5, 5.5, 6.5, 7.5, 8.5, 9.5,10.5,11.5,
     | 12.5,13.5,14.5,15.5,16.5,17.5,18.5,19.5,20.5,21.5,22.5,23.5,
     |  0.5, 1.5, 2.5, 3.5, 4.5, 5.5, 6.5, 7.5, 8.5, 9.5,10.5,11.5,
     | 12.5,13.5,14.5,15.5,16.5,17.5,18.5,19.5,20.5,21.5,22.5,23.5,
     |  0.5, 1.5, 2.5, 3.5, 4.5, 5.5, 6.5, 7.5, 8.5, 9.5,10.5,11.5,
     | 12.5,13.5,14.5,15.5,16.5,17.5,18.5,19.5,20.5,21.5,22.5,23.5,
     |  0.5, 1.5, 2.5, 3.5, 4.5, 5.5, 6.5, 7.5, 8.5, 9.5,10.5,11.5,
     | 12.5,13.5,14.5,15.5,16.5,17.5,18.5,19.5,20.5,21.5,22.5,23.5
     | /)
!
! Proton flux parameters for November 22-27, 2001 Solar Proton Event
      fe(1:144,5)=(/
     | 4.481e+02, 3.458e+02, 4.009e+02, 3.790e+02, 3.685e+02, 2.899e+02,
     | 3.003e+02, 2.886e+02, 2.571e+02, 2.322e+02, 2.396e+02, 2.097e+02,
     | 1.895e+02, 1.916e+02, 1.808e+02, 1.512e+02, 1.437e+02, 1.291e+02,
     | 1.176e+02, 1.281e+02, 1.272e+02, 2.383e+02, 7.998e+02, 1.398e+03,
     | 2.098e+03, 5.164e+03, 1.539e+04, 2.959e+04, 5.659e+04, 9.295e+04,
     | 1.237e+05, 1.813e+05, 2.173e+05, 2.397e+05, 2.976e+05, 3.109e+05,
     | 3.298e+05, 3.257e+05, 3.166e+05, 3.268e+05, 3.288e+05, 3.247e+05,
     | 3.217e+05, 3.258e+05, 3.342e+05, 3.239e+05, 3.045e+05, 3.240e+05,
     | 3.611e+05, 4.521e+05, 5.760e+05, 7.038e+05, 9.063e+05, 1.525e+06,
     | 1.317e+06, 8.293e+05, 7.246e+05, 6.599e+05, 5.754e+05, 4.098e+05,
     | 2.747e+05, 2.625e+05, 1.793e+05, 1.721e+05, 1.188e+05, 8.612e+04,
     | 4.842e+04, 4.007e+04, 3.209e+04, 3.098e+04, 2.896e+04, 1.995e+04,
     | 2.160e+04, 2.137e+04, 2.091e+04, 2.189e+04, 2.076e+04, 1.878e+04,
     | 1.583e+04, 1.419e+04, 1.252e+04, 1.641e+04, 1.244e+04, 1.273e+04,
     | 1.050e+04, 9.253e+03, 7.753e+03, 7.431e+03, 7.646e+03, 6.618e+03,
     | 5.782e+03, 4.773e+03, 4.050e+03, 3.718e+03, 4.489e+03, 5.255e+03,
     | 5.315e+03, 5.030e+03, 4.015e+03, 3.741e+03, 3.294e+03, 2.870e+03,
     | 3.067e+03, 3.629e+03, 3.049e+03, 2.705e+03, 2.504e+03, 2.191e+03,
     | 2.051e+03, 1.883e+03, 1.620e+03, 1.360e+03, 1.281e+03, 1.211e+03,
     | 1.292e+03, 1.199e+03, 1.125e+03, 1.032e+03, 9.444e+02, 1.139e+03,
     | 1.683e+03, 1.712e+03, 1.577e+03, 1.431e+03, 1.327e+03, 1.214e+03,
     | 1.166e+03, 1.167e+03, 1.143e+03, 1.063e+03, 9.931e+02, 9.465e+02,
     | 8.502e+02, 7.575e+02, 7.253e+02, 6.928e+02, 7.234e+02, 6.842e+02,
     | 6.699e+02, 6.783e+02, 7.397e+02, 7.043e+02, 7.528e+02, 9.195e+02
     | /)
      eo(1:144,5)=(/
     | 4.170e+00, 4.051e+00, 4.022e+00, 4.286e+00, 4.570e+00, 4.387e+00,
     | 4.547e+00, 4.441e+00, 4.436e+00, 4.663e+00, 4.725e+00, 4.665e+00,
     | 5.021e+00, 4.926e+00, 4.748e+00, 5.222e+00, 5.345e+00, 5.244e+00,
     | 5.151e+00, 5.091e+00, 4.926e+00, 9.413e+00, 1.612e+01, 1.522e+01,
     | 1.327e+01, 1.214e+01, 9.950e+00, 8.652e+00, 8.083e+00, 8.222e+00,
     | 8.319e+00, 8.430e+00, 8.530e+00, 8.235e+00, 8.501e+00, 8.446e+00,
     | 8.393e+00, 7.948e+00, 7.677e+00, 7.608e+00, 7.153e+00, 6.901e+00,
     | 6.739e+00, 6.573e+00, 6.457e+00, 6.326e+00, 6.212e+00, 6.135e+00,
     | 6.427e+00, 6.421e+00, 6.222e+00, 6.076e+00, 5.911e+00, 5.410e+00,
     | 5.277e+00, 5.435e+00, 5.437e+00, 5.307e+00, 5.274e+00, 5.182e+00,
     | 5.010e+00, 4.890e+00, 4.924e+00, 4.881e+00, 4.922e+00, 4.997e+00,
     | 5.239e+00, 5.129e+00, 5.074e+00, 4.902e+00, 4.770e+00, 4.861e+00,
     | 4.735e+00, 4.578e+00, 4.584e+00, 4.443e+00, 4.354e+00, 4.339e+00,
     | 4.332e+00, 4.285e+00, 4.303e+00, 4.219e+00, 4.386e+00, 4.393e+00,
     | 4.600e+00, 4.397e+00, 4.437e+00, 4.460e+00, 4.326e+00, 4.354e+00,
     | 4.362e+00, 4.476e+00, 4.611e+00, 4.609e+00, 4.526e+00, 4.381e+00,
     | 4.567e+00, 4.511e+00, 4.711e+00, 4.779e+00, 4.757e+00, 4.888e+00,
     | 4.855e+00, 4.694e+00, 4.783e+00, 4.822e+00, 4.891e+00, 5.106e+00,
     | 5.004e+00, 4.989e+00, 5.055e+00, 5.278e+00, 5.473e+00, 5.400e+00,
     | 5.260e+00, 5.228e+00, 5.084e+00, 5.038e+00, 5.012e+00, 4.831e+00,
     | 4.516e+00, 4.368e+00, 4.504e+00, 4.561e+00, 4.550e+00, 4.587e+00,
     | 4.441e+00, 4.311e+00, 4.704e+00, 4.716e+00, 4.589e+00, 4.729e+00,
     | 4.914e+00, 5.041e+00, 4.943e+00, 5.175e+00, 4.976e+00, 4.901e+00,
     | 4.934e+00, 4.939e+00, 4.985e+00, 4.728e+00, 4.364e+00, 4.544e+00
     | /)
      iday(1:144,5)=(/
     |  326, 326, 326, 326, 326, 326, 326, 326, 326, 326, 326, 326,
     |  326, 326, 326, 326, 326, 326, 326, 326, 326, 326, 326, 326,
     |  327, 327, 327, 327, 327, 327, 327, 327, 327, 327, 327, 327,
     |  327, 327, 327, 327, 327, 327, 327, 327, 327, 327, 327, 327,
     |  328, 328, 328, 328, 328, 328, 328, 328, 328, 328, 328, 328,
     |  328, 328, 328, 328, 328, 328, 328, 328, 328, 328, 328, 328,
     |  329, 329, 329, 329, 329, 329, 329, 329, 329, 329, 329, 329,
     |  329, 329, 329, 329, 329, 329, 329, 329, 329, 329, 329, 329,
     |  330, 330, 330, 330, 330, 330, 330, 330, 330, 330, 330, 330,
     |  330, 330, 330, 330, 330, 330, 330, 330, 330, 330, 330, 330,
     |  331, 331, 331, 331, 331, 331, 331, 331, 331, 331, 331, 331,
     |  331, 331, 331, 331, 331, 331, 331, 331, 331, 331, 331, 331
     | /)
      hour(1:144,5)=(/
     |  0.5, 1.5, 2.5, 3.5, 4.5, 5.5, 6.5, 7.5, 8.5, 9.5,10.5,11.5,
     | 12.5,13.5,14.5,15.5,16.5,17.5,18.5,19.5,20.5,21.5,22.5,23.5,
     |  0.5, 1.5, 2.5, 3.5, 4.5, 5.5, 6.5, 7.5, 8.5, 9.5,10.5,11.5,
     | 12.5,13.5,14.5,15.5,16.5,17.5,18.5,19.5,20.5,21.5,22.5,23.5,
     |  0.5, 1.5, 2.5, 3.5, 4.5, 5.5, 6.5, 7.5, 8.5, 9.5,10.5,11.5,
     | 12.5,13.5,14.5,15.5,16.5,17.5,18.5,19.5,20.5,21.5,22.5,23.5,
     |  0.5, 1.5, 2.5, 3.5, 4.5, 5.5, 6.5, 7.5, 8.5, 9.5,10.5,11.5,
     | 12.5,13.5,14.5,15.5,16.5,17.5,18.5,19.5,20.5,21.5,22.5,23.5,
     |  0.5, 1.5, 2.5, 3.5, 4.5, 5.5, 6.5, 7.5, 8.5, 9.5,10.5,11.5,
     | 12.5,13.5,14.5,15.5,16.5,17.5,18.5,19.5,20.5,21.5,22.5,23.5,
     |  0.5, 1.5, 2.5, 3.5, 4.5, 5.5, 6.5, 7.5, 8.5, 9.5,10.5,11.5,
     | 12.5,13.5,14.5,15.5,16.5,17.5,18.5,19.5,20.5,21.5,22.5,23.5
     | /)
      end subroutine protons_data
      end module protons_module
