代码搜索：maxloc
找到约 154 项符合「maxloc」的源代码
代码结果 154
www.eeworm.com/read/291560/8409811
m maxloc.m
From:
Subject:
Date: Thu, 27 Mar 2008 20:16:34 +0800
MIME-Version: 1.0
Content-Type: text/html;
charset="gb2312"
Content-Transfer-Encoding: quoted-printabl
www.eeworm.com/read/387240/8698441
c reduce-maxloc.c
#include "mpi.h" /*MPI head file*/
#include
int main( int argc, char** argv )
{
int i, rank, size;
double ain[30], aout[30];
int ind[30];
struct {
www.eeworm.com/read/162511/10300568
m4 maxloc1.m4
`/* Implementation of the MAXLOC intrinsic
Copyright 2002 Free Software Foundation, Inc.
Contributed by Paul Brook
This file is part of the GNU Fortran 95 runtime library (libgf
www.eeworm.com/read/162511/10300632
m4 maxloc0.m4
`/* Implementation of the MAXLOC intrinsic
Copyright 2002 Free Software Foundation, Inc.
Contributed by Paul Brook
This file is part of the GNU Fortran 95 runtime library (libgf
www.eeworm.com/read/366702/2876054
f90 maxloc_bounds_6.f90
! { dg-do run }
! { dg-options "-fbounds-check" }
! { dg-shouldfail "Incorrect extent in MASK argument of MAXLOC intrinsic in dimension 2: is 3, should be 2" }
program main
integer(kind=4), allocata
www.eeworm.com/read/366702/2876078
f90 maxloc_shape_1.f90
! { dg-do compile }
! Tests the implementation of compile-time shape testing, required to fix
! PR19015. The functionality of maxloc and friends is tested by existing
! testcases.
!
! Contributed by
www.eeworm.com/read/366702/2876214
f90 maxloc_bounds_1.f90
! { dg-do run }
! { dg-options "-fbounds-check" }
! { dg-shouldfail "Incorrect extent in return value of MAXLOC intrinsic in dimension 1: is 3, should be 2" }
program main
integer(kind=4), allocatab
www.eeworm.com/read/366702/2876457
f90 maxloc_bounds_7.f90
! { dg-do run }
! { dg-options "-fbounds-check" }
! { dg-shouldfail "Incorrect extent in return value of MAXLOC intrnisic: is 3, should be 2" }
module tst
contains
subroutine foo(res)
integer(ki
www.eeworm.com/read/366702/2876515
f90 maxloc_bounds_4.f90
! { dg-do run }
! { dg-options "-fbounds-check" }
! { dg-shouldfail "Incorrect extent in return value of MAXLOC intrnisic: is 3, should be 2" }
module tst
contains
subroutine foo(res)
integer(ki
www.eeworm.com/read/366702/2876553
f90 maxloc_bounds_2.f90
! { dg-do run }
! { dg-options "-fbounds-check" }
! { dg-shouldfail "Incorrect extent in return value of MAXLOC intrinsic in dimension 1: is 3, should be 2" }
program main
integer(kind=4), allocatab