问题简化如下，在子函数FA中有公共变量c可供调用，在FA中调用FB对c变量赋值时出错，如果直接在FB中声明全局变量c会出错
请问大神原因和解决方法？感激不尽！
subroutine  FA(a,b)
CALL FB(a,c)
end
subroutine FB(c,d)
c=1
d=1
end