fortran examples[chenyen]