| /dports/math/mumps/mumps-5.1.2/src/ |
| H A D | ctools.F | 833 INTEGER :: I, I4SIZE local
834 IF(int(huge(I4SIZE),8) .EQ. int(huge(HUG8),8)) THEN
837 HUG8=int(huge(I4SIZE),8)
840 I4SIZE = int(min(HUG8, N8-SHIFT8+1_8))
841 CALL ccopy(I4SIZE, SRC(SHIFT8), 1, DEST(SHIFT8), 1)
|
| H A D | dtools.F | 833 INTEGER :: I, I4SIZE local
834 IF(int(huge(I4SIZE),8) .EQ. int(huge(HUG8),8)) THEN
837 HUG8=int(huge(I4SIZE),8)
840 I4SIZE = int(min(HUG8, N8-SHIFT8+1_8))
841 CALL dcopy(I4SIZE, SRC(SHIFT8), 1, DEST(SHIFT8), 1)
|
| H A D | stools.F | 833 INTEGER :: I, I4SIZE local
834 IF(int(huge(I4SIZE),8) .EQ. int(huge(HUG8),8)) THEN
837 HUG8=int(huge(I4SIZE),8)
840 I4SIZE = int(min(HUG8, N8-SHIFT8+1_8))
841 CALL scopy(I4SIZE, SRC(SHIFT8), 1, DEST(SHIFT8), 1)
|
| H A D | ztools.F | 833 INTEGER :: I, I4SIZE local
834 IF(int(huge(I4SIZE),8) .EQ. int(huge(HUG8),8)) THEN
837 HUG8=int(huge(I4SIZE),8)
840 I4SIZE = int(min(HUG8, N8-SHIFT8+1_8))
841 CALL zcopy(I4SIZE, SRC(SHIFT8), 1, DEST(SHIFT8), 1)
|
| /dports/math/ipopt/Ipopt-3.12.13/ThirdParty/Mumps/MUMPS/src/ |
| H A D | smumps_part3.F | 1792 INTEGER :: I, I4SIZE local
1793 HUG8=int(huge(I4SIZE),8)
1796 I4SIZE = int(min(HUG8, N8-SHIFT8+1_8))
1797 CALL scopy(I4SIZE, SRC(SHIFT8), 1, DEST(SHIFT8), 1)
|
| H A D | dmumps_part3.F | 1792 INTEGER :: I, I4SIZE local
1793 HUG8=int(huge(I4SIZE),8)
1796 I4SIZE = int(min(HUG8, N8-SHIFT8+1_8))
1797 CALL dcopy(I4SIZE, SRC(SHIFT8), 1, DEST(SHIFT8), 1)
|
| H A D | cmumps_part3.F | 1792 INTEGER :: I, I4SIZE local
1793 HUG8=int(huge(I4SIZE),8)
1796 I4SIZE = int(min(HUG8, N8-SHIFT8+1_8))
1797 CALL ccopy(I4SIZE, SRC(SHIFT8), 1, DEST(SHIFT8), 1)
|
| H A D | zmumps_part3.F | 1792 INTEGER :: I, I4SIZE local
1793 HUG8=int(huge(I4SIZE),8)
1796 I4SIZE = int(min(HUG8, N8-SHIFT8+1_8))
1797 CALL zcopy(I4SIZE, SRC(SHIFT8), 1, DEST(SHIFT8), 1)
|
| /dports/math/coinmumps/MUMPS_4.10.0/src/ |
| H A D | cmumps_part3.F | 1792 INTEGER :: I, I4SIZE local
1793 HUG8=int(huge(I4SIZE),8)
1796 I4SIZE = int(min(HUG8, N8-SHIFT8+1_8))
1797 CALL ccopy(I4SIZE, SRC(SHIFT8), 1, DEST(SHIFT8), 1)
|
| H A D | smumps_part3.F | 1792 INTEGER :: I, I4SIZE local
1793 HUG8=int(huge(I4SIZE),8)
1796 I4SIZE = int(min(HUG8, N8-SHIFT8+1_8))
1797 CALL scopy(I4SIZE, SRC(SHIFT8), 1, DEST(SHIFT8), 1)
|
| H A D | zmumps_part3.F | 1792 INTEGER :: I, I4SIZE local
1793 HUG8=int(huge(I4SIZE),8)
1796 I4SIZE = int(min(HUG8, N8-SHIFT8+1_8))
1797 CALL zcopy(I4SIZE, SRC(SHIFT8), 1, DEST(SHIFT8), 1)
|
| H A D | dmumps_part3.F | 1792 INTEGER :: I, I4SIZE local
1793 HUG8=int(huge(I4SIZE),8)
1796 I4SIZE = int(min(HUG8, N8-SHIFT8+1_8))
1797 CALL dcopy(I4SIZE, SRC(SHIFT8), 1, DEST(SHIFT8), 1)
|
| /dports/math/mumps4/MUMPS_4.10.0/src/ |
| H A D | cmumps_part3.F | 1792 INTEGER :: I, I4SIZE local
1793 HUG8=int(huge(I4SIZE),8)
1796 I4SIZE = int(min(HUG8, N8-SHIFT8+1_8))
1797 CALL ccopy(I4SIZE, SRC(SHIFT8), 1, DEST(SHIFT8), 1)
|
| H A D | dmumps_part3.F | 1792 INTEGER :: I, I4SIZE local
1793 HUG8=int(huge(I4SIZE),8)
1796 I4SIZE = int(min(HUG8, N8-SHIFT8+1_8))
1797 CALL dcopy(I4SIZE, SRC(SHIFT8), 1, DEST(SHIFT8), 1)
|
| H A D | smumps_part3.F | 1792 INTEGER :: I, I4SIZE local
1793 HUG8=int(huge(I4SIZE),8)
1796 I4SIZE = int(min(HUG8, N8-SHIFT8+1_8))
1797 CALL scopy(I4SIZE, SRC(SHIFT8), 1, DEST(SHIFT8), 1)
|
| H A D | zmumps_part3.F | 1792 INTEGER :: I, I4SIZE local
1793 HUG8=int(huge(I4SIZE),8)
1796 I4SIZE = int(min(HUG8, N8-SHIFT8+1_8))
1797 CALL zcopy(I4SIZE, SRC(SHIFT8), 1, DEST(SHIFT8), 1)
|