| /dports/science/isaac-cfd/isaac-4.2_16/turb/2eqn/ |
| H A D | kepsln.F | 64 2 TKE (NPTS),
65 3 FMU (NPTS)
80 DO 100 I = 1, NPTS
88 DO 200 I = 1, NPTS
113 DO 300 I = 1, NPTS
222 DO 100 I = 1, NPTS
233 DO 200 I = 1, NPTS
260 DO 300 I = 1, NPTS
314 DO 400 I = 1, NPTS
994 DO 100 I = 1, NPTS
[all …]
|
| H A D | komega.F | 78 SUBROUTINE SRCKW (NPTS, Q, PROPS, DQDX, DQDY, DQDZ, TAU, SRC, argument
101 DIMENSION Q (NPTS,NQ),
102 1 PROPS (NPTS,NP)
104 DIMENSION DQDX (NPTS,NQ),
105 1 DQDY (NPTS,NQ),
106 2 DQDZ (NPTS,NQ),
107 3 TAU (NPTS,6),
108 4 SRC (NPTS,NF)
112 DO 100 I = 1, NPTS
|
| /dports/science/afni/afni-AFNI_21.3.16/src/ |
| H A D | Wavelets.c | 136 NPTS = powerof2 (N); in FWT_1d_filter()
169 N = my_log2(NPTS); in FWT_1d_stop_filter()
179 maxtr = NPTS-1; in FWT_1d_stop_filter()
235 N = my_log2 (NPTS); in FWT_1d_pass_filter()
245 maxtr = NPTS-1; in FWT_1d_pass_filter()
427 N = my_log2(NPTS); in wavelet_analysis()
439 for (it = 0; it < NPTS; it++) in wavelet_analysis()
458 for (it = 0; it < NPTS; it++) in wavelet_analysis()
473 for (it = 0; it < NPTS; it++) in wavelet_analysis()
479 for (it = 0; it < NPTS; it++) in wavelet_analysis()
[all …]
|
| /dports/science/isaac-cfd/isaac-4.2_16/implicit/ |
| H A D | af3dia.F | 270 NPTS = IDIM - 1
568 NPTS = JDIM - 1
866 NPTS = KDIM - 1
929 DO 100 I = 1, NPTS
987 DO 100 I = 1, NPTS
1005 DO 200 I = 1, NPTS
1024 DO 210 I = 1, NPTS
1085 DO 100 I = 1, NPTS
1123 DO 210 I = 1, NPTS
1210 DO 100 I = 1, NPTS
[all …]
|
| /dports/science/cantera/cantera-2.5.1-611-gc4d6ecc15/samples/f77/ |
| H A D | isentropic.f | 13 parameter (oneatm = 1.01325d5, NPTS = 200)
14 double precision a(NPTS), dmach(NPTS), t(NPTS),
15 $ ratio(NPTS)
30 do n = 1, NPTS
31 p = p0*n/(NPTS+1)
49 do n = 1, NPTS
|
| /dports/science/isaac-cfd/isaac-4.2_16/rhs/ |
| H A D | invscd.F | 120 2 TKE (NPTS),
121 3 H (NPTS),
129 DO 100 I = 1, NPTS
136 DO 110 I = 1, NPTS
148 DO 120 I = 1, NPTS
157 DO 200 I = 1, NPTS
170 DO 300 I = 1, NPTS
197 DO 400 I = 1, NPTS
215 DO 410 I = 1, NPTS
436 DO 200 I = 1, NPTS
[all …]
|
| /dports/misc/libemos/libemos-4.5.9-Source/interpolation/ |
| H A D | kintrg.F | 95 INTEGER LATIT, LONG, IRET, NPTS
222 NPTS = OLDGEO(NPOINTS-1+LAT(NORTH))
226 LON(NWEST) = 1 + INT(RLON/(360.0/REAL(NPTS)))
228 IF( LON(NEAST).GT.NPTS ) LON(NEAST) = 1
232 OLON(NWEST) = (REAL(LON(NWEST)-1)*360.0)/REAL(NPTS)
236 OLON(NEAST) = (REAL(LON(NEAST)-1)*360.0)/REAL(NPTS)
241 NPTS = OLDGEO(NPOINTS-1+LAT(SOUTH))
243 LON(SWEST) = 1 + INT(RLON/(360.0/REAL(NPTS)))
246 IF( LON(SEAST).GT.NPTS ) LON(SEAST) = 1
248 OLON(SWEST) = (REAL(LON(SWEST)-1)*360.0)/REAL(NPTS)
[all …]
|
| H A D | newisl.F | 93 INTEGER LATIT, LONG, NEWTYPE, IRET, NPTS
236 NPTS = OLDGEO(NPOINTS-1+LAT(NORTH))
237 LON(NWEST) = 1 + INT(RLON/(360.0/REAL(NPTS)))
239 IF( LON(NEAST).GT.NPTS ) LON(NEAST) = 1
241 OLON(NWEST) = (REAL(LON(NWEST)-1)*360.0)/REAL(NPTS)
245 OLON(NEAST) = (REAL(LON(NEAST)-1)*360.0)/REAL(NPTS)
248 NPTS = OLDGEO(NPOINTS-1+LAT(SOUTH))
249 LON(SWEST) = 1 + INT(RLON/(360.0/REAL(NPTS)))
251 IF( LON(SEAST).GT.NPTS ) LON(SEAST) = 1
253 OLON(SWEST) = (REAL(LON(SWEST)-1)*360.0)/REAL(NPTS)
[all …]
|
| /dports/science/dcl/dcl-5.4.8/src/grph2/umpack/ |
| H A D | umpmap.f | 53 READ(IU,IOSTAT=IOS) NPTS,IGID,XLATMX,XLATMN,XLONMX,XLONMN,
54 + (XLAT(I),XLON(I),I=1,NPTS/2)
56 IF (NPTS.GE.2) THEN
58 DO 15 N=1, NPTS/2
65 DO 25 N = N0+1, NPTS/2
70 IF (NM .GT. NPTS/2) THEN
72 NM = NPTS/2
93 IF (NM .EQ. NPTS/2) GO TO 45
96 CALL SZPLZU(NPTS/2,XLON,XLAT)
|
| H A D | umfmap.f | 49 READ(IU,IOSTAT=IOS) NPTS,IGID,XLATMX,XLATMN,XLONMX,XLONMN,
50 + (XLAT(I),XLON(I),I=1,NPTS/2)
52 IF (NPTS .GT. 10 .OR.
53 + (XLON(1).EQ.XLON(NPTS/2) .AND. XLAT(1).EQ.XLAT(NPTS/2)))
56 CALL SGTNZU(NPTS/2,XLON,XLAT,IPLAND)
58 CALL SGTNZU(NPTS/2,XLON,XLAT,IPLAKE)
|
| /dports/math/plplot-ada/plplot-5.15.0/examples/c++/ |
| H A D | x18.cc | 42 static const int NPTS; member in x18
49 const int x18:: NPTS = 1000; member in x18
74 PLFLT *x = new PLFLT[NPTS]; in x18()
75 PLFLT *y = new PLFLT[NPTS]; in x18()
76 PLFLT *z = new PLFLT[NPTS]; in x18()
80 for ( i = 0; i < NPTS; i++ ) in x18()
82 z[i] = -1. + 2. * i / NPTS; in x18()
89 x[i] = r * cos( 2. * M_PI * 6. * i / NPTS ); in x18()
90 y[i] = r * sin( 2. * M_PI * 6. * i / NPTS ); in x18()
107 pls->line3( NPTS, x, y, z ); in x18()
[all …]
|
| H A D | x05.cc | 39 static const int NPTS; member in x05
42 const int x05::NPTS = 2047; member in x05
47 PLFLT *data = new PLFLT[NPTS]; in x05()
62 delta = 2.0 * M_PI / (PLFLT) NPTS; in x05()
63 for ( i = 0; i < NPTS; i++ ) in x05()
67 pls->hist( NPTS, data, -1.1, 1.1, 44, 0 ); in x05()
|
| /dports/math/plplot/plplot-5.15.0/examples/c++/ |
| H A D | x18.cc | 42 static const int NPTS; member in x18
49 const int x18:: NPTS = 1000; member in x18
74 PLFLT *x = new PLFLT[NPTS]; in x18()
75 PLFLT *y = new PLFLT[NPTS]; in x18()
76 PLFLT *z = new PLFLT[NPTS]; in x18()
80 for ( i = 0; i < NPTS; i++ ) in x18()
82 z[i] = -1. + 2. * i / NPTS; in x18()
89 x[i] = r * cos( 2. * M_PI * 6. * i / NPTS ); in x18()
90 y[i] = r * sin( 2. * M_PI * 6. * i / NPTS ); in x18()
107 pls->line3( NPTS, x, y, z ); in x18()
[all …]
|
| H A D | x05.cc | 39 static const int NPTS; member in x05
42 const int x05::NPTS = 2047; member in x05
47 PLFLT *data = new PLFLT[NPTS]; in x05()
62 delta = 2.0 * M_PI / (PLFLT) NPTS; in x05()
63 for ( i = 0; i < NPTS; i++ ) in x05()
67 pls->hist( NPTS, data, -1.1, 1.1, 44, 0 ); in x05()
|
| /dports/math/plplot-ada/plplot-5.15.0/examples/c/ |
| H A D | x18c.c | 19 #define NPTS 1000 macro
40 x = (PLFLT *) malloc( NPTS * sizeof ( PLFLT ) ); in main()
41 y = (PLFLT *) malloc( NPTS * sizeof ( PLFLT ) ); in main()
42 z = (PLFLT *) malloc( NPTS * sizeof ( PLFLT ) ); in main()
46 for ( i = 0; i < NPTS; i++ ) in main()
48 z[i] = -1. + 2. * i / NPTS; in main()
55 x[i] = r * cos( 2. * M_PI * 6. * i / NPTS ); in main()
56 y[i] = r * sin( 2. * M_PI * 6. * i / NPTS ); in main()
74 plline3( NPTS, x, y, z ); in main()
79 plstring3( NPTS, x, y, z, "⋅" ); in main()
|
| H A D | x05c.c | 6 #define NPTS 2047 macro
18 PLFLT data[NPTS], delta; in main()
30 delta = 2.0 * M_PI / (PLFLT) NPTS; in main()
31 for ( i = 0; i < NPTS; i++ ) in main()
35 plhist( NPTS, data, -1.1, 1.1, 44, 0 ); in main()
|
| /dports/math/plplot/plplot-5.15.0/examples/c/ |
| H A D | x18c.c | 19 #define NPTS 1000
40 x = (PLFLT *) malloc( NPTS * sizeof ( PLFLT ) );
41 y = (PLFLT *) malloc( NPTS * sizeof ( PLFLT ) );
42 z = (PLFLT *) malloc( NPTS * sizeof ( PLFLT ) );
46 for ( i = 0; i < NPTS; i++ )
48 z[i] = -1. + 2. * i / NPTS;
55 x[i] = r * cos( 2. * M_PI * 6. * i / NPTS );
56 y[i] = r * sin( 2. * M_PI * 6. * i / NPTS );
74 plline3( NPTS, x, y, z );
79 plstring3( NPTS, x, y, z, "⋅" );
|
| H A D | x05c.c | 6 #define NPTS 2047 macro
18 PLFLT data[NPTS], delta; in main()
30 delta = 2.0 * M_PI / (PLFLT) NPTS; in main()
31 for ( i = 0; i < NPTS; i++ ) in main()
35 plhist( NPTS, data, -1.1, 1.1, 44, 0 ); in main()
|
| /dports/graphics/pgplot/pgplot/src/ |
| H A D | pgcirc.f | 26 INTEGER NPTS,I,RADPIX local
31 NPTS = MAX(8, MIN(MAXPTS, RADPIX))
32 DO 10 I=1,NPTS
33 ANGLE = I*360.0/REAL(NPTS)/57.3
37 CALL PGPOLY (NPTS,X,Y)
|
| /dports/graphics/gle/gle-3.1.0/examples/ |
| H A D | alpha.c | 30 #define NPTS 6 macro
31 double radii [NPTS];
32 double radii_small [NPTS];
33 double points [NPTS][3];
34 float colors [NPTS][4];
35 float colors_thin [NPTS][4];
|
| /dports/science/dcl/dcl-5.4.8/src/env1/mapdata/ |
| H A D | cvmapd.f | 21 READ(IU1,'(2I8,4F8.3)',IOSTAT=IOS) NPTS,IGID,(FLIM(I),I=1,4)
23 IF (NPTS.GE.2) THEN
24 READ(IU1,'(10F8.3)') (PNTS(I),I=1,NPTS)
26 WRITE(IU2) NPTS,IGID,(FLIM(I),I=1,4),(PNTS(I),I=1,NPTS)
|
| /dports/math/slatec/ |
| H A D | dpchq1.f | 60 INTEGER I1, I2, I3, I4, I5, I6, I7, I8, I9, IFAIL, NPTS
70 NPTS = 1000
71 I1 = 1 + NPTS
72 I2 = I1 + NPTS
73 I3 = I2 + NPTS
74 CALL DEVCHK (LUN, KPRINT, NPTS, WORK(1), WORK(I1), WORK(I2),
|
| H A D | pchqk1.f | 59 INTEGER I1, I2, I3, I4, I5, I6, I7, I8, I9, IFAIL, NPTS
69 NPTS = 1000
70 I1 = 1 + NPTS
71 I2 = I1 + NPTS
72 I3 = I2 + NPTS
73 CALL EVCHCK (LUN, KPRINT, NPTS, WORK(1), WORK(I1), WORK(I2),
|
| /dports/graphics/pgplot/pgplot/drivers/old/ |
| H A D | vidriv.f | 52 INTEGER*2 I0, I1, J0, J1, NPTS local
174 NPTS = 0
281 IF (NPTS.EQ.0) THEN
282 NPTS = RBUF(1)
284 CALL GRIM00(BUF(2), NPTS) ! # vertices
287 NPTS = NPTS-1
293 IF (NPTS.EQ.0) THEN
|
| /dports/misc/openvdb/openvdb-9.0.0/openvdb_houdini/openvdb_houdini/ |
| H A D | GT_GEOPrimCollectVDB.cc | 70 enum { NPTS = 8 }; enumerator
73 appendBox(openvdb::Vec3s corners[NPTS]) in appendBox() argument
75 myVertexCounts.append(NPTS * 2); in appendBox()
117 Vec3s corners[NPTS]; in processGrid()
118 Coord lut[NPTS] = { in processGrid()
128 for (int i = 0; i < NPTS; i++) in processGrid()
141 const int NPTS = 6; in processGrid() local
142 openvdb::Vec3s lines[NPTS]; in processGrid()
151 for (int i = 0; i < NPTS; i++) in processGrid()
154 for (int i = 0; i < NPTS; i += 2) in processGrid()
|