Depending on how you structured your loop for calling rk4p480(), you generally will need an extra assignment statement to make sure that either the first, Psiout[k1], or last, Psiout[k2], required elements of Psiout[] are actually stored in the array. Double check that your schint() routine fills in these values!