how to transport parameter between subroutines
 

hi, experts

i meet a problem, for example: after calculating some parameter which is defined by myself through posda.f, i want transfer these data to another subroutine sorent.f to change the heat source term for every cell.So i add a commom sentence in these two subroutine to try to transfer the calculated data. but it seem it wasn't transported from posdat.f to sorent.f.(i add some 'write' in the sorent.f). if some one have these experience or have some idea about how to transfer the data between subroutine, please tell me , thank you very much.

jane

Re: how to transport parameter between subroutines
 

I noticed the same behaviour using sorsca,scalfn posdat and initfi. It didn´t work until I put the common block definition in initfi.f

Re: how to transport parameter between subroutines
 

Hi, Roadracer

I spend whole day, and finally I got it, I make it runing successfully. It is ture I also use the common block to solve it. anyway, thank you for your mention.

Jane