981 だが
> type に procedure を持たせて call old%propagate(new) みたいにするとか
これ解決案になってなかったスマン
結局 new%rho = this%rho とか書くから意味ない

内部副プログラムはその親になるプログラムの変数定義を参照できるが
親以外からは呼び出せなかったかな