Home
last modified time | relevance | path

Searched refs:mcons (Results 1 – 25 of 139) sorted by relevance

123456

/dports/lang/racket/racket-8.3/share/pkgs/compatibility-lib/compatibility/
H A Dmlist.rkt37 [else (mcons (f (mcar l1) (mcar l2))
66 [else (mcons (car l) (list->mlist (cdr l)))]))
81 [(_ a) #'(mcons a null)]
82 [(_ a b) #'(mcons a (mcons b null))]
83 [(_ a b c) #'(mcons a (mcons b (mcons c null)))]
91 [(a) (mcons a null)]
92 [(a b) (mcons a (mcons b null))]
93 [(a b c) (mcons a (mcons b (mcons c null)))]
94 [(a b c d) (mcons a (mcons b (mcons c (mcons d null))))]
130 (mcons (mcar a) (loop (mcdr a)))))]
[all …]
/dports/science/quantum-espresso/q-e-qe-6.7.0/PW/src/
H A Dadd_bfield.f9034 USE noncollin_module, ONLY : bfield, lambda, i_cons, mcons, &
76 m2(1:npol,na) = m_loc(1:npol,na) - mcons(1:npol,nt)
96 xx=(m_loc(3,na)/ma - mcons(3,nt))
102 etcon = etcon + lambda * (m_loc(3,na)/ma - mcons(3,nt))**2
146 bfield(1) = -fact*(m1(1) - mcons(1,1))
154 bfield(ipol) = -fact*(m1(ipol) - mcons(ipol,1))
179 xx = fact - mcons(3,1)/180.D0*pi
185 IF (mcons(3,1) > 0.D0) fact1(1) = 1.D-14
208 ACOS(m1(3)/ma)*180.d0/pi, mcons(3,1)
H A Dreport_mag.f9021 USE noncollin_module, ONLY: noncolin, mcons, i_cons
38 WRITE(stdout,1020) iat, r1_loc(iat), m1_loc(1,iat), mcons(1,ityp(iat))
79 WRITE( stdout,1015) (mcons(ipol,ityp(iat)),ipol=1,3)
81 WRITE( stdout,1017) 180.d0 * ACOS(mcons(3,ityp(iat)))/pi
H A Dinput.f90188 USE noncollin_module, ONLY : i_cons, mcons, bfield, &
747 mcons(1,nt) = starting_magnetization(nt) * sin( theta ) * cos( phi )
748 mcons(2,nt) = starting_magnetization(nt) * sin( theta ) * sin( phi )
749 mcons(3,nt) = starting_magnetization(nt) * cos( theta )
756 mcons(1,nt) = starting_magnetization(nt)
775 mcons(3,nt) = cos(theta)
785 mcons(1,1) = fixed_magnetization(1)
786 mcons(2,1) = fixed_magnetization(2)
787 mcons(3,1) = fixed_magnetization(3)
798 mcons(3,1) = fixed_magnetization(3)
[all …]
/dports/lang/racket/racket-8.3/share/pkgs/racklog/
H A Dunify.rkt119 [(mcons mcl mcr) mcons-expr ...]
129 [(mcons mcl mcr) mcons-expr ...]
138 [(mcons mcl mcr) mcons-expr ...]
149 [(mcons mcl mcr) mcons-expr ...]
166 [(mcons l r)
207 [(mcons l r) #f]
222 [(mcons l r) #t]
259 [(mcons l r)
279 [(mcons l r)
301 [(mcons l r)
[all …]
/dports/lang/racket/racket-8.3/collects/file/
H A Dmd5.rkt95 (mcons (quotient n 65536) (remainder n 65536))
99 #'(let ([n c]) (mcons (quotient n 65536) (remainder n 65536)))]
106 #`(mcons #,(quotient n 65536) #,(remainder n 65536)))
266 (mcons 0 0) (mcons 0 0) (mcons 0 0) (mcons 0 0) (mcons 0 0) (mcons 0 0)
267 (mcons 0 0) (mcons 0 0) (mcons 0 0) (mcons 0 0) (mcons 0 0) (mcons 0 0)
268 (mcons 0 0) (mcons 0 0) (mcons 0 0) (mcons 0 0)))
273 (define AA (mcons 0 0))
274 (define BB (mcons 0 0))
275 (define CC (mcons 0 0))
276 (define DD (mcons 0 0))
[all …]
/dports/misc/cloc/cloc-1.90/tests/inputs/
H A Dmd5.rkt95 (mcons (quotient n 65536) (remainder n 65536))
99 #'(let ([n c]) (mcons (quotient n 65536) (remainder n 65536)))]
106 #`(mcons #,(quotient n 65536) #,(remainder n 65536)))
266 (mcons 0 0) (mcons 0 0) (mcons 0 0) (mcons 0 0) (mcons 0 0) (mcons 0 0)
267 (mcons 0 0) (mcons 0 0) (mcons 0 0) (mcons 0 0) (mcons 0 0) (mcons 0 0)
268 (mcons 0 0) (mcons 0 0) (mcons 0 0) (mcons 0 0)))
273 (define AA (mcons 0 0))
274 (define BB (mcons 0 0))
275 (define CC (mcons 0 0))
276 (define DD (mcons 0 0))
[all …]
/dports/lang/racket-minimal/racket-8.3/collects/file/
H A Dmd5.rkt95 (mcons (quotient n 65536) (remainder n 65536))
99 #'(let ([n c]) (mcons (quotient n 65536) (remainder n 65536)))]
106 #`(mcons #,(quotient n 65536) #,(remainder n 65536)))
266 (mcons 0 0) (mcons 0 0) (mcons 0 0) (mcons 0 0) (mcons 0 0) (mcons 0 0)
267 (mcons 0 0) (mcons 0 0) (mcons 0 0) (mcons 0 0) (mcons 0 0) (mcons 0 0)
268 (mcons 0 0) (mcons 0 0) (mcons 0 0) (mcons 0 0)))
273 (define AA (mcons 0 0))
274 (define BB (mcons 0 0))
275 (define CC (mcons 0 0))
276 (define DD (mcons 0 0))
[all …]
/dports/lang/racket/racket-8.3/collects/racket/private/
H A Dshared-body.rkt121 …(syntax-case* (disarm expr) (the-cons mcons append box box-immutable vector vector-immutable) same…
128 [(mcons a d)
129 (syntax (mcons undefined undefined))]
130 [(mcons . _)
131 (bad "mcons")]
197 …(syntax-case* expr (the-cons mcons list list* append box box-immutable vector vector-immutable) sa…
200 [(mcons . _) temp-id]
234 …(syntax-case* (disarm expr) (the-cons mcons list list* append box box-immutable vector vector-immu…
239 [(mcons a d)
/dports/lang/racket-minimal/racket-8.3/collects/racket/private/
H A Dshared-body.rkt121 …(syntax-case* (disarm expr) (the-cons mcons append box box-immutable vector vector-immutable) same…
128 [(mcons a d)
129 (syntax (mcons undefined undefined))]
130 [(mcons . _)
131 (bad "mcons")]
197 …(syntax-case* expr (the-cons mcons list list* append box box-immutable vector vector-immutable) sa…
200 [(mcons . _) temp-id]
234 …(syntax-case* (disarm expr) (the-cons mcons list list* append box box-immutable vector vector-immu…
239 [(mcons a d)
/dports/lang/racket-minimal/racket-8.3/src/io/
H A Ddemo.rkt681 (print-test (cons 1 (mcons 3 4)) "(cons 1 (mcons 3 4))")
682 (print-test (cons 1 (cons 2 (mcons 3 4))) "(list* 1 2 (mcons 3 4))")
683 (print-test (cons 1 (cons (mcons 3 4) null)) "(list 1 (mcons 3 4))")
725 (define p1 (mcons 1 2))
726 (define p2 (mcons p1 p1))
727 (print-test p2 "(mcons (mcons 1 2) (mcons 1 2))")
730 (print-test p2 "(mcons #0=(mcons 1 2) #0#)"))
731 (print-test (mcons 1 null) "(mcons 1 '())")
732 (print-test (mcons 1 (mcons 2 null)) "(mcons 1 (mcons 2 '()))")
733 (print-test (mcons 1 null) "{1}" #:print write)
[all …]
/dports/lang/racket/racket-8.3/src/io/
H A Ddemo.rkt681 (print-test (cons 1 (mcons 3 4)) "(cons 1 (mcons 3 4))")
682 (print-test (cons 1 (cons 2 (mcons 3 4))) "(list* 1 2 (mcons 3 4))")
683 (print-test (cons 1 (cons (mcons 3 4) null)) "(list 1 (mcons 3 4))")
725 (define p1 (mcons 1 2))
726 (define p2 (mcons p1 p1))
727 (print-test p2 "(mcons (mcons 1 2) (mcons 1 2))")
730 (print-test p2 "(mcons #0=(mcons 1 2) #0#)"))
731 (print-test (mcons 1 null) "(mcons 1 '())")
732 (print-test (mcons 1 (mcons 2 null)) "(mcons 1 (mcons 2 '()))")
733 (print-test (mcons 1 null) "{1}" #:print write)
[all …]
/dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/tests/unit/
H A Dunit_Constraints.cpp87 SetOfConstraints mcons = buildConstraints(msecs); in unit_Constraints() local
88 out<<mcons; in unit_Constraints()
/dports/lang/racket/racket-8.3/share/pkgs/racket-doc/scribblings/reference/
H A Dequality.scrbl31 (let ([v (mcons 1 2)]) (equal? v v))
32 (equal? (mcons 1 2) (mcons 1 2))
63 (let ([v (mcons 1 2)]) (eqv? v v))
64 (eqv? (mcons 1 2) (mcons 1 2))
83 (let ([v (mcons 1 2)]) (eq? v v))
84 (eq? (mcons 1 2) (mcons 1 2))
H A Dshared.scrbl38 #:literals (cons list list* append vector-immutable box-immutable mcons vector box)
47 (mcons patchable-expr patchable-expr)
97 @item{A @racket[_shell-expr] of the form @racket[(mcons
133 (shared ([a (mcons 1 b)] (code:comment @#,t{@racket[b] is patchable...})
/dports/lang/racket/racket-8.3/share/pkgs/racket-doc/scribblings/guide/
H A Dpairs.scrbl100 @racket[mcons] procedure creates a @deftech{mutable pair}, which works
103 @racketresult[mcons], while @racket[write] and @racket[display] print
107 (define p (mcons 1 2))
/dports/math/hs-Agda/Agda-2.6.2/src/full/Agda/Interaction/Highlighting/
H A DVim.hs70 toVim ns = unlines $ matches mcons micons mdefs midefs mflds miflds
76 mcons = map prettyShow cons function
/dports/lang/racket/racket-8.3/share/pkgs/racklog/tests/
H A Dunit.rkt106 (once (mcons 1 1) (mcons 1 1))
107 (never (mcons 1 2) (mcons 1 1))
108 (never (mcons 2 1) (mcons 1 1))
109 (compound (mcons 1 1))
235 (uni x 1 (mcons x 2) (mcons 1 2))
236 (uni x 2 (mcons 1 x) (mcons 1 2))
/dports/lang/racket/racket-8.3/share/pkgs/r6rs-lib/rnrs/
H A Dprograms-6.rkt8 (mcons (path->string (find-system-path 'run-file))
/dports/lang/racket/racket-8.3/share/pkgs/srfi-lib/srfi/
H A D%3a98.rkt11 (mcons (car pair) (cdr pair)))
/dports/lang/racket/racket-8.3/share/pkgs/r5rs-lib/r5rs/
H A Dmain.rkt13 [mcons cons]
143 [(pair? v) (mcons (loop (car v)) (loop (cdr v)))]
164 [(pair? v) (mcons (to-mutable (car v))
205 #`(mcons 'unquote
219 #`(mcons (mcons 'unquote-splicing
230 #`(mcons 'quasiquote #,(loop #'e (add1 depth)))]
232 #`(mcons #,(loop #'a depth) #,(loop #'b depth))]
/dports/science/quantum-espresso/q-e-qe-6.7.0/Modules/
H A Dnoncol.f9041 mcons(3,ntypx)=0.d0, &! constrained values for local variables variable
/dports/lang/chibi-scheme/chibi-scheme-0.10/lib/srfi/1/
H A Dimmutable.sld26 (cons mcons)
35 (let ((res (mcons a b)))
/dports/cad/gerbv/gerbv-2.7.0/src/
H A Dinit.scm259 (define (mcons f l r)
287 (mcons form ''quasiquote (foo (+ level 1) (cdr form))))
297 (#t (mcons form (foo level (car form))
300 (mcons form ''unquote (foo (- level 1)
303 (mcons form ''unquote-splicing
305 (#t (mcons form (foo level (car form))
/dports/games/nazghul/nazghul-0.7.1/worlds/haxima-1.002/
H A Dinit.scm255 (define (mcons f l r)
283 (mcons form ''quasiquote (foo (+ level 1) (cdr form))))
293 (#t (mcons form (foo level (car form))
296 (mcons form ''unquote (foo (- level 1)
299 (mcons form ''unquote-splicing
301 (#t (mcons form (foo level (car form))

123456