Searched refs:maxstopsign (Results 1 – 3 of 3) sorted by relevance
77 logical :: maxstopsign,mxs2 variable81 maxstopsign = .false.83 do while ((i+1.le.iamg_nlevel) .and. (.not.maxstopsign))90 call ramg_calcITAI(i,i+1,maxstopsign)97 maxstopsign = (amg_nshg(i).eq.amg_nshg(i-1)) 101 if (maxstopsign) p = 0105 maxstopsign = .true.108 maxstopsign = .false.113 if (maxstopsign) then
115 subroutine ramg_calcITAI(level1,level2,maxstopsign) argument120 logical,intent(inout) :: maxstopsign local
101 In ramg_prep, please note that variable maxstopsign is the control