/dports/math/dbcsr/dbcsr-2.1.0/tests/ |
H A D | dbcsr_tas_unittest.F | 44 INTEGER :: mp_comm, numnodes, mynode, io_unit variable 52 io_unit = -1 53 IF (mynode .EQ. 0) io_unit = default_output_unit 55 CALL dbcsr_init_lib(mp_comm, io_unit) 79 IF (mynode == 0) WRITE (io_unit, '(A)') "DBCSR TALL-AND-SKINNY MATRICES" 82 CALL dbcsr_tas_write_split_info(dbcsr_tas_info(A), io_unit, name="A") 85 CALL dbcsr_tas_write_split_info(dbcsr_tas_info(At), io_unit, name="At") 88 CALL dbcsr_tas_write_split_info(dbcsr_tas_info(B), io_unit, name="B") 91 CALL dbcsr_tas_write_split_info(dbcsr_tas_info(Bt), io_unit, name="Bt") 94 CALL dbcsr_tas_write_split_info(dbcsr_tas_info(C), io_unit, name="C") [all …]
|
H A D | dbcsr_test_scale_by_vector.F | 94 IF (io_unit > 0) THEN 95 WRITE (io_unit, *) 'test_name ', test_name 103 WRITE (io_unit, *) 'numnodes', numnodes 105 WRITE (io_unit, *) 'sparsity', sparsity 106 WRITE (io_unit, *) 'bs_m', bs_m 107 WRITE (io_unit, *) 'bs_n', bs_n 150 IF (debug_mod .AND. io_unit > 0) THEN 159 IF (io_unit > 0) THEN 191 SUBROUTINE write_1d_data_obj(io_unit, vector) argument 192 INTEGER, INTENT(IN) :: io_unit local [all …]
|
/dports/science/cp2k/cp2k-2e995eec7fd208c8a72d9544807bd8b8ba8cd1cc/exts/dbcsr/tests/ |
H A D | dbcsr_tas_unittest.F | 44 INTEGER :: mp_comm, numnodes, mynode, io_unit variable 52 io_unit = -1 53 IF (mynode .EQ. 0) io_unit = default_output_unit 55 CALL dbcsr_init_lib(mp_comm, io_unit) 79 IF (mynode == 0) WRITE (io_unit, '(A)') "DBCSR TALL-AND-SKINNY MATRICES" 82 CALL dbcsr_tas_write_split_info(dbcsr_tas_info(A), io_unit, name="A") 85 CALL dbcsr_tas_write_split_info(dbcsr_tas_info(At), io_unit, name="At") 88 CALL dbcsr_tas_write_split_info(dbcsr_tas_info(B), io_unit, name="B") 91 CALL dbcsr_tas_write_split_info(dbcsr_tas_info(Bt), io_unit, name="Bt") 94 CALL dbcsr_tas_write_split_info(dbcsr_tas_info(C), io_unit, name="C") [all …]
|
/dports/science/cp2k/cp2k-2e995eec7fd208c8a72d9544807bd8b8ba8cd1cc/src/tmc/ |
H A D | tmc_tree_types.F | 253 CPASSERT(io_unit .GT. 0) 254 WRITE (io_unit) elem%nr, & 286 CPASSERT(io_unit .GT. 0) 288 READ (io_unit) elem%nr, & 298 CALL read_subtree_elem_darray(elem%pos, io_unit) 317 WRITE (io_unit) ASSOCIATED(array) 319 WRITE (io_unit) SIZE(array) 320 WRITE (io_unit) array 339 READ (io_unit) l_tmp 341 READ (io_unit) i_tmp [all …]
|
/dports/science/cp2k-data/cp2k-7.1.0/src/tmc/ |
H A D | tmc_tree_types.F | 253 CPASSERT(io_unit .GT. 0) 254 WRITE (io_unit) elem%nr, & 286 CPASSERT(io_unit .GT. 0) 288 READ (io_unit) elem%nr, & 298 CALL read_subtree_elem_darray(elem%pos, io_unit) 317 WRITE (io_unit) ASSOCIATED(array) 319 WRITE (io_unit) SIZE(array) 320 WRITE (io_unit) array 339 READ (io_unit) l_tmp 341 READ (io_unit) i_tmp [all …]
|
/dports/lang/gcc12-devel/gcc-12-20211205/gcc/testsuite/gfortran.dg/ |
H A D | empty_format_1.f90 | 8 integer io_unit variable 10 io_unit = 10 11 open (unit=io_unit,status='scratch',form='formatted') 12 write (io_unit, '(A)') "Line1" 13 write (io_unit, '(A)') "Line2" 14 write (io_unit, '(A)') "Line3" 15 rewind (io_unit) 16 read (io_unit,'(A)') str 18 read (io_unit,'()') 19 read (io_unit,'(A)') str [all …]
|
/dports/devel/riscv64-none-elf-gcc/gcc-8.4.0/gcc/testsuite/gfortran.dg/ |
H A D | empty_format_1.f90 | 8 integer io_unit variable 10 io_unit = 10 11 open (unit=io_unit,status='scratch',form='formatted') 12 write (io_unit, '(A)') "Line1" 13 write (io_unit, '(A)') "Line2" 14 write (io_unit, '(A)') "Line3" 15 rewind (io_unit) 16 read (io_unit,'(A)') str 18 read (io_unit,'()') 19 read (io_unit,'(A)') str [all …]
|
/dports/lang/gcc10/gcc-10.3.0/gcc/testsuite/gfortran.dg/ |
H A D | empty_format_1.f90 | 8 integer io_unit variable 10 io_unit = 10 11 open (unit=io_unit,status='scratch',form='formatted') 12 write (io_unit, '(A)') "Line1" 13 write (io_unit, '(A)') "Line2" 14 write (io_unit, '(A)') "Line3" 15 rewind (io_unit) 16 read (io_unit,'(A)') str 18 read (io_unit,'()') 19 read (io_unit,'(A)') str [all …]
|
/dports/lang/gcc11-devel/gcc-11-20211009/gcc/testsuite/gfortran.dg/ |
H A D | empty_format_1.f90 | 8 integer io_unit variable 10 io_unit = 10 11 open (unit=io_unit,status='scratch',form='formatted') 12 write (io_unit, '(A)') "Line1" 13 write (io_unit, '(A)') "Line2" 14 write (io_unit, '(A)') "Line3" 15 rewind (io_unit) 16 read (io_unit,'(A)') str 18 read (io_unit,'()') 19 read (io_unit,'(A)') str [all …]
|
/dports/lang/gcc11/gcc-11.2.0/gcc/testsuite/gfortran.dg/ |
H A D | empty_format_1.f90 | 8 integer io_unit variable 10 io_unit = 10 11 open (unit=io_unit,status='scratch',form='formatted') 12 write (io_unit, '(A)') "Line1" 13 write (io_unit, '(A)') "Line2" 14 write (io_unit, '(A)') "Line3" 15 rewind (io_unit) 16 read (io_unit,'(A)') str 18 read (io_unit,'()') 19 read (io_unit,'(A)') str [all …]
|
/dports/devel/arm-none-eabi-gcc/gcc-8.4.0/gcc/testsuite/gfortran.dg/ |
H A D | empty_format_1.f90 | 8 integer io_unit variable 10 io_unit = 10 11 open (unit=io_unit,status='scratch',form='formatted') 12 write (io_unit, '(A)') "Line1" 13 write (io_unit, '(A)') "Line2" 14 write (io_unit, '(A)') "Line3" 15 rewind (io_unit) 16 read (io_unit,'(A)') str 18 read (io_unit,'()') 19 read (io_unit,'(A)') str [all …]
|
/dports/devel/riscv32-unknown-elf-gcc/gcc-8.4.0/gcc/testsuite/gfortran.dg/ |
H A D | empty_format_1.f90 | 8 integer io_unit variable 10 io_unit = 10 11 open (unit=io_unit,status='scratch',form='formatted') 12 write (io_unit, '(A)') "Line1" 13 write (io_unit, '(A)') "Line2" 14 write (io_unit, '(A)') "Line3" 15 rewind (io_unit) 16 read (io_unit,'(A)') str 18 read (io_unit,'()') 19 read (io_unit,'(A)') str [all …]
|
/dports/lang/gcc9-devel/gcc-9-20211007/gcc/testsuite/gfortran.dg/ |
H A D | empty_format_1.f90 | 8 integer io_unit variable 10 io_unit = 10 11 open (unit=io_unit,status='scratch',form='formatted') 12 write (io_unit, '(A)') "Line1" 13 write (io_unit, '(A)') "Line2" 14 write (io_unit, '(A)') "Line3" 15 rewind (io_unit) 16 read (io_unit,'(A)') str 18 read (io_unit,'()') 19 read (io_unit,'(A)') str [all …]
|
/dports/devel/aarch64-none-elf-gcc/gcc-8.4.0/gcc/testsuite/gfortran.dg/ |
H A D | empty_format_1.f90 | 8 integer io_unit variable 10 io_unit = 10 11 open (unit=io_unit,status='scratch',form='formatted') 12 write (io_unit, '(A)') "Line1" 13 write (io_unit, '(A)') "Line2" 14 write (io_unit, '(A)') "Line3" 15 rewind (io_unit) 16 read (io_unit,'(A)') str 18 read (io_unit,'()') 19 read (io_unit,'(A)') str [all …]
|
/dports/lang/gcc48/gcc-4.8.5/gcc/testsuite/gfortran.dg/ |
H A D | empty_format_1.f90 | 8 integer io_unit variable 10 io_unit = 10 11 open (unit=io_unit,status='scratch',form='formatted') 12 write (io_unit, '(A)') "Line1" 13 write (io_unit, '(A)') "Line2" 14 write (io_unit, '(A)') "Line3" 15 rewind (io_unit) 16 read (io_unit,'(A)') str 18 read (io_unit,'()') 19 read (io_unit,'(A)') str [all …]
|
/dports/lang/gcc9-aux/gcc-9.1.0/gcc/testsuite/gfortran.dg/ |
H A D | empty_format_1.f90 | 8 integer io_unit variable 10 io_unit = 10 11 open (unit=io_unit,status='scratch',form='formatted') 12 write (io_unit, '(A)') "Line1" 13 write (io_unit, '(A)') "Line2" 14 write (io_unit, '(A)') "Line3" 15 rewind (io_unit) 16 read (io_unit,'(A)') str 18 read (io_unit,'()') 19 read (io_unit,'(A)') str [all …]
|
/dports/devel/arm-none-eabi-gcc492/gcc-4.9.2/gcc/testsuite/gfortran.dg/ |
H A D | empty_format_1.f90 | 8 integer io_unit variable 10 io_unit = 10 11 open (unit=io_unit,status='scratch',form='formatted') 12 write (io_unit, '(A)') "Line1" 13 write (io_unit, '(A)') "Line2" 14 write (io_unit, '(A)') "Line3" 15 rewind (io_unit) 16 read (io_unit,'(A)') str 18 read (io_unit,'()') 19 read (io_unit,'(A)') str [all …]
|
/dports/misc/cxx_atomics_pic/gcc-11.2.0/gcc/testsuite/gfortran.dg/ |
H A D | empty_format_1.f90 | 8 integer io_unit variable 10 io_unit = 10 11 open (unit=io_unit,status='scratch',form='formatted') 12 write (io_unit, '(A)') "Line1" 13 write (io_unit, '(A)') "Line2" 14 write (io_unit, '(A)') "Line3" 15 rewind (io_unit) 16 read (io_unit,'(A)') str 18 read (io_unit,'()') 19 read (io_unit,'(A)') str [all …]
|
/dports/lang/gcc6-aux/gcc-6-20180516/gcc/testsuite/gfortran.dg/ |
H A D | empty_format_1.f90 | 8 integer io_unit variable 10 io_unit = 10 11 open (unit=io_unit,status='scratch',form='formatted') 12 write (io_unit, '(A)') "Line1" 13 write (io_unit, '(A)') "Line2" 14 write (io_unit, '(A)') "Line3" 15 rewind (io_unit) 16 read (io_unit,'(A)') str 18 read (io_unit,'()') 19 read (io_unit,'(A)') str [all …]
|
/dports/lang/gcc8/gcc-8.5.0/gcc/testsuite/gfortran.dg/ |
H A D | empty_format_1.f90 | 8 integer io_unit variable 10 io_unit = 10 11 open (unit=io_unit,status='scratch',form='formatted') 12 write (io_unit, '(A)') "Line1" 13 write (io_unit, '(A)') "Line2" 14 write (io_unit, '(A)') "Line3" 15 rewind (io_unit) 16 read (io_unit,'(A)') str 18 read (io_unit,'()') 19 read (io_unit,'(A)') str [all …]
|
/dports/lang/gnat_util/gcc-6-20180516/gcc/testsuite/gfortran.dg/ |
H A D | empty_format_1.f90 | 8 integer io_unit variable 10 io_unit = 10 11 open (unit=io_unit,status='scratch',form='formatted') 12 write (io_unit, '(A)') "Line1" 13 write (io_unit, '(A)') "Line2" 14 write (io_unit, '(A)') "Line3" 15 rewind (io_unit) 16 read (io_unit,'(A)') str 18 read (io_unit,'()') 19 read (io_unit,'(A)') str [all …]
|
/dports/devel/avr-gcc/gcc-10.2.0/gcc/testsuite/gfortran.dg/ |
H A D | empty_format_1.f90 | 8 integer io_unit variable 10 io_unit = 10 11 open (unit=io_unit,status='scratch',form='formatted') 12 write (io_unit, '(A)') "Line1" 13 write (io_unit, '(A)') "Line2" 14 write (io_unit, '(A)') "Line3" 15 rewind (io_unit) 16 read (io_unit,'(A)') str 18 read (io_unit,'()') 19 read (io_unit,'(A)') str [all …]
|
/dports/devel/riscv64-gcc/gcc-8.3.0/gcc/testsuite/gfortran.dg/ |
H A D | empty_format_1.f90 | 8 integer io_unit variable 10 io_unit = 10 11 open (unit=io_unit,status='scratch',form='formatted') 12 write (io_unit, '(A)') "Line1" 13 write (io_unit, '(A)') "Line2" 14 write (io_unit, '(A)') "Line3" 15 rewind (io_unit) 16 read (io_unit,'(A)') str 18 read (io_unit,'()') 19 read (io_unit,'(A)') str [all …]
|
/dports/lang/gcc10-devel/gcc-10-20211008/gcc/testsuite/gfortran.dg/ |
H A D | empty_format_1.f90 | 8 integer io_unit variable 10 io_unit = 10 11 open (unit=io_unit,status='scratch',form='formatted') 12 write (io_unit, '(A)') "Line1" 13 write (io_unit, '(A)') "Line2" 14 write (io_unit, '(A)') "Line3" 15 rewind (io_unit) 16 read (io_unit,'(A)') str 18 read (io_unit,'()') 19 read (io_unit,'(A)') str [all …]
|
/dports/lang/gcc9/gcc-9.4.0/gcc/testsuite/gfortran.dg/ |
H A D | empty_format_1.f90 | 8 integer io_unit variable 10 io_unit = 10 11 open (unit=io_unit,status='scratch',form='formatted') 12 write (io_unit, '(A)') "Line1" 13 write (io_unit, '(A)') "Line2" 14 write (io_unit, '(A)') "Line3" 15 rewind (io_unit) 16 read (io_unit,'(A)') str 18 read (io_unit,'()') 19 read (io_unit,'(A)') str [all …]
|