Source: https://www.lmd.jussieu.fr/~flott/polytechnique/mec583_08/linux_vi_f77.pdf