Home
last modified time | relevance | path

Searched refs:IPROD (Results 1 – 25 of 34) sorted by relevance

12

/dports/graphics/xd3d/xd3d-8.3.1/src/trad_nopo/
H A Dcherche_opposee.f1 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 Dcherche_vois.f38 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 Dassemble.f144 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 Dxspnrm.f46 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 Dxdpnrm.f46 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 Dxspmup.f41 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 Dxdpmup.f41 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 Dxpnrm.f55 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 Ddxpnrm.f55 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 Dxpmup.f49 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 Ddxpmup.f49 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 Ddxlegf.f391 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 Dfaustparser.hpp137 IPROD = 353, enumerator
272 #define IPROD 353 macro
H A Dfaustlexer.l199 "prod" return IPROD;
H A Dfaustparser.y200 %token IPROD
638 fprod : IPROD LPAR ident PAR argument PAR expression RPAR
H A Dfaustparser.cpp164 IPROD = 353, enumerator
299 #define IPROD 353 macro
H A Dfaustlexer.cpp1791 return IPROD;
/dports/biology/cufflinks/cufflinks-2.2.1-89-gdc3b0cb/src/locfit/
H A Ddensity.c400 { 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 Dlfcons.h194 #define IPROD 3 macro
H A Dlfstr.c83 static int ivals[6] = { IDEFA, IMULT, IPROD, IMLIN, IHAZD, IMONT };
/dports/misc/libemos/libemos-4.5.9-Source/tests/ms_apps/
H A DsinglePointInterpolation_eccodes.f9022 INTEGER :: IPROD variable
119 IPROD = 0
H A DsinglePointInterpolation.f9022 INTEGER :: IPROD variable
119 IPROD = 0
/dports/misc/libemos/libemos-4.5.9-Source/tools/bufrtools_wmo/
H A Demoslib_bufr_filter.F1141 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 Drescan-scsi-bus.sh152 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 Ddp36.F3883 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 …]

12