Home
last modified time | relevance | path

Searched refs:YH (Results 1 – 25 of 1379) sorted by relevance

12345678910>>...56

/dports/lang/yorick/yorick-y_2_2_04/distribs/yorick/
H A Dpkg-install4 YH=$PKG_PREFIX/lib/yorick
5 x=`grep "^Y_HOME=$YH" $YH/Make.cfg`
10 s="s%^...set_site,.*%set_site, \"$YS\", \"$YH\"\\;%"
13 sed -e "s%^Y_SITE=.*%Y_SITE=$YS%g" $YH/Make.cfg >$YH/Makecfg.tmp
14 rm -f $YH/Maketmpl
15 sed -e "s%^Y_HOME=.*%Y_HOME=$YH%g" $YH/Makecfg.tmp >$YH/Make.cfg
16 rm -f $YH/Makecfg.tmp
/dports/math/slatec/src/
H A Ddlsod.f3 + YH, YH1, EWT, SAVF, ACOR, WM, IWM, DJAC, INTOUT, TSTOP, TOLFAC,
42 DIMENSION Y(*),YPOUT(*),YH(NEQ,6),YH1(*),EWT(*),SAVF(*),
274 CALL DF(T,Y,YH(1,2),RPAR,IPAR)
280 YPOUT(L) = YH(L,2)
302 1 YH(1,3),YH(1,4),YH(1,5),YH(1,6),RPAR,
308 YH(L,1) = Y(L)
309 YH(L,2) = H*YH(L,2)
353 Y(L) = YH(L,1) + (DT/H)*YH(L,2)
403 TOLFAC = U*DVNRMS(NEQ,YH,EWT)
464 Y(L) = YH(L,1)
[all …]
H A Dlsod.f252 CALL F(T,Y,YH(1,2),RPAR,IPAR)
257 210 YPOUT(L) = YH(L,2)
275 1 YH(1,3),YH(1,4),YH(1,5),YH(1,6),RPAR,IPAR,H)
280 YH(L,1) = Y(L)
281 230 YH(L,2) = H*YH(L,2)
297 CALL INTYD(TOUT,0,YH,NEQ,Y,INTFLG)
298 CALL INTYD(TOUT,1,YH,NEQ,YPOUT,INTFLG)
314 280 Y(L) = YH(L,1) + (DT/H)*YH(L,2)
356 TOLFAC = U*VNWRMS(NEQ,YH,EWT)
403 Y(L) = YH(L,1)
[all …]
H A Dcdpsc.f2 SUBROUTINE CDPSC (KSGN, N, NQ, YH) argument
24 COMPLEX YH(N,*)
31 10 YH(I,J) = YH(I,J) + YH(I,J+1)
37 30 YH(I,J) = YH(I,J) - YH(I,J+1)
H A Dsdpsc.f2 SUBROUTINE SDPSC (KSGN, N, NQ, YH) argument
24 REAL YH(N,*)
31 10 YH(I,J) = YH(I,J) + YH(I,J+1)
37 30 YH(I,J) = YH(I,J) - YH(I,J+1)
H A Dddpsc.f2 SUBROUTINE DDPSC (KSGN, N, NQ, YH) argument
24 DOUBLE PRECISION YH(N,*)
31 10 YH(I,J) = YH(I,J) + YH(I,J+1)
37 30 YH(I,J) = YH(I,J) - YH(I,J+1)
H A Dddstp.f110 CALL DDPSC (1, N, NQ, YH)
117 115 Y(I) = YH(I,1)
161 Y0NRM = DNRM2(N, YH, 1)
207 CALL DDPSC (-1, N, NQ, YH)
239 CALL DDPSC (-1, N, NQ, YH)
278 215 Y(I) = YH(I,1)
298 230 YH(I,J) = YH(I,J) + EL(J,NQ)*SAVE1(I)
300 235 Y(I) = YH(I,1)
442 405 Y(I) = YH(I,1)
454 CALL DDPSC (-1, NSV, NQ, YH)
[all …]
H A Dcdstp.f79 8 Y(*), YH(N,*), YWT(*)
111 CALL CDPSC (1, N, NQ, YH)
118 115 Y(I) = YH(I,1)
162 Y0NRM = SCNRM2(N, YH, 1)
208 CALL CDPSC (-1, N, NQ, YH)
240 CALL CDPSC (-1, N, NQ, YH)
279 215 Y(I) = YH(I,1)
299 230 YH(I,J) = YH(I,J) + EL(J,NQ)*SAVE1(I)
301 235 Y(I) = YH(I,1)
443 405 Y(I) = YH(I,1)
[all …]
H A Dsdstp.f109 CALL SDPSC (1, N, NQ, YH)
116 115 Y(I) = YH(I,1)
160 Y0NRM = SNRM2(N, YH, 1)
206 CALL SDPSC (-1, N, NQ, YH)
238 CALL SDPSC (-1, N, NQ, YH)
277 215 Y(I) = YH(I,1)
297 230 YH(I,J) = YH(I,J) + EL(J,NQ)*SAVE1(I)
299 235 Y(I) = YH(I,1)
441 405 Y(I) = YH(I,1)
453 CALL SDPSC (-1, NSV, NQ, YH)
[all …]
H A Dcdcor.f3 8 MITER, ML, MU, N, NDE, NQ, T, USERS, Y, YH, YWT, EVALFA, SAVE1,
34 8 YH(N,*), YWT(*)
42 100 SAVE1(I) = (H*SAVE2(I) - YH(I,2) - SAVE1(I))/YWT(I)
45 SAVE1(I) = (H*SAVE2(I) - YH(I,2) - SAVE1(I))/
51 105 SAVE1(I) = H*SAVE2(I) - YH(I,2)
55 130 SAVE2(I) = H*SAVE2(I) - YH(I,2) - SAVE1(I)
70 160 SAVE2(I) = SAVE2(I) - A(I,J)*(YH(J,2) + SAVE1(J))
82 180 SAVE2(I) = H*SAVE2(I) - A(I,1)*(YH(I,2) + SAVE1(I))
113 230 SAVE2(I) = H*SAVE2(I) - YH(I,2) - SAVE1(I)
130 8 - A(I,J)*(YH(J,2) + SAVE1(J))
[all …]
H A Dddcor.f3 8 MITER, ML, MU, N, NDE, NQ, T, USERS, Y, YH, YWT, EVALFA, SAVE1,
34 8 SAVE1(*), SAVE2(*), DNRM2, T, Y(*), YH(N,*), YWT(*)
41 100 SAVE1(I) = (H*SAVE2(I) - YH(I,2) - SAVE1(I))/YWT(I)
44 SAVE1(I) = (H*SAVE2(I) - YH(I,2) - SAVE1(I))/
50 105 SAVE1(I) = H*SAVE2(I) - YH(I,2)
54 130 SAVE2(I) = H*SAVE2(I) - YH(I,2) - SAVE1(I)
69 160 SAVE2(I) = SAVE2(I) - A(I,J)*(YH(J,2) + SAVE1(J))
81 180 SAVE2(I) = H*SAVE2(I) - A(I,1)*(YH(I,2) + SAVE1(I))
112 230 SAVE2(I) = H*SAVE2(I) - YH(I,2) - SAVE1(I)
129 8 - A(I,J)*(YH(J,2) + SAVE1(J))
[all …]
H A Dsdcor.f3 8 MITER, ML, MU, N, NDE, NQ, T, USERS, Y, YH, YWT, EVALFA, SAVE1,
33 8 SAVE1(*), SAVE2(*), SNRM2, T, Y(*), YH(N,*), YWT(*)
40 100 SAVE1(I) = (H*SAVE2(I) - YH(I,2) - SAVE1(I))/YWT(I)
43 SAVE1(I) = (H*SAVE2(I) - YH(I,2) - SAVE1(I))/
49 105 SAVE1(I) = H*SAVE2(I) - YH(I,2)
53 130 SAVE2(I) = H*SAVE2(I) - YH(I,2) - SAVE1(I)
68 160 SAVE2(I) = SAVE2(I) - A(I,J)*(YH(J,2) + SAVE1(J))
80 180 SAVE2(I) = H*SAVE2(I) - A(I,1)*(YH(I,2) + SAVE1(I))
111 230 SAVE2(I) = H*SAVE2(I) - YH(I,2) - SAVE1(I)
128 8 - A(I,J)*(YH(J,2) + SAVE1(J))
[all …]
/dports/math/cmlib/cmlib-3.0_8/src/depac/
H A Dlsod.f202 CALL F(T,Y,YH(1,2),RPAR,IPAR)
207 210 YPOUT(L) = YH(L,2)
225 1 YH(1,3),YH(1,4),YH(1,5),YH(1,6),RPAR,IPAR,H)
230 YH(L,1) = Y(L)
231 230 YH(L,2) = H*YH(L,2)
247 CALL INTYD(TOUT,0,YH,NEQ,Y,INTFLG)
248 CALL INTYD(TOUT,1,YH,NEQ,YPOUT,INTFLG)
264 280 Y(L) = YH(L,1) + (DT/H)*YH(L,2)
306 TOLFAC = U*VNWRMS(NEQ,YH,EWT)
353 Y(L) = YH(L,1)
[all …]
/dports/math/cmlib/cmlib-3.0_8/src/sdriv/
H A Dsdpsc.f1 SUBROUTINE SDPSC (KSGN,N,NQ,YH) argument
14 REAL YH(N,*)
21 10 YH(I,J) = YH(I,J) + YH(I,J+1)
27 30 YH(I,J) = YH(I,J) - YH(I,J+1)
H A Dsdstp.f65 8 Y(*), YH(N,*), YWT(*), Y0NRM
90 CALL SDPSC (1, N, NQ, YH)
96 115 Y(I) = YH(I,1)
132 Y0NRM = SNRM2(N, YH, 1)
174 CALL SDPSC (-1, N, NQ, YH)
201 CALL SDPSC (-1, N, NQ, YH)
235 215 Y(I) = YH(I,1)
253 230 YH(I,J) = YH(I,J) + EL(J,NQ)*SAVE1(I)
255 235 Y(I) = YH(I,1)
323 250 YH(I,MAXORD+1) = SAVE1(I)
[all …]
H A Dsdcor.f2 8 NDE,NQ,T,Y,YH,YWT,EVALFA,SAVE1,SAVE2,A,D)
20 8 SAVE1(*), SAVE2(*), SNRM2, T, Y(*), YH(N,*), YWT(*)
26 100 SAVE1(I) = (H*SAVE2(I) - YH(I,2) - SAVE1(I))/YWT(I)
29 105 SAVE1(I) = H*SAVE2(I) - YH(I,2)
33 130 SAVE2(I) = H*SAVE2(I) - YH(I,2) - SAVE1(I)
44 160 SAVE2(I) = SAVE2(I) - A(I,J)*(YH(J,2) + SAVE1(J))
52 180 SAVE2(I) = H*SAVE2(I) - A(I,1)*(YH(I,2) + SAVE1(I))
62 230 SAVE2(I) = H*SAVE2(I) - YH(I,2) - SAVE1(I)
77 260 SAVE2(I3) = SAVE2(I3) - A(I,J)*(YH(J,2) + SAVE1(J))
85 280 SAVE2(I) = H*SAVE2(I) - A(I,1)*(YH(I,2) + SAVE1(I))
[all …]
H A Dsdntp.f1 SUBROUTINE SDNTP (H,K,N,NQ,T,TOUT,YH,Y) argument
14 REAL FACTOR, H, R, T, TOUT, Y(*), YH(N,*)
19 10 Y(I) = YH(I,NQ+1)
24 20 Y(I) = YH(I,J) + R*Y(I)
30 50 Y(I) = FACTOR*YH(I,NQ+1)
39 70 Y(I) = FACTOR*YH(I,J) + R*Y(I)
/dports/math/cmlib/cmlib-3.0_8/src/ddriv/
H A Dddpsc.f1 SUBROUTINE DDPSC (KSGN,N,NQ,YH) argument
14 DOUBLE PRECISION YH(N,*)
21 10 YH(I,J) = YH(I,J) + YH(I,J+1)
27 30 YH(I,J) = YH(I,J) - YH(I,J+1)
H A Dddstp.f65 8 Y(*), YH(N,*), YWT(*), Y0NRM
90 CALL DDPSC (1, N, NQ, YH)
96 115 Y(I) = YH(I,1)
132 Y0NRM = DNRM2(N, YH, 1)
174 CALL DDPSC (-1, N, NQ, YH)
201 CALL DDPSC (-1, N, NQ, YH)
235 215 Y(I) = YH(I,1)
253 230 YH(I,J) = YH(I,J) + EL(J,NQ)*SAVE1(I)
255 235 Y(I) = YH(I,1)
323 250 YH(I,MAXORD+1) = SAVE1(I)
[all …]
H A Dddcor.f3 8 NDE,NQ,T,Y,YH,YWT,EVALFA,SAVE1,SAVE2,A,D)
21 8 SAVE1(*), SAVE2(*), DNRM2, T, Y(*), YH(N,*), YWT(*)
27 100 SAVE1(I) = (H*SAVE2(I) - YH(I,2) - SAVE1(I))/YWT(I)
30 105 SAVE1(I) = H*SAVE2(I) - YH(I,2)
34 130 SAVE2(I) = H*SAVE2(I) - YH(I,2) - SAVE1(I)
45 160 SAVE2(I) = SAVE2(I) - A(I,J)*(YH(J,2) + SAVE1(J))
53 180 SAVE2(I) = H*SAVE2(I) - A(I,1)*(YH(I,2) + SAVE1(I))
63 230 SAVE2(I) = H*SAVE2(I) - YH(I,2) - SAVE1(I)
78 260 SAVE2(I3) = SAVE2(I3) - A(I,J)*(YH(J,2) + SAVE1(J))
86 280 SAVE2(I) = H*SAVE2(I) - A(I,1)*(YH(I,2) + SAVE1(I))
[all …]
H A Dddntp.f1 SUBROUTINE DDNTP (H,K,N,NQ,T,TOUT,YH,Y) argument
14 DOUBLE PRECISION FACTOR, H, R, T, TOUT, Y(*), YH(N,*)
19 10 Y(I) = YH(I,NQ+1)
24 20 Y(I) = YH(I,J) + R*Y(I)
30 50 Y(I) = FACTOR*YH(I,NQ+1)
39 70 Y(I) = FACTOR*YH(I,J) + R*Y(I)
/dports/math/cmlib/cmlib-3.0_8/src/cdriv/
H A Dcdpsc.f1 SUBROUTINE CDPSC (KSGN,N,NQ,YH) argument
14 COMPLEX YH(N,*)
21 10 YH(I,J) = YH(I,J) + YH(I,J+1)
27 30 YH(I,J) = YH(I,J) - YH(I,J+1)
H A Dcdstp.f63 8 YH(N,*), YWT(*)
93 CALL CDPSC (1, N, NQ, YH)
99 115 Y(I) = YH(I,1)
136 Y0NRM = SCNRM2(N, YH, 1)
178 CALL CDPSC (-1, N, NQ, YH)
205 CALL CDPSC (-1, N, NQ, YH)
239 215 Y(I) = YH(I,1)
257 230 YH(I,J) = YH(I,J) + EL(J,NQ)*SAVE1(I)
259 235 Y(I) = YH(I,1)
327 250 YH(I,MAXORD+1) = SAVE1(I)
[all …]
H A Dcdcor.f3 8 NDE,NQ,T,Y,YH,YWT,EVALFA,SAVE1,SAVE2,A,D)
21 8 YH(N,*), YWT(*)
28 100 SAVE1(I) = (H*SAVE2(I) - YH(I,2) - SAVE1(I))/YWT(I)
31 105 SAVE1(I) = H*SAVE2(I) - YH(I,2)
35 130 SAVE2(I) = H*SAVE2(I) - YH(I,2) - SAVE1(I)
46 160 SAVE2(I) = SAVE2(I) - A(I,J)*(YH(J,2) + SAVE1(J))
54 180 SAVE2(I) = H*SAVE2(I) - A(I,1)*(YH(I,2) + SAVE1(I))
64 230 SAVE2(I) = H*SAVE2(I) - YH(I,2) - SAVE1(I)
79 260 SAVE2(I3) = SAVE2(I3) - A(I,J)*(YH(J,2) + SAVE1(J))
87 280 SAVE2(I) = H*SAVE2(I) - A(I,1)*(YH(I,2) + SAVE1(I))
[all …]
H A Dcdntp.f1 SUBROUTINE CDNTP (H,K,N,NQ,T,TOUT,YH,Y) argument
14 COMPLEX Y(*), YH(N,*)
20 10 Y(I) = YH(I,NQ+1)
25 20 Y(I) = YH(I,J) + R*Y(I)
31 50 Y(I) = FACTOR*YH(I,NQ+1)
40 70 Y(I) = FACTOR*YH(I,J) + R*Y(I)

12345678910>>...56