Fortran小程序

更正一下k4x的公式，括号里面的是k3v而不是k3x。量纲错误

求大佬用Fortran解答，不胜感激！