c5d_prime(k) = 0. _d 0
c5d_prime(k) = c5d(i,j,k)
tmpval=c5d_prime(k)
c5d_prime(k) = 1. _d 0
_RL c5d_prime(Nr), d5d_prime(Nr), e5d_prime(Nr)