5.3 seq子语(Fortran版)