/dports/misc/libemos/libemos-4.5.9-Source/gribex/ |
H A D | codeps.F | 366 IBLOCK(1) = 0 468 IBLOCK(12) = IBLOCK(11) 469 IBLOCK(11) = IBLOCK(11) / 256 470 IBLOCK(12) = IBLOCK(12) - IBLOCK(11) * 256 493 IF (IBLOCK(13).LT.0.OR.IBLOCK(13).GT.254) IERR = 8 544 IBLOCK(20) = IBLOCK(19) 545 IBLOCK(19) = IBLOCK(19) / 256 546 IBLOCK(20) = IBLOCK(20) - IBLOCK(19) * 256 570 IBLOCK(23) = IBLOCK(22) 571 IBLOCK(22) = IBLOCK(22) / 256 [all …]
|
H A D | codegb.F | 312 IBLOCK(1) = 0 313 IBLOCK(2) = 0 500 IBLOCK(12) = IBLOCK(11) 501 IBLOCK(11) = IBLOCK(11) / 256 502 IBLOCK(12) = IBLOCK(12) - IBLOCK(11) * 256 641 IBLOCK(20) = IBLOCK(19) 642 IBLOCK(19) = IBLOCK(19) / 256 643 IBLOCK(20) = IBLOCK(20) - IBLOCK(19) * 256 682 IBLOCK(23) = IBLOCK(22) 683 IBLOCK(22) = IBLOCK(22) / 256 [all …]
|
H A D | codegc.F | 296 IBLOCK(1) = 0 297 IBLOCK(2) = 0 484 IBLOCK(12) = IBLOCK(11) 485 IBLOCK(11) = IBLOCK(11) / 256 486 IBLOCK(12) = IBLOCK(12) - IBLOCK(11) * 256 625 IBLOCK(20) = IBLOCK(19) 626 IBLOCK(19) = IBLOCK(19) / 256 627 IBLOCK(20) = IBLOCK(20) - IBLOCK(19) * 256 666 IBLOCK(23) = IBLOCK(22) 667 IBLOCK(22) = IBLOCK(22) / 256 [all …]
|
H A D | codegr.F | 253 IBLOCK(1) = 71 254 IBLOCK(2) = 82 255 IBLOCK(3) = 73 256 IBLOCK(4) = 66 414 IBLOCK(12) = IBLOCK(11) 415 IBLOCK(11) = IBLOCK(11) / 32 416 IBLOCK(12) = IBLOCK(12) - IBLOCK(11) * 32 530 IBLOCK(20) = IBLOCK(19) 531 IBLOCK(19) = IBLOCK(19) / 32 532 IBLOCK(20) = IBLOCK(20) - IBLOCK(19) * 32 [all …]
|
H A D | reclen.F | 50 DIMENSION IBLOCK(24) 66 CALL GBYTES (BLOCK(IWORD),IBLOCK(1),IOFF,IBYTE,0,NVAL) 73 IF (IBLOCK(1).EQ.0.AND.IBLOCK(2).EQ.0.AND.IBLOCK(3).EQ.24. 74 C AND.IBLOCK(4).EQ.0) 86 CALL GBYTES (BLOCK(IWORD),IBLOCK(5),IOFF,IBYTE,0,NVAL) 96 ICODE = IBLOCK(5+4*ISNEW) 100 INDIC = IBLOCK(6+4*ISNEW) 109 LEVEL = IBLOCK(7+ISNEW*4) * KTEMP + IBLOCK(8+ISNEW*4) 111 LEVEL = IBLOCK(7+ISNEW*4) 116 IFLAG = IBLOCK(4+4*ISNEW)
|
H A D | decops.F | 159 DIMENSION IPSCOD(ILENPS),IBLOCK(24),IB1PAR(18) 215 CALL GBYTES (IPSCOD(1),IBLOCK(1),0,IBYTE,0,NVAL) 220 IF (IBLOCK(1).EQ.IASCII(I)) NAME(1:1) = CHAR(I) 221 IF (IBLOCK(2).EQ.IASCII(I)) NAME(2:2) = CHAR(I) 222 IF (IBLOCK(3).EQ.IASCII(I)) NAME(3:3) = CHAR(I) 249 IF (IBLOCK(1).EQ.0.AND.IBLOCK(2).EQ.0.AND.IBLOCK(3).EQ.24. 250 C AND.IBLOCK(4).EQ.0) 270 IB1PAR(I) = IBLOCK(I+4*ISNEW) 295 IB1PAR(18) = IBLOCK(18+4*ISNEW) * 256 + IBLOCK(19+4*ISNEW) 847 CALL GBYTES (IPSCOD(IWORD),IBLOCK(1),IOFF,8,0,4) [all …]
|
H A D | decops2.F | 164 DIMENSION IPSCOD(ILENPS),IBLOCK(24),IB1PAR(18) 220 CALL GBYTES (IPSCOD(1),IBLOCK(1),0,IBYTE,0,NVAL) 225 IF (IBLOCK(1).EQ.IASCII(I)) NAME(1:1) = CHAR(I) 226 IF (IBLOCK(2).EQ.IASCII(I)) NAME(2:2) = CHAR(I) 254 IF (IBLOCK(1).EQ.0.AND.IBLOCK(2).EQ.0.AND.IBLOCK(3).EQ.24. 255 C AND.IBLOCK(4).EQ.0) 275 IB1PAR(I) = IBLOCK(I+4*ISNEW) 280 IB1PAR(9) = IBLOCK(13) + 1900 285 IB1PAR(18) = IBLOCK(18+4*ISNEW) * 256 + IBLOCK(19+4*ISNEW) 841 CALL GBYTES (IPSCOD(IWORD),IBLOCK(1),IOFF,8,0,4) [all …]
|
/dports/math/scalapack/scalapack-2.1.0/SRC/ |
H A D | dlarrd2.f | 312 IBLOCK( 1 ) = 1 443 IBLOCK( M ) = JBLK 524 IBLOCK( JE ) = IB 550 IBLOCK( IM ) = IBLOCK( JE ) 567 IBLOCK( IM ) = IBLOCK( JE ) 576 IBLOCK( JEE ) = IBLOCK( JE ) 599 IBLOCK( IW ) = 0 613 IBLOCK( IW ) = 0 624 IBLOCK( IM ) = IBLOCK( JE ) 655 ITMP1 = IBLOCK( IE ) [all …]
|
H A D | slarrd2.f | 312 IBLOCK( 1 ) = 1 443 IBLOCK( M ) = JBLK 524 IBLOCK( JE ) = IB 550 IBLOCK( IM ) = IBLOCK( JE ) 567 IBLOCK( IM ) = IBLOCK( JE ) 576 IBLOCK( JEE ) = IBLOCK( JE ) 599 IBLOCK( IW ) = 0 613 IBLOCK( IW ) = 0 624 IBLOCK( IM ) = IBLOCK( JE ) 655 ITMP1 = IBLOCK( IE ) [all …]
|
/dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/LAPACKBLAS/SRC/ |
H A D | dlarrd.f | 442 IBLOCK( 1 ) = 1 568 IBLOCK( M ) = JBLK 701 IBLOCK( JE ) = IB 727 IBLOCK( IM ) = IBLOCK( JE ) 744 IBLOCK( IM ) = IBLOCK( JE ) 753 IBLOCK( JEE ) = IBLOCK( JE ) 776 IBLOCK( IW ) = 0 790 IBLOCK( IW ) = 0 801 IBLOCK( IM ) = IBLOCK( JE ) 832 ITMP1 = IBLOCK( IE ) [all …]
|
H A D | slarrd.f | 442 IBLOCK( 1 ) = 1 568 IBLOCK( M ) = JBLK 701 IBLOCK( JE ) = IB 727 IBLOCK( IM ) = IBLOCK( JE ) 744 IBLOCK( IM ) = IBLOCK( JE ) 753 IBLOCK( JEE ) = IBLOCK( JE ) 776 IBLOCK( IW ) = 0 790 IBLOCK( IW ) = 0 801 IBLOCK( IM ) = IBLOCK( JE ) 832 ITMP1 = IBLOCK( IE ) [all …]
|
/dports/math/xlapack/lapack-3.10.0/SRC/ |
H A D | slarrd.f | 453 IBLOCK( 1 ) = 1 579 IBLOCK( M ) = JBLK 712 IBLOCK( JE ) = IB 738 IBLOCK( IM ) = IBLOCK( JE ) 755 IBLOCK( IM ) = IBLOCK( JE ) 764 IBLOCK( JEE ) = IBLOCK( JE ) 787 IBLOCK( IW ) = 0 801 IBLOCK( IW ) = 0 812 IBLOCK( IM ) = IBLOCK( JE ) 843 ITMP1 = IBLOCK( IE ) [all …]
|
H A D | dlarrd.f | 453 IBLOCK( 1 ) = 1 579 IBLOCK( M ) = JBLK 712 IBLOCK( JE ) = IB 738 IBLOCK( IM ) = IBLOCK( JE ) 755 IBLOCK( IM ) = IBLOCK( JE ) 764 IBLOCK( JEE ) = IBLOCK( JE ) 787 IBLOCK( IW ) = 0 801 IBLOCK( IW ) = 0 812 IBLOCK( IM ) = IBLOCK( JE ) 843 ITMP1 = IBLOCK( IE ) [all …]
|
/dports/math/blas/lapack-3.10.0/SRC/ |
H A D | dlarrd.f | 453 IBLOCK( 1 ) = 1 579 IBLOCK( M ) = JBLK 712 IBLOCK( JE ) = IB 738 IBLOCK( IM ) = IBLOCK( JE ) 755 IBLOCK( IM ) = IBLOCK( JE ) 764 IBLOCK( JEE ) = IBLOCK( JE ) 787 IBLOCK( IW ) = 0 801 IBLOCK( IW ) = 0 812 IBLOCK( IM ) = IBLOCK( JE ) 843 ITMP1 = IBLOCK( IE ) [all …]
|
H A D | slarrd.f | 453 IBLOCK( 1 ) = 1 579 IBLOCK( M ) = JBLK 712 IBLOCK( JE ) = IB 738 IBLOCK( IM ) = IBLOCK( JE ) 755 IBLOCK( IM ) = IBLOCK( JE ) 764 IBLOCK( JEE ) = IBLOCK( JE ) 787 IBLOCK( IW ) = 0 801 IBLOCK( IW ) = 0 812 IBLOCK( IM ) = IBLOCK( JE ) 843 ITMP1 = IBLOCK( IE ) [all …]
|
/dports/math/lapacke/lapack-3.10.0/SRC/ |
H A D | slarrd.f | 453 IBLOCK( 1 ) = 1 579 IBLOCK( M ) = JBLK 712 IBLOCK( JE ) = IB 738 IBLOCK( IM ) = IBLOCK( JE ) 755 IBLOCK( IM ) = IBLOCK( JE ) 764 IBLOCK( JEE ) = IBLOCK( JE ) 787 IBLOCK( IW ) = 0 801 IBLOCK( IW ) = 0 812 IBLOCK( IM ) = IBLOCK( JE ) 843 ITMP1 = IBLOCK( IE ) [all …]
|
H A D | dlarrd.f | 453 IBLOCK( 1 ) = 1 579 IBLOCK( M ) = JBLK 712 IBLOCK( JE ) = IB 738 IBLOCK( IM ) = IBLOCK( JE ) 755 IBLOCK( IM ) = IBLOCK( JE ) 764 IBLOCK( JEE ) = IBLOCK( JE ) 787 IBLOCK( IW ) = 0 801 IBLOCK( IW ) = 0 812 IBLOCK( IM ) = IBLOCK( JE ) 843 ITMP1 = IBLOCK( IE ) [all …]
|
/dports/math/lapack/lapack-3.10.0/SRC/ |
H A D | dlarrd.f | 453 IBLOCK( 1 ) = 1 579 IBLOCK( M ) = JBLK 712 IBLOCK( JE ) = IB 738 IBLOCK( IM ) = IBLOCK( JE ) 755 IBLOCK( IM ) = IBLOCK( JE ) 764 IBLOCK( JEE ) = IBLOCK( JE ) 787 IBLOCK( IW ) = 0 801 IBLOCK( IW ) = 0 812 IBLOCK( IM ) = IBLOCK( JE ) 843 ITMP1 = IBLOCK( IE ) [all …]
|
H A D | slarrd.f | 453 IBLOCK( 1 ) = 1 579 IBLOCK( M ) = JBLK 712 IBLOCK( JE ) = IB 738 IBLOCK( IM ) = IBLOCK( JE ) 755 IBLOCK( IM ) = IBLOCK( JE ) 764 IBLOCK( JEE ) = IBLOCK( JE ) 787 IBLOCK( IW ) = 0 801 IBLOCK( IW ) = 0 812 IBLOCK( IM ) = IBLOCK( JE ) 843 ITMP1 = IBLOCK( IE ) [all …]
|
/dports/science/nwchem-data/nwchem-7.0.2-release/src/lapack/double/ |
H A D | dlarrd.f | 442 IBLOCK( 1 ) = 1 568 IBLOCK( M ) = JBLK 701 IBLOCK( JE ) = IB 727 IBLOCK( IM ) = IBLOCK( JE ) 744 IBLOCK( IM ) = IBLOCK( JE ) 753 IBLOCK( JEE ) = IBLOCK( JE ) 776 IBLOCK( IW ) = 0 790 IBLOCK( IW ) = 0 801 IBLOCK( IM ) = IBLOCK( JE ) 832 ITMP1 = IBLOCK( IE ) [all …]
|
/dports/math/openblas/OpenBLAS-0.3.18/lapack-netlib/SRC/ |
H A D | dlarrd.f | 456 IBLOCK( 1 ) = 1 582 IBLOCK( M ) = JBLK 715 IBLOCK( JE ) = IB 741 IBLOCK( IM ) = IBLOCK( JE ) 758 IBLOCK( IM ) = IBLOCK( JE ) 767 IBLOCK( JEE ) = IBLOCK( JE ) 790 IBLOCK( IW ) = 0 804 IBLOCK( IW ) = 0 815 IBLOCK( IM ) = IBLOCK( JE ) 846 ITMP1 = IBLOCK( IE ) [all …]
|
H A D | slarrd.f | 456 IBLOCK( 1 ) = 1 582 IBLOCK( M ) = JBLK 715 IBLOCK( JE ) = IB 741 IBLOCK( IM ) = IBLOCK( JE ) 758 IBLOCK( IM ) = IBLOCK( JE ) 767 IBLOCK( JEE ) = IBLOCK( JE ) 790 IBLOCK( IW ) = 0 804 IBLOCK( IW ) = 0 815 IBLOCK( IM ) = IBLOCK( JE ) 846 ITMP1 = IBLOCK( IE ) [all …]
|
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/lapack/double/ |
H A D | dlarrd.f | 442 IBLOCK( 1 ) = 1 568 IBLOCK( M ) = JBLK 701 IBLOCK( JE ) = IB 727 IBLOCK( IM ) = IBLOCK( JE ) 744 IBLOCK( IM ) = IBLOCK( JE ) 753 IBLOCK( JEE ) = IBLOCK( JE ) 776 IBLOCK( IW ) = 0 790 IBLOCK( IW ) = 0 801 IBLOCK( IM ) = IBLOCK( JE ) 832 ITMP1 = IBLOCK( IE ) [all …]
|
/dports/math/cblas/lapack-3.10.0/SRC/ |
H A D | dlarrd.f | 453 IBLOCK( 1 ) = 1 579 IBLOCK( M ) = JBLK 712 IBLOCK( JE ) = IB 738 IBLOCK( IM ) = IBLOCK( JE ) 755 IBLOCK( IM ) = IBLOCK( JE ) 764 IBLOCK( JEE ) = IBLOCK( JE ) 787 IBLOCK( IW ) = 0 801 IBLOCK( IW ) = 0 812 IBLOCK( IM ) = IBLOCK( JE ) 843 ITMP1 = IBLOCK( IE ) [all …]
|
H A D | slarrd.f | 453 IBLOCK( 1 ) = 1 579 IBLOCK( M ) = JBLK 712 IBLOCK( JE ) = IB 738 IBLOCK( IM ) = IBLOCK( JE ) 755 IBLOCK( IM ) = IBLOCK( JE ) 764 IBLOCK( JEE ) = IBLOCK( JE ) 787 IBLOCK( IW ) = 0 801 IBLOCK( IW ) = 0 812 IBLOCK( IM ) = IBLOCK( JE ) 843 ITMP1 = IBLOCK( IE ) [all …]
|