Home
last modified time | relevance | path

Searched refs:IBLOCK (Results 1 – 25 of 449) sorted by relevance

12345678910>>...18

/dports/misc/libemos/libemos-4.5.9-Source/gribex/
H A Dcodeps.F366 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 Dcodegb.F312 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 Dcodegc.F296 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 Dcodegr.F253 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 Dreclen.F50 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 Ddecops.F159 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 Ddecops2.F164 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 Ddlarrd2.f312 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 Dslarrd2.f312 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 Ddlarrd.f442 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 Dslarrd.f442 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 Dslarrd.f453 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 Ddlarrd.f453 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 Ddlarrd.f453 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 Dslarrd.f453 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 Dslarrd.f453 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 Ddlarrd.f453 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 Ddlarrd.f453 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 Dslarrd.f453 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 Ddlarrd.f442 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 Ddlarrd.f456 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 Dslarrd.f456 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 Ddlarrd.f442 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 Ddlarrd.f453 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 Dslarrd.f453 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 …]

12345678910>>...18