Lines Matching refs:BCt
10 real*8, allocatable :: BCt(:,:), acs(:,:), spamp(:) variable
185 allocate (BCt(nptsmax,4))
203 read(567,*) (BCt(j,n),n=1,4)
208 if (tlen.ge.BCt(ntpts,4)) then
213 BCtptr(ic)%p = BCt(1:ilen,:)
215 nper = t0/BCt(ntpts,4)
216 tstart = t0-nper*BCt(ntpts,4)
217 nper = t1/BCt(ntpts,4)
218 tend = t1-nper*BCt(ntpts,4)
219 istart = iBfind(BCt(:,4),ntpts,tstart)
220 iend = iBfind(BCt(:,4),ntpts,tend)
228 BCtptr(ic)%p = BCt(istart:iend,:)
233 BCtptr(ic)%p(1:i0,:) = BCt(istart:ntpts,:)
234 BCtptr(ic)%p(i0+1:ilen,:) = BCt(1:iend,:)
236 & BCtptr(ic)%p(i0+1:ilen,4) + BCt(ntpts,4)
241 BCperiod(ic) = BCt(ntpts,4)*bcttimescale
257 deallocate(BCt)