Boundary condition subrountine

Subroutine written in Fortran to implement boundary condition in a Fortran code