/dports/math/spooles-mpich/spooles.2.2_SHARED/IVL/src/ |
H A D | listmanip.c | 27 IVL *ivl, in IVL_listAndSize() argument 37 if ( ivl == NULL || ilist < 0 || ilist >= ivl->nlist in IVL_listAndSize() 76 IVL *ivl, in IVL_firstInList() argument 92 ivl, ilist, ilist, ivl->nlist) ; in IVL_firstInList() 123 IVL *ivl, in IVL_nextInList() argument 141 ivl, ilist, pi, ilist, ivl->nlist) ; in IVL_nextInList() 230 ivl->tsize -= ivl->sizes[ilist] ; in IVL_setList() 239 ivl->tsize += isize - ivl->sizes[ilist] ; in IVL_setList() 302 ivl, ilist, isize, ivec, ivl->type) ; in IVL_setList() 306 ivl->tsize += isize - ivl->sizes[ilist] ; in IVL_setList() [all …]
|
H A D | IO.c | 24 IVL *ivl, in IVL_readFromFile() argument 47 "\n bad type = %d", ivl, fn, ivl->type) ; in IVL_readFromFile() 126 "\n bad type = %d", ivl, fp, ivl->type) ; in IVL_readFromFormattedFile() 243 "\n bad type = %d", ivl, fp, ivl->type) ; in IVL_readFromBinaryFile() 314 ivl, fp, ivl->tsize, rc, ivl->tsize) ; in IVL_readFromBinaryFile() 444 rc = fprintf(fp, "\n %d %d %d", ivl->type, ivl->nlist, ivl->tsize) ; in IVL_writeToFormattedFile() 451 IVfp80(fp, ivl->nlist, ivl->sizes, 80, &ierr) ; in IVL_writeToFormattedFile() 525 ivl, fp, rc, ivl->nlist) ; in IVL_writeToBinaryFile() 577 ivl, fp, rc, ivl, fp) ; in IVL_writeForHumanEye() 624 nactive = IVsum(ivl->nlist, ivl->sizes) ; in IVL_writeStats() [all …]
|
H A D | init.c | 18 IVL *ivl, in IVL_init1() argument 27 if ( ivl == NULL in IVL_init1() 39 IVL_clearData(ivl) ; in IVL_init1() 45 ivl->type = type ; in IVL_init1() 66 IVL *ivl, in IVL_init2() argument 112 IVL *ivl, in IVL_init3() argument 171 IVL *ivl, in IVL_setMaxnlist() argument 191 IVcopy(ivl->nlist, ivec, ivl->sizes) ; in IVL_setMaxnlist() 195 ivl->sizes = ivec ; in IVL_setMaxnlist() 206 PIVcopy(ivl->nlist, pivec, ivl->p_vec) ; in IVL_setMaxnlist() [all …]
|
H A D | basics.c | 19 IVL *ivl ; in IVL_new() local 24 return(ivl) ; } in IVL_new() 36 IVL *ivl in IVL_setDefaultFields() argument 38 if ( ivl == NULL ) { in IVL_setDefaultFields() 64 IVL *ivl in IVL_clearData() argument 71 if ( ivl == NULL ) { in IVL_clearData() 89 ivl->tsize -= ivl->sizes[ilist] ; in IVL_clearData() 109 "\n invalid type = %d\n", ivl, ivl->type) ; in IVL_clearData() 125 ivl->nlist = ivl->maxnlist = 0 ; in IVL_clearData() 145 IVL *ivl in IVL_free() argument [all …]
|
H A D | instance.c | 15 IVL *ivl in IVL_type() argument 22 if ( ivl == NULL ) { in IVL_type() 27 return(ivl->type) ; } in IVL_type() 39 IVL *ivl in IVL_maxnlist() argument 46 if ( ivl == NULL ) { in IVL_maxnlist() 63 IVL *ivl in IVL_nlist() argument 70 if ( ivl == NULL ) { in IVL_nlist() 87 IVL *ivl in IVL_tsize() argument 111 IVL *ivl in IVL_incr() argument 135 IVL *ivl, in IVL_setincr() argument [all …]
|
/dports/math/spooles-mpich/spooles.2.2/IVL/src/ |
H A D | listmanip.c | 27 IVL *ivl, in IVL_listAndSize() argument 37 if ( ivl == NULL || ilist < 0 || ilist >= ivl->nlist in IVL_listAndSize() 76 IVL *ivl, in IVL_firstInList() argument 92 ivl, ilist, ilist, ivl->nlist) ; in IVL_firstInList() 123 IVL *ivl, in IVL_nextInList() argument 141 ivl, ilist, pi, ilist, ivl->nlist) ; in IVL_nextInList() 230 ivl->tsize -= ivl->sizes[ilist] ; in IVL_setList() 239 ivl->tsize += isize - ivl->sizes[ilist] ; in IVL_setList() 302 ivl, ilist, isize, ivec, ivl->type) ; in IVL_setList() 306 ivl->tsize += isize - ivl->sizes[ilist] ; in IVL_setList() [all …]
|
H A D | IO.c | 24 IVL *ivl, in IVL_readFromFile() argument 47 "\n bad type = %d", ivl, fn, ivl->type) ; in IVL_readFromFile() 126 "\n bad type = %d", ivl, fp, ivl->type) ; in IVL_readFromFormattedFile() 243 "\n bad type = %d", ivl, fp, ivl->type) ; in IVL_readFromBinaryFile() 314 ivl, fp, ivl->tsize, rc, ivl->tsize) ; in IVL_readFromBinaryFile() 444 rc = fprintf(fp, "\n %d %d %d", ivl->type, ivl->nlist, ivl->tsize) ; in IVL_writeToFormattedFile() 451 IVfp80(fp, ivl->nlist, ivl->sizes, 80, &ierr) ; in IVL_writeToFormattedFile() 525 ivl, fp, rc, ivl->nlist) ; in IVL_writeToBinaryFile() 577 ivl, fp, rc, ivl, fp) ; in IVL_writeForHumanEye() 624 nactive = IVsum(ivl->nlist, ivl->sizes) ; in IVL_writeStats() [all …]
|
H A D | init.c | 18 IVL *ivl, in IVL_init1() argument 27 if ( ivl == NULL in IVL_init1() 39 IVL_clearData(ivl) ; in IVL_init1() 45 ivl->type = type ; in IVL_init1() 66 IVL *ivl, in IVL_init2() argument 112 IVL *ivl, in IVL_init3() argument 171 IVL *ivl, in IVL_setMaxnlist() argument 191 IVcopy(ivl->nlist, ivec, ivl->sizes) ; in IVL_setMaxnlist() 195 ivl->sizes = ivec ; in IVL_setMaxnlist() 206 PIVcopy(ivl->nlist, pivec, ivl->p_vec) ; in IVL_setMaxnlist() [all …]
|
H A D | basics.c | 19 IVL *ivl ; in IVL_new() local 24 return(ivl) ; } in IVL_new() 36 IVL *ivl in IVL_setDefaultFields() argument 38 if ( ivl == NULL ) { in IVL_setDefaultFields() 64 IVL *ivl in IVL_clearData() argument 71 if ( ivl == NULL ) { in IVL_clearData() 89 ivl->tsize -= ivl->sizes[ilist] ; in IVL_clearData() 109 "\n invalid type = %d\n", ivl, ivl->type) ; in IVL_clearData() 125 ivl->nlist = ivl->maxnlist = 0 ; in IVL_clearData() 145 IVL *ivl in IVL_free() argument [all …]
|
H A D | instance.c | 15 IVL *ivl in IVL_type() argument 22 if ( ivl == NULL ) { in IVL_type() 27 return(ivl->type) ; } in IVL_type() 39 IVL *ivl in IVL_maxnlist() argument 46 if ( ivl == NULL ) { in IVL_maxnlist() 63 IVL *ivl in IVL_nlist() argument 70 if ( ivl == NULL ) { in IVL_nlist() 87 IVL *ivl in IVL_tsize() argument 111 IVL *ivl in IVL_incr() argument 135 IVL *ivl, in IVL_setincr() argument [all …]
|
/dports/math/spooles/spooles.2.2_SHARED/IVL/src/ |
H A D | listmanip.c | 27 IVL *ivl, in IVL_listAndSize() argument 37 if ( ivl == NULL || ilist < 0 || ilist >= ivl->nlist in IVL_listAndSize() 76 IVL *ivl, in IVL_firstInList() argument 92 ivl, ilist, ilist, ivl->nlist) ; in IVL_firstInList() 123 IVL *ivl, in IVL_nextInList() argument 141 ivl, ilist, pi, ilist, ivl->nlist) ; in IVL_nextInList() 230 ivl->tsize -= ivl->sizes[ilist] ; in IVL_setList() 239 ivl->tsize += isize - ivl->sizes[ilist] ; in IVL_setList() 302 ivl, ilist, isize, ivec, ivl->type) ; in IVL_setList() 306 ivl->tsize += isize - ivl->sizes[ilist] ; in IVL_setList() [all …]
|
H A D | IO.c | 24 IVL *ivl, in IVL_readFromFile() argument 47 "\n bad type = %d", ivl, fn, ivl->type) ; in IVL_readFromFile() 126 "\n bad type = %d", ivl, fp, ivl->type) ; in IVL_readFromFormattedFile() 243 "\n bad type = %d", ivl, fp, ivl->type) ; in IVL_readFromBinaryFile() 314 ivl, fp, ivl->tsize, rc, ivl->tsize) ; in IVL_readFromBinaryFile() 444 rc = fprintf(fp, "\n %d %d %d", ivl->type, ivl->nlist, ivl->tsize) ; in IVL_writeToFormattedFile() 451 IVfp80(fp, ivl->nlist, ivl->sizes, 80, &ierr) ; in IVL_writeToFormattedFile() 525 ivl, fp, rc, ivl->nlist) ; in IVL_writeToBinaryFile() 577 ivl, fp, rc, ivl, fp) ; in IVL_writeForHumanEye() 624 nactive = IVsum(ivl->nlist, ivl->sizes) ; in IVL_writeStats() [all …]
|
H A D | init.c | 18 IVL *ivl, in IVL_init1() argument 27 if ( ivl == NULL in IVL_init1() 39 IVL_clearData(ivl) ; in IVL_init1() 45 ivl->type = type ; in IVL_init1() 66 IVL *ivl, in IVL_init2() argument 112 IVL *ivl, in IVL_init3() argument 171 IVL *ivl, in IVL_setMaxnlist() argument 191 IVcopy(ivl->nlist, ivec, ivl->sizes) ; in IVL_setMaxnlist() 195 ivl->sizes = ivec ; in IVL_setMaxnlist() 206 PIVcopy(ivl->nlist, pivec, ivl->p_vec) ; in IVL_setMaxnlist() [all …]
|
H A D | basics.c | 19 IVL *ivl ; in IVL_new() local 24 return(ivl) ; } in IVL_new() 36 IVL *ivl in IVL_setDefaultFields() argument 38 if ( ivl == NULL ) { in IVL_setDefaultFields() 64 IVL *ivl in IVL_clearData() argument 71 if ( ivl == NULL ) { in IVL_clearData() 89 ivl->tsize -= ivl->sizes[ilist] ; in IVL_clearData() 109 "\n invalid type = %d\n", ivl, ivl->type) ; in IVL_clearData() 125 ivl->nlist = ivl->maxnlist = 0 ; in IVL_clearData() 145 IVL *ivl in IVL_free() argument [all …]
|
H A D | instance.c | 15 IVL *ivl in IVL_type() argument 22 if ( ivl == NULL ) { in IVL_type() 27 return(ivl->type) ; } in IVL_type() 39 IVL *ivl in IVL_maxnlist() argument 46 if ( ivl == NULL ) { in IVL_maxnlist() 63 IVL *ivl in IVL_nlist() argument 70 if ( ivl == NULL ) { in IVL_nlist() 87 IVL *ivl in IVL_tsize() argument 111 IVL *ivl in IVL_incr() argument 135 IVL *ivl, in IVL_setincr() argument [all …]
|
/dports/math/spooles/spooles.2.2/IVL/src/ |
H A D | listmanip.c | 27 IVL *ivl, in IVL_listAndSize() argument 37 if ( ivl == NULL || ilist < 0 || ilist >= ivl->nlist in IVL_listAndSize() 76 IVL *ivl, in IVL_firstInList() argument 92 ivl, ilist, ilist, ivl->nlist) ; in IVL_firstInList() 123 IVL *ivl, in IVL_nextInList() argument 141 ivl, ilist, pi, ilist, ivl->nlist) ; in IVL_nextInList() 230 ivl->tsize -= ivl->sizes[ilist] ; in IVL_setList() 239 ivl->tsize += isize - ivl->sizes[ilist] ; in IVL_setList() 302 ivl, ilist, isize, ivec, ivl->type) ; in IVL_setList() 306 ivl->tsize += isize - ivl->sizes[ilist] ; in IVL_setList() [all …]
|
H A D | IO.c | 24 IVL *ivl, in IVL_readFromFile() argument 47 "\n bad type = %d", ivl, fn, ivl->type) ; in IVL_readFromFile() 126 "\n bad type = %d", ivl, fp, ivl->type) ; in IVL_readFromFormattedFile() 243 "\n bad type = %d", ivl, fp, ivl->type) ; in IVL_readFromBinaryFile() 314 ivl, fp, ivl->tsize, rc, ivl->tsize) ; in IVL_readFromBinaryFile() 444 rc = fprintf(fp, "\n %d %d %d", ivl->type, ivl->nlist, ivl->tsize) ; in IVL_writeToFormattedFile() 451 IVfp80(fp, ivl->nlist, ivl->sizes, 80, &ierr) ; in IVL_writeToFormattedFile() 525 ivl, fp, rc, ivl->nlist) ; in IVL_writeToBinaryFile() 577 ivl, fp, rc, ivl, fp) ; in IVL_writeForHumanEye() 624 nactive = IVsum(ivl->nlist, ivl->sizes) ; in IVL_writeStats() [all …]
|
H A D | init.c | 18 IVL *ivl, in IVL_init1() argument 27 if ( ivl == NULL in IVL_init1() 39 IVL_clearData(ivl) ; in IVL_init1() 45 ivl->type = type ; in IVL_init1() 66 IVL *ivl, in IVL_init2() argument 112 IVL *ivl, in IVL_init3() argument 171 IVL *ivl, in IVL_setMaxnlist() argument 191 IVcopy(ivl->nlist, ivec, ivl->sizes) ; in IVL_setMaxnlist() 195 ivl->sizes = ivec ; in IVL_setMaxnlist() 206 PIVcopy(ivl->nlist, pivec, ivl->p_vec) ; in IVL_setMaxnlist() [all …]
|
H A D | basics.c | 19 IVL *ivl ; in IVL_new() local 24 return(ivl) ; } in IVL_new() 36 IVL *ivl in IVL_setDefaultFields() argument 38 if ( ivl == NULL ) { in IVL_setDefaultFields() 64 IVL *ivl in IVL_clearData() argument 71 if ( ivl == NULL ) { in IVL_clearData() 89 ivl->tsize -= ivl->sizes[ilist] ; in IVL_clearData() 109 "\n invalid type = %d\n", ivl, ivl->type) ; in IVL_clearData() 125 ivl->nlist = ivl->maxnlist = 0 ; in IVL_clearData() 145 IVL *ivl in IVL_free() argument [all …]
|
H A D | instance.c | 15 IVL *ivl in IVL_type() argument 22 if ( ivl == NULL ) { in IVL_type() 27 return(ivl->type) ; } in IVL_type() 39 IVL *ivl in IVL_maxnlist() argument 46 if ( ivl == NULL ) { in IVL_maxnlist() 63 IVL *ivl in IVL_nlist() argument 70 if ( ivl == NULL ) { in IVL_nlist() 87 IVL *ivl in IVL_tsize() argument 111 IVL *ivl in IVL_incr() argument 135 IVL *ivl, in IVL_setincr() argument [all …]
|
/dports/math/libpgmath/flang-d07daf3/test/f90_correct/src/ |
H A D | cm01.f90 | 37 complex(kind=4), dimension(ivl) :: carg1 38 complex(kind=4), dimension(ivl) :: carg2 39 complex(kind=8), dimension(ivl) :: zarg1 40 complex(kind=8), dimension(ivl) :: zarg2 181 real(kind=4), dimension(ivl) :: rarg1 620 carg1 = (/ (cmplx(+1.0+(0*ivl)+i, -2.0+(1*ivl)+i), i = 1, ivl) /) 621 carg2 = (/ (cmplx(-3.0+(2*ivl)+i, +4.0+(3*ivl)+i), i = 1, ivl) /) 856 rarg1 = (/ (1.0 / ((0*ivl)+i), i = 1, ivl) /) 857 rarg2 = (/ (1.0 / ((1*ivl)+i), i = 1, ivl) /) 913 call rcompare_all(rval, (/ (1.0, i=1, ivl) /), ivl, 'sincos') [all …]
|
/dports/math/spooles-mpich/spooles.2.2/IVL/ |
H A D | IVL.h | 146 IVL *ivl 157 IVL *ivl 168 IVL *ivl 185 IVL *ivl 196 IVL *ivl 207 IVL *ivl 218 IVL *ivl 229 IVL *ivl 240 IVL *ivl, 259 IVL *ivl, [all …]
|
/dports/math/spooles-mpich/spooles.2.2_SHARED/IVL/ |
H A D | IVL.h | 146 IVL *ivl 157 IVL *ivl 168 IVL *ivl 185 IVL *ivl 196 IVL *ivl 207 IVL *ivl 218 IVL *ivl 229 IVL *ivl 240 IVL *ivl, 259 IVL *ivl, [all …]
|
/dports/math/spooles/spooles.2.2_SHARED/IVL/ |
H A D | IVL.h | 146 IVL *ivl 157 IVL *ivl 168 IVL *ivl 185 IVL *ivl 196 IVL *ivl 207 IVL *ivl 218 IVL *ivl 229 IVL *ivl 240 IVL *ivl, 259 IVL *ivl, [all …]
|
/dports/math/spooles/spooles.2.2/IVL/ |
H A D | IVL.h | 146 IVL *ivl 157 IVL *ivl 168 IVL *ivl 185 IVL *ivl 196 IVL *ivl 207 IVL *ivl 218 IVL *ivl 229 IVL *ivl 240 IVL *ivl, 259 IVL *ivl, [all …]
|