求助：关于fortran预处理的一个例子

fanghongfox

evenup1和evenup2是一个关于fortran预处理的例子，里面的文件都是已经编译过的，把主程序和子程序放一个文件里得到的结果是（11 12；12 12；13 14；14 14），而把主程序和子程序分别放在不同的文件里得到的结果是（11 10；12 12；13 12；14 14），这两个结果不一样。但是程序明明就是一模一样的呀，就是分开放了而已，结果却不一样。分开放的时候，子程序识别不了主程序里面定义的宏(#define ROUNDUP)。  如何做才能让子程序能够得到主程序里声明的宏呢(不是在子程序中再次声明宏)，求各位高手帮忙。