Lines Matching refs:iphase
704 do iphase=1,nphasesincycle
706 call write_phavg2(myrank,'a','phase_average',13,iphase,
707 & nphasesincycle,yphbar(:,:,iphase),'d',nshg,15,lstep)
709 call write_phavg2(myrank,'a','phase_average',13,iphase,
710 & nphasesincycle,yphbar(:,:,iphase),'d',nshg,11,lstep)
1943 iphase = 1 ! init. to one in beginning of every cycle
1950 if(istepincycle.eq.iphase*nstepsbtwphase) then
1952 iphase = iphase+1 ! use 'iphase-1' below
1959 write(*,*) 'nsamples in phase ',iphase-1,': ',
1963 yphbar(:,1,iphase-1) = tfactphase*yold(:,1) +
1964 & (one-tfactphase)*yphbar(:,1,iphase-1)
1965 yphbar(:,2,iphase-1) = tfactphase*yold(:,2) +
1966 & (one-tfactphase)*yphbar(:,2,iphase-1)
1967 yphbar(:,3,iphase-1) = tfactphase*yold(:,3) +
1968 & (one-tfactphase)*yphbar(:,3,iphase-1)
1969 yphbar(:,4,iphase-1) = tfactphase*yold(:,4) +
1970 & (one-tfactphase)*yphbar(:,4,iphase-1)
1971 yphbar(:,5,iphase-1) = tfactphase*sqrt(yold(:,1)**2
1973 & (one-tfactphase)*yphbar(:,5,iphase-1)
1974 yphbar(:,6,iphase-1) =
1976 & +(one-tfactphase)*yphbar(:,6,iphase-1)
1978 yphbar(:,7,iphase-1) =
1980 & +(one-tfactphase)*yphbar(:,7,iphase-1)
1982 yphbar(:,8,iphase-1) =
1984 & +(one-tfactphase)*yphbar(:,8,iphase-1)
1986 yphbar(:,9,iphase-1) =
1988 & +(one-tfactphase)*yphbar(:,9,iphase-1)
1990 yphbar(:,10,iphase-1) =
1992 & +(one-tfactphase)*yphbar(:,10,iphase-1)
1994 yphbar(:,11,iphase-1) =
1996 & +(one-tfactphase)*yphbar(:,11,iphase-1)
1999 yphbar(:,12,iphase-1) =
2001 & +(one-tfactphase)*yphbar(:,12,iphase-1)
2002 yphbar(:,13,iphase-1) =
2004 & +(one-tfactphase)*yphbar(:,13,iphase-1)
2005 yphbar(:,14,iphase-1) =
2007 & +(one-tfactphase)*yphbar(:,14,iphase-1)
2008 yphbar(:,15,iphase-1) =
2010 & +(one-tfactphase)*yphbar(:,15,iphase-1)