/dports/lang/yorick/yorick-y_2_2_04/distribs/yorick/ |
H A D | pkg-install | 4 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 D | dlsod.f | 3 + 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 D | lsod.f | 252 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 D | cdpsc.f | 2 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 D | sdpsc.f | 2 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 D | ddpsc.f | 2 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 D | ddstp.f | 110 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 D | cdstp.f | 79 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 D | sdstp.f | 109 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 D | cdcor.f | 3 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 D | ddcor.f | 3 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 D | sdcor.f | 3 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 D | lsod.f | 202 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 D | sdpsc.f | 1 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 D | sdstp.f | 65 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 D | sdcor.f | 2 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 D | sdntp.f | 1 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 D | ddpsc.f | 1 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 D | ddstp.f | 65 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 D | ddcor.f | 3 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 D | ddntp.f | 1 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 D | cdpsc.f | 1 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 D | cdstp.f | 63 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 D | cdcor.f | 3 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 D | cdntp.f | 1 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)
|