Some examples of FORTRAN77