| /dports/comms/wsjtz/wsjtx/lib/wsprd/ |
| H A D | osdwspr.f90 | 139 misub(1:K-iorder)=0
140 misub(K-iorder+1:K)=1
150 mi=misub
185 call nextpat(misub,k,iorder,iflag)
204 misub(1:K-nord)=0
205 misub(K-nord+1:K)=1
208 me=ieor(m0,misub)
220 mi=misub
236 call nextpat(misub,K,nord,iflag)
|
| /dports/comms/wsjtz/wsjtx/lib/fst4/ |
| H A D | osd240_74.f90 | 20 integer*1, allocatable :: temp(:),m0(:),me(:),mi(:),misub(:),e2sub(:),e2(:),ui(:) local
34 allocate( temp(k), m0(k), me(k), mi(k), misub(k), e2sub(N-k), e2(N-k), ui(N-k) )
178 misub(1:k-iorder)=0
179 misub(k-iorder+1:k)=1
189 mi=misub
224 call nextpat74(misub,k,iorder,iflag)
243 misub(1:k-nord)=0
244 misub(k-nord+1:k)=1
247 me=ieor(m0,misub)
259 mi=misub
[all …]
|
| H A D | osd240_101.f90 | 20 integer*1, allocatable :: temp(:),m0(:),me(:),mi(:),misub(:),e2sub(:),e2(:),ui(:) local
34 allocate( temp(k), m0(k), me(k), mi(k), misub(k), e2sub(N-k), e2(N-k), ui(N-k) )
178 misub(1:k-iorder)=0
179 misub(k-iorder+1:k)=1
189 mi=misub
224 call nextpat101(misub,k,iorder,iflag)
243 misub(1:k-nord)=0
244 misub(k-nord+1:k)=1
247 me=ieor(m0,misub)
259 mi=misub
[all …]
|
| /dports/comms/wsjtz/wsjtx/lib/ft8/ |
| H A D | osd174_91.f90 | 20 integer*1, allocatable :: temp(:),m0(:),me(:),mi(:),misub(:),e2sub(:),e2(:),ui(:) local
34 allocate( temp(k), m0(k), me(k), mi(k), misub(k), e2sub(N-k), e2(N-k), ui(N-k) )
180 misub(1:k-iorder)=0
181 misub(k-iorder+1:k)=1
191 mi=misub
226 call nextpat91(misub,k,iorder,iflag)
245 misub(1:k-nord)=0
246 misub(k-nord+1:k)=1
249 me=ieor(m0,misub)
261 mi=misub
[all …]
|
| /dports/comms/wsjtz/wsjtx/lib/ |
| H A D | osd128_90.f90 | 9 integer*1 temp(K),m0(K),me(K),mi(K),misub(K),e2sub(N-K),e2(N-K),ui(N-K) local
150 misub(1:K-iorder)=0
151 misub(K-iorder+1:K)=1
160 mi=misub
195 call nextpat90(misub,k,iorder,iflag)
214 misub(1:K-nord)=0
215 misub(K-nord+1:K)=1
218 me=ieor(m0,misub)
230 mi=misub
246 call nextpat90(misub,K,nord,iflag)
|
| /dports/cad/electric/electric-7.00/src/usr/ |
| H A D | usrcomek.c | 1904 REGISTER POPUPMENUITEM *mi, *miret, *misub; in us_getproto() local
1982 misub = (POPUPMENUITEM *)emalloc(cellcount * sizeof(POPUPMENUITEM), us_tool->cluster); in us_getproto()
1983 if (misub == 0) return; in us_getproto()
1986 pmsub->list = misub; in us_getproto()
2006 misub[cellcount].response = ucsub; in us_getproto()
2007 misub[cellcount].response->active = -1; in us_getproto()
2008 (void)allocstring(&misub[cellcount].attribute, describenodeproto(onp), in us_getproto()
2010 misub[cellcount].value = 0; in us_getproto()
2021 esort(&misub[firstinpass], cellcount-firstinpass, in us_getproto()
|