/dports/graphics/xd3d/xd3d-8.3.1/src/graphic/ |
H A D | film.f | 72 IREACH(IC) = MAX(2,MIN(NUMPT,NPOINT(IC))) 97 NP = MIN(NUMANI,NPOINT(IC)-IREACH(IC))+1 112 IF (IREACH(IC).LT.NPOINT(IC)) IFINI = 1 126 CALL GSPLNE_SPEED(NPOINT(IC),XPOINT(1+NDEB(IC)) 129 NP = MAX(2,MIN(NUMPT,NPOINT(IC))) 130 II = NPOINT(IC)-NP+1 201 CALL GSPLNE_SPEED(NPOINT(ICOURB),XPOINT(1+NDEB(ICOURB)) 208 CALL GSMRKS(NPOINT(ICOURB),XPOINT(1+NDEB(ICOURB)) 229 CALL GSPLNE_SPEED(NPOINT(1),XPOINT(1),YPOINT(1)) 241 CALL GSPLNE_SPEED(NPOINT(1),XPOINT(1),YPOINT(1)) [all …]
|
H A D | trace.f | 59 IF (ILT(ICOURB).GE.0.AND.NPOINT(ICOURB).GT.1) THEN 69 DO I=1,NPOINT(ICOURB) 73 IF (I.LT.NPOINT(ICOURB)) THEN 133 CALL GSMRKS(NPOINT(ICOURB) 143 DO I=1,NPOINT(ICOURB) 171 DO I=1,NPOINT(ICOURB) 203 DO I=1,NPOINT(ICOURB) 212 ELSEIF(M.EQ.1.AND.I.GT.1.AND.I.LT.NPOINT(ICOURB)) THEN
|
H A D | param.f | 7 INTEGER NPOINT(NCMAX) variable 16 COMMON / BID / XPOINT,YPOINT,NPOINT local
|
H A D | borne.f | 12 DO I=1,NPOINT(NC)
|
H A D | graph.f | 358 NPOINT(I) = MAX(2,MIN(MEM-NPTOT,NPOINT(I))) 366 PAS = (XXMA-XXMI)/REAL(NPOINT(I)-1) 380 DO K=1,NPOINT(I) 397 ITROU(NDEB(I)+1) = NPOINT(I) 400 NPTOT = NPTOT+NPOINT(I) 420 IF (NPOINT(I).EQ.0) THEN 425 NPPM = MAX(NPPM,NPOINT(I)) 510 NPPM = MAX(NPPM,NPOINT(I)) 2165 DO J=1,NPOINT(I) 2495 DO J=1,NPOINT(II) [all …]
|
H A D | lectur.f | 42 NPOINT(III) = 0 177 NPOINT(III) = NN 180 DO I=1,NPOINT(III)
|
/dports/science/dalton/dalton-66052b3af5ea7225e31178bf9a8b031913c72190/DALTON/srdft/ |
H A D | dftgrd_srdft.F | 516 DIMENSION X(NPOINT),Y(NPOINT),Z(NPOINT),WT(NPOINT) 517 WRITE(LUQUAD) NPOINT 518 IF (NPOINT .GT. 0) WRITE(LUQUAD) X,Y,Z,WT 532 DIMENSION X(NPOINT),Y(NPOINT),Z(NPOINT),WT(NPOINT) 549 READ(LUQUAD) NPOINT 550 IF (NPOINT .LT. 0) GO TO 200 551 CALL PRIQU2(X,Y,Z,WT,LUQUAD,NPOINT) 567 DIMENSION X(NPOINT),Y(NPOINT),Z(NPOINT),WT(NPOINT) 569 DO 100 I = 1, NPOINT 945 DIMENSION X(NPOINT),Y(NPOINT),Z(NPOINT),WT(NPOINT) [all …]
|
H A D | dftdrv_srdft.F | 240 READ(LUQUAD) NPOINT 241 IF (NPOINT.GT.0) THEN 242 NPNTS = NPNTS + NPOINT 243 CALL REAQUA_OLD(CORX,CORY,CORZ,WEIGHT,LUQUAD,NPOINT) 245 DO 300 IPNT = 1+MYNUM, NPOINT, NODTOT+1 247 DO 300 IPNT = 1, NPOINT 378 ELSE IF (NPOINT .EQ.0 ) THEN
|
H A D | srdft.F | 1052 READ(LUQUAD) NPOINT 1055 IF (NPOINT.GT.0) THEN 1066 CALL REAQUA_OLD(CORX,CORY,CORZ,WEIGHT,LUQUAD,NPOINT) 1284 ELSE IF (NPOINT .EQ.0 ) THEN 1672 READ(LUQUAD) NPOINT 1673 IF (NPOINT.GT.0) THEN 1674 NPNTS = NPNTS + NPOINT 1675 CALL REAQUA_OLD(CORX,CORY,CORZ,WEIGHT,LUQUAD,NPOINT) 1677 DO 300 IPNT = 1+MYNUM, NPOINT, NODTOT+1 1679 DO 300 IPNT = 1, NPOINT [all …]
|
H A D | srdftjt.F | 102 & NORDER, NPNT1, NPNTS, NPNTS_PER_NODE, NPOINT, NSKIP1, 281 READ(LUQUAD) NPOINT 283 write(lupri,*) 'MYNUM, NPOINT from LUQUAD',MYNUM,NPOINT 286 IF (NPOINT.GT.0) THEN 288 NPNTS = NPNTS + NPOINT ! last integration point from this record 301 CALL REAQUA_OLD(CORX,CORY,CORZ,WEIGHT,LUQUAD,NPOINT) 595 ELSE IF (NPOINT .EQ.0 ) THEN
|
/dports/databases/grass7/grass-7.8.6/vector/v.vol.rst/ |
H A D | user1.c | 86 NPOINT = 0; in INPUT() 220 NPOINT++; in INPUT() 313 if (NPOINT > 0) in INPUT() 316 NPOINT, k - NPOINT); in INPUT() 317 NPOINT = k - NPOINT - NPT - OUTRANGE; in INPUT() 318 if (NPOINT < KMIN) { in INPUT() 319 if (NPOINT != 0) { in INPUT() 322 NPOINT, KMIN); in INPUT() 323 KMIN = NPOINT; in INPUT() 330 if (NPOINT > KMAXPOINTS && KMIN <= KMAX) { in INPUT() [all …]
|
H A D | userextern.h | 6 extern int NPOINT;
|
H A D | main.c | 97 int NPOINT = 0; variable 571 KMAX2 =(NPOINT >= KMAXPOINTS ? KMAXPOINTS : NPOINT); in main() 906 NPOINT); in main()
|
/dports/science/siesta/siesta-4.1.5/Src/ |
H A D | electrostatic.f | 96 PARAMETER ( NPOINT = 4 ) 103 . GRCH(3),RX(3),RAUX(2*NPOINT+1) 177 NMIN=MAX(0,NR-NPOINT) 178 NMAX=MIN(NQ,NR+NPOINT)
|
/dports/science/dalton/dalton-66052b3af5ea7225e31178bf9a8b031913c72190/DALTON/dft/ |
H A D | dft_old.F | 183 READ(LUQUAD) NPOINT 184 IF (NPOINT.GT.0) THEN 185 NPNTS = NPNTS + NPOINT 186 CALL REAQUA_OLD(CORX,CORY,CORZ,WEIGHT,LUQUAD,NPOINT) 187 DO 300 IPNT = 1, NPOINT 305 ELSE IF (NPOINT .EQ.0 ) THEN 977 READ(LUQUAD) NPOINT 978 IF (NPOINT.GT.0) THEN 979 CALL REAQUA_OLD(CORX,CORY,CORZ,WEIGHT,LUQUAD,NPOINT) 980 DO 300 IPNT = 1, NPOINT [all …]
|
/dports/databases/grass7/grass-7.8.6/raster/r.resamp.rst/ |
H A D | main.c | 58 static int NPOINT; variable 483 NPOINT = in main() 494 if (NPOINT < 0) { in main() 515 &dnorm, &outhd, &winhd, smooth, NPOINT) < 0) { in main()
|
/dports/science/xcrysden/xcrysden-1.6.2/F/ |
H A D | box.f | 46 INTEGER NPOINT(6),NVEC(6),VECPAIR(2,3,6) local 54 DATA NPOINT/4,4,3,4,4,3/
|
/dports/databases/grass7/grass-7.8.6/vector/v.surf.rst/ |
H A D | main.c | 69 static int NPOINT = 0; variable 657 &ymin, &ymax, &zmin, &zmax, &NPOINT, &dmax); in main() 717 dnorm = sqrt((deltx * delty * KMIN) / NPOINT); in main() 763 dtens, 1, NPOINT); in main()
|
/dports/science/dalton/dalton-66052b3af5ea7225e31178bf9a8b031913c72190/DALTON/abacus/ |
H A D | her1int.F | 41 NPOINT = NPQUAD 44 NPOINT = 1 47 NPOINT = 1 50 NPOINT = 1 56 NPOINT = 1 59 NPOINT = 1 62 NPOINT = 1 97 & WEIGHT(NPOINT), ABSCIS(NPOINT), INTADR(*), 825 & WEIGHT(NPOINT), ABSCIS(NPOINT), INTADR(*), 873 & WEIGHT(NPOINT), ABSCIS(NPOINT), FACINT(*), [all …]
|
H A D | her2odc.F | 85 & NRED12,KHKT1,KHKT2,EXPECT,DIRFCK,NPOINT,NREDP1, 112 & NPOINT(NUC1*NUC2,2,NODC12), NPNT12(NUC1*NUC2,2,NODC12), 213 CALL IZERO(NPOINT,NUC1*NUC2*NODC12) 284 NPOINT(IPRIM,1,ISYM) = IPRM1 285 NPOINT(IPRIM,2,ISYM) = IPRM2 336 I = NFTOR1(NPOINT(IJ,1,ISYM)) 337 J = NFTOR2(NPOINT(IJ,2,ISYM))
|
H A D | her2fck.F | 774 & NPOINT,IATOM,IXYZ,NMAT,ISYMDM,IFCTYP,IPRINT) argument 794 & NINDEX(0:MAXREP), NPOINT(NMAT,0:MAXREP), 915 NPOINT(IMAT,ISYM) = NINDEX(ISYMPR) 947 NP = NPOINT(N,ISYMOP)
|
H A D | abaptr.F | 1415 NPOINT = 2*NPS + 2 1432 JBIN = JPOINT + NPOINT + 1 1503 1 ITAB,NTOP,SORT,NPOINT,NPS1, INDGEN, 1621 IF (LOC .GE. NPOINT) GOTO 50 1630 IF (LOC .GE. NPOINT) GOTO 50 1641 NPOINU = MIN(LOC,NPOINT)
|
/dports/science/libccp4/libccp4-6.5.1/fortran/ |
H A D | plot84lib.f | 1769 INTEGER I,IEND,ISTART,NCHAR,NPOINT 1808 IEND = ISTART + NPOINT - 1 11449 INTEGER NPOINT 11452 REAL XVEC(NPOINT),YVEC(NPOINT) 11471 IF (NPOINT.GE.2) THEN 11472 DO 10 J = 2,NPOINT 12637 IF (NPC.GE.0 .AND. NPC.LT.NPOINT) NPOINT = NPC 12638 IEND = ISTART + NPOINT - 1 13279 INTEGER ICOLR,LWT,N,NPOINT 13485 ENTRY VECGS(XVEC,YVEC,NPOINT) [all …]
|
/dports/science/sparta/sparta-20Oct2021/src/ |
H A D | write_restart.cpp | 43 NPARTICLE,NUNSPLIT,NSPLIT,NSUB,NPOINT,NSURF, enumerator
|
/dports/graphics/dataplot/dataplot-2c1b27601a3b7523449de612613eadeead9a8f70/src/ |
H A D | dp15.F | 16869 NPOINT=0 17076 NSTRT=NPOINT+1 17080 NPOINT=NPOINT+1 17081 D2(N2+NPOINT)=ATAG 17083 X2(N2+NPOINT)=X(K) 17084 X3D(N2+NPOINT)=XHIGH(K) 17088 X2(N2+NPOINT)=DCLMDJ 17093 ABASE=Y2(N2+NPOINT-NUMCLA) 17106 Y2(N2+NPOINT)=CUMFJ + ABASE 17116 NSTOP=NPOINT [all …]
|