Searched refs:stsReg (Results 1 – 2 of 2) sorted by relevance
14 real*8, allocatable :: stsReg(:) variable52 allocate ( stsReg(nshg) )109 stsReg(i) = 0 111 stsReg(i) = (res(1) + res(2) + res(3)) / 1000. 120 reg = stsReg(i)146 reg = stsReg(i) 243 reg = stsReg(i)
14 real*8, allocatable :: stsReg(:) variable