|
哈哈,这个果然是个好办法,根据自己实际用哪个来决定Kind常数
不过这里有一个问题是如果某个程序里同时需要用多种Kind的版本肿么办呢?
感觉上这样做的话似乎实际用的过程中还需要弄个中间产物
比如写个Make文件,可以自动生成各种kind的.o文件和.mod文件
每次定义Type的文件修改了之后,make一下就可以自动产生这三个文件
凡是需要用到这个Type的程序,每次copy最新的.o和.mod文件就可以了
嗯,可惜我最近要写的那个东西需要用到BLAS,要不然就能马上用你这一招了,非常感谢
另外,你这写的不完整吧,定义kind常数的不应该写成:
integer,parameter :: nnn=kind(0.0d0)
或者:
integer,parameter :: Selected_Real_Kind(14)吗? |
|