variables - 共通のブロックとサブルーチンの引数

Question

varという名前の共通ブロックにある変数が呼び出されたmyCB場合、同じ名前を使用して、共通ブロックを使用していない他の 2 つのサブルーチン間で引数を渡すことができますmyCBか?

コードは以下のようなものです。

Subroutine SR1(Var)
      !something here using Var
end Subroutine SR1

Subroutine SR2()
....
      Call SR1(B)
....
end Subroutine SR2

Subroutine SR3()
common \myCB\ Var
... 
  ! something using the other Var shared with SR4
......
end Subroutine SR3

Subroutine SR4()
common \myCB\ Var
....
... ! something using the other Var shared with SR3
....
end Subroutine SR4

とVarの間の受け渡しに問題がSR1ありますが、問題は共通ブロックで指定されSR2た他の名前に由来する可能性がありますか?Var