| /dports/cad/feappv/feappv-4.1i/program/ |
| H A D | phist.f | 41 nl1 = nint(abs(ct(1,ll)))
59 nl1 = min(nn,max(1,nl1))
60 if(nl1.gt.0) then
64 do n = nl1,nl2
73 write(*,2002) nl1,wd(js(nl1)),ljs(nl1),(vjs(i),i=1,3)
80 if(nl1.gt.0.and.nl1.le.nn) then
82 nl1 = nl2 - nl1 + 1
85 js(n - nl1) = js(n)
90 nn = nn - nl1
100 if(nl1.gt.0.and.nl1.le.nn) then
[all …]
|
| /dports/science/octopus/octopus-10.5/src/basic/ |
| H A D | loct_pointer_inc.F90 | 27 integer :: nl1, nu1 component
33 nl1 = lbound(pin, 1)
36 do i1 = nl1, nu1
57 nl1 = lbound(pin, 1)
63 do i1 = nl1, nu1
86 nl1 = lbound(pin, 1)
95 do i1 = nl1, nu1
119 nl1 = lbound(pin, 1)
149 integer :: nl1, nu1 component
158 do i1 = nl1, nu1
[all …]
|
| /dports/lang/gcc12-devel/gcc-12-20211205/gcc/testsuite/gfortran.dg/ |
| H A D | pr55086_1.f90 | 31 integer :: nl1, nu1 local
33 nl1 = lbound(i,dim=1)
35 forall (i1 = nl1:nu1) o(i1) = i(i1)
39 integer :: nl1, nu1 local
41 nl1 = lbound(i,dim=1)
43 forall (i1 = nl1:nu1) o(i1) = i(i1)
47 integer :: nl1, nu1 local
49 nl1 = 2
51 forall (i1 = nl1:nu1) o(i1:i1) = i(i1:i1)
56 integer :: nl1, nu1 local
[all …]
|
| H A D | pr55086_1_tfat.f90 | 32 integer :: nl1, nu1 local
34 nl1 = lbound(i,dim=1)
36 forall (i1 = nl1:nu1) o(i1) = i(i1)
40 integer :: nl1, nu1 local
42 nl1 = lbound(i,dim=1)
44 forall (i1 = nl1:nu1) o(i1) = i(i1)
48 integer :: nl1, nu1 local
50 nl1 = 2
52 forall (i1 = nl1:nu1) o(i1:i1) = i(i1:i1)
57 integer :: nl1, nu1 local
[all …]
|
| /dports/lang/gcc8/gcc-8.5.0/gcc/testsuite/gfortran.dg/ |
| H A D | pr55086_1.f90 | 31 integer :: nl1, nu1 local
33 nl1 = lbound(i,dim=1)
35 forall (i1 = nl1:nu1) o(i1) = i(i1)
39 integer :: nl1, nu1 local
41 nl1 = lbound(i,dim=1)
43 forall (i1 = nl1:nu1) o(i1) = i(i1)
47 integer :: nl1, nu1 local
49 nl1 = 2
51 forall (i1 = nl1:nu1) o(i1:i1) = i(i1:i1)
56 integer :: nl1, nu1 local
[all …]
|
| H A D | pr55086_1_tfat.f90 | 32 integer :: nl1, nu1 local
34 nl1 = lbound(i,dim=1)
36 forall (i1 = nl1:nu1) o(i1) = i(i1)
40 integer :: nl1, nu1 local
42 nl1 = lbound(i,dim=1)
44 forall (i1 = nl1:nu1) o(i1) = i(i1)
48 integer :: nl1, nu1 local
50 nl1 = 2
52 forall (i1 = nl1:nu1) o(i1:i1) = i(i1:i1)
57 integer :: nl1, nu1 local
[all …]
|
| /dports/lang/gcc10/gcc-10.3.0/gcc/testsuite/gfortran.dg/ |
| H A D | pr55086_1.f90 | 31 integer :: nl1, nu1 local
33 nl1 = lbound(i,dim=1)
35 forall (i1 = nl1:nu1) o(i1) = i(i1)
39 integer :: nl1, nu1 local
41 nl1 = lbound(i,dim=1)
43 forall (i1 = nl1:nu1) o(i1) = i(i1)
47 integer :: nl1, nu1 local
49 nl1 = 2
51 forall (i1 = nl1:nu1) o(i1:i1) = i(i1:i1)
56 integer :: nl1, nu1 local
[all …]
|
| H A D | pr55086_1_tfat.f90 | 32 integer :: nl1, nu1 local
34 nl1 = lbound(i,dim=1)
36 forall (i1 = nl1:nu1) o(i1) = i(i1)
40 integer :: nl1, nu1 local
42 nl1 = lbound(i,dim=1)
44 forall (i1 = nl1:nu1) o(i1) = i(i1)
48 integer :: nl1, nu1 local
50 nl1 = 2
52 forall (i1 = nl1:nu1) o(i1:i1) = i(i1:i1)
57 integer :: nl1, nu1 local
[all …]
|
| /dports/devel/riscv64-none-elf-gcc/gcc-8.4.0/gcc/testsuite/gfortran.dg/ |
| H A D | pr55086_1_tfat.f90 | 32 integer :: nl1, nu1 local
34 nl1 = lbound(i,dim=1)
36 forall (i1 = nl1:nu1) o(i1) = i(i1)
40 integer :: nl1, nu1 local
42 nl1 = lbound(i,dim=1)
44 forall (i1 = nl1:nu1) o(i1) = i(i1)
48 integer :: nl1, nu1 local
50 nl1 = 2
52 forall (i1 = nl1:nu1) o(i1:i1) = i(i1:i1)
57 integer :: nl1, nu1 local
[all …]
|
| H A D | pr55086_1.f90 | 31 integer :: nl1, nu1 local
33 nl1 = lbound(i,dim=1)
35 forall (i1 = nl1:nu1) o(i1) = i(i1)
39 integer :: nl1, nu1 local
41 nl1 = lbound(i,dim=1)
43 forall (i1 = nl1:nu1) o(i1) = i(i1)
47 integer :: nl1, nu1 local
49 nl1 = 2
51 forall (i1 = nl1:nu1) o(i1:i1) = i(i1:i1)
56 integer :: nl1, nu1 local
[all …]
|
| /dports/lang/gcc11-devel/gcc-11-20211009/gcc/testsuite/gfortran.dg/ |
| H A D | pr55086_1.f90 | 31 integer :: nl1, nu1 local
33 nl1 = lbound(i,dim=1)
35 forall (i1 = nl1:nu1) o(i1) = i(i1)
39 integer :: nl1, nu1 local
41 nl1 = lbound(i,dim=1)
43 forall (i1 = nl1:nu1) o(i1) = i(i1)
47 integer :: nl1, nu1 local
49 nl1 = 2
51 forall (i1 = nl1:nu1) o(i1:i1) = i(i1:i1)
56 integer :: nl1, nu1 local
[all …]
|
| H A D | pr55086_1_tfat.f90 | 32 integer :: nl1, nu1 local
34 nl1 = lbound(i,dim=1)
36 forall (i1 = nl1:nu1) o(i1) = i(i1)
40 integer :: nl1, nu1 local
42 nl1 = lbound(i,dim=1)
44 forall (i1 = nl1:nu1) o(i1) = i(i1)
48 integer :: nl1, nu1 local
50 nl1 = 2
52 forall (i1 = nl1:nu1) o(i1:i1) = i(i1:i1)
57 integer :: nl1, nu1 local
[all …]
|
| /dports/devel/arm-none-eabi-gcc/gcc-8.4.0/gcc/testsuite/gfortran.dg/ |
| H A D | pr55086_1.f90 | 31 integer :: nl1, nu1 local
33 nl1 = lbound(i,dim=1)
35 forall (i1 = nl1:nu1) o(i1) = i(i1)
39 integer :: nl1, nu1 local
41 nl1 = lbound(i,dim=1)
43 forall (i1 = nl1:nu1) o(i1) = i(i1)
47 integer :: nl1, nu1 local
49 nl1 = 2
51 forall (i1 = nl1:nu1) o(i1:i1) = i(i1:i1)
56 integer :: nl1, nu1 local
[all …]
|
| H A D | pr55086_1_tfat.f90 | 32 integer :: nl1, nu1 local
34 nl1 = lbound(i,dim=1)
36 forall (i1 = nl1:nu1) o(i1) = i(i1)
40 integer :: nl1, nu1 local
42 nl1 = lbound(i,dim=1)
44 forall (i1 = nl1:nu1) o(i1) = i(i1)
48 integer :: nl1, nu1 local
50 nl1 = 2
52 forall (i1 = nl1:nu1) o(i1:i1) = i(i1:i1)
57 integer :: nl1, nu1 local
[all …]
|
| /dports/devel/avr-gcc/gcc-10.2.0/gcc/testsuite/gfortran.dg/ |
| H A D | pr55086_1_tfat.f90 | 32 integer :: nl1, nu1 local
34 nl1 = lbound(i,dim=1)
36 forall (i1 = nl1:nu1) o(i1) = i(i1)
40 integer :: nl1, nu1 local
42 nl1 = lbound(i,dim=1)
44 forall (i1 = nl1:nu1) o(i1) = i(i1)
48 integer :: nl1, nu1 local
50 nl1 = 2
52 forall (i1 = nl1:nu1) o(i1:i1) = i(i1:i1)
57 integer :: nl1, nu1 local
[all …]
|
| H A D | pr55086_1.f90 | 31 integer :: nl1, nu1 local
33 nl1 = lbound(i,dim=1)
35 forall (i1 = nl1:nu1) o(i1) = i(i1)
39 integer :: nl1, nu1 local
41 nl1 = lbound(i,dim=1)
43 forall (i1 = nl1:nu1) o(i1) = i(i1)
47 integer :: nl1, nu1 local
49 nl1 = 2
51 forall (i1 = nl1:nu1) o(i1:i1) = i(i1:i1)
56 integer :: nl1, nu1 local
[all …]
|
| /dports/devel/riscv32-unknown-elf-gcc/gcc-8.4.0/gcc/testsuite/gfortran.dg/ |
| H A D | pr55086_1.f90 | 31 integer :: nl1, nu1 local
33 nl1 = lbound(i,dim=1)
35 forall (i1 = nl1:nu1) o(i1) = i(i1)
39 integer :: nl1, nu1 local
41 nl1 = lbound(i,dim=1)
43 forall (i1 = nl1:nu1) o(i1) = i(i1)
47 integer :: nl1, nu1 local
49 nl1 = 2
51 forall (i1 = nl1:nu1) o(i1:i1) = i(i1:i1)
56 integer :: nl1, nu1 local
[all …]
|
| H A D | pr55086_1_tfat.f90 | 32 integer :: nl1, nu1 local
34 nl1 = lbound(i,dim=1)
36 forall (i1 = nl1:nu1) o(i1) = i(i1)
40 integer :: nl1, nu1 local
42 nl1 = lbound(i,dim=1)
44 forall (i1 = nl1:nu1) o(i1) = i(i1)
48 integer :: nl1, nu1 local
50 nl1 = 2
52 forall (i1 = nl1:nu1) o(i1:i1) = i(i1:i1)
57 integer :: nl1, nu1 local
[all …]
|
| /dports/lang/gcc9-devel/gcc-9-20211007/gcc/testsuite/gfortran.dg/ |
| H A D | pr55086_1.f90 | 31 integer :: nl1, nu1 local
33 nl1 = lbound(i,dim=1)
35 forall (i1 = nl1:nu1) o(i1) = i(i1)
39 integer :: nl1, nu1 local
41 nl1 = lbound(i,dim=1)
43 forall (i1 = nl1:nu1) o(i1) = i(i1)
47 integer :: nl1, nu1 local
49 nl1 = 2
51 forall (i1 = nl1:nu1) o(i1:i1) = i(i1:i1)
56 integer :: nl1, nu1 local
[all …]
|
| H A D | pr55086_1_tfat.f90 | 32 integer :: nl1, nu1 local
34 nl1 = lbound(i,dim=1)
36 forall (i1 = nl1:nu1) o(i1) = i(i1)
40 integer :: nl1, nu1 local
42 nl1 = lbound(i,dim=1)
44 forall (i1 = nl1:nu1) o(i1) = i(i1)
48 integer :: nl1, nu1 local
50 nl1 = 2
52 forall (i1 = nl1:nu1) o(i1:i1) = i(i1:i1)
57 integer :: nl1, nu1 local
[all …]
|
| /dports/devel/aarch64-none-elf-gcc/gcc-8.4.0/gcc/testsuite/gfortran.dg/ |
| H A D | pr55086_1.f90 | 31 integer :: nl1, nu1 local
33 nl1 = lbound(i,dim=1)
35 forall (i1 = nl1:nu1) o(i1) = i(i1)
39 integer :: nl1, nu1 local
41 nl1 = lbound(i,dim=1)
43 forall (i1 = nl1:nu1) o(i1) = i(i1)
47 integer :: nl1, nu1 local
49 nl1 = 2
51 forall (i1 = nl1:nu1) o(i1:i1) = i(i1:i1)
56 integer :: nl1, nu1 local
[all …]
|
| H A D | pr55086_1_tfat.f90 | 32 integer :: nl1, nu1 local
34 nl1 = lbound(i,dim=1)
36 forall (i1 = nl1:nu1) o(i1) = i(i1)
40 integer :: nl1, nu1 local
42 nl1 = lbound(i,dim=1)
44 forall (i1 = nl1:nu1) o(i1) = i(i1)
48 integer :: nl1, nu1 local
50 nl1 = 2
52 forall (i1 = nl1:nu1) o(i1:i1) = i(i1:i1)
57 integer :: nl1, nu1 local
[all …]
|
| /dports/lang/gcc9-aux/gcc-9.1.0/gcc/testsuite/gfortran.dg/ |
| H A D | pr55086_1.f90 | 31 integer :: nl1, nu1 local
33 nl1 = lbound(i,dim=1)
35 forall (i1 = nl1:nu1) o(i1) = i(i1)
39 integer :: nl1, nu1 local
41 nl1 = lbound(i,dim=1)
43 forall (i1 = nl1:nu1) o(i1) = i(i1)
47 integer :: nl1, nu1 local
49 nl1 = 2
51 forall (i1 = nl1:nu1) o(i1:i1) = i(i1:i1)
56 integer :: nl1, nu1 local
[all …]
|
| H A D | pr55086_1_tfat.f90 | 32 integer :: nl1, nu1 local
34 nl1 = lbound(i,dim=1)
36 forall (i1 = nl1:nu1) o(i1) = i(i1)
40 integer :: nl1, nu1 local
42 nl1 = lbound(i,dim=1)
44 forall (i1 = nl1:nu1) o(i1) = i(i1)
48 integer :: nl1, nu1 local
50 nl1 = 2
52 forall (i1 = nl1:nu1) o(i1:i1) = i(i1:i1)
57 integer :: nl1, nu1 local
[all …]
|
| /dports/lang/gcc11/gcc-11.2.0/gcc/testsuite/gfortran.dg/ |
| H A D | pr55086_1.f90 | 31 integer :: nl1, nu1 local
33 nl1 = lbound(i,dim=1)
35 forall (i1 = nl1:nu1) o(i1) = i(i1)
39 integer :: nl1, nu1 local
41 nl1 = lbound(i,dim=1)
43 forall (i1 = nl1:nu1) o(i1) = i(i1)
47 integer :: nl1, nu1 local
49 nl1 = 2
51 forall (i1 = nl1:nu1) o(i1:i1) = i(i1:i1)
56 integer :: nl1, nu1 local
[all …]
|