/dports/misc/libemos/libemos-4.5.9-Source/interpolation/ |
H A D | hsh2gg.F | 158 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 D | jgetgg.F | 172 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 D | isggvalid.F | 35 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 D | jagggp.F | 297 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 D | intlog.F | 11 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 D | wv2dint.F | 11 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 D | jnorsgg.F | 11 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 D | jsgggp.F | 12 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 D | wvqlint.F | 123 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 D | wvqlin2.F | 122 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 D | isoctahedral.F | 11 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 D | gghtype.F | 11 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 D | jnumgg.F | 11 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 D | inxbit.F | 11 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 D | extmap.F | 204 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 D | insmp2.F | 12 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 D | gbitmap.F | 12 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 D | insmp1.F | 12 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 D | bt_ibm.F | 11 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 D | bt_sun.F | 11 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 D | gg_latitudes.F | 58 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 D | lj_opt_fold.c | 168 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 D | lj_opt_fold.c | 168 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 D | lj_opt_fold.c | 168 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 D | lj_opt_fold.c | 168 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 …]
|