Source code from "CUDA Fortran for Scientists and Engineers, Second Edition" - View it on GitHub