| /dports/math/librsb/librsb-1.2.0.10/ |
| H A D | psbtf.F90 | 33 INTEGER :: ictxt, iam=-1, np=-1 variable
35 CALL psb_init(ictxt)
36 CALL psb_info(ictxt,iam,np)
43 CALL ts_sg_de_usmv_2_n_ap3_bp1_ix1_iy1(errval,afmt,ictxt)
48 CALL ts_sg_de_usmv_2_t_ap3_bp1_ix1_iy1(errval,afmt,ictxt)
53 CALL ts_sg_de_usmv_2_c_ap3_bp1_ix1_iy1(errval,afmt,ictxt)
58 CALL ts_sg_de_usmv_2_n_ap3_bnr0_ix1_iy1(errval,afmt,ictxt)
73 CALL ts_sg_de_usmv_2_n_ap1_bp1_ix1_iy1(errval,afmt,ictxt)
78 CALL ts_sg_de_usmv_2_t_ap1_bp1_ix1_iy1(errval,afmt,ictxt)
83 CALL ts_sg_de_usmv_2_c_ap1_bp1_ix1_iy1(errval,afmt,ictxt)
[all …]
|
| H A D | psb_mvsv_tester.f90 | 85 CALL psb_barrier(ictxt)
90 CALL psb_barrier(ictxt)
162 CALL psb_barrier(ictxt)
167 CALL psb_barrier(ictxt)
236 CALL psb_barrier(ictxt)
241 CALL psb_barrier(ictxt)
310 CALL psb_barrier(ictxt)
315 CALL psb_barrier(ictxt)
387 CALL psb_barrier(ictxt)
392 CALL psb_barrier(ictxt)
[all …]
|
| /dports/lang/gcc6-aux/gcc-6-20180516/gcc/testsuite/gfortran.dg/ |
| H A D | submodule_10.f08 | 39 integer(mpik_), intent(in) :: ictxt
47 module subroutine perror(ictxt,abrt)
48 integer(mpik_), intent(in) :: ictxt
56 integer(mpik_), intent(in) :: ictxt
63 module subroutine errcomm(ictxt, err)
102 subroutine errcomm(ictxt, err)
122 integer(mpik_), intent(in) :: ictxt local
135 integer(mpik_), intent(in) :: ictxt local
137 call error(ictxt, abrt=.false.)
152 subroutine perror(ictxt,abrt)
[all …]
|
| H A D | class_37.f03 | 28 subroutine psb_init(ictxt,np,basectxt,ids) argument
30 integer, intent(out) :: ictxt local
34 ictxt = nctxt
39 subroutine psb_exit(ictxt,close) argument
41 integer, intent(inout) :: ictxt local
49 subroutine psb_info(ictxt,iam,np) argument
53 integer, intent(in) :: ictxt local
70 integer :: ictxt = -1 component
105 integer, intent(in) :: ictxt, nl local
112 call psb_info(ictxt,iam,np)
[all …]
|
| /dports/lang/gcc12-devel/gcc-12-20211205/gcc/testsuite/gfortran.dg/ |
| H A D | submodule_10.f08 | 39 integer(mpik_), intent(in) :: ictxt
47 module subroutine perror(ictxt,abrt)
48 integer(mpik_), intent(in) :: ictxt
56 integer(mpik_), intent(in) :: ictxt
63 module subroutine errcomm(ictxt, err)
102 subroutine errcomm(ictxt, err)
122 integer(mpik_), intent(in) :: ictxt local
135 integer(mpik_), intent(in) :: ictxt local
137 call error(ictxt, abrt=.false.)
152 subroutine perror(ictxt,abrt)
[all …]
|
| H A D | class_37.f03 | 28 subroutine psb_init(ictxt,np,basectxt,ids) argument
30 integer, intent(out) :: ictxt local
34 ictxt = nctxt
39 subroutine psb_exit(ictxt,close) argument
41 integer, intent(inout) :: ictxt local
49 subroutine psb_info(ictxt,iam,np) argument
53 integer, intent(in) :: ictxt local
70 integer :: ictxt = -1 component
105 integer, intent(in) :: ictxt, nl local
112 call psb_info(ictxt,iam,np)
[all …]
|
| /dports/lang/gcc8/gcc-8.5.0/gcc/testsuite/gfortran.dg/ |
| H A D | submodule_10.f08 | 39 integer(mpik_), intent(in) :: ictxt
47 module subroutine perror(ictxt,abrt)
48 integer(mpik_), intent(in) :: ictxt
56 integer(mpik_), intent(in) :: ictxt
63 module subroutine errcomm(ictxt, err)
102 subroutine errcomm(ictxt, err)
122 integer(mpik_), intent(in) :: ictxt local
135 integer(mpik_), intent(in) :: ictxt local
137 call error(ictxt, abrt=.false.)
152 subroutine perror(ictxt,abrt)
[all …]
|
| /dports/lang/gcc10/gcc-10.3.0/gcc/testsuite/gfortran.dg/ |
| H A D | submodule_10.f08 | 39 integer(mpik_), intent(in) :: ictxt
47 module subroutine perror(ictxt,abrt)
48 integer(mpik_), intent(in) :: ictxt
56 integer(mpik_), intent(in) :: ictxt
63 module subroutine errcomm(ictxt, err)
102 subroutine errcomm(ictxt, err)
122 integer(mpik_), intent(in) :: ictxt local
135 integer(mpik_), intent(in) :: ictxt local
137 call error(ictxt, abrt=.false.)
152 subroutine perror(ictxt,abrt)
[all …]
|
| /dports/devel/riscv64-none-elf-gcc/gcc-8.4.0/gcc/testsuite/gfortran.dg/ |
| H A D | submodule_10.f08 | 39 integer(mpik_), intent(in) :: ictxt
47 module subroutine perror(ictxt,abrt)
48 integer(mpik_), intent(in) :: ictxt
56 integer(mpik_), intent(in) :: ictxt
63 module subroutine errcomm(ictxt, err)
102 subroutine errcomm(ictxt, err)
122 integer(mpik_), intent(in) :: ictxt local
135 integer(mpik_), intent(in) :: ictxt local
137 call error(ictxt, abrt=.false.)
152 subroutine perror(ictxt,abrt)
[all …]
|
| /dports/lang/gcc11-devel/gcc-11-20211009/gcc/testsuite/gfortran.dg/ |
| H A D | submodule_10.f08 | 39 integer(mpik_), intent(in) :: ictxt
47 module subroutine perror(ictxt,abrt)
48 integer(mpik_), intent(in) :: ictxt
56 integer(mpik_), intent(in) :: ictxt
63 module subroutine errcomm(ictxt, err)
102 subroutine errcomm(ictxt, err)
122 integer(mpik_), intent(in) :: ictxt local
135 integer(mpik_), intent(in) :: ictxt local
137 call error(ictxt, abrt=.false.)
152 subroutine perror(ictxt,abrt)
[all …]
|
| /dports/devel/arm-none-eabi-gcc/gcc-8.4.0/gcc/testsuite/gfortran.dg/ |
| H A D | submodule_10.f08 | 39 integer(mpik_), intent(in) :: ictxt
47 module subroutine perror(ictxt,abrt)
48 integer(mpik_), intent(in) :: ictxt
56 integer(mpik_), intent(in) :: ictxt
63 module subroutine errcomm(ictxt, err)
102 subroutine errcomm(ictxt, err)
122 integer(mpik_), intent(in) :: ictxt local
135 integer(mpik_), intent(in) :: ictxt local
137 call error(ictxt, abrt=.false.)
152 subroutine perror(ictxt,abrt)
[all …]
|
| /dports/devel/riscv32-unknown-elf-gcc/gcc-8.4.0/gcc/testsuite/gfortran.dg/ |
| H A D | submodule_10.f08 | 39 integer(mpik_), intent(in) :: ictxt
47 module subroutine perror(ictxt,abrt)
48 integer(mpik_), intent(in) :: ictxt
56 integer(mpik_), intent(in) :: ictxt
63 module subroutine errcomm(ictxt, err)
102 subroutine errcomm(ictxt, err)
122 integer(mpik_), intent(in) :: ictxt local
135 integer(mpik_), intent(in) :: ictxt local
137 call error(ictxt, abrt=.false.)
152 subroutine perror(ictxt,abrt)
[all …]
|
| /dports/lang/gcc9-devel/gcc-9-20211007/gcc/testsuite/gfortran.dg/ |
| H A D | submodule_10.f08 | 39 integer(mpik_), intent(in) :: ictxt
47 module subroutine perror(ictxt,abrt)
48 integer(mpik_), intent(in) :: ictxt
56 integer(mpik_), intent(in) :: ictxt
63 module subroutine errcomm(ictxt, err)
102 subroutine errcomm(ictxt, err)
122 integer(mpik_), intent(in) :: ictxt local
135 integer(mpik_), intent(in) :: ictxt local
137 call error(ictxt, abrt=.false.)
152 subroutine perror(ictxt,abrt)
[all …]
|
| /dports/devel/aarch64-none-elf-gcc/gcc-8.4.0/gcc/testsuite/gfortran.dg/ |
| H A D | submodule_10.f08 | 39 integer(mpik_), intent(in) :: ictxt
47 module subroutine perror(ictxt,abrt)
48 integer(mpik_), intent(in) :: ictxt
56 integer(mpik_), intent(in) :: ictxt
63 module subroutine errcomm(ictxt, err)
102 subroutine errcomm(ictxt, err)
122 integer(mpik_), intent(in) :: ictxt local
135 integer(mpik_), intent(in) :: ictxt local
137 call error(ictxt, abrt=.false.)
152 subroutine perror(ictxt,abrt)
[all …]
|
| /dports/lang/gcc9-aux/gcc-9.1.0/gcc/testsuite/gfortran.dg/ |
| H A D | submodule_10.f08 | 39 integer(mpik_), intent(in) :: ictxt
47 module subroutine perror(ictxt,abrt)
48 integer(mpik_), intent(in) :: ictxt
56 integer(mpik_), intent(in) :: ictxt
63 module subroutine errcomm(ictxt, err)
102 subroutine errcomm(ictxt, err)
122 integer(mpik_), intent(in) :: ictxt local
135 integer(mpik_), intent(in) :: ictxt local
137 call error(ictxt, abrt=.false.)
152 subroutine perror(ictxt,abrt)
[all …]
|
| /dports/misc/cxx_atomics_pic/gcc-11.2.0/gcc/testsuite/gfortran.dg/ |
| H A D | submodule_10.f08 | 39 integer(mpik_), intent(in) :: ictxt
47 module subroutine perror(ictxt,abrt)
48 integer(mpik_), intent(in) :: ictxt
56 integer(mpik_), intent(in) :: ictxt
63 module subroutine errcomm(ictxt, err)
102 subroutine errcomm(ictxt, err)
122 integer(mpik_), intent(in) :: ictxt local
135 integer(mpik_), intent(in) :: ictxt local
137 call error(ictxt, abrt=.false.)
152 subroutine perror(ictxt,abrt)
[all …]
|
| /dports/devel/avr-gcc/gcc-10.2.0/gcc/testsuite/gfortran.dg/ |
| H A D | submodule_10.f08 | 39 integer(mpik_), intent(in) :: ictxt
47 module subroutine perror(ictxt,abrt)
48 integer(mpik_), intent(in) :: ictxt
56 integer(mpik_), intent(in) :: ictxt
63 module subroutine errcomm(ictxt, err)
102 subroutine errcomm(ictxt, err)
122 integer(mpik_), intent(in) :: ictxt local
135 integer(mpik_), intent(in) :: ictxt local
137 call error(ictxt, abrt=.false.)
152 subroutine perror(ictxt,abrt)
[all …]
|
| /dports/lang/gnat_util/gcc-6-20180516/gcc/testsuite/gfortran.dg/ |
| H A D | submodule_10.f08 | 39 integer(mpik_), intent(in) :: ictxt
47 module subroutine perror(ictxt,abrt)
48 integer(mpik_), intent(in) :: ictxt
56 integer(mpik_), intent(in) :: ictxt
63 module subroutine errcomm(ictxt, err)
102 subroutine errcomm(ictxt, err)
122 integer(mpik_), intent(in) :: ictxt local
135 integer(mpik_), intent(in) :: ictxt local
137 call error(ictxt, abrt=.false.)
152 subroutine perror(ictxt,abrt)
[all …]
|
| /dports/devel/riscv64-gcc/gcc-8.3.0/gcc/testsuite/gfortran.dg/ |
| H A D | submodule_10.f08 | 39 integer(mpik_), intent(in) :: ictxt
47 module subroutine perror(ictxt,abrt)
48 integer(mpik_), intent(in) :: ictxt
56 integer(mpik_), intent(in) :: ictxt
63 module subroutine errcomm(ictxt, err)
102 subroutine errcomm(ictxt, err)
122 integer(mpik_), intent(in) :: ictxt local
135 integer(mpik_), intent(in) :: ictxt local
137 call error(ictxt, abrt=.false.)
152 subroutine perror(ictxt,abrt)
[all …]
|
| /dports/lang/gcc11/gcc-11.2.0/gcc/testsuite/gfortran.dg/ |
| H A D | submodule_10.f08 | 39 integer(mpik_), intent(in) :: ictxt
47 module subroutine perror(ictxt,abrt)
48 integer(mpik_), intent(in) :: ictxt
56 integer(mpik_), intent(in) :: ictxt
63 module subroutine errcomm(ictxt, err)
102 subroutine errcomm(ictxt, err)
122 integer(mpik_), intent(in) :: ictxt local
135 integer(mpik_), intent(in) :: ictxt local
137 call error(ictxt, abrt=.false.)
152 subroutine perror(ictxt,abrt)
[all …]
|
| /dports/lang/gcc10-devel/gcc-10-20211008/gcc/testsuite/gfortran.dg/ |
| H A D | submodule_10.f08 | 39 integer(mpik_), intent(in) :: ictxt
47 module subroutine perror(ictxt,abrt)
48 integer(mpik_), intent(in) :: ictxt
56 integer(mpik_), intent(in) :: ictxt
63 module subroutine errcomm(ictxt, err)
102 subroutine errcomm(ictxt, err)
122 integer(mpik_), intent(in) :: ictxt local
135 integer(mpik_), intent(in) :: ictxt local
137 call error(ictxt, abrt=.false.)
152 subroutine perror(ictxt,abrt)
[all …]
|
| /dports/lang/gcc9/gcc-9.4.0/gcc/testsuite/gfortran.dg/ |
| H A D | submodule_10.f08 | 39 integer(mpik_), intent(in) :: ictxt
47 module subroutine perror(ictxt,abrt)
48 integer(mpik_), intent(in) :: ictxt
56 integer(mpik_), intent(in) :: ictxt
63 module subroutine errcomm(ictxt, err)
102 subroutine errcomm(ictxt, err)
122 integer(mpik_), intent(in) :: ictxt local
135 integer(mpik_), intent(in) :: ictxt local
137 call error(ictxt, abrt=.false.)
152 subroutine perror(ictxt,abrt)
[all …]
|
| /dports/science/dftbplus/dftbplus-19.1/external/scalapackfx/origin/src/ |
| H A D | blacs.F90 | 22 subroutine blacs_get(ictxt, what, val) argument
23 integer, intent(in) :: ictxt, what local
30 integer, intent(in) :: ictxt,nprow, npcol local
37 integer, intent(inout) :: ictxt local
45 integer, intent(inout) :: ictxt local
52 subroutine blacs_barrier(ictxt, scope) argument
53 integer, intent(in) :: ictxt local
65 subroutine blacs_abort(ictxt, errornum) argument
66 integer, intent(in) :: ictxt, errornum local
72 integer, intent(in) :: ictxt, prow, pcol local
[all …]
|
| /dports/math/scalapack/scalapack-2.1.0/SRC/ |
| H A D | pzdotc.c | 204 ictxt = desc_X[CTXT_];
274 if( ictxt != desc_Y[CTXT_] )
280 pberror_( &ictxt, "PZDOTC", &info );
312 zgerv2d_( &ictxt, n, n, xwork, n, &ixrow, &ixcol );
413 zgesd2d_( &ictxt, &ione, &nq,
417 zgerv2d_( &ictxt, &nq, &ione, buff, &ione,
427 zgesd2d_( &ictxt, &ione, &nq,
466 zgesd2d_( &ictxt, &np, &ione,
470 zgerv2d_( &ictxt, &np, &ione, buff, &ione,
482 zgerv2d_( &ictxt, &np, &ione, buff, &ione,
[all …]
|
| H A D | pzdotu.c | 204 ictxt = desc_X[CTXT_];
205 blacs_gridinfo_( &ictxt, &nprow, &npcol, &myrow, &mycol );
274 if( ictxt != desc_Y[CTXT_] )
280 pberror_( &ictxt, "PZDOTU", &info );
312 zgerv2d_( &ictxt, n, n, xwork, n, &ixrow, &ixcol );
413 zgesd2d_( &ictxt, &ione, &nq,
428 zgesd2d_( &ictxt, &ione, &nq,
467 zgesd2d_( &ictxt, &np, &ione,
471 zgerv2d_( &ictxt, &np, &ione, buff, &ione,
482 zgesd2d_( &ictxt, &np, &ione,
[all …]
|