A Portable Fortran Program to Find the Euclidean Norm of a Vector | Synapse