/dports/math/octave/octave-6.4.0/liboctave/external/quadpack/ |
H A D | qagpe.f | 279 * epsrel.lt.amax1(0.5e+02*epmach,0.5e-14))) ier = 6 292 15 pts(npts+2) = amax1(a,b) 306 * amax1(a,b)) ier = 6 341 errbnd = amax1(epsabs,epsrel*dres) 424 errbnd = amax1(epsabs,epsrel*abs(area)) 440 if(amax1(abs(a1),abs(b2)).le.(0.1e+01+0.1e+03*epmach)* 512 ertest = amax1(epsabs,epsrel*abs(reseps)) 544 180 if(ksgn.eq.(-1).and.amax1(abs(result),abs(area)).le.
|
H A D | qelg.f | 104 tol2 = amax1(abs(e2),e1abs)*epmach 107 tol3 = amax1(e1abs,abs(e0))*epmach 123 tol1 = amax1(e1abs,abs(e3))*epmach 182 100 abserr = amax1(abserr,0.5e+01*epmach*abs(result))
|
H A D | qagie.f | 233 if(epsabs.le.0.0e+00.and.epsrel.lt.amax1(0.5e+02*epmach,0.5e-14)) 259 errbnd = amax1(epsabs,epsrel*dres) 323 errbnd = amax1(epsabs,epsrel*abs(area)) 339 if(amax1(abs(a1),abs(b2)).le.(0.1e+01+0.1e+03*epmach)* 408 ertest = amax1(epsabs,epsrel*abs(reseps)) 443 110 if(ksgn.eq.(-1).and.amax1(abs(result),abs(area)).le.
|
/dports/math/libpgmath/flang-d07daf3/test/f90_correct/src/ |
H A D | fc20.f | 38 rslts(7) = ifix(max(x5, x2)) + ifix(amax1(-1.0, xn5)) 39 rslts(8) = amax1(x2, x15+1.0) + min(x15, -xn5) 56 rslts(18) = amax1(x2, 1+x5, 2.3, x5-x2)
|
/dports/math/cmlib/cmlib-3.0_8/src/fcnpak/ |
H A D | rf.f | 333 if (amax1(x,y,z).gt.uplim) then 335 call xerror (36h*** rf error amax1(x,y,z).gt.uplim,36,3,1 ) 353 epslon = amax1( abs(xndev), abs(yndev), abs(zndev))
|
H A D | rd.f | 412 if (amax1(x,y,z).gt.uplim) then 414 call xerror (36h*** rd error amax1(x,y,z).gt.uplim,36,3,1 ) 434 epslon = amax1( abs(xndev), abs(yndev), abs(zndev))
|
H A D | rc.f | 333 if (amax1(x,y).gt.uplim) then 335 call xerror (34h*** rc error amax1(x,y).gt.uplim,34,3,1 )
|
/dports/cad/netgen/netgen-6.2.2105/tests/pytest/ |
H A D | compare_results.py | 10 amax1=[] 32 amax1.append(t['angles_trig'][1]) 37 "max trig angle" : amax1,
|
/dports/databases/grass7/grass-7.8.6/lib/rst/interp_float/ |
H A D | secpar2d.c | 142 *gmax = amax1(*gmax, slp); in IL_secpar_loop_2d() 144 *c1max = amax1(*c1max, curn); in IL_secpar_loop_2d() 146 *c2max = amax1(*c2max, curh); in IL_secpar_loop_2d()
|
/dports/science/dftbplus/dftbplus-19.1/external/poisson/mudpack/ |
H A D | mud3sp.f | 703 cemax = amax1(abs(cex),cemax) 715 cxx = amax1(cxx,abs(cx)*dlx*0.5) 724 cemax = amax1(abs(cey),cemax) 736 cyy = amax1(cyy,abs(cy)*dly*0.5) 745 cemax = amax1(abs(cez),cemax) 757 czz = amax1(czz,abs(cz)*dlz*0.5) 782 alfmax = amax1(alfmax,abs(alfa)) 798 alfmax = amax1(abs(alfa),alfmax) 813 alfmax = amax1(abs(alfa),alfmax) 828 alfmax = amax1(abs(alfa),alfmax) [all …]
|
/dports/databases/grass7/grass-7.8.6/vector/v.vol.rst/ |
H A D | user3.c | 177 gmax = amax1(gmax, slp); in secpar_loop() 181 a1max = amax1(a1max, oor1); in secpar_loop() 185 a2max = amax1(a2max, oor2); in secpar_loop() 190 c1max = amax1(c1max, curn); in secpar_loop() 195 c2max = amax1(c2max, curg); in secpar_loop() 200 c3max = amax1(c3max, curm); in secpar_loop() 358 amaxa = amax1(A[m], amaxa); in COGRR1() 506 zmaxac = amax1(ww, zmaxac); in COGRR1() 510 zmaxacell = amax1(wwcell, zmaxacell); in COGRR1() 737 ertot = amax1(errmax, ertot); in POINT()
|
/dports/math/linpack/linpack-1.0_14/ |
H A D | csifa.f | 113 rowmax = amax1(rowmax,cabs1(a(imax,j))) 117 rowmax = amax1(rowmax,cabs1(a(jmax,imax))) 133 if (amax1(absakk,colmax) .ne. 0.0e0) go to 100
|
H A D | chifa.f | 114 rowmax = amax1(rowmax,cabs1(a(imax,j))) 118 rowmax = amax1(rowmax,cabs1(a(jmax,imax))) 134 if (amax1(absakk,colmax) .ne. 0.0e0) go to 100
|
H A D | ssifa.f | 111 rowmax = amax1(rowmax,abs(a(imax,j))) 115 rowmax = amax1(rowmax,abs(a(jmax,imax))) 131 if (amax1(absakk,colmax) .ne. 0.0e0) go to 100
|
/dports/lang/gcc6-aux/gcc-6-20180516/gcc/testsuite/gfortran.dg/ |
H A D | min_max_conformance.f90 | 13 r4a = amax1(r4a, r4b) ! { dg-error "Incompatible ranks" } 27 r4a = amax1(r4b, r4c) ! { dg-error "Different shape for arguments" }
|
/dports/lang/gcc12-devel/gcc-12-20211205/gcc/testsuite/gfortran.dg/ |
H A D | min_max_conformance.f90 | 13 r4a = amax1(r4a, r4b) ! { dg-error "Incompatible ranks" } 27 r4a = amax1(r4b, r4c) ! { dg-error "Different shape for arguments" }
|
/dports/lang/gcc10/gcc-10.3.0/gcc/testsuite/gfortran.dg/ |
H A D | min_max_conformance.f90 | 13 r4a = amax1(r4a, r4b) ! { dg-error "Incompatible ranks" } 27 r4a = amax1(r4b, r4c) ! { dg-error "Different shape for arguments" }
|
/dports/devel/riscv64-none-elf-gcc/gcc-8.4.0/gcc/testsuite/gfortran.dg/ |
H A D | min_max_conformance.f90 | 13 r4a = amax1(r4a, r4b) ! { dg-error "Incompatible ranks" } 27 r4a = amax1(r4b, r4c) ! { dg-error "Different shape for arguments" }
|
/dports/lang/gcc11-devel/gcc-11-20211009/gcc/testsuite/gfortran.dg/ |
H A D | min_max_conformance.f90 | 13 r4a = amax1(r4a, r4b) ! { dg-error "Incompatible ranks" } 27 r4a = amax1(r4b, r4c) ! { dg-error "Different shape for arguments" }
|
/dports/devel/arm-none-eabi-gcc/gcc-8.4.0/gcc/testsuite/gfortran.dg/ |
H A D | min_max_conformance.f90 | 13 r4a = amax1(r4a, r4b) ! { dg-error "Incompatible ranks" } 27 r4a = amax1(r4b, r4c) ! { dg-error "Different shape for arguments" }
|
/dports/devel/riscv32-unknown-elf-gcc/gcc-8.4.0/gcc/testsuite/gfortran.dg/ |
H A D | min_max_conformance.f90 | 13 r4a = amax1(r4a, r4b) ! { dg-error "Incompatible ranks" } 27 r4a = amax1(r4b, r4c) ! { dg-error "Different shape for arguments" }
|
/dports/lang/gcc9-devel/gcc-9-20211007/gcc/testsuite/gfortran.dg/ |
H A D | min_max_conformance.f90 | 13 r4a = amax1(r4a, r4b) ! { dg-error "Incompatible ranks" } 27 r4a = amax1(r4b, r4c) ! { dg-error "Different shape for arguments" }
|
/dports/devel/aarch64-none-elf-gcc/gcc-8.4.0/gcc/testsuite/gfortran.dg/ |
H A D | min_max_conformance.f90 | 13 r4a = amax1(r4a, r4b) ! { dg-error "Incompatible ranks" } 27 r4a = amax1(r4b, r4c) ! { dg-error "Different shape for arguments" }
|
/dports/lang/gcc9-aux/gcc-9.1.0/gcc/testsuite/gfortran.dg/ |
H A D | min_max_conformance.f90 | 13 r4a = amax1(r4a, r4b) ! { dg-error "Incompatible ranks" } 27 r4a = amax1(r4b, r4c) ! { dg-error "Different shape for arguments" }
|
/dports/lang/gcc48/gcc-4.8.5/gcc/testsuite/gfortran.dg/ |
H A D | min_max_conformance.f90 | 13 r4a = amax1(r4a, r4b) ! { dg-error "Incompatible ranks" } 27 r4a = amax1(r4b, r4c) ! { dg-error "Different shape for arguments" }
|