/dports/science/frontistr/FrontISTR-c66bdc397de319ca59a0565b3f3b1a3b33f0c50c/fistr1/src/lib/element/ |
H A D | quad8n.f90 | 17 RI=lcoord(1); SI=lcoord(2) 35 func(1,1)= .25d0*(1.d0-lcoord(2))*(2.d0*lcoord(1)+lcoord(2)) 36 func(2,1)= .25d0*(1.d0-lcoord(2))*(2.d0*lcoord(1)-lcoord(2)) 37 func(3,1)= .25d0*(1.d0+lcoord(2))*(2.d0*lcoord(1)+lcoord(2)) 38 func(4,1)= .25d0*(1.d0+lcoord(2))*(2.d0*lcoord(1)-lcoord(2)) 39 func(5,1)=-lcoord(1)*(1.d0-lcoord(2)) 41 func(7,1)=-lcoord(1)*(1.d0+lcoord(2)) 45 func(1,2)= .25d0*(1.d0-lcoord(1))*(lcoord(1)+2.d0*lcoord(2)) 46 func(2,2)=-.25d0*(1.d0+lcoord(1))*(lcoord(1)-2.d0*lcoord(2)) 47 func(3,2)= .25d0*(1.d0+lcoord(1))*(lcoord(1)+2.d0*lcoord(2)) [all …]
|
H A D | quad4n.f90 | 11 subroutine ShapeFunc_quad4n(lcoord,func) argument 14 func(1) = 0.25d0*(1.d0-lcoord(1))*(1.d0-lcoord(2)) 15 func(2) = 0.25d0*(1.d0+lcoord(1))*(1.d0-lcoord(2)) 16 func(3) = 0.25d0*(1.d0+lcoord(1))*(1.d0+lcoord(2)) 17 func(4) = 0.25d0*(1.d0-lcoord(1))*(1.d0+lcoord(2)) 23 func(1,1) = -0.25d0*(1.d0-lcoord(2)) 24 func(2,1) = 0.25d0*(1.d0-lcoord(2)) 25 func(3,1) = 0.25d0*(1.d0+lcoord(2)) 26 func(4,1) = -0.25d0*(1.d0+lcoord(2)) 28 func(1,2) = -0.25d0*(1.d0-lcoord(1)) [all …]
|
H A D | quad9n.f90 | 22 subroutine ShapeFunc_quad9n(lcoord, func) argument 63 *( 1.0D0+xi(na) *lcoord(1) ) & 65 *( 1.0D0-lcoord(1)*lcoord(1) ) 67 *( 1.0D0+eta(na)*lcoord(2) ) & 69 *( 1.0D0-lcoord(2)*lcoord(2) ) 134 *( 1.0D0-lcoord(1)*lcoord(1) ) 138 *( 1.0D0-lcoord(2)*lcoord(2) ) 141 *( 1.0D0+xi(na) *lcoord(1) ) & 145 *( -2.0D0*lcoord(1) ) 147 *( 1.0D0+eta(na)*lcoord(2) ) & [all …]
|
H A D | line3n.f90 | 11 subroutine ShapeFunc_line3n(lcoord,func) argument 12 real(kind=kreal), intent(in) :: lcoord(1) local 14 func(1) =-0.5d0*(1.d0-lcoord(1))*lcoord(1) 15 func(2) = 0.5d0*(1.d0+lcoord(1))*lcoord(1) 16 func(3) = 1.0d0-lcoord(1)*lcoord(1) 19 subroutine ShapeDeriv_line3n(lcoord,func) argument 20 real(kind=kreal), intent(in) :: lcoord(1) local 22 func(1,1) = lcoord(1)-0.5d0 23 func(2,1) = lcoord(1)+0.5d0 24 func(3,1) =-2.d0*lcoord(1)
|
H A D | line2n.f90 | 11 subroutine ShapeFunc_line2n(lcoord,func) argument 12 real(kind=kreal), intent(in) :: lcoord(1) local 14 func(1) = 0.5d0*(1.d0-lcoord(1)) 15 func(2) = 0.5d0*(1.d0+lcoord(1))
|
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/nwdft/grid/ |
H A D | grid_gen_pts.F | 16 integer lcoord, icoord, lcharge, icharge, ltags, itags 26 if (.not. Ma_Push_Get(MT_Dbl,ncenters*3,'coordinates',lcoord, 70 if (.not. MA_Pop_Stack(lcoord))
|
H A D | grid_memory.F | 17 integer lcoord, icoord, lcharge, icharge, ltags, itags 26 if (.not. Ma_Push_Get(MT_Dbl,ncenters*3,'coordinates',lcoord, 60 if (.not. MA_Pop_Stack(lcoord))
|
H A D | grid_atom_type_info.F | 24 integer lcoord, icoord, lcharge, icharge, ltags, itags,iptr 80 if (.not. Ma_Push_Get(MT_Dbl,ncenters*3,'coordinates',lcoord, 277 if (.not. MA_Pop_Stack(lcoord)) 335 integer lcoord, icoord, lcharge, icharge, ltags, itags,iptr 401 if (.not. Ma_Push_Get(MT_Dbl,ncenters_fde*3,'coordinates',lcoord,
|
H A D | grid_invariant.F | 16 integer lcoord, icoord, lcharge, icharge, ltags, itags 64 if (.not. Ma_Push_Get(MT_Dbl,ncenters*3,'coordinates',lcoord, 84 if (.not. MA_Pop_Stack(lcoord))
|
/dports/science/nwchem-data/nwchem-7.0.2-release/src/nwdft/grid/ |
H A D | grid_gen_pts.F | 16 integer lcoord, icoord, lcharge, icharge, ltags, itags 26 if (.not. Ma_Push_Get(MT_Dbl,ncenters*3,'coordinates',lcoord, 70 if (.not. MA_Pop_Stack(lcoord))
|
H A D | grid_memory.F | 17 integer lcoord, icoord, lcharge, icharge, ltags, itags 26 if (.not. Ma_Push_Get(MT_Dbl,ncenters*3,'coordinates',lcoord, 60 if (.not. MA_Pop_Stack(lcoord))
|
H A D | grid_atom_type_info.F | 23 integer lcoord, icoord, lcharge, icharge, ltags, itags,iptr 78 if (.not. Ma_Push_Get(MT_Dbl,ncenters*3,'coordinates',lcoord, 257 if (.not. MA_Pop_Stack(lcoord)) 315 integer lcoord, icoord, lcharge, icharge, ltags, itags,iptr 381 if (.not. Ma_Push_Get(MT_Dbl,ncenters_fde*3,'coordinates',lcoord,
|
H A D | grid_invariant.F | 16 integer lcoord, icoord, lcharge, icharge, ltags, itags 64 if (.not. Ma_Push_Get(MT_Dbl,ncenters*3,'coordinates',lcoord, 84 if (.not. MA_Pop_Stack(lcoord))
|
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/smd/graveyard/smd-9-10-08/ |
H A D | md_inpt.f | 34 logical lend,lcoord,lveloc,lvectr 60 lcoord=.false. 94 lcoord=.true. 374 elseif(.not.lcoord)then
|
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/smd/graveyard/smd-serial/ |
H A D | md_inpt.f | 34 logical lend,lcoord,lveloc,lvectr 60 lcoord=.false. 94 lcoord=.true. 374 elseif(.not.lcoord)then
|
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/smd/graveyard/smd-original/ |
H A D | md_inpt.f | 28 logical lend,lcoord,lveloc,lvectr 54 lcoord=.false. 88 lcoord=.true. 368 elseif(.not.lcoord)then
|
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/smd/graveyard/smd-subgroups/ |
H A D | md_inpt.f | 34 logical lend,lcoord,lveloc,lvectr 60 lcoord=.false. 94 lcoord=.true. 374 elseif(.not.lcoord)then
|
/dports/science/nwchem-data/nwchem-7.0.2-release/src/smd/graveyard/smd-subgroups/ |
H A D | md_inpt.f | 34 logical lend,lcoord,lveloc,lvectr 60 lcoord=.false. 94 lcoord=.true. 374 elseif(.not.lcoord)then
|
/dports/science/nwchem-data/nwchem-7.0.2-release/src/smd/graveyard/smd-9-10-08/ |
H A D | md_inpt.f | 34 logical lend,lcoord,lveloc,lvectr 60 lcoord=.false. 94 lcoord=.true. 374 elseif(.not.lcoord)then
|
/dports/science/nwchem-data/nwchem-7.0.2-release/src/smd/graveyard/smd-serial/ |
H A D | md_inpt.f | 34 logical lend,lcoord,lveloc,lvectr 60 lcoord=.false. 94 lcoord=.true. 374 elseif(.not.lcoord)then
|
/dports/science/nwchem-data/nwchem-7.0.2-release/src/smd/graveyard/smd-original/ |
H A D | md_inpt.f | 28 logical lend,lcoord,lveloc,lvectr 54 lcoord=.false. 88 lcoord=.true. 368 elseif(.not.lcoord)then
|
/dports/math/dune-uggrid/dune-uggrid-bc2d1229420367563410ce9e519f5ff82b45266f/dune/uggrid/domain/ |
H A D | std_domain.cc | 1597 lcoord = 1.0 - lcoord; in CreateBndPOnLine() 1599 lcoord = 1.0 - lcoord; in CreateBndPOnLine() 1601 lcoord = 1.0 - lcoord; in CreateBndPOnLine() 1603 lcoord = 1.0 - lcoord; in CreateBndPOnLine() 1605 bp->local[l][0] = (1.0 - lcoord) * local0[0] + lcoord * local1[0]; in CreateBndPOnLine() 1606 bp->local[l][1] = (1.0 - lcoord) * local0[1] + lcoord * local1[1]; in CreateBndPOnLine() 1609 lcoord = 1.0 - lcoord; in CreateBndPOnLine() 1611 lcoord = 1.0 - lcoord; in CreateBndPOnLine() 1613 lcoord = 1.0 - lcoord; in CreateBndPOnLine() 1615 lcoord = 1.0 - lcoord; in CreateBndPOnLine() [all …]
|
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/nwdft/coulomb/ |
H A D | dft_getspm.F | 18 integer lcoord,icoord,lcharge,icharge,itags,ltags 33 if(.not.Ma_Alloc_Get(MT_Dbl,natoms*3,'coordinates',lcoord,icoord)) 108 if(.not.ma_free_heap(lcoord))
|
/dports/science/nwchem-data/nwchem-7.0.2-release/src/nwdft/coulomb/ |
H A D | dft_getspm.F | 18 integer lcoord,icoord,lcharge,icharge,itags,ltags 33 if(.not.Ma_Alloc_Get(MT_Dbl,natoms*3,'coordinates',lcoord,icoord)) 108 if(.not.ma_free_heap(lcoord))
|
/dports/devel/boost-docs/boost_1_72_0/boost/polygon/detail/ |
H A D | polygon_90_set_view.hpp | 53 template <typename value_type, typename lcoord, typename rcoord, typename op_type> 54 …struct compute_90_set_value<value_type, polygon_90_set_data<lcoord>, polygon_90_set_data<rcoord>, … 56 void value(value_type& output_, const polygon_90_set_data<lcoord>& lvalue_, in value() 89 template <typename value_type, typename lcoord, typename rtype, typename op_type> 90 struct compute_90_set_value<value_type, polygon_90_set_data<lcoord>, rtype, op_type> { 92 void value(value_type& output_, const polygon_90_set_data<lcoord>& lvalue_, in value()
|