character(len=*), parameter :: PARAM_DVAL(N_Param) = &
&(/"-1 ", "HSF.in ", "HSF.out ", "12 ", "0.0 ", &
& "0 ", "0.001 ", "0.0 ", "0.125 ", "0.001 ", &
& "quest ", "geom.def", "8 ", "0.0 ", "8 ", &
& "16 ", "10 ", "50 ", "4 ", "12 ", &
& "12 ", "5000 ", "0 ", "1000 ", "12 ", &
& "4 ", "4 ", "2 ", "0.0001 ", "0 ", &
& "1.0 ", "10 "/)
li913 发表于 2018-12-4 16:06
字符串数组,一维的。续行了而已。
欢迎光临 Fortran Coder (http://bbs.fcode.cn/) | Powered by Discuz! X3.2 |