half way bounce-back

is there anyone that can facilitate me a generic fortran code that has a half way bounce back routine implemented??

Thank you in advanced

Albert P