/dports/math/mumps/mumps-5.1.2/src/ |
H A D | cfac_driver.F | 3145 INTEGER :: ID_SCHUR, SIZE_SCHUR, LD_SCHUR, IB, BL4 local 3160 ID_SCHUR =MUMPS_PROCNODE( 3164 ID_SCHUR = ID_SCHUR + 1 3167 IF (id%MYID.EQ.ID_SCHUR) THEN 3199 IF (id%MYID.EQ.ID_SCHUR) THEN 3211 & MPI_COMPLEX, ID_SCHUR, TAG_SCHUR, 3220 IF (id%MYID.EQ.ID_SCHUR) THEN 3254 IF ( id%MYID .eq. ID_SCHUR ) THEN 3267 & MPI_COMPLEX, ID_SCHUR, TAG_SCHUR, 3286 IF (id%MYID.EQ.ID_SCHUR) THEN [all …]
|
H A D | zfac_driver.F | 3145 INTEGER :: ID_SCHUR, SIZE_SCHUR, LD_SCHUR, IB, BL4 local 3160 ID_SCHUR =MUMPS_PROCNODE( 3164 ID_SCHUR = ID_SCHUR + 1 3167 IF (id%MYID.EQ.ID_SCHUR) THEN 3194 IF (ID_SCHUR.EQ.MASTER) THEN ! Necessarily = id%MYID 3199 IF (id%MYID.EQ.ID_SCHUR) THEN 3211 & MPI_DOUBLE_COMPLEX, ID_SCHUR, TAG_SCHUR, 3220 IF (id%MYID.EQ.ID_SCHUR) THEN 3254 IF ( id%MYID .eq. ID_SCHUR ) THEN 3282 IF (ID_SCHUR.EQ.MASTER) THEN ! Necessarily = id%MYID [all …]
|
H A D | dfac_driver.F | 3146 INTEGER :: ID_SCHUR, SIZE_SCHUR, LD_SCHUR, IB, BL4 local 3161 ID_SCHUR =MUMPS_PROCNODE( 3165 ID_SCHUR = ID_SCHUR + 1 3168 IF (id%MYID.EQ.ID_SCHUR) THEN 3195 IF (ID_SCHUR.EQ.MASTER) THEN ! Necessarily = id%MYID 3200 IF (id%MYID.EQ.ID_SCHUR) THEN 3212 & MPI_DOUBLE_PRECISION, ID_SCHUR, TAG_SCHUR, 3221 IF (id%MYID.EQ.ID_SCHUR) THEN 3255 IF ( id%MYID .eq. ID_SCHUR ) THEN 3283 IF (ID_SCHUR.EQ.MASTER) THEN ! Necessarily = id%MYID [all …]
|
H A D | sfac_driver.F | 3146 INTEGER :: ID_SCHUR, SIZE_SCHUR, LD_SCHUR, IB, BL4 local 3161 ID_SCHUR =MUMPS_PROCNODE( 3165 ID_SCHUR = ID_SCHUR + 1 3168 IF (id%MYID.EQ.ID_SCHUR) THEN 3200 IF (id%MYID.EQ.ID_SCHUR) THEN 3212 & MPI_REAL, ID_SCHUR, TAG_SCHUR, 3221 IF (id%MYID.EQ.ID_SCHUR) THEN 3255 IF ( id%MYID .eq. ID_SCHUR ) THEN 3268 & MPI_REAL, ID_SCHUR, TAG_SCHUR, 3287 IF (id%MYID.EQ.ID_SCHUR) THEN [all …]
|
/dports/math/ipopt/Ipopt-3.12.13/ThirdParty/Mumps/MUMPS/src/ |
H A D | smumps_part5.F | 5825 ID_SCHUR =MUMPS_275( 5829 ID_SCHUR = ID_SCHUR + 1 5831 IF (id%MYID.EQ.ID_SCHUR) THEN 5850 IF (ID_SCHUR.EQ.MASTER) THEN 5855 IF (id%MYID.EQ.ID_SCHUR) THEN 5870 IF (id%MYID.EQ.ID_SCHUR) THEN 5878 IF ( ID_SCHUR .EQ. MASTER ) THEN 5887 IF ( id%MYID .eq. ID_SCHUR ) THEN 5909 IF (ID_SCHUR.EQ.MASTER) THEN 5913 IF (id%MYID.EQ.ID_SCHUR) THEN [all …]
|
H A D | dmumps_part5.F | 5825 ID_SCHUR =MUMPS_275( 5829 ID_SCHUR = ID_SCHUR + 1 5831 IF (id%MYID.EQ.ID_SCHUR) THEN 5850 IF (ID_SCHUR.EQ.MASTER) THEN 5855 IF (id%MYID.EQ.ID_SCHUR) THEN 5870 IF (id%MYID.EQ.ID_SCHUR) THEN 5878 IF ( ID_SCHUR .EQ. MASTER ) THEN 5887 IF ( id%MYID .eq. ID_SCHUR ) THEN 5909 IF (ID_SCHUR.EQ.MASTER) THEN 5913 IF (id%MYID.EQ.ID_SCHUR) THEN [all …]
|
H A D | cmumps_part5.F | 5826 ID_SCHUR =MUMPS_275( 5830 ID_SCHUR = ID_SCHUR + 1 5832 IF (id%MYID.EQ.ID_SCHUR) THEN 5851 IF (ID_SCHUR.EQ.MASTER) THEN 5856 IF (id%MYID.EQ.ID_SCHUR) THEN 5871 IF (id%MYID.EQ.ID_SCHUR) THEN 5879 IF ( ID_SCHUR .EQ. MASTER ) THEN 5888 IF ( id%MYID .eq. ID_SCHUR ) THEN 5910 IF (ID_SCHUR.EQ.MASTER) THEN 5914 IF (id%MYID.EQ.ID_SCHUR) THEN [all …]
|
H A D | zmumps_part5.F | 5826 ID_SCHUR =MUMPS_275( 5830 ID_SCHUR = ID_SCHUR + 1 5832 IF (id%MYID.EQ.ID_SCHUR) THEN 5851 IF (ID_SCHUR.EQ.MASTER) THEN 5856 IF (id%MYID.EQ.ID_SCHUR) THEN 5871 IF (id%MYID.EQ.ID_SCHUR) THEN 5879 IF ( ID_SCHUR .EQ. MASTER ) THEN 5888 IF ( id%MYID .eq. ID_SCHUR ) THEN 5910 IF (ID_SCHUR.EQ.MASTER) THEN 5914 IF (id%MYID.EQ.ID_SCHUR) THEN [all …]
|
/dports/math/coinmumps/MUMPS_4.10.0/src/ |
H A D | zmumps_part5.F | 5826 ID_SCHUR =MUMPS_275( 5830 ID_SCHUR = ID_SCHUR + 1 5832 IF (id%MYID.EQ.ID_SCHUR) THEN 5851 IF (ID_SCHUR.EQ.MASTER) THEN 5856 IF (id%MYID.EQ.ID_SCHUR) THEN 5871 IF (id%MYID.EQ.ID_SCHUR) THEN 5879 IF ( ID_SCHUR .EQ. MASTER ) THEN 5888 IF ( id%MYID .eq. ID_SCHUR ) THEN 5910 IF (ID_SCHUR.EQ.MASTER) THEN 5914 IF (id%MYID.EQ.ID_SCHUR) THEN [all …]
|
H A D | cmumps_part5.F | 5826 ID_SCHUR =MUMPS_275( 5830 ID_SCHUR = ID_SCHUR + 1 5832 IF (id%MYID.EQ.ID_SCHUR) THEN 5851 IF (ID_SCHUR.EQ.MASTER) THEN 5856 IF (id%MYID.EQ.ID_SCHUR) THEN 5871 IF (id%MYID.EQ.ID_SCHUR) THEN 5879 IF ( ID_SCHUR .EQ. MASTER ) THEN 5888 IF ( id%MYID .eq. ID_SCHUR ) THEN 5910 IF (ID_SCHUR.EQ.MASTER) THEN 5914 IF (id%MYID.EQ.ID_SCHUR) THEN [all …]
|
H A D | smumps_part5.F | 5825 ID_SCHUR =MUMPS_275( 5829 ID_SCHUR = ID_SCHUR + 1 5831 IF (id%MYID.EQ.ID_SCHUR) THEN 5850 IF (ID_SCHUR.EQ.MASTER) THEN 5855 IF (id%MYID.EQ.ID_SCHUR) THEN 5870 IF (id%MYID.EQ.ID_SCHUR) THEN 5878 IF ( ID_SCHUR .EQ. MASTER ) THEN 5887 IF ( id%MYID .eq. ID_SCHUR ) THEN 5909 IF (ID_SCHUR.EQ.MASTER) THEN 5913 IF (id%MYID.EQ.ID_SCHUR) THEN [all …]
|
H A D | dmumps_part5.F | 5825 ID_SCHUR =MUMPS_275( 5829 ID_SCHUR = ID_SCHUR + 1 5831 IF (id%MYID.EQ.ID_SCHUR) THEN 5850 IF (ID_SCHUR.EQ.MASTER) THEN 5855 IF (id%MYID.EQ.ID_SCHUR) THEN 5870 IF (id%MYID.EQ.ID_SCHUR) THEN 5878 IF ( ID_SCHUR .EQ. MASTER ) THEN 5887 IF ( id%MYID .eq. ID_SCHUR ) THEN 5909 IF (ID_SCHUR.EQ.MASTER) THEN 5913 IF (id%MYID.EQ.ID_SCHUR) THEN [all …]
|
/dports/math/mumps4/MUMPS_4.10.0/src/ |
H A D | cmumps_part5.F | 5826 ID_SCHUR =MUMPS_275( 5830 ID_SCHUR = ID_SCHUR + 1 5832 IF (id%MYID.EQ.ID_SCHUR) THEN 5851 IF (ID_SCHUR.EQ.MASTER) THEN 5856 IF (id%MYID.EQ.ID_SCHUR) THEN 5871 IF (id%MYID.EQ.ID_SCHUR) THEN 5879 IF ( ID_SCHUR .EQ. MASTER ) THEN 5888 IF ( id%MYID .eq. ID_SCHUR ) THEN 5910 IF (ID_SCHUR.EQ.MASTER) THEN 5914 IF (id%MYID.EQ.ID_SCHUR) THEN [all …]
|
H A D | dmumps_part5.F | 5825 ID_SCHUR =MUMPS_275( 5829 ID_SCHUR = ID_SCHUR + 1 5831 IF (id%MYID.EQ.ID_SCHUR) THEN 5850 IF (ID_SCHUR.EQ.MASTER) THEN 5855 IF (id%MYID.EQ.ID_SCHUR) THEN 5870 IF (id%MYID.EQ.ID_SCHUR) THEN 5878 IF ( ID_SCHUR .EQ. MASTER ) THEN 5887 IF ( id%MYID .eq. ID_SCHUR ) THEN 5909 IF (ID_SCHUR.EQ.MASTER) THEN 5913 IF (id%MYID.EQ.ID_SCHUR) THEN [all …]
|
H A D | zmumps_part5.F | 5826 ID_SCHUR =MUMPS_275( 5830 ID_SCHUR = ID_SCHUR + 1 5832 IF (id%MYID.EQ.ID_SCHUR) THEN 5851 IF (ID_SCHUR.EQ.MASTER) THEN 5856 IF (id%MYID.EQ.ID_SCHUR) THEN 5871 IF (id%MYID.EQ.ID_SCHUR) THEN 5879 IF ( ID_SCHUR .EQ. MASTER ) THEN 5888 IF ( id%MYID .eq. ID_SCHUR ) THEN 5910 IF (ID_SCHUR.EQ.MASTER) THEN 5914 IF (id%MYID.EQ.ID_SCHUR) THEN [all …]
|
H A D | smumps_part5.F | 5825 ID_SCHUR =MUMPS_275( 5829 ID_SCHUR = ID_SCHUR + 1 5831 IF (id%MYID.EQ.ID_SCHUR) THEN 5850 IF (ID_SCHUR.EQ.MASTER) THEN 5855 IF (id%MYID.EQ.ID_SCHUR) THEN 5870 IF (id%MYID.EQ.ID_SCHUR) THEN 5878 IF ( ID_SCHUR .EQ. MASTER ) THEN 5887 IF ( id%MYID .eq. ID_SCHUR ) THEN 5909 IF (ID_SCHUR.EQ.MASTER) THEN 5913 IF (id%MYID.EQ.ID_SCHUR) THEN [all …]
|