/dports/devel/tinygo/tinygo-0.14.1/lib/CMSIS/CMSIS/Pack/Example/Flash/LPC18xx43xx_IAP/ |
H A D | FlashPrg.c | 58 } IAP; variable 104 IAP_Call (&IAP.cmd, &IAP.stat); // Call IAP Command in Init() 108 IAP_Call (&IAP.cmd, &IAP.stat); // Call IAP Command in Init() 137 IAP_Call (&IAP.cmd, &IAP.stat); // Call IAP Command in EraseChip() 145 IAP_Call (&IAP.cmd, &IAP.stat); // Call IAP Command in EraseChip() 167 IAP_Call (&IAP.cmd, &IAP.stat); // Call IAP Command in EraseSector() 175 IAP_Call (&IAP.cmd, &IAP.stat); // Call IAP Command in EraseSector() 199 IAP_Call (&IAP.cmd, &IAP.stat); // Call IAP Command in ProgramPage() 208 IAP_Call (&IAP.cmd, &IAP.stat); // Call IAP Command in ProgramPage() 258 IAP_Call (&IAP.cmd, &IAP.stat); // Call IAP Command in ProgramPage() [all …]
|
/dports/math/lapack95/LAPACK95/TESTING/ |
H A D | la_test_zhpevx.f90 | 33 INTEGER :: I, J, IAP, IW, IZ1, IZ2, IIL, IIU local 40 IAP = N*(N+1)/2; IUPLO = UPLO; IW = N; IJOBS = JOBS 46 IAP = IAP - 1 57 CALL LA_HPEVX(AP(1:IAP), W(1:IW), IUPLO, Z(1:IZ1, 1:IZ2),& 62 CALL LA_HPEVX(AP(1:IAP), W(1:IW), IUPLO, Z(1:IZ1, 1:IZ2),& 69 CALL LA_HPEVX(AP(1:IAP), W(1:IW), IUPLO, Z(1:IZ1, 1:IZ2),& 76 CALL LA_HPEVX(AP(1:IAP), W(1:IW), IUPLO, Z(1:IZ1, 1:IZ2),& 82 CALL LA_HPEVX(AP(1:IAP), W(1:IW), IUPLO,& 102 CALL LA_HPEVX(AP(1:IAP), W(1:IW), IUPLO, & 105 CALL LA_HPEVX(AP(1:IAP), W(1:IW), IUPLO, & [all …]
|
H A D | la_test_dspevx.f90 | 31 INTEGER :: I, J, IAP, IW, IZ1, IZ2, IIL, IIU local 38 IAP = N*(N+1)/2; IUPLO = UPLO; IW = N; IJOBS = JOBS 44 IAP = IAP - 1 55 CALL LA_SPEVX(AP(1:IAP), W(1:IW), IUPLO, Z(1:IZ1, 1:IZ2),& 60 CALL LA_SPEVX(AP(1:IAP), W(1:IW), IUPLO, Z(1:IZ1, 1:IZ2),& 67 CALL LA_SPEVX(AP(1:IAP), W(1:IW), IUPLO, Z(1:IZ1, 1:IZ2),& 74 CALL LA_SPEVX(AP(1:IAP), W(1:IW), IUPLO, Z(1:IZ1, 1:IZ2),& 80 CALL LA_SPEVX(AP(1:IAP), W(1:IW), IUPLO,& 100 CALL LA_SPEVX(AP(1:IAP), W(1:IW), IUPLO, & 103 CALL LA_SPEVX(AP(1:IAP), W(1:IW), IUPLO, & [all …]
|
H A D | la_test_sspevx.f90 | 31 INTEGER :: I, J, IAP, IW, IZ1, IZ2, IIL, IIU local 38 IAP = N*(N+1)/2; IUPLO = UPLO; IW = N; IJOBS = JOBS 44 IAP = IAP - 1 55 CALL LA_SPEVX(AP(1:IAP), W(1:IW), IUPLO, Z(1:IZ1, 1:IZ2),& 60 CALL LA_SPEVX(AP(1:IAP), W(1:IW), IUPLO, Z(1:IZ1, 1:IZ2),& 67 CALL LA_SPEVX(AP(1:IAP), W(1:IW), IUPLO, Z(1:IZ1, 1:IZ2),& 74 CALL LA_SPEVX(AP(1:IAP), W(1:IW), IUPLO, Z(1:IZ1, 1:IZ2),& 80 CALL LA_SPEVX(AP(1:IAP), W(1:IW), IUPLO,& 100 CALL LA_SPEVX(AP(1:IAP), W(1:IW), IUPLO, & 103 CALL LA_SPEVX(AP(1:IAP), W(1:IW), IUPLO, & [all …]
|
H A D | la_test_chpevx.f90 | 33 INTEGER :: I, J, IAP, IW, IZ1, IZ2, IIL, IIU local 40 IAP = N*(N+1)/2; IUPLO = UPLO; IW = N; IJOBS = JOBS 46 IAP = IAP - 1 57 CALL LA_HPEVX(AP(1:IAP), W(1:IW), IUPLO, Z(1:IZ1, 1:IZ2),& 62 CALL LA_HPEVX(AP(1:IAP), W(1:IW), IUPLO, Z(1:IZ1, 1:IZ2),& 69 CALL LA_HPEVX(AP(1:IAP), W(1:IW), IUPLO, Z(1:IZ1, 1:IZ2),& 76 CALL LA_HPEVX(AP(1:IAP), W(1:IW), IUPLO, Z(1:IZ1, 1:IZ2),& 82 CALL LA_HPEVX(AP(1:IAP), W(1:IW), IUPLO,& 102 CALL LA_HPEVX(AP(1:IAP), W(1:IW), IUPLO, & 105 CALL LA_HPEVX(AP(1:IAP), W(1:IW), IUPLO, & [all …]
|
H A D | la_test_zhpgvx.f90 | 38 INTEGER :: I, J, IAP, IBP, IW, IZ1, IZ2, IITYPE local 43 IAP = N *(N+1)/2; IBP = N *(N+1)/2; IITYPE= ITYPE 50 IAP = IAP - 1 52 IBP = IAP - 1 64 CALL LA_HPGVX( AP(1:IAP), BP(1:IBP), W=W, ITYPE=IITYPE, & 76 IIFAIL = IAP - 1 82 CALL LA_HPGVX( AP(1:IAP), BP(1:IBP), W, IITYPE, IUPLO,& 86 CALL LA_HPGVX( AP(1:IAP), BP(1:IBP), W, IITYPE, IUPLO, & 90 CALL LA_HPGVX( AP(1:IAP), BP(1:IBP), W, IITYPE, IUPLO, & 99 CALL LA_HPGVX( AP(1:IAP), BP(1:IBP), W, IITYPE, IUPLO, & [all …]
|
H A D | la_test_sspgvx.f90 | 36 INTEGER :: I, J, IAP, IBP, IW, IZ1, IZ2, IITYPE local 41 IAP = N *(N+1)/2; IBP = N *(N+1)/2; IITYPE= ITYPE 48 IAP = IAP - 1 50 IBP = IAP - 1 62 CALL LA_SPGVX( AP(1:IAP), BP(1:IBP), W=W, ITYPE=IITYPE, & 74 IIFAIL = IAP - 1 80 CALL LA_SPGVX( AP(1:IAP), BP(1:IBP), W, IITYPE, IUPLO,& 84 CALL LA_SPGVX( AP(1:IAP), BP(1:IBP), W, IITYPE, IUPLO, & 88 CALL LA_SPGVX( AP(1:IAP), BP(1:IBP), W, IITYPE, IUPLO, & 97 CALL LA_SPGVX( AP(1:IAP), BP(1:IBP), W, IITYPE, IUPLO, & [all …]
|
H A D | la_test_dspgvx.f90 | 36 INTEGER :: I, J, IAP, IBP, IW, IZ1, IZ2, IITYPE local 41 IAP = N *(N+1)/2; IBP = N *(N+1)/2; IITYPE= ITYPE 48 IAP = IAP - 1 50 IBP = IAP - 1 62 CALL LA_SPGVX( AP(1:IAP), BP(1:IBP), W=W, ITYPE=IITYPE, & 74 IIFAIL = IAP - 1 80 CALL LA_SPGVX( AP(1:IAP), BP(1:IBP), W, IITYPE, IUPLO,& 84 CALL LA_SPGVX( AP(1:IAP), BP(1:IBP), W, IITYPE, IUPLO, & 88 CALL LA_SPGVX( AP(1:IAP), BP(1:IBP), W, IITYPE, IUPLO, & 97 CALL LA_SPGVX( AP(1:IAP), BP(1:IBP), W, IITYPE, IUPLO, & [all …]
|
H A D | la_test_chpgvx.f90 | 38 INTEGER :: I, J, IAP, IBP, IW, IZ1, IZ2, IITYPE local 43 IAP = N *(N+1)/2; IBP = N *(N+1)/2; IITYPE= ITYPE 50 IAP = IAP - 1 52 IBP = IAP - 1 64 CALL LA_HPGVX( AP(1:IAP), BP(1:IBP), W=W, ITYPE=IITYPE, & 76 IIFAIL = IAP - 1 82 CALL LA_HPGVX( AP(1:IAP), BP(1:IBP), W, IITYPE, IUPLO,& 86 CALL LA_HPGVX( AP(1:IAP), BP(1:IBP), W, IITYPE, IUPLO, & 90 CALL LA_HPGVX( AP(1:IAP), BP(1:IBP), W, IITYPE, IUPLO, & 99 CALL LA_HPGVX( AP(1:IAP), BP(1:IBP), W, IITYPE, IUPLO, & [all …]
|
H A D | la_test_zspsv.f90 | 26 INTEGER :: I, J, IAP, IB1, IB2, IIPIV local 31 IAP= N*(N+1)/2; IB1 = N; IB2 = NRHS; IUPLO= UPLO; IIPIV=N 36 CALL LA_SPSV( AP(1:IAP), B(1:IB1,1), IUPLO, & 40 CALL LA_SPSV( AP(1:IAP), B(1:IB1,1:IB2), IUPLO, & 45 IAP = IAP - 1 58 CALL LA_SPSV( AP(1:IAP), B(1:IB1,1:IB2), IUPLO, & 61 CALL LA_SPSV( AP(1:IAP), B(1:IB1,1), IUPLO, &
|
H A D | la_test_sspsv.f90 | 26 INTEGER :: I, J, IAP, IB1, IB2, IIPIV local 31 IAP= N*(N+1)/2; IB1 = N; IB2 = NRHS; IUPLO= UPLO; IIPIV=N 36 CALL LA_SPSV( AP(1:IAP), B(1:IB1,1), IUPLO, & 40 CALL LA_SPSV( AP(1:IAP), B(1:IB1,1:IB2), IUPLO, & 45 IAP = IAP - 1 58 CALL LA_SPSV( AP(1:IAP), B(1:IB1,1:IB2), IUPLO, & 61 CALL LA_SPSV( AP(1:IAP), B(1:IB1,1), IUPLO, &
|
H A D | la_test_zhpsv.f90 | 26 INTEGER :: I, J, IAP, IB1, IB2, IIPIV local 31 IAP= N*(N+1)/2; IB1 = N; IB2 = NRHS; IUPLO= UPLO; IIPIV=N 36 CALL LA_HPSV( AP(1:IAP), B(1:IB1,1), IUPLO, & 40 CALL LA_HPSV( AP(1:IAP), B(1:IB1,1:IB2), IUPLO, & 45 IAP = IAP - 1 58 CALL LA_HPSV( AP(1:IAP), B(1:IB1,1:IB2), IUPLO, & 61 CALL LA_HPSV( AP(1:IAP), B(1:IB1,1), IUPLO, &
|
H A D | la_test_dspsv.f90 | 26 INTEGER :: I, J, IAP, IB1, IB2, IIPIV local 31 IAP= N*(N+1)/2; IB1 = N; IB2 = NRHS; IUPLO= UPLO; IIPIV=N 36 CALL LA_SPSV( AP(1:IAP), B(1:IB1,1), IUPLO, & 40 CALL LA_SPSV( AP(1:IAP), B(1:IB1,1:IB2), IUPLO, & 45 IAP = IAP - 1 58 CALL LA_SPSV( AP(1:IAP), B(1:IB1,1:IB2), IUPLO, & 61 CALL LA_SPSV( AP(1:IAP), B(1:IB1,1), IUPLO, &
|
H A D | la_test_chpsv.f90 | 26 INTEGER :: I, J, IAP, IB1, IB2, IIPIV local 31 IAP= N*(N+1)/2; IB1 = N; IB2 = NRHS; IUPLO= UPLO; IIPIV=N 36 CALL LA_HPSV( AP(1:IAP), B(1:IB1,1), IUPLO, & 40 CALL LA_HPSV( AP(1:IAP), B(1:IB1,1:IB2), IUPLO, & 45 IAP = IAP - 1 58 CALL LA_HPSV( AP(1:IAP), B(1:IB1,1:IB2), IUPLO, & 61 CALL LA_HPSV( AP(1:IAP), B(1:IB1,1), IUPLO, &
|
H A D | la_test_cspsv.f90 | 26 INTEGER :: I, J, IAP, IB1, IB2, IIPIV local 31 IAP= N*(N+1)/2; IB1 = N; IB2 = NRHS; IUPLO= UPLO; IIPIV=N 36 CALL LA_SPSV( AP(1:IAP), B(1:IB1,1), IUPLO, & 40 CALL LA_SPSV( AP(1:IAP), B(1:IB1,1:IB2), IUPLO, & 45 IAP = IAP - 1 58 CALL LA_SPSV( AP(1:IAP), B(1:IB1,1:IB2), IUPLO, & 61 CALL LA_SPSV( AP(1:IAP), B(1:IB1,1), IUPLO, &
|
H A D | la_test_dspsvx.f90 | 32 INTEGER :: I, J, IAP, IB1, IB2, IIPIV, IX1, IX2, IAFP, IFERR, & local 38 IAP = N*(N+1)/2; IB1 = N; IB2 = NRHS; IUPLO= UPLO; IIPIV=N 45 CALL LA_SPSVX( AP(1:IAP), B(1:IB1,1), X(1:IX1,1), IUPLO, & 50 CALL LA_SPSVX( AP(1:IAP), B(1:IB1,1:IB2), X(1:IX1,1:IX2), IUPLO, & 56 IAP = IAP - 1 64 IAFP = IAP - 1 71 CALL LA_SPSVX( AP(1:IAP), B(1:IB1,1:IB2), X(1:IX1,1:IX2), IUPLO, & 78 CALL LA_SPSVX( AP(1:IAP), B(1:IB1,1:IB2), X(1:IX1,1:IX2), IUPLO, & 89 CALL LA_SPSVX( AP(1:IAP), B(1:IB1,1:IB2), X(1:IX1,1:IX2), IUPLO, & 93 CALL LA_SPSVX( AP(1:IAP), B(1:IB1,1), X(1:IX1, 1), IUPLO, &
|
H A D | la_test_sspsvx.f90 | 32 INTEGER :: I, J, IAP, IB1, IB2, IIPIV, IX1, IX2, IAFP, IFERR, & local 38 IAP = N*(N+1)/2; IB1 = N; IB2 = NRHS; IUPLO= UPLO; IIPIV=N 45 CALL LA_SPSVX( AP(1:IAP), B(1:IB1,1), X(1:IX1,1), IUPLO, & 50 CALL LA_SPSVX( AP(1:IAP), B(1:IB1,1:IB2), X(1:IX1,1:IX2), IUPLO, & 56 IAP = IAP - 1 64 IAFP = IAP - 1 71 CALL LA_SPSVX( AP(1:IAP), B(1:IB1,1:IB2), X(1:IX1,1:IX2), IUPLO, & 78 CALL LA_SPSVX( AP(1:IAP), B(1:IB1,1:IB2), X(1:IX1,1:IX2), IUPLO, & 89 CALL LA_SPSVX( AP(1:IAP), B(1:IB1,1:IB2), X(1:IX1,1:IX2), IUPLO, & 93 CALL LA_SPSVX( AP(1:IAP), B(1:IB1,1), X(1:IX1, 1), IUPLO, &
|
H A D | la_test_cspsvx.f90 | 32 INTEGER :: I, J, IAP, IB1, IB2, IIPIV, IX1, IX2, IAFP, IFERR, & local 38 IAP = N*(N+1)/2; IB1 = N; IB2 = NRHS; IUPLO= UPLO; IIPIV=N 45 CALL LA_SPSVX( AP(1:IAP), B(1:IB1,1), X(1:IX1,1), IUPLO, & 50 CALL LA_SPSVX( AP(1:IAP), B(1:IB1,1:IB2), X(1:IX1,1:IX2), IUPLO, & 56 IAP = IAP - 1 64 IAFP = IAP - 1 71 CALL LA_SPSVX( AP(1:IAP), B(1:IB1,1:IB2), X(1:IX1,1:IX2), IUPLO, & 78 CALL LA_SPSVX( AP(1:IAP), B(1:IB1,1:IB2), X(1:IX1,1:IX2), IUPLO, & 89 CALL LA_SPSVX( AP(1:IAP), B(1:IB1,1:IB2), X(1:IX1,1:IX2), IUPLO, & 93 CALL LA_SPSVX( AP(1:IAP), B(1:IB1,1), X(1:IX1, 1), IUPLO, &
|
H A D | la_test_zhpsvx.f90 | 32 INTEGER :: I, J, IAP, IB1, IB2, IIPIV, IX1, IX2, IAFP, IFERR, & local 38 IAP = N*(N+1)/2; IB1 = N; IB2 = NRHS; IUPLO= UPLO; IIPIV=N 45 CALL LA_HPSVX( AP(1:IAP), B(1:IB1,1), X(1:IX1,1), IUPLO, & 50 CALL LA_HPSVX( AP(1:IAP), B(1:IB1,1:IB2), X(1:IX1,1:IX2), IUPLO, & 56 IAP = IAP - 1 64 IAFP = IAP - 1 71 CALL LA_HPSVX( AP(1:IAP), B(1:IB1,1:IB2), X(1:IX1,1:IX2), IUPLO, & 78 CALL LA_HPSVX( AP(1:IAP), B(1:IB1,1:IB2), X(1:IX1,1:IX2), IUPLO, & 89 CALL LA_HPSVX( AP(1:IAP), B(1:IB1,1:IB2), X(1:IX1,1:IX2), IUPLO, & 93 CALL LA_HPSVX( AP(1:IAP), B(1:IB1,1), X(1:IX1, 1), IUPLO, &
|
H A D | la_test_zspsvx.f90 | 32 INTEGER :: I, J, IAP, IB1, IB2, IIPIV, IX1, IX2, IAFP, IFERR, & local 38 IAP = N*(N+1)/2; IB1 = N; IB2 = NRHS; IUPLO= UPLO; IIPIV=N 45 CALL LA_SPSVX( AP(1:IAP), B(1:IB1,1), X(1:IX1,1), IUPLO, & 50 CALL LA_SPSVX( AP(1:IAP), B(1:IB1,1:IB2), X(1:IX1,1:IX2), IUPLO, & 56 IAP = IAP - 1 64 IAFP = IAP - 1 71 CALL LA_SPSVX( AP(1:IAP), B(1:IB1,1:IB2), X(1:IX1,1:IX2), IUPLO, & 78 CALL LA_SPSVX( AP(1:IAP), B(1:IB1,1:IB2), X(1:IX1,1:IX2), IUPLO, & 89 CALL LA_SPSVX( AP(1:IAP), B(1:IB1,1:IB2), X(1:IX1,1:IX2), IUPLO, & 93 CALL LA_SPSVX( AP(1:IAP), B(1:IB1,1), X(1:IX1, 1), IUPLO, &
|
H A D | la_test_chpsvx.f90 | 32 INTEGER :: I, J, IAP, IB1, IB2, IIPIV, IX1, IX2, IAFP, IFERR, & local 38 IAP = N*(N+1)/2; IB1 = N; IB2 = NRHS; IUPLO= UPLO; IIPIV=N 45 CALL LA_HPSVX( AP(1:IAP), B(1:IB1,1), X(1:IX1,1), IUPLO, & 50 CALL LA_HPSVX( AP(1:IAP), B(1:IB1,1:IB2), X(1:IX1,1:IX2), IUPLO, & 56 IAP = IAP - 1 64 IAFP = IAP - 1 71 CALL LA_HPSVX( AP(1:IAP), B(1:IB1,1:IB2), X(1:IX1,1:IX2), IUPLO, & 78 CALL LA_HPSVX( AP(1:IAP), B(1:IB1,1:IB2), X(1:IX1,1:IX2), IUPLO, & 89 CALL LA_HPSVX( AP(1:IAP), B(1:IB1,1:IB2), X(1:IX1,1:IX2), IUPLO, & 93 CALL LA_HPSVX( AP(1:IAP), B(1:IB1,1), X(1:IX1, 1), IUPLO, &
|
H A D | la_test_sspgv.f90 | 26 INTEGER :: I, J, IAP, IW, IBP, IITYPE, IZ1, IZ2 local 32 IAP = N *(N+1)/2; IUPLO = UPLO; IW = N; IJOBZ = JOBZ 37 IAP = IAP - 1 39 IBP = IAP - 1 53 CALL LA_SPGV( AP(1:IAP), BP(1:IBP), W(1 :IW), & 56 CALL LA_SPGV( AP(1:IAP), BP(1:IBP), W(1 :IW), &
|
H A D | la_test_dspgv.f90 | 26 INTEGER :: I, J, IAP, IW, IBP, IITYPE, IZ1, IZ2 local 32 IAP = N *(N+1)/2; IUPLO = UPLO; IW = N; IJOBZ = JOBZ 37 IAP = IAP - 1 39 IBP = IAP - 1 53 CALL LA_SPGV( AP(1:IAP), BP(1:IBP), W(1 :IW), & 56 CALL LA_SPGV( AP(1:IAP), BP(1:IBP), W(1 :IW), &
|
H A D | la_test_zhpgv.f90 | 29 INTEGER :: I, J, IAP, IBP, IZ1, IZ2, IW, IITYPE local 35 IAP= N*(N+1)/2; IBP = N*(N+1)/2; IUPLO= UPLO; IJOBZ = JOBZ 42 IAP = IAP - 1 44 IBP = IAP - 1 57 CALL LA_HPGV( AP(1:IAP), BP(1: IBP), W(1:IW), IITYPE, IUPLO, & 60 CALL LA_HPGV( AP(1:IAP), BP(1: IBP), W(1:IW), IITYPE, IUPLO, &
|
H A D | la_test_chpgv.f90 | 29 INTEGER :: I, J, IAP, IBP, IZ1, IZ2, IW, IITYPE local 35 IAP= N*(N+1)/2; IBP = N*(N+1)/2; IUPLO= UPLO; IJOBZ = JOBZ 42 IAP = IAP - 1 44 IBP = IAP - 1 57 CALL LA_HPGV( AP(1:IAP), BP(1: IBP), W(1:IW), IITYPE, IUPLO, & 60 CALL LA_HPGV( AP(1:IAP), BP(1: IBP), W(1:IW), IITYPE, IUPLO, &
|