H A D | c_cblat2.f | 95 $ YY( NMAX*INCMAX ), Z( 2*NMAX ) 276 YY( J ) = J*( ( J + 1 )*J )/2 - ( ( J + 1 )*J*( J - 1 ) )/3 278 * YY holds the exact result. On exit from CMVCH YT holds 282 $ YY, EPS, ERR, FATAL, NOUT, .TRUE. ) 283 SAME = LCE( YY, YT, N ) 290 $ YY, EPS, ERR, FATAL, NOUT, .TRUE. ) 291 SAME = LCE( YY, YT, N ) 323 $ X, XX, XS, Y, YY, YS, YT, G, 0 ) 329 $ X, XX, XS, Y, YY, YS, YT, G, 1 ) 337 $ X, XX, XS, Y, YY, Y 94 $ YS( NMAX*INCMAX ), YT( NMAX ), variable in program:CBLAT2 490 $ Y( NMAX ), YS( NMAX*INCMAX ), YT( NMAX ), local in subroutine:CCHK1 845 $ Y( NMAX ), YS( NMAX*INCMAX ), YT( NMAX ), local in subroutine:CCHK2 1583 $ YS( NMAX*INCMAX ), YT( NMAX ), local in subroutine:CCHK4 1860 $ YS( NMAX*INCMAX ), YT( NMAX ), local in subroutine:CCHK5 2153 $ YS( NMAX*INCMAX ), YT( NMAX ), local in subroutine:CCHK6 2474 COMPLEX A( NMAX, * ), X( * ), Y( * ), YT( * ), YY local in subroutine:CMVCH [all...] |
H A D | c_dblat2.f | 92 $ YY( NMAX*INCMAX ), Z( 2*NMAX ) 272 YY( J ) = J*( ( J + 1 )*J )/2 - ( ( J + 1 )*J*( J - 1 ) )/3 274 * YY holds the exact result. On exit from DMVCH YT holds 278 $ YY, EPS, ERR, FATAL, NOUT, .TRUE. ) 279 SAME = LDE( YY, YT, N ) 286 $ YY, EPS, ERR, FATAL, NOUT, .TRUE. ) 287 SAME = LDE( YY, YT, N ) 319 $ X, XX, XS, Y, YY, YS, YT, G, 0 ) 325 $ X, XX, XS, Y, YY, YS, YT, G, 1 ) 333 $ X, XX, XS, Y, YY, Y 91 $ YS( NMAX*INCMAX ), YT( NMAX ), variable in program:DBLAT2 483 $ YS( NMAX*INCMAX ), YT( NMAX ), local in subroutine:DCHK1 843 $ YS( NMAX*INCMAX ), YT( NMAX ), local in subroutine:DCHK2 1589 $ Y( NMAX ), YS( NMAX*INCMAX ), YT( NMAX ), local in subroutine:DCHK4 1861 $ Y( NMAX ), YS( NMAX*INCMAX ), YT( NMAX ), local in subroutine:DCHK5 2157 $ Y( NMAX ), YS( NMAX*INCMAX ), YT( NMAX ), local in subroutine:DCHK6 2659 DOUBLE PRECISION A( NMAX, * ), G( * ), X( * ), Y( * ), YT( * ), local in subroutine:DMVCH [all...] |
H A D | c_sblat2.f | 92 $ YY( NMAX*INCMAX ), Z( 2*NMAX ) 272 YY( J ) = J*( ( J + 1 )*J )/2 - ( ( J + 1 )*J*( J - 1 ) )/3 274 * YY holds the exact result. On exit from SMVCH YT holds 278 $ YY, EPS, ERR, FATAL, NOUT, .TRUE. ) 279 SAME = LSE( YY, YT, N ) 286 $ YY, EPS, ERR, FATAL, NOUT, .TRUE. ) 287 SAME = LSE( YY, YT, N ) 319 $ X, XX, XS, Y, YY, YS, YT, G, 0 ) 325 $ X, XX, XS, Y, YY, YS, YT, G, 1 ) 333 $ X, XX, XS, Y, YY, Y 91 $ YS( NMAX*INCMAX ), YT( NMAX ), variable in program:SBLAT2 483 $ YS( NMAX*INCMAX ), YT( NMAX ), local in subroutine:SCHK1 843 $ YS( NMAX*INCMAX ), YT( NMAX ), local in subroutine:SCHK2 1589 $ Y( NMAX ), YS( NMAX*INCMAX ), YT( NMAX ), local in subroutine:SCHK4 1861 $ Y( NMAX ), YS( NMAX*INCMAX ), YT( NMAX ), local in subroutine:SCHK5 2157 $ Y( NMAX ), YS( NMAX*INCMAX ), YT( NMAX ), local in subroutine:SCHK6 2659 REAL A( NMAX, * ), G( * ), X( * ), Y( * ), YT( * ), local in subroutine:SMVCH [all...] |
H A D | c_zblat2.f | 96 $ YY( NMAX*INCMAX ), Z( 2*NMAX ) 276 YY( J ) = J*( ( J + 1 )*J )/2 - ( ( J + 1 )*J*( J - 1 ) )/3 278 * YY holds the exact result. On exit from CMVCH YT holds 282 $ YY, EPS, ERR, FATAL, NOUT, .TRUE. ) 283 SAME = LZE( YY, YT, N ) 290 $ YY, EPS, ERR, FATAL, NOUT, .TRUE. ) 291 SAME = LZE( YY, YT, N ) 323 $ X, XX, XS, Y, YY, YS, YT, G, 0 ) 329 $ X, XX, XS, Y, YY, YS, YT, G, 1 ) 337 $ X, XX, XS, Y, YY, Y 95 $ YS( NMAX*INCMAX ), YT( NMAX ), variable in program:ZBLAT2 491 $ Y( NMAX ), YS( NMAX*INCMAX ), YT( NMAX ), local in subroutine:ZCHK1 847 $ Y( NMAX ), YS( NMAX*INCMAX ), YT( NMAX ), local in subroutine:ZCHK2 1587 $ YS( NMAX*INCMAX ), YT( NMAX ), local in subroutine:ZCHK4 1865 $ YS( NMAX*INCMAX ), YT( NMAX ), local in subroutine:ZCHK5 2159 $ YS( NMAX*INCMAX ), YT( NMAX ), local in subroutine:ZCHK6 2480 COMPLEX*16 A( NMAX, * ), X( * ), Y( * ), YT( * ), YY local in subroutine:ZMVCH [all...] |
H A D | cblat2.f | 96 $ YY( NMAX*INCMAX ), Z( 2*NMAX ) 264 YY( J ) = J*( ( J + 1 )*J )/2 - ( ( J + 1 )*J*( J - 1 ) )/3 266 * YY holds the exact result. On exit from CMVCH YT holds 270 $ YY, EPS, ERR, FATAL, NOUT, .TRUE. ) 271 SAME = LCE( YY, YT, N ) 278 $ YY, EPS, ERR, FATAL, NOUT, .TRUE. ) 279 SAME = LCE( YY, YT, N ) 310 $ X, XX, XS, Y, YY, YS, YT, G ) 316 $ X, XX, XS, Y, YY, YS, YT, G ) 322 $ NMAX, INCMAX, A, AA, AS, Y, YY, Y 95 $ YS( NMAX*INCMAX ), YT( NMAX ), variable in program:CBLAT2 426 $ Y( NMAX ), YS( NMAX*INCMAX ), YT( NMAX ), local in subroutine:CCHK1 771 $ Y( NMAX ), YS( NMAX*INCMAX ), YT( NMAX ), local in subroutine:CCHK2 1480 $ YS( NMAX*INCMAX ), YT( NMAX ), local in subroutine:CCHK4 1757 $ YS( NMAX*INCMAX ), YT( NMAX ), local in subroutine:CCHK5 2041 $ YS( NMAX*INCMAX ), YT( NMAX ), local in subroutine:CCHK6 2893 COMPLEX A( NMAX, * ), X( * ), Y( * ), YT( * ), YY local in subroutine:CMVCH [all...] |
H A D | zblat2.f | 97 $ YY( NMAX*INCMAX ), Z( 2*NMAX ) 265 YY( J ) = J*( ( J + 1 )*J )/2 - ( ( J + 1 )*J*( J - 1 ) )/3 267 * YY holds the exact result. On exit from ZMVCH YT holds 271 $ YY, EPS, ERR, FATAL, NOUT, .TRUE. ) 272 SAME = LZE( YY, YT, N ) 279 $ YY, EPS, ERR, FATAL, NOUT, .TRUE. ) 280 SAME = LZE( YY, YT, N ) 311 $ X, XX, XS, Y, YY, YS, YT, G ) 317 $ X, XX, XS, Y, YY, YS, YT, G ) 323 $ NMAX, INCMAX, A, AA, AS, Y, YY, Y 96 $ YS( NMAX*INCMAX ), YT( NMAX ), variable in program:ZBLAT2 428 $ Y( NMAX ), YS( NMAX*INCMAX ), YT( NMAX ), local in subroutine:ZCHK1 774 $ Y( NMAX ), YS( NMAX*INCMAX ), YT( NMAX ), local in subroutine:ZCHK2 1485 $ YS( NMAX*INCMAX ), YT( NMAX ), local in subroutine:ZCHK4 1763 $ YS( NMAX*INCMAX ), YT( NMAX ), local in subroutine:ZCHK5 2048 $ YS( NMAX*INCMAX ), YT( NMAX ), local in subroutine:ZCHK6 2901 COMPLEX*16 A( NMAX, * ), X( * ), Y( * ), YT( * ), YY local in subroutine:ZMVCH [all...] |
H A D | dblat2.f | 93 $ YY( NMAX*INCMAX ), Z( 2*NMAX ) 259 YY( J ) = J*( ( J + 1 )*J )/2 - ( ( J + 1 )*J*( J - 1 ) )/3 261 * YY holds the exact result. On exit from DMVCH YT holds 265 $ YY, EPS, ERR, FATAL, NOUT, .TRUE. ) 266 SAME = LDE( YY, YT, N ) 273 $ YY, EPS, ERR, FATAL, NOUT, .TRUE. ) 274 SAME = LDE( YY, YT, N ) 305 $ X, XX, XS, Y, YY, YS, YT, G ) 311 $ X, XX, XS, Y, YY, YS, YT, G ) 317 $ NMAX, INCMAX, A, AA, AS, Y, YY, Y 92 $ YS( NMAX*INCMAX ), YT( NMAX ), variable in program:DBLAT2 418 $ YS( NMAX*INCMAX ), YT( NMAX ), local in subroutine:DCHK1 759 $ YS( NMAX*INCMAX ), YT( NMAX ), local in subroutine:DCHK2 1457 $ Y( NMAX ), YS( NMAX*INCMAX ), YT( NMAX ), local in subroutine:DCHK4 1718 $ Y( NMAX ), YS( NMAX*INCMAX ), YT( NMAX ), local in subroutine:DCHK5 1996 $ Y( NMAX ), YS( NMAX*INCMAX ), YT( NMAX ), local in subroutine:DCHK6 2808 DOUBLE PRECISION A( NMAX, * ), G( * ), X( * ), Y( * ), YT( * ), local in subroutine:DMVCH [all...] |
H A D | sblat2.f | 93 $ YY( NMAX*INCMAX ), Z( 2*NMAX ) 259 YY( J ) = J*( ( J + 1 )*J )/2 - ( ( J + 1 )*J*( J - 1 ) )/3 261 * YY holds the exact result. On exit from SMVCH YT holds 265 $ YY, EPS, ERR, FATAL, NOUT, .TRUE. ) 266 SAME = LSE( YY, YT, N ) 273 $ YY, EPS, ERR, FATAL, NOUT, .TRUE. ) 274 SAME = LSE( YY, YT, N ) 305 $ X, XX, XS, Y, YY, YS, YT, G ) 311 $ X, XX, XS, Y, YY, YS, YT, G ) 317 $ NMAX, INCMAX, A, AA, AS, Y, YY, Y 92 $ YS( NMAX*INCMAX ), YT( NMAX ), variable in program:SBLAT2 418 $ YS( NMAX*INCMAX ), YT( NMAX ), local in subroutine:SCHK1 759 $ YS( NMAX*INCMAX ), YT( NMAX ), local in subroutine:SCHK2 1457 $ Y( NMAX ), YS( NMAX*INCMAX ), YT( NMAX ), local in subroutine:SCHK4 1718 $ Y( NMAX ), YS( NMAX*INCMAX ), YT( NMAX ), local in subroutine:SCHK5 1996 $ Y( NMAX ), YS( NMAX*INCMAX ), YT( NMAX ), local in subroutine:SCHK6 2808 REAL A( NMAX, * ), G( * ), X( * ), Y( * ), YT( * ), local in subroutine:SMVCH [all...] |