| /dports/devel/universal-ctags/ctags-p5.9.20211128.0/Units/parser-fortran.r/stdcall.f.d/ |
| H A D | input.f | 11 DOUBLE PRECISION H, XEND
26 COMMON XEND, H, K
30 XEND = 10.0D0
43 H = (XEND-X)/DBLE(K+1)
47 CALL D02CJF(X,XEND,N,Y,FCN,TOL,VAL(LOC(RELABS)),VAL(7),OUT,G,W,!CHANGE
66 CALL D02CJF(X,XEND,N,Y,FCN,TOL,VAL(LOC(RELABS)),VAL(7),D02CJX, !CHANGE
84 H = (XEND-X)/DBLE(K+1)
88 CALL D02CJF(X,XEND,N,Y,FCN,TOL,VAL(LOC(RELABS)),VAL(7),OUT, CHANGE
133 DOUBLE PRECISION H, XEND
140 COMMON XEND, H, I
[all …]
|
| /dports/devel/geany-legacy/geany-1.37.1/tests/ctags/ |
| H A D | stdcall.f | 11 DOUBLE PRECISION H, XEND
26 COMMON XEND, H, K
30 XEND = 10.0D0
43 H = (XEND-X)/DBLE(K+1)
47 CALL D02CJF(X,XEND,N,Y,FCN,TOL,VAL(LOC(RELABS)),VAL(7),OUT,G,W,!CHANGE
66 CALL D02CJF(X,XEND,N,Y,FCN,TOL,VAL(LOC(RELABS)),VAL(7),D02CJX, !CHANGE
84 H = (XEND-X)/DBLE(K+1)
88 CALL D02CJF(X,XEND,N,Y,FCN,TOL,VAL(LOC(RELABS)),VAL(7),OUT, CHANGE
133 DOUBLE PRECISION H, XEND
140 COMMON XEND, H, I
[all …]
|
| /dports/devel/geany/geany-1.38/tests/ctags/ |
| H A D | stdcall.f | 11 DOUBLE PRECISION H, XEND
26 COMMON XEND, H, K
30 XEND = 10.0D0
43 H = (XEND-X)/DBLE(K+1)
47 CALL D02CJF(X,XEND,N,Y,FCN,TOL,VAL(LOC(RELABS)),VAL(7),OUT,G,W,!CHANGE
66 CALL D02CJF(X,XEND,N,Y,FCN,TOL,VAL(LOC(RELABS)),VAL(7),D02CJX, !CHANGE
84 H = (XEND-X)/DBLE(K+1)
88 CALL D02CJF(X,XEND,N,Y,FCN,TOL,VAL(LOC(RELABS)),VAL(7),OUT, CHANGE
133 DOUBLE PRECISION H, XEND
140 COMMON XEND, H, I
[all …]
|
| /dports/math/cmlib/cmlib-3.0_8/src/bvsup/ |
| H A D | rkfab.f | 30 1 NSWOT,KNSWOT,LOTJP,PWCND,TND,XOT,PX,XEND
50 WORK(1) = XEND
70 IF (XEND.GT.XBEG.AND.XOP.GT.Z(JON)) XXOP=Z(JON)
71 IF (XEND.LT.XBEG.AND.XOP.LT.Z(JON)) XXOP=Z(JON)
99 IF (INHOMO .EQ. 3 .AND. X .EQ. XEND) JFLAG=3
117 IF (X .EQ. XEND) GO TO 65
|
| H A D | reort.f | 43 1 NSWOT,KNSWOT,LOTJP,PWCND,TND,XOT,PX,XEND
56 IF ((XEND-X)*(X-XOT) .LT. 0.) RETURN
114 IF (ABS(DX*DNDT) .GT. DND*ABS(XEND-X)) GO TO 40
117 40 XOT=XEND
|
| H A D | bvsup.f | 422 1 NSWOT,KNSWOT,LOTJP,PWCND,TND,XOT,PX,XEND
671 XEND=XPTS(NXPTS)
672 XSAV=XEND
674 IF (INHOMO .EQ. 3 .AND. NOPG .EQ. 1) WORK(MXNON+1)=XEND
|
| H A D | bvpor.f | 128 1 NSWOT,KNSWOT,LOTJP,PWCND,TND,XOT,PX,XEND
193 XOT=XEND
237 IF (XEND.GT.XBEG .AND. XPTS(KPTS).GE.Z(K)) GO TO 170
238 IF (XEND.LT.XBEG .AND. XPTS(KPTS).LE.Z(K)) GO TO 170
|
| /dports/math/slatec/src/ |
| H A D | rkfab.f | 42 COMMON /ML15TO/ PX,PWCND,TND,X,XBEG,XEND,XOT,XOP,INFO(15),ISTKOP,
64 WORK(1) = XEND
84 IF (XEND.GT.XBEG.AND.XOP.GT.Z(JON)) XXOP=Z(JON)
85 IF (XEND.LT.XBEG.AND.XOP.LT.Z(JON)) XXOP=Z(JON)
113 IF (INHOMO .EQ. 3 .AND. X .EQ. XEND) JFLAG=3
131 IF (X .EQ. XEND) GO TO 65
|
| H A D | drkfab.f | 43 2 V(NCOMP,*), W(NFCC,*), WORK(*), X, XBEG, XEND, XOP,
49 COMMON /DML15T/ PX,PWCND,TND,X,XBEG,XEND,XOT,XOP,INFO(15),ISTKOP,
73 WORK(1) = XEND
100 IF (XEND .GT. XBEG .AND. XOP .GT. Z(JON))
102 IF (XEND .LT. XBEG .AND. XOP .LT. Z(JON))
154 IF (INHOMO .EQ. 3 .AND. X .EQ. XEND)
193 IF (X .EQ. XEND) GO TO 150
|
| H A D | dreort.f | 59 1 SRP, STOWA(*), TND, TOL, VNORM, W(*), WCND, X, XBEG, XEND,
65 COMMON /DML15T/ PX,PWCND,TND,X,XBEG,XEND,XOT,XOP,INFO(15),ISTKOP,
85 IF ((XEND - X)*(X - XOT) .LT. 0.0D0) GO TO 210
153 XOT = XEND
163 IF (ABS(DX*DNDT) .LE. DND*ABS(XEND-X)) GO TO 80
164 XOT = XEND
|
| H A D | reort.f | 58 COMMON /ML15TO/ PX,PWCND,TND,X,XBEG,XEND,XOT,XOP,INFO(15),ISTKOP,
73 IF ((XEND-X)*(X-XOT) .LT. 0.) RETURN
131 IF (ABS(DX*DNDT) .GT. DND*ABS(XEND-X)) GO TO 40
134 40 XOT=XEND
|
| H A D | dbvpor.f | 144 3 V(NCOMP,*), W(NFCC,*), WORK(*), X, XBEG, XEND, XOP,
151 COMMON /DML15T/ PX,PWCND,TND,X,XBEG,XEND,XOT,XOP,INFO(15),ISTKOP,
224 XOT = XEND
276 IF (XEND .GT. XBEG .AND. XPTS(KPTS) .GE. Z(K))
279 IF (XEND .LT. XBEG .AND. XPTS(KPTS) .LE. Z(K))
|
| H A D | dbvsup.f | 423 3 XEND, XOP, XOT, XPTS(*), XSAV, Y(NROWY,*)
449 COMMON /DML15T/ PX,PWCND,TND,X,XBEG,XEND,XOT,XOP,INFO(15),ISTKOP,
723 XEND = XPTS(NXPTS)
724 XSAV = XEND
726 IF (INHOMO .EQ. 3 .AND. NOPG .EQ. 1) WORK(MXNON+1) = XEND
|
| H A D | dexbvp.f | 41 2 URO, WORK(*), X, XBEG, XEND, XL, XOP, XOT, XPTS(*), XSAV,
51 COMMON /DML15T/ PX,PWCND,TND,X,XBEG,XEND,XOT,XOP,INFO(15),ISTKOP,
97 XL = ABS(XEND-XBEG)
|
| H A D | bvpor.f | 142 COMMON /ML15TO/ PX,PWCND,TND,X,XBEG,XEND,XOT,XOP,INFO(15),ISTKOP,
209 XOT=XEND
253 IF (XEND.GT.XBEG .AND. XPTS(KPTS).GE.Z(K)) GO TO 170
254 IF (XEND.LT.XBEG .AND. XPTS(KPTS).LE.Z(K)) GO TO 170
|
| H A D | bvsup.f | 433 COMMON /ML15TO/ PX,PWCND,TND,X,XBEG,XEND,XOT,XOP,INFO(15),ISTKOP,
682 XEND=XPTS(NXPTS)
683 XSAV=XEND
685 IF (INHOMO .EQ. 3 .AND. NOPG .EQ. 1) WORK(MXNON+1)=XEND
|
| H A D | dstway.f | 33 1 V(*), X, XBEG, XEND, XOP, XOT, XSAV, YHP(*)
36 COMMON /DML15T/ PX,PWCND,TND,X,XBEG,XEND,XOT,XOP,INFO(15),ISTKOP,
|
| /dports/math/math77/MATH77/demo/extras/ |
| H A D | pl02-17.f | 9 real DX, OPT(28), OPTX(7), X0, XEND, X(MAX1), Y(MAX1, 4) variable
27 XEND = XB - .5E0 * DX
36 if (X(I) .ge. XEND) go to 100
|
| /dports/science/py-scipy/scipy-1.7.1/scipy/integrate/dop/ |
| H A D | dopri5.f | 1 SUBROUTINE DOPRI5(N,FCN,X,Y,XEND, argument
302 HMAX=XEND-X
338 CALL DOPCOR(N,FCN,X,Y,XEND,HMAX,H,RTOL,ATOL,ITOL,IPRINT,
356 SUBROUTINE DOPCOR(N,FCN,X,Y,XEND,HMAX,H,RTOL,ATOL,ITOL,IPRINT, argument
384 POSNEG=SIGN(1.D0,XEND-X)
394 IF (H.EQ.0.D0) H=HINIT(N,FCN,X,Y,XEND,POSNEG,K1,K2,K3,IORD,
412 IF ((X+1.01D0*H-XEND)*POSNEG.GT.0.D0) THEN
413 H=XEND-X
558 FUNCTION HINIT(N,FCN,X,Y,XEND,POSNEG,F0,F1,Y1,IORD,
|
| /dports/science/siconos/siconos-4.4.0/externals/hairer/ |
| H A D | radau5.f | 1 SUBROUTINE RADAU5(N,FCN,X,Y,XEND,H, argument
521 HMAX=XEND-X
630 CALL RADCOR(N,FCN,X,Y,XEND,HMAX,H,RTOL,ATOL,ITOL,
667 SUBROUTINE RADCOR(N,FCN,X,Y,XEND,HMAX,H,RTOL,ATOL,ITOL, argument
739 POSNEG=SIGN(1.D0,XEND-X)
740 HMAXN=MIN(ABS(HMAX),ABS(XEND-X))
748 IF ((X+H*1.0001D0-XEND)*POSNEG.GE.0.D0) THEN
749 H=XEND-X
1063 IF ((X+HNEW/QUOT1-XEND)*POSNEG.GE.0.D0) THEN
1064 H=XEND-X
|
| H A D | radaup.f | 1 SUBROUTINE RADAUP(N,FCN,X,Y,XEND,H, argument
537 HMAX=XEND-X
643 CALL RADCOP(N,FCN,X,Y,XEND,HMAX,H,RTOL,ATOL,ITOL,
678 SUBROUTINE RADCOP(N,FCN,X,Y,XEND,HMAX,H,RTOL,ATOL,ITOL, argument
723 POSNEG=SIGN(1.D0,XEND-X)
724 HMAXN=MIN(ABS(HMAX),ABS(XEND-X))
732 IF ((X+H*1.0001D0-XEND)*POSNEG.GE.0.D0) THEN
733 H=XEND-X
1064 IF ((X+HNEW/QUOT1-XEND)*POSNEG.GE.0.D0) THEN
1065 H=XEND-X
|
| /dports/science/siconos/siconos-4.4.0/externals/hairer/test/ |
| H A D | dr1_radau5.f | 28 XEND=2.0D0
41 CALL RADAU5(N,FVPOL,X,Y,XEND,H,
|
| H A D | dr_radaup.f | 30 XEND=2.0D0
43 CALL RADAUP(N,FVPOL,X,Y,XEND,H,
|
| H A D | dr_radau.f | 29 XEND=2.0D0
42 CALL RADAU(N,FVPOL,X,Y,XEND,H,
|
| H A D | dr_rodas.f | 30 XEND=2.0D0
42 CALL RODAS(N,FVPOL,IFCN,X,Y,XEND,H,
|