代码搜索:complex
找到约 10,000 项符合「complex」的源代码
代码结果 10,000
www.eeworm.com/read/167728/5454474
h gsl_matrix_complex_float.h
/* matrix/gsl_matrix_complex_float.h
*
* Copyright (C) 1996, 1997, 1998, 1999, 2000 Gerard Jungman, Brian Gough
*
* This program is free software; you can redistribute it and/or modify
* i
www.eeworm.com/read/167728/5454476
h gsl_matrix_complex_double.h
/* matrix/gsl_matrix_complex_double.h
*
* Copyright (C) 1996, 1997, 1998, 1999, 2000 Gerard Jungman, Brian Gough
*
* This program is free software; you can redistribute it and/or modify
*
www.eeworm.com/read/167728/5454485
h gsl_fft_complex_float.h
/* fft/gsl_fft_complex_float.h
*
* Copyright (C) 1996, 1997, 1998, 1999, 2000 Brian Gough
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of t
www.eeworm.com/read/167728/5454522
h gsl_permute_complex_float.h
/* permutation/gsl_permute_complex_float.h
*
* Copyright (C) 1996, 1997, 1998, 1999, 2000 Brian Gough
*
* This program is free software; you can redistribute it and/or modify
* it under th
www.eeworm.com/read/167728/5454578
h gsl_matrix_complex_float.h
/* matrix/gsl_matrix_complex_float.h
*
* Copyright (C) 1996, 1997, 1998, 1999, 2000 Gerard Jungman, Brian Gough
*
* This program is free software; you can redistribute it and/or modify
* it und
www.eeworm.com/read/167728/5454579
h gsl_matrix_complex_double.h
/* matrix/gsl_matrix_complex_double.h
*
* Copyright (C) 1996, 1997, 1998, 1999, 2000 Gerard Jungman, Brian Gough
*
* This program is free software; you can redistribute it and/or modify
* it un
www.eeworm.com/read/162614/5526068
f90 double_complex_1.f90
! { dg-do compile }
! { dg-options "--std=f95" }
! PR18565
! As we provide "double complex" versions of certain intrinsics an extension.
! However --std=f95 was also breaking the generic versions, whi
www.eeworm.com/read/162614/5526231
f90 complex_intrinsic_2.f90
! Testcase for the COMPLEX intrinsic
! { dg-do compile }
complex c
c = complex(.true.,1.0) ! { dg-error "must be INTEGER or REAL" }
c = complex(1) ! { dg-error "Missing actual argument" }
c =
www.eeworm.com/read/162614/5526307
f90 complex_intrinsic_1.f90
! Testcase for the COMPLEX intrinsic
! { dg-do run }
if (complex(1_1, -1_2) /= complex(1.0_4, -1.0_8)) call abort
if (complex(1_4, -1.0) /= complex(1.0_4, -1_8)) call abort
end
www.eeworm.com/read/162614/5526481
f90 complex_int_1.f90
! { dg-do compile }
! Complex constants with integer components should take ther kind from
! the real typed component, or default complex type if both components have
! integer type.
program prog
ca