Home
last modified time | relevance | path

Searched refs:lcoord (Results 1 – 25 of 73) sorted by relevance

123

/dports/science/frontistr/FrontISTR-c66bdc397de319ca59a0565b3f3b1a3b33f0c50c/fistr1/src/lib/element/
H A Dquad8n.f9017 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 Dquad4n.f9011 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 Dquad9n.f9022 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 Dline3n.f9011 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 Dline2n.f9011 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 Dgrid_gen_pts.F16 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 Dgrid_memory.F17 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 Dgrid_atom_type_info.F24 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 Dgrid_invariant.F16 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 Dgrid_gen_pts.F16 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 Dgrid_memory.F17 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 Dgrid_atom_type_info.F23 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 Dgrid_invariant.F16 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 Dmd_inpt.f34 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 Dmd_inpt.f34 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 Dmd_inpt.f28 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 Dmd_inpt.f34 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 Dmd_inpt.f34 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 Dmd_inpt.f34 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 Dmd_inpt.f34 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 Dmd_inpt.f28 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 Dstd_domain.cc1597 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 Ddft_getspm.F18 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 Ddft_getspm.F18 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 Dpolygon_90_set_view.hpp53 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()

123