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 | 142 $ YY( NMAX*INCMAX ), Z( 2*NMAX ) 303 YY( J ) = J*( ( J + 1 )*J )/2 - ( ( J + 1 )*J*( J - 1 ) )/3 305 * YY holds the exact result. On exit from CMVCH YT holds 309 $ YY, EPS, ERR, FATAL, NOUT, .TRUE. ) 310 SAME = LCE( YY, YT, N ) 317 $ YY, EPS, ERR, FATAL, NOUT, .TRUE. ) 318 SAME = LCE( YY, YT, N ) 349 $ X, XX, XS, Y, YY, YS, YT, G ) 355 $ X, XX, XS, Y, YY, YS, YT, G ) 361 $ NMAX, INCMAX, A, AA, AS, Y, YY, Y 141 $ YS( NMAX*INCMAX ), YT( NMAX ), variable in program:CBLAT2 465 $ Y( NMAX ), YS( NMAX*INCMAX ), YT( NMAX ), local in subroutine:CCHK1 810 $ Y( NMAX ), YS( NMAX*INCMAX ), YT( NMAX ), local in subroutine:CCHK2 1519 $ YS( NMAX*INCMAX ), YT( NMAX ), local in subroutine:CCHK4 1796 $ YS( NMAX*INCMAX ), YT( NMAX ), local in subroutine:CCHK5 2080 $ YS( NMAX*INCMAX ), YT( NMAX ), local in subroutine:CCHK6 2932 COMPLEX A( NMAX, * ), X( * ), Y( * ), YT( * ), YY local in subroutine:CMVCH [all...] |
H A D | zblat2.f | 143 $ YY( NMAX*INCMAX ), Z( 2*NMAX ) 304 YY( J ) = J*( ( J + 1 )*J )/2 - ( ( J + 1 )*J*( J - 1 ) )/3 306 * YY holds the exact result. On exit from ZMVCH YT holds 310 $ YY, EPS, ERR, FATAL, NOUT, .TRUE. ) 311 SAME = LZE( YY, YT, N ) 318 $ YY, EPS, ERR, FATAL, NOUT, .TRUE. ) 319 SAME = LZE( YY, YT, N ) 350 $ X, XX, XS, Y, YY, YS, YT, G ) 356 $ X, XX, XS, Y, YY, YS, YT, G ) 362 $ NMAX, INCMAX, A, AA, AS, Y, YY, Y 142 $ YS( NMAX*INCMAX ), YT( NMAX ), variable in program:ZBLAT2 467 $ Y( NMAX ), YS( NMAX*INCMAX ), YT( NMAX ), local in subroutine:ZCHK1 813 $ Y( NMAX ), YS( NMAX*INCMAX ), YT( NMAX ), local in subroutine:ZCHK2 1524 $ YS( NMAX*INCMAX ), YT( NMAX ), local in subroutine:ZCHK4 1802 $ YS( NMAX*INCMAX ), YT( NMAX ), local in subroutine:ZCHK5 2087 $ YS( NMAX*INCMAX ), YT( NMAX ), local in subroutine:ZCHK6 2940 COMPLEX*16 A( NMAX, * ), X( * ), Y( * ), YT( * ), YY local in subroutine:ZMVCH [all...] |
H A D | dblat2.f | 139 $ YY( NMAX*INCMAX ), Z( 2*NMAX ) 298 YY( J ) = J*( ( J + 1 )*J )/2 - ( ( J + 1 )*J*( J - 1 ) )/3 300 * YY holds the exact result. On exit from DMVCH YT holds 304 $ YY, EPS, ERR, FATAL, NOUT, .TRUE. ) 305 SAME = LDE( YY, YT, N ) 312 $ YY, EPS, ERR, FATAL, NOUT, .TRUE. ) 313 SAME = LDE( YY, YT, N ) 344 $ X, XX, XS, Y, YY, YS, YT, G ) 350 $ X, XX, XS, Y, YY, YS, YT, G ) 356 $ NMAX, INCMAX, A, AA, AS, Y, YY, Y 138 $ YS( NMAX*INCMAX ), YT( NMAX ), variable in program:DBLAT2 457 $ YS( NMAX*INCMAX ), YT( NMAX ), local in subroutine:DCHK1 798 $ YS( NMAX*INCMAX ), YT( NMAX ), local in subroutine:DCHK2 1496 $ Y( NMAX ), YS( NMAX*INCMAX ), YT( NMAX ), local in subroutine:DCHK4 1757 $ Y( NMAX ), YS( NMAX*INCMAX ), YT( NMAX ), local in subroutine:DCHK5 2035 $ Y( NMAX ), YS( NMAX*INCMAX ), YT( NMAX ), local in subroutine:DCHK6 2847 DOUBLE PRECISION A( NMAX, * ), G( * ), X( * ), Y( * ), YT( * ), local in subroutine:DMVCH [all...] |
H A D | sblat2.f | 139 $ YY( NMAX*INCMAX ), Z( 2*NMAX ) 298 YY( J ) = J*( ( J + 1 )*J )/2 - ( ( J + 1 )*J*( J - 1 ) )/3 300 * YY holds the exact result. On exit from SMVCH YT holds 304 $ YY, EPS, ERR, FATAL, NOUT, .TRUE. ) 305 SAME = LSE( YY, YT, N ) 312 $ YY, EPS, ERR, FATAL, NOUT, .TRUE. ) 313 SAME = LSE( YY, YT, N ) 344 $ X, XX, XS, Y, YY, YS, YT, G ) 350 $ X, XX, XS, Y, YY, YS, YT, G ) 356 $ NMAX, INCMAX, A, AA, AS, Y, YY, Y 138 $ YS( NMAX*INCMAX ), YT( NMAX ), variable in program:SBLAT2 457 $ YS( NMAX*INCMAX ), YT( NMAX ), local in subroutine:SCHK1 798 $ YS( NMAX*INCMAX ), YT( NMAX ), local in subroutine:SCHK2 1496 $ Y( NMAX ), YS( NMAX*INCMAX ), YT( NMAX ), local in subroutine:SCHK4 1757 $ Y( NMAX ), YS( NMAX*INCMAX ), YT( NMAX ), local in subroutine:SCHK5 2035 $ Y( NMAX ), YS( NMAX*INCMAX ), YT( NMAX ), local in subroutine:SCHK6 2847 REAL A( NMAX, * ), G( * ), X( * ), Y( * ), YT( * ), local in subroutine:SMVCH [all...] |