发送短信 : Optimization techniques with Fortran