Home
last modified time | relevance | path

Searched refs:KNUM (Results 1 – 25 of 76) sorted by relevance

1234

/dports/misc/libemos/libemos-4.5.9-Source/interpolation/
H A Dhsh2gg.F158 KNUM = 48
162 KNUM = 80
165 KNUM = 96
169 KNUM = 128
172 KNUM = 160
174 KNUM = 200
177 KNUM = 256
195 IF( KNUM.NE. 48 .AND. KNUM.NE. 80 .AND. KNUM.NE. 96 .AND.
196 . KNUM.NE. 128 .AND. KNUM.NE. 160 .AND. KNUM.NE. 200 .AND.
197 . KNUM.NE. 256 .AND. KNUM.NE. 320 .AND. KNUM.NE. 400 .AND.
[all …]
H A Djgetgg.F172 IF( KNUM.GT.JPMAXNG .OR. .NOT.ISGGVALID(HTYPE,KNUM) ) THEN
180 INUM = KNUM*2
235 DO LOOP = 1, KNUM
243 DO LOOP = 1, KNUM
251 DO LOOP = 1, KNUM
277 DO LOOP = 1, KNUM
285 DO LOOP = 1, KNUM
310 DO LOOP = 1, KNUM
318 DO LOOP = 1, KNUM
326 DO LOOP = 1, KNUM
[all …]
H A Disggvalid.F35 INTEGER KNUM
44 . ( KNUM.GE. 2 )
47 . ( KNUM.EQ. 32 .OR.
48 . KNUM.EQ. 48 .OR.
49 . KNUM.EQ. 64 .OR.
50 . KNUM.EQ. 80 .OR.
51 . KNUM.EQ. 96 .OR.
52 . KNUM.EQ. 128 .OR.
53 . KNUM.EQ. 160 .OR.
54 . KNUM.EQ. 200 .OR.
[all …]
H A Djagggp.F297 NOGAUSO = KNUM
300 DO LOOP = 1, KNUM*2
324 GNUM = REAL(KNUM)
378 DO J = 1, KNUM
379 IMAGE = 2*KNUM - J + 1
407 ISOUTH = KNUM
427 INORTH = 2*KNUM - NSOUTH + 1
428 ISOUTH = 2*KNUM - NNORTH + 1
440 ISOUTH = KNUM
452 INORTH = 2*KNUM - NSOUTH + 1
[all …]
H A Dintlog.F11 SUBROUTINE INTLOG(KLEVEL, MESSAGE, KNUM) argument
97 INTEGER KNUM
158 IF(KNUM.NE.JPQUIET) THEN
159 IF( ABS(KNUM).LT.1000 ) THEN
160 WRITE(NEWMESS(ILEN:),'(I4)') KNUM
161 ELSE IF ( ABS(KNUM).LT.100000 ) THEN
162 WRITE(NEWMESS(ILEN:),'(I7)') KNUM
163 ELSE IF ( ABS(KNUM).LT.100000000 ) THEN
164 WRITE(NEWMESS(ILEN:),'(I10)') KNUM
166 WRITE(NEWMESS(ILEN:),'(I15)') KNUM
H A Dwv2dint.F11 INTEGER FUNCTION WV2DINT(KNUM,NUMPTS,KE_W,KN_S,RESON,OLDWAVE,
112 INTEGER KNUM, NUMPTS, KE_W, KN_S, KNSPEC
169 IF( KNUM.GT.JPLLMAX ) THEN
192 DO K = 2, KNUM
204 DELAT = RNS/(KNUM-1)
206 DO k=1,KNUM
233 X ( KNUM.NE.XKNUM ) .OR.
239 IRET = W251IDX(KNUM,NUMPTS,OLDLATS,WEST,OLDEAST,
242 XKNUM = KNUM
251 DELAT = RNS/(KNUM-1)
[all …]
H A Djnorsgg.F11 INTEGER FUNCTION JNORSGG( PLAT, PGGLAT, KNUM, KUP)
109 INTEGER KNUM, KUP
130 IF( IFIRST.NE. KNUM ) THEN
131 IFIRST = KNUM
132 DELTA = 90.0/FLOAT(KNUM-1)
149 DO 202 J202 = IGUESS, 2*KNUM
164 NPOS = 2*KNUM
H A Djsgggp.F12 X KNUM, HTYPE, KPTS, POUTF, LUV, KRET)
128 INTEGER KTRUNC, KNUM, KPTS, KRET
222 X 'JSGGGP: Gaussian grid number = ', KNUM)
247 CALL JGETGG( KNUM, HTYPE, ALAT, KPTS, KRET)
249 NOGAUSO = KNUM
252 DO LOOP = 1, KNUM*2
260 DO LOOP = 1, KNUM*2
286 NNORTH = JNORSGG( PNORTH, ALAT, KNUM, 1)
287 NSOUTH = JNORSGG( PSOUTH, ALAT, KNUM, 0)
307 DO 108 J108 = 1, KNUM
[all …]
H A Dwvqlint.F123 INTEGER KNUM, NUMPTS(*), KE_W, KN_S, KPARAM
184 IF( KNUM.GT.JPLLMAX ) THEN
207 DO K = 2, KNUM
225 OLDNS = RNS/REAL(KNUM-1)
226 DO K = 1, KNUM
233 DO K = 1, KNUM/2
237 IEND = KNUM
238 DO K = KNUM, (KNUM/2) + 1, -1
274 X ( KNUM.NE.XKNUM ) .OR.
284 XKNUM = KNUM
[all …]
H A Dwvqlin2.F122 INTEGER KNUM, NUMPTS(*), KE_W, KN_S, KPARAM
191 IF( KNUM.GT.JPLLMAX ) THEN
214 DO K = 2, KNUM
232 OLDNS = RNS/REAL(KNUM-1)
233 DO K = 1, KNUM
240 DO K = 1, KNUM/2
244 IEND = KNUM
245 DO K = KNUM, (KNUM/2) + 1, -1
283 X ( KNUM.NE.XKNUM ) .OR.
293 XKNUM = KNUM
[all …]
H A Disoctahedral.F11 LOGICAL FUNCTION ISOCTAHEDRAL(KNUM,KPTS)
35 INTEGER KNUM, KPTS(*)
50 ISOCTAHEDRAL = ISGGVALID(HTYPEO,KNUM)
52 DO LOOP = 1, KNUM
53 IMAGE = 2 * KNUM - LOOP + 1
H A Dgghtype.F11 CHARACTER*1 FUNCTION GGHTYPE(REPR,KNUM,KPTS)
50 INTEGER REPR, KNUM, KPTS(*)
64 . .AND. ISGGVALID(F,KNUM) ) THEN
67 . .AND. ISGGVALID(R,KNUM) ) THEN
69 IF( ISOCTAHEDRAL(KNUM,KPTS) ) GGHTYPE='O'
H A Djnumgg.F11 SUBROUTINE JNUMGG( KNUM, HTYPE, KPTS, KRET) argument
97 INTEGER KNUM, KPTS, KRET
120 IF( KNUM .GT. (JPMAX/2) ) THEN
127 CALL JGETGG(KNUM, HTYPE, ZLAT, KPTS, KRET)
/dports/misc/libemos/libemos-4.5.9-Source/gribex/
H A Dinxbit.F11 SUBROUTINE INXBIT (KGRIB,KLENG,KNSPT,KPARM,KNUM,KBIT, argument
163 IF (KNUM.GE.8) THEN
168 CALL GSBITE (KGRIB(IWORD),KPARM,IOFF,KBLEN,0,KNUM,
182 CALL SBYTES6 (KGRIB(IWORD),KPARM,IOFF,KBLEN,0,KNUM)
184 CALL GBYTES6 (KGRIB(IWORD),KPARM,IOFF,KBLEN,0,KNUM)
188 CALL SBYTES (KGRIB(IWORD),KPARM,IOFF,KBLEN,0,KNUM)
190 CALL GBYTES (KGRIB(IWORD),KPARM,IOFF,KBLEN,0,KNUM)
194 CALL SBYTES (KGRIB(IWORD),KPARM,IOFF,KBLEN,0,KNUM)
196 CALL GBYTES (KGRIB(IWORD),KPARM,IOFF,KBLEN,0,KNUM)
202 KNSPT = KNSPT + KBLEN * KNUM
[all …]
H A Dextmap.F204 LENGTH = KNUM
225 LENGTH = KSIZE * KNUM
375 IF( KNUM.EQ.1 ) THEN
391 IF( KNUM.GT.1 ) THEN
392 DO 340 JLOOPI = 1,KNUM
396 DO 350 JLOOPI = 1,KNUM
400 DO 360 JLOOPI = 1,KNUM
408 IPT = IPT + KNUM
415 IF( KNUM.EQ.1 ) THEN
422 IPT = IPT + KNUM
[all …]
H A Dinsmp2.F12 X PMISS,HFUNC,KNUM,KPR,KRET)
145 INTEGER KBITS, KGRIB, KLENG, KMAP2, KNUM, KPR, KRET, KSIZE
174 WRITE(GRPRSM,*) ' KNUM = ', KNUM
196 LENGTH = KNUM
222 DO 320 JLOOP = 1, KSIZE, KNUM
225 DO 310 JLOOPI = 1, KNUM
243 IPT = IPT + KNUM
247 CALL INXBIT(KGRIB,KLENG,KMAP2,IMAP2,KNUM,KBITS,1,'C',KRET)
254 NEXTIN = NEXTIN + KNUM
H A Dgbitmap.F12 INTEGER FUNCTION GBITMAP(KNUM, KVALS, KNONMIS, KBTPTR, KBYTE)
107 INTEGER KNUM, KVALS, KNONMIS, KBYTE
160 IF( (KNUM.LT.0) .OR. (KNUM.GT.999) ) THEN
161 WRITE(GRPRSM,*) 'GBITMAP: Invalid bitmap number given = ', KNUM
172 IF( IBTOPEN.NE.KNUM ) THEN
178 X 'bitmask_', KNUM
246 IBTOPEN = KNUM
H A Dinsmp1.F12 X PMISS,HFUNC,KNUM,KPR,KRET)
178 INTEGER KGRIB, KLENG, KMAP1, KSECM, KSIZE, KBITS, KNUM, KPR, KRET
207 WRITE(GRPRSM,*) ' KNUM = ', KNUM
224 INOBT = KSIZE / KNUM
315 IF( KNUM.EQ.1 ) THEN
333 DO 330 JLOOPI = 1, KNUM
341 IF( IMISS.NE.KNUM ) THEN
343 DO 340 JLOOPI = 1, KNUM
346 NXTOUT = NXTOUT + KNUM
349 NEXTIN = NEXTIN + KNUM
H A Dbt_ibm.F11 SUBROUTINE INXBIT (KGRIB,KLENG,KNSPT,KPARM,KNUM,KBIT, argument
145 INTEGER KNUM
218 CALL SBYTES (KGRIB(IWORD),KPARM,IOFF,KBLEN,0,KNUM)
220 CALL GBYTES (KGRIB(IWORD),KPARM,IOFF,KBLEN,0,KNUM)
225 KNSPT = KNSPT + KBLEN * KNUM
270 INUM = KNUM
H A Dbt_sun.F11 SUBROUTINE INXBIT (KGRIB,KLENG,KNSPT,KPARM,KNUM,KBIT, argument
145 INTEGER KNUM
218 CALL SBYTES (KGRIB(IWORD),KPARM,IOFF,KBLEN,0,KNUM)
220 CALL GBYTES (KGRIB(IWORD),KPARM,IOFF,KBLEN,0,KNUM)
225 KNSPT = KNSPT + KBLEN * KNUM
270 INUM = KNUM
/dports/misc/libemos/libemos-4.5.9-Source/tools/
H A Dgg_latitudes.F58 INTEGER KNUM, KRET
99 KNUM = 0
100 READ (ARG,'(A1,I4)') HTYPE, KNUM
102 IF (KNUM.GT.2000) THEN
110 CALL JGETGG(KNUM,HTYPE,PLAT,KPTS,KRET)
119 IF (HTYPE.EQ.'R') WRITE(GRID,'(A,I0)') 'N', KNUM
120 IF (HTYPE.NE.'R') WRITE(GRID,'(A,I0)') HTYPE, KNUM
123 DO I = 1, KNUM*2
/dports/lang/luajit/LuaJIT-2.0.5/src/
H A Dlj_opt_fold.c168 LJFOLD(ADD KNUM KNUM)
169 LJFOLD(SUB KNUM KNUM) in LJFOLD() argument
170 LJFOLD(MUL KNUM KNUM) in LJFOLD()
171 LJFOLD(DIV KNUM KNUM) in LJFOLD()
172 LJFOLD(NEG KNUM KNUM) in LJFOLD()
215 LJFOLD(EQ KNUM KNUM)
216 LJFOLD(NE KNUM KNUM) in LJFOLD() argument
217 LJFOLD(LT KNUM KNUM) in LJFOLD()
218 LJFOLD(GE KNUM KNUM) in LJFOLD()
219 LJFOLD(LE KNUM KNUM) in LJFOLD()
[all …]
/dports/devel/tex-libtexluajit/texlive-20150521-source/libs/luajit/LuaJIT-2.0.3/src/
H A Dlj_opt_fold.c168 LJFOLD(ADD KNUM KNUM)
169 LJFOLD(SUB KNUM KNUM) in LJFOLD() argument
170 LJFOLD(MUL KNUM KNUM) in LJFOLD()
171 LJFOLD(DIV KNUM KNUM) in LJFOLD()
172 LJFOLD(NEG KNUM KNUM) in LJFOLD()
215 LJFOLD(EQ KNUM KNUM)
216 LJFOLD(NE KNUM KNUM) in LJFOLD() argument
217 LJFOLD(LT KNUM KNUM) in LJFOLD()
218 LJFOLD(GE KNUM KNUM) in LJFOLD()
219 LJFOLD(LE KNUM KNUM) in LJFOLD()
[all …]
/dports/multimedia/aegisub/aegisub-3.2.2/vendor/luajit/src/
H A Dlj_opt_fold.c168 LJFOLD(ADD KNUM KNUM)
169 LJFOLD(SUB KNUM KNUM) in LJFOLD() argument
170 LJFOLD(MUL KNUM KNUM) in LJFOLD()
171 LJFOLD(DIV KNUM KNUM) in LJFOLD()
172 LJFOLD(NEG KNUM KNUM) in LJFOLD()
215 LJFOLD(EQ KNUM KNUM)
216 LJFOLD(NE KNUM KNUM) in LJFOLD() argument
217 LJFOLD(LT KNUM KNUM) in LJFOLD()
218 LJFOLD(GE KNUM KNUM) in LJFOLD()
219 LJFOLD(LE KNUM KNUM) in LJFOLD()
[all …]
/dports/print/tex-luatex/texlive-20150521-source/libs/luajit/LuaJIT-2.0.3/src/
H A Dlj_opt_fold.c168 LJFOLD(ADD KNUM KNUM)
169 LJFOLD(SUB KNUM KNUM) in LJFOLD() argument
170 LJFOLD(MUL KNUM KNUM) in LJFOLD()
171 LJFOLD(DIV KNUM KNUM) in LJFOLD()
172 LJFOLD(NEG KNUM KNUM) in LJFOLD()
215 LJFOLD(EQ KNUM KNUM)
216 LJFOLD(NE KNUM KNUM) in LJFOLD() argument
217 LJFOLD(LT KNUM KNUM) in LJFOLD()
218 LJFOLD(GE KNUM KNUM) in LJFOLD()
219 LJFOLD(LE KNUM KNUM) in LJFOLD()
[all …]

1234