/dports/graphics/xd3d/xd3d-8.3.1/src/trad_nopo/ |
H A D | cherche_opposee.f | 1 SUBROUTINE CHERCHE_OPPOSEE(IFAC,NN1,NN2,NN3,NN4,N1,N2,N3,IPROD) argument 19 IPROD = 0 21 IPROD = 1 30 IPROD = IPROD*IFAC(I) 32 IF (IPROD.EQ.48.OR.IPROD.EQ.40.OR.IPROD.EQ.36.OR.IPROD.EQ.30.OR. 33 & IPROD.EQ.24.OR.IPROD.EQ.20.OR.IPROD.EQ.18.OR.IPROD.EQ.15) 42 IPROD=0 46 IF (IPROD.EQ.0) PRINT*,'PROBLEME',(IFAC(I),I=1,4)
|
H A D | cherche_vois.f | 38 IPROD = ILIST(1)*ILIST(2)*ILIST(3)*ILIST(4) 52 IF (IPROD.GE.252) THEN 53 IF (IPROD.GE.1680) THEN 55 ELSEIF (IPROD.GE.672) THEN 61 IF (IPROD.GE.160) THEN 63 ELSEIF (IPROD.GE.60) THEN
|
H A D | assemble.f | 144 IPROD = IFFF(1)*IFFF(2)*IFFF(3) 146 21 IF (IPROD.EQ.48) THEN 148 ELSEIF(IPROD.EQ.40) THEN 150 ELSEIF(IPROD.EQ.36) THEN 152 ELSEIF(IPROD.EQ.30) THEN 154 ELSEIF(IPROD.EQ.24) THEN 156 ELSEIF(IPROD.EQ.20) THEN 158 ELSEIF(IPROD.EQ.18) THEN 160 ELSEIF(IPROD.EQ.15) THEN 173 IF (IPROD.NE.0) THEN [all …]
|
/dports/math/cmlib/cmlib-3.0_8/src/fcnpak/ |
H A D | xspnrm.f | 46 IPROD=0 51 510 CALL XSADJ(PROD,IPROD) 55 IPQA(I)=IPQA(I)+IPROD 61 CALL XSADJ(PROD,IPROD) 66 IPROD=0 72 CALL XSADJ(PROD,IPROD)
|
H A D | xdpnrm.f | 46 IPROD=0 51 510 CALL XDADJ(PROD,IPROD) 55 IPQA(I)=IPQA(I)+IPROD 61 CALL XDADJ(PROD,IPROD) 66 IPROD=0 72 CALL XDADJ(PROD,IPROD)
|
H A D | xspmup.f | 41 IPROD=0 46 220 CALL XSADJ(PROD,IPROD) 51 IPQA(I)=IPQA(I)+IPROD 55 CALL XSADJ(PROD,IPROD) 60 CALL XSADJ(PROD,IPROD)
|
H A D | xdpmup.f | 41 IPROD=0 46 220 CALL XDADJ(PROD,IPROD) 51 IPQA(I)=IPQA(I)+IPROD 55 CALL XDADJ(PROD,IPROD) 60 CALL XDADJ(PROD,IPROD)
|
/dports/math/slatec/src/ |
H A D | xpnrm.f | 55 IPROD=0 60 510 CALL XADJ(PROD,IPROD,IERROR) 65 IPQA(I)=IPQA(I)+IPROD 72 CALL XADJ(PROD,IPROD,IERROR) 78 IPROD=0 84 CALL XADJ(PROD,IPROD,IERROR)
|
H A D | dxpnrm.f | 55 IPROD=0 60 510 CALL DXADJ(PROD,IPROD,IERROR) 65 IPQA(I)=IPQA(I)+IPROD 72 CALL DXADJ(PROD,IPROD,IERROR) 78 IPROD=0 84 CALL DXADJ(PROD,IPROD,IERROR)
|
H A D | xpmup.f | 49 IPROD=0 54 220 CALL XADJ(PROD,IPROD,IERROR) 60 IPQA(I)=IPQA(I)+IPROD 65 CALL XADJ(PROD,IPROD,IERROR) 71 CALL XADJ(PROD,IPROD,IERROR)
|
H A D | dxpmup.f | 49 IPROD=0 54 220 CALL DXADJ(PROD,IPROD,IERROR) 60 IPQA(I)=IPQA(I)+IPROD 65 CALL DXADJ(PROD,IPROD,IERROR) 71 CALL DXADJ(PROD,IPROD,IERROR)
|
/dports/math/scilab/scilab-6.1.1/scilab/modules/elementary_functions/src/fortran/slatec/ |
H A D | dxlegf.f | 391 IPROD=0 396 220 CALL DXADJ(PROD,IPROD,IERROR) 402 IPQA(I)=IPQA(I)+IPROD 407 CALL DXADJ(PROD,IPROD,IERROR) 413 CALL DXADJ(PROD,IPROD,IERROR) 473 IPROD=0 478 510 CALL DXADJ(PROD,IPROD,IERROR) 483 IPQA(I)=IPQA(I)+IPROD 490 CALL DXADJ(PROD,IPROD,IERROR) 496 IPROD=0 [all …]
|
/dports/audio/faust/faust-2.37.3/compiler/parser/ |
H A D | faustparser.hpp | 137 IPROD = 353, enumerator 272 #define IPROD 353 macro
|
H A D | faustlexer.l | 199 "prod" return IPROD;
|
H A D | faustparser.y | 200 %token IPROD 638 fprod : IPROD LPAR ident PAR argument PAR expression RPAR
|
H A D | faustparser.cpp | 164 IPROD = 353, enumerator 299 #define IPROD 353 macro
|
H A D | faustlexer.cpp | 1791 return IPROD;
|
/dports/biology/cufflinks/cufflinks-2.2.1-89-gdc3b0cb/src/locfit/ |
H A D | density.c | 400 { if (mi[MKT]==KPROD) return(IPROD); 402 return( (mi[MDIM]==1) ? IPROD : IMULT ); 404 if (mi[MDIM]==1) return(IPROD); 410 if ((mi[MDIM]==1)|(mi[MKT]==KPROD)) return(IPROD); 429 case IPROD: return( ((mi[MDIM]==1) | (mi[MKT]==KPROD)) ? IPROD : INVLD ); 460 case IPROD: des->itype = prodint; break;
|
H A D | lfcons.h | 194 #define IPROD 3 macro
|
H A D | lfstr.c | 83 static int ivals[6] = { IDEFA, IMULT, IPROD, IMLIN, IHAZD, IMONT };
|
/dports/misc/libemos/libemos-4.5.9-Source/tests/ms_apps/ |
H A D | singlePointInterpolation_eccodes.f90 | 22 INTEGER :: IPROD variable 119 IPROD = 0
|
H A D | singlePointInterpolation.f90 | 22 INTEGER :: IPROD variable 119 IPROD = 0
|
/dports/misc/libemos/libemos-4.5.9-Source/tools/bufrtools_wmo/ |
H A D | emoslib_bufr_filter.F | 1141 IPROD=0 1211 if(IPROD.eq.0) IPROD=I 1478 IF(IPR.NE.0.AND.IPROD.NE.0) THEN 1479 IM=IPROD+IKEL
|
/dports/sysutils/sg3_utils/sg3_utils-1.42/scripts/ |
H A D | rescan-scsi-bus.sh | 152 IPROD=$(cat ${SCSIPATH}/device/model) 154 SCSIDEV=$(printf ' Vendor: %-08s Model: %-16s Rev: %-4s' "$IVEND" "$IPROD" "$IPREV") 269 IPROD=`echo "$INQ" | grep 'Product identification:' | sed 's/^[^:]*: \(.*\)$/\1/'` 271 STR=`printf " Vendor: %-08s Model: %-16s Rev: %-4s" "$IVEND" "$IPROD" "$IPREV"`
|
/dports/graphics/dataplot/dataplot-2c1b27601a3b7523449de612613eadeead9a8f70/src/ |
H A D | dp36.F | 3883 IPROD=IPROD+1 3884 IF(IPROD.LT.1)IPROD=1 3885 IF(IPROD.GT.NPART)IPROD=NPART 4002 IPROD=INT(PROD) 4003 IPROD=IPROD+1 4004 IF(IPROD.LT.1)IPROD=1 4005 IF(IPROD.GT.NPAR)IPROD=NPAR 4006 X(I)=IPROD 5320 IPROD=0 5404 IPROD=0 [all …]
|