/dports/math/py-CyLP/CyLP-0.91.4/cylp/input/netlib/ |
H A D | fffff800.mps | 124 E YP.FHR 125 E YP.2HR 126 E YP.3HR 127 E YP.SHR 128 E YP.FLR 129 E YP.2LR 130 E YP.3LR 131 E YP.SLR 132 E YP.FHV 3275 YP.DWLGS YP.DWLG. 1. YP.DPA. 1. [all …]
|
/dports/graphics/grx/grx249/test/ |
H A D | drawing.h | 18 GrLine(XP(10),YP(10),XP(40),YP(40),fg); in drawing() 19 GrLine(XP(40),YP(10),XP(10),YP(40),fg); in drawing() 20 GrLine(XP(35),YP(10),XP(65),YP(40),fg); in drawing() 21 GrLine(XP(35),YP(40),XP(65),YP(10),fg); in drawing() 22 GrLine(XP(70),YP(10),XP(90),YP(40),fg); in drawing() 23 GrLine(XP(70),YP(40),XP(90),YP(10),fg); in drawing() 25 GrBox(XP(70+2*ii),YP(10+3*ii),XP(90-2*ii),YP(40-3*ii),fg); in drawing() 27 GrFilledBox(XP(10),YP(50),XP(60),YP(90),fg); in drawing() 28 GrBox(XP(70),YP(50),XP(90),YP(90),fg); in drawing() 30 GrPlot(XP((RND() % 20U) + 70),YP((RND() % 40U) + 50),fg); in drawing() [all …]
|
/dports/misc/py-pyfiglet/pyfiglet-0.7.6/pyfiglet/fonts/ |
H A D | basic.flf | 14 YP$@ 17 YP$@ 33 YP YP $@ 273 YP YP$@ 329 YP YP$@ 369 YP YP YP$@ 457 YP YP$@ 529 YP YP$@ 585 YP YP$@ 625 YP YP YP$@ [all …]
|
/dports/misc/figlet-fonts/figlet-fonts-20121202/contributed/ |
H A D | basic.flf | 14 YP$@ 17 YP$@ 33 YP YP $@ 273 YP YP$@ 329 YP YP$@ 369 YP YP YP$@ 457 YP YP$@ 529 YP YP$@ 585 YP YP$@ 625 YP YP YP$@ [all …]
|
/dports/math/slatec/src/ |
H A D | hstart.f | 168 YP(J) = YPRIME(J)/WTJ 169 10 PV(J) = SPY(J) - YP(J) 175 30 PV(J) = SPY(J) - YP(J) 180 YPNORM = HVNRM(YP,NEQ) 207 50 YP(J) = YPRIME(J) 213 70 YP(J) = ETOL(J) 219 YPNORM = HVNRM(YP,NEQ) 230 IF (ABS(DELX*YP(J)) .GT. ETOL(J)) DELX=SIGN(ETOL(J)/YP(J),DX) 251 180 YP(J) = YP(J)/ETOL(J)**POWER 254 200 YP(J) = YP(J)/ETOL(J) [all …]
|
H A D | dhstrt.f | 3 + BIG, SPY, PV, YP, SF, RPAR, IPAR, H) 175 YP(J) = SF(J) - YPRIME(J) 177 DELF = DHVNRM(YP,NEQ) 216 YP(J) = YPRIME(J) 223 YP(J) = 1.0D0 225 DELF = DHVNRM(YP,NEQ) 238 CALL DF(A,PV,YP,RPAR,IPAR) 240 PV(J) = YP(J) - YPRIME(J) 248 PV(J) = YP(J) - SF(J) 273 YP(J) = DY [all …]
|
H A D | bvder.f | 2 SUBROUTINE BVDER (X, Y, YP, G, IPAR) argument 57 DIMENSION Y(*),YP(*),G(*) 72 IF (IVP .GT. 0) CALL UIVP(X,Y(IVP+1),YP(IVP+1)) 76 CALL FMAT(X,Y(NA),YP(NA)) 82 CALL FMAT(X,Y(NA),YP(NA)) 99 YP(L) = YP(L) + G(J)/C
|
H A D | dfehl.f | 2 SUBROUTINE DFEHL (DF, NEQ, T, Y, H, YP, F1, F2, F3, F4, F5, YS, argument 51 DOUBLE PRECISION CH, F1, F2, F3, F4, F5, H, RPAR, T, Y, YP, YS 52 DIMENSION Y(*),YP(*),F1(*),F2(*),F3(*),F4(*),F5(*), 58 YS(K) = Y(K) + CH*YP(K) 64 YS(K) = Y(K) + CH*(YP(K) + 3.0D0*F1(K)) 72 2 *(1932.0D0*YP(K) + (7296.0D0*F2(K) - 7200.0D0*F1(K))) 80 2 *((8341.0D0*YP(K) - 845.0D0*F3(K)) 89 2 *((-6080.0D0*YP(K) 101 2 *((902880.0D0*YP(K)
|
H A D | polyvl.f | 2 SUBROUTINE POLYVL (NDER, XX, YFIT, YP, N, X, C, WORK, IERR) argument 76 DIMENSION YP(*),X(*),C(*),WORK(*) 105 YP(K)=0.0 131 YP(K)=C(K+1) 182 YP(KM1)=YP(KM1)+WORK(I)*C(KM1PI) 189 YP(K)=FAC*YP(K) 200 YP(K)=0.0
|
H A D | dbvder.f | 2 SUBROUTINE DBVDER (X, Y, YP, G, IPAR) argument 59 DOUBLE PRECISION C, G(*), X, XSAV, Y(*), YP(*) 74 IF (IVP .GT. 0) CALL DUIVP(X,Y(IVP+1),YP(IVP+1)) 78 CALL DFMAT(X,Y(NA),YP(NA)) 84 CALL DFMAT(X,Y(NA),YP(NA)) 101 YP(L) = YP(L) + G(J)/C
|
H A D | dpolvl.f | 2 SUBROUTINE DPOLVL (NDER, XX, YFIT, YP, N, X, C, WORK, IERR) argument 80 * YFIT,YP(*),WORK(*) 109 YP(K)=0.0D0 135 YP(K)=C(K+1) 186 YP(KM1)=YP(KM1)+WORK(I)*C(KM1PI) 193 YP(K)=FAC*YP(K) 204 YP(K)=0.0D0
|
H A D | defehl.f | 2 SUBROUTINE DEFEHL (F, NEQ, T, Y, H, YP, F1, F2, F3, F4, F5, YS, argument 52 DIMENSION Y(*),YP(*),F1(*),F2(*),F3(*),F4(*),F5(*), 58 230 YS(K)=Y(K)+CH*YP(K) 63 240 YS(K)=Y(K)+CH*(YP(K)+3.*F1(K)) 68 250 YS(K)=Y(K)+CH*(1932.*YP(K)+(7296.*F2(K)-7200.*F1(K))) 73 260 YS(K)=Y(K)+CH*((8341.*YP(K)-845.*F3(K))+ 79 270 YS(K)=Y(K)+CH*((-6080.*YP(K)+(9295.*F3(K)-5643.*F4(K)))+ 87 290 YS(K)=Y(K)+CH*((902880.*YP(K)+(3855735.*F3(K)-1371249.*F4(K)))+
|
/dports/graphics/pgplot/pgplot/src/ |
H A D | grdot1.f | 19 REAL RBUF(2), XP, YP local 21 EQUIVALENCE (XP, RBUF(1)), (YP, RBUF(2)) 35 YP = Y(I)*GRYSCL(GRCIDE) + GRYORG(GRCIDE) 39 : YP .GE. GRYMIN(GRCIDE) .AND. 40 : YP .LE. GRYMAX(GRCIDE)) THEN 51 YP = Y(I)*GRYSCL(GRCIDE) + GRYORG(GRCIDE) 55 : YP .GE. GRYMIN(GRCIDE) .AND. 56 : YP .LE. GRYMAX(GRCIDE)) THEN 57 CALL GRLIN3(XP, YP, XP, YP) 65 GRYPRE(GRCIDE) = YP
|
H A D | pgrect.f | 22 REAL XP(4), YP(4) local 42 YP(1) = Y1 43 YP(2) = Y2 44 YP(3) = Y2 45 YP(4) = Y1 46 CALL PGHTCH(4, XP, YP, 0.0) 47 IF (PGFAS(PGID).EQ.4) CALL PGHTCH(4, XP, YP, 90.0)
|
H A D | pglcur.f | 42 REAL XP, YP, XREF, YREF local 71 YP = Y(NPT) 74 YP = 0.5*(YBLC+YTRC) 81 YREF = YP 82 IF (PGBAND(MODE,1,XREF,YREF,XP,YP,LETTER).NE.1) RETURN 95 Y(NPT) = YP 130 YP = 0.5*(YBLC+YTRC) 133 YP = Y(NPT)
|
H A D | pgolin.f | 45 REAL XP, YP, XREF, YREF local 63 YP = Y(NPT) 66 YP = 0.5*(YBLC+YTRC) 72 YREF = YP 73 IF (PGBAND(0,1,XREF,YREF,XP,YP,LETTER).NE.1) RETURN 85 Y(NPT) = YP 99 YP = Y(NPT)
|
/dports/graphics/xd3d/xd3d-8.3.1/src/d3d/ |
H A D | tics.f | 4 COMMON / LOCALTIC / XP(8),YP(8),XMID,YMID local 65 COMMON / LOCALTIC / XP(8),YP(8),XMID,YMID local 86 TOTO = SQRT(((XP(J)-XP(I))**2 + (YP(J)-YP(I))**2) 87 & *((XP(II)-XP(I))**2 + (YP(II)-YP(I))**2) ) 90 & + (YP(J)-YP(I))*(YP(II)-YP(I)) )/TOTO 99 TOTO = SQRT(((XP(I)-XP(J))**2 + (YP(I)-YP(J))**2) 100 & *((XP(JJ)-XP(J))**2 + (YP(JJ)-YP(J))**2) ) 103 & + (YP(I)-YP(J))*(YP(JJ)-YP(J)) )/TOTO 118 DIR1_2 = YP(III)-YP(I) 120 DIR2_2 = YP(JJJ)-YP(J) [all …]
|
/dports/science/dcl/dcl-5.4.8/demo/grph1/scpack/ |
H A D | scpkt6.f | 10 REAL XP(3), YP(3), ZP(3) 49 YP(1) = ALAT(J) 52 YP(2) = ALAT(J+1) 55 YP(3) = ALAT(J+1) 58 CALL SCTNU(ZP, YP, XP) 59 CALL SCPLU(3, ZP, YP, XP) 62 YP(1) = ALAT(J+1) 65 YP(2) = ALAT(J) 68 YP(3) = ALAT(J) 71 CALL SCTNU(ZP, YP, XP) [all …]
|
H A D | scpkt5.f | 14 REAL XP(3), YP(3), ZP(3) 105 YP(1) = ALAT(J) 108 YP(2) = ALAT(J+1) 111 YP(3) = ALAT(J+1) 114 CALL SZT3ZU(XP, YP, ZP) 115 CALL SZL3ZU(3, XP, YP, ZP) 118 YP(1) = ALAT(J+1) 121 YP(2) = ALAT(J) 124 YP(3) = ALAT(J) 127 CALL SZT3ZU(XP, YP, ZP) [all …]
|
/dports/math/cmlib/cmlib-3.0_8/src/depac/ |
H A D | hstart.f | 2 1 PV,YP,SF,RPAR,IPAR,H) 150 10 YP(J)=SF(J)-YPRIME(J) 151 DELF=VNORM(YP,NEQ) 186 20 YP(J)=YPRIME(J) 191 40 YP(J)=1. 192 DELF=VNORM(YP,NEQ) 203 CALL F(A,PV,YP,RPAR,IPAR) 205 70 PV(J)=YP(J)-YPRIME(J) 211 90 PV(J)=YP(J)-SF(J) 230 130 YP(J)=DY [all …]
|
H A D | defehl.f | 1 SUBROUTINE DEFEHL(F,NEQ,T,Y,H,YP,F1,F2,F3,F4,F5,YS,RPAR,IPAR) argument 39 DIMENSION Y(NEQ),YP(NEQ),F1(NEQ),F2(NEQ),F3(NEQ),F4(NEQ),F5(NEQ), 45 230 YS(K)=Y(K)+CH*YP(K) 50 240 YS(K)=Y(K)+CH*(YP(K)+3.*F1(K)) 55 250 YS(K)=Y(K)+CH*(1932.*YP(K)+(7296.*F2(K)-7200.*F1(K))) 60 260 YS(K)=Y(K)+CH*((8341.*YP(K)-845.*F3(K))+ 66 270 YS(K)=Y(K)+CH*((-6080.*YP(K)+(9295.*F3(K)-5643.*F4(K)))+ 74 290 YS(K)=Y(K)+CH*((902880.*YP(K)+(3855735.*F3(K)-1371249.*F4(K)))+
|
/dports/science/aircraft-datcom/aircraft-datcom-ed877bb/src/ |
H A D | vtarea.f | 33 YP(1)=VTIN(4)-VTIN(3)+ZV 36 YP(2)=AVT(21) 38 YP(3)=AVT(21) 40 YP(4)=YP(1) 42 YP(5)=YP(1) 49 1010 YP(N)=-YP(N) 194 YP(1)=YP(2) 196 YP(2)=VTIN(4) 198 YP(3)=VTIN(4) 200 YP(4)=YP(1) [all …]
|
H A D | tranf.f | 6 DIMENSION X(NPT),Y(NPT),YP(2) 41 YP(N) = DYL 48 YP(N) = SIN(ANGAV)/COS(ANGAV) 49 IF(Y(MP) .LE. 0.0) YP(N) = 0.0 51 1 ABS(SR) .LE. UNUSED)) YP(N) = 0.0 53 IF((SL/SR) .LT. 0.0) YP(N) = 0.0 55 YP(N) = DYR 64 Y12P = YP(1)-YP(2) 68 YEL = YP(2)*X12F-Y12F
|
/dports/math/cmlib/cmlib-3.0_8/src/bvsup/ |
H A D | bvder.f | 1 SUBROUTINE BVDER(X,Y,YP,G,IPAR) argument 44 DIMENSION Y(*),YP(*),G(*) 59 IF (IVP .GT. 0) CALL UIVP(X,Y(IVP+1),YP(IVP+1)) 63 CALL FMAT(X,Y(NA),YP(NA)) 68 CALL FMAT(X,Y(NA),YP(NA)) 81 3 YP(L) = YP(L) + G(J) / C
|
H A D | reort.f | 1 SUBROUTINE REORT(NCOMP,Y,YP,YHP,NIV,W,S,P,IP,STOWA,IFLAG) argument 36 DIMENSION Y(NCOMP,*),YP(NCOMP),W(*),S(*),P(*),IP(*), 57 5 CALL STOR1(Y,YHP,YP,YHP(1,NFCP),1,0,0) 65 CALL MGSBV(NCOMP,NFC,Y,NCOMP,NIV,MFLAG,S,P,IP,INHOMO,YP,W,WCND) 79 20 CALL STWAY(Y,YP,YHP,1,STOWA) 150 YPNM=SDOT(NCOMP,YP,1,YP,1) 155 80 YP(J) = YP(J) / YPNM 159 100 IF (IFLAG .EQ. 1) CALL STWAY(Y,YP,YHP,0,STOWA)
|