Home
last modified time | relevance | path

Searched refs:NCOMP (Results 1 – 25 of 120) sorted by relevance

12345

/dports/science/devisor/devisor2.1/data/
H A Dgeometry.prm5 NCOMP
16 NCOMP
25 NCOMP
34 NCOMP
43 NCOMP
52 NCOMP
65 NCOMP
74 NCOMP
83 NCOMP
92 NCOMP
[all …]
/dports/math/cmlib/cmlib-3.0_8/src/bvsup/
H A Dbvpor.f1 SUBROUTINE BVPOR(Y,NROWY,NCOMP,XPTS,NXPTS,A,NROWA,ALPHA,NIC,B, argument
118 DIMENSION Y(NROWY,NXPTS),A(NROWA,NCOMP),ALPHA(NIC),B(NROWB,NCOMP),
120 2 U(NCOMP,NFC,NXPTS),V(NCOMP,NXPTS),W(NFCC,MXNON),
147 NDW = NROWA * NCOMP
153 CALL LSSUDS(A,YHP(1,NFCC+1),ALPHA,NIC,NCOMP,NROWA,YHP,NCOMP,
170 5 NEQ = NCOMP * NFC
171 IF (INHOMO .EQ. 1) NEQ = NEQ + NCOMP
229 NCOMP2=NCOMP/2
262 READ (NTAPE) (V(I,1), I = 1,NCOMP),
263 1 ((U(I,M,1), I = 1,NCOMP), M = 1,NFC)
[all …]
H A Dbvsup.f396 DIMENSION Y(NROWY,NXPTS),A(NROWA,NCOMP),ALPHA(NIC),B(NROWB,NCOMP),
439 IF (NROWY .LT. NCOMP) GO TO 20
440 IF (NCOMP .NE. NIC+NFC) GO TO 20
510 KKKYHP = NCOMP*(NFC+1) + NEQIVP
511 KKKU = NCOMP*NFC*KPTS
512 KKKV = NCOMP*KPTS
516 KKKG = NCOMP
525 KKKSUD = 4*NIC + (NROWA+1)*NCOMP
531 NDEQ=NCOMP*NFC+NEQIVP
532 IF (INHOMO .EQ. 1) NDEQ=NDEQ+NCOMP
[all …]
H A Dstor1.f21 COMMON /ML8SZ/ NFC,NCOMP,INHOMO,IGOFX,XSAV,C,IVP
26 NCTNF = NCOMP * NFC
34 DO 20 J = 1,NCOMP
42 DO 40 J = 1,NCOMP
46 50 DO 60 J = 1,NCOMP
51 70 IF (NDISK .EQ. 1) WRITE (NTAPE) (V(J),J=1,NCOMP),(U(J),J=1,NCTNF)
H A Dreort.f1 SUBROUTINE REORT(NCOMP,Y,YP,YHP,NIV,W,S,P,IP,STOWA,IFLAG) argument
36 DIMENSION Y(NCOMP,*),YP(NCOMP),W(*),S(*),P(*),IP(*),
37 1 STOWA(*),YHP(NCOMP,*)
65 CALL MGSBV(NCOMP,NFC,Y,NCOMP,NIV,MFLAG,S,P,IP,INHOMO,YP,W,WCND)
141 63 DO 65 J = 1,NCOMP
150 YPNM=SDOT(NCOMP,YP,1,YP,1)
154 DO 80 J = 1,NCOMP
H A Dscoef.f1 SUBROUTINE SCOEF(YH,YP,NCOMP,NROWB,NFC,NIC,B,BETA,COEF,INHOMO,RE, argument
60 DIMENSION YH(NCOMP,NFC),YP(NCOMP),B(NROWB,NCOMP),BETA(NFCC),
68 NCOMP2=NCOMP/2
73 1 BY(K,L) = SDOT(NCOMP,B(K,1),NROWB,YH(1,J),1)
82 4 CVEC(K) = BETA(K) - SDOT(NCOMP,B(K,1),NROWB,YP,1)
139 DO 30 K = 1,NCOMP
H A Dsvecs.f1 SUBROUTINE SVECS(NCOMP,LNFC,YHP,WORK,IWORK,INHOMO,IFLAG) argument
17 DIMENSION YHP(NCOMP,*),WORK(*),IWORK(*)
28 CALL MGSBV(NCOMP,LNFC,YHP,NCOMP,NIV,IFLAG,WORK(1),WORK(KP),
36 5 DO 6 K=1,NCOMP
/dports/math/slatec/src/
H A Dbvpor.f2 SUBROUTINE BVPOR (Y, NROWY, NCOMP, XPTS, NXPTS, A, NROWA, ALPHA, argument
135 2 U(NCOMP,NFC,*),V(NCOMP,*),W(NFCC,*),
136 3 COEF(*),Z(*),YHP(NCOMP,*),XPTS(*),S(*),
163 NDW = NROWA * NCOMP
169 CALL LSSUDS(A,YHP(1,NFCC+1),ALPHA,NIC,NCOMP,NROWA,YHP,NCOMP,
186 5 NEQ = NCOMP * NFC
187 IF (INHOMO .EQ. 1) NEQ = NEQ + NCOMP
245 NCOMP2=NCOMP/2
278 READ (NTAPE) (V(I,1), I = 1,NCOMP),
279 1 ((U(I,M,1), I = 1,NCOMP), M = 1,NFC)
[all …]
H A Ddbvpor.f2 SUBROUTINE DBVPOR (Y, NROWY, NCOMP, XPTS, NXPTS, A, NROWA, ALPHA, argument
143 2 RE, S(*), STOWA(*), TND, TOL, U(NCOMP,NFC,*),
145 4 XOT, XPTS(*), XSAV, Y(NROWY,*), YHP(NCOMP,*),
173 NDW = NROWA*NCOMP
179 CALL DLSSUD(A,YHP(1,NFCC+1),ALPHA,NIC,NCOMP,NROWA,YHP,NCOMP,IFLAG,
187 1 CALL DVECS(NCOMP,NFC,YHP,WORK,IWORK,INHOMO,IFLAG)
198 NEQ = NCOMP*NFC
199 IF (INHOMO .EQ. 1) NEQ = NEQ + NCOMP
265 NCOMP2 = NCOMP/2
313 1 (V(I,1), I = 1, NCOMP),
[all …]
H A Ddstor1.f29 INTEGER IGOFX, INHOMO, IVP, J, NCOMP, NCTNF, NDISK, NFC, NTAPE,
35 COMMON /DML8SZ/ C,XSAV,IGOFX,INHOMO,IVP,NCOMP,NFC
41 NCTNF = NCOMP*NFC
51 DO 20 J = 1, NCOMP
61 DO 40 J = 1, NCOMP
68 DO 60 J = 1, NCOMP
76 1 WRITE (NTAPE) (V(J), J = 1, NCOMP),(U(J), J = 1, NCTNF)
H A Dstor1.f32 COMMON /ML8SZ/ C,XSAV,IGOFX,INHOMO,IVP,NCOMP,NFC
37 NCTNF = NCOMP * NFC
45 DO 20 J = 1,NCOMP
53 DO 40 J = 1,NCOMP
57 50 DO 60 J = 1,NCOMP
62 70 IF (NDISK .EQ. 1) WRITE (NTAPE) (V(J),J=1,NCOMP),(U(J),J=1,NCTNF)
H A Ddvecs.f2 SUBROUTINE DVECS (NCOMP, LNFC, YHP, WORK, IWORK, INHOMO, IFLAG) argument
32 1 KP, LNFC, LNFCC, MXNON, NCOMP, NDISK, NEQ, NEQIVP, NIC, NIV,
34 DOUBLE PRECISION AE, DUM, RE, TOL, WORK(*), YHP(NCOMP,*)
40 DO 10 K = 1, NCOMP
52 CALL DMGSBV(NCOMP,LNFC,YHP,NCOMP,NIV,IFLAG,WORK(1),WORK(KP),
58 DO 30 K = 1, NCOMP
H A Dbvsup.f451 IF (NROWY .LT. NCOMP) GO TO 20
452 IF (NCOMP .NE. NIC+NFC) GO TO 20
522 KKKYHP = NCOMP*(NFC+1) + NEQIVP
523 KKKU = NCOMP*NFC*KPTS
524 KKKV = NCOMP*KPTS
527 KKKSTO = NCOMP*(NFC+1) + NEQIVP + 1
528 KKKG = NCOMP
537 KKKSUD = 4*NIC + (NROWA+1)*NCOMP
543 NDEQ=NCOMP*NFC+NEQIVP
544 IF (INHOMO .EQ. 1) NDEQ=NDEQ+NCOMP
[all …]
H A Ddbvsup.f2 SUBROUTINE DBVSUP (Y, NROWY, NCOMP, XPTS, NXPTS, A, NROWA, ALPHA, argument
467 IF (NROWY .LT. NCOMP) GO TO 80
552 KKKYHP = NCOMP*(NFC + 1) + NEQIVP
553 KKKU = NCOMP*NFC*KPTS
554 KKKV = NCOMP*KPTS
557 KKKSTO = NCOMP*(NFC + 1) + NEQIVP + 1
558 KKKG = NCOMP
567 KKKSUD = 4*NIC + (NROWA + 1)*NCOMP
573 NDEQ = NCOMP*NFC + NEQIVP
574 IF (INHOMO .EQ. 1) NDEQ = NDEQ + NCOMP
[all …]
H A Dreort.f2 SUBROUTINE REORT (NCOMP, Y, YP, YHP, NIV, W, S, P, IP, STOWA, argument
52 DIMENSION Y(NCOMP,*),YP(*),W(*),S(*),P(*),IP(*),
53 1 STOWA(*),YHP(NCOMP,*)
82 CALL MGSBV(NCOMP,NFC,Y,NCOMP,NIV,MFLAG,S,P,IP,INHOMO,YP,W,WCND)
158 63 DO 65 J = 1,NCOMP
167 YPNM=SDOT(NCOMP,YP,1,YP,1)
171 DO 80 J = 1,NCOMP
H A Ddreort.f2 SUBROUTINE DREORT (NCOMP, Y, YP, YHP, NIV, W, S, P, IP, STOWA, argument
55 2 MNSWOT, MXNON, NCOMP, NCOMPD, NDISK, NEQ, NEQIVP, NFC,
60 2 XOP, XOT, XSAV, Y(NCOMP,*), YHP(NCOMP,*), YP(*), YPNM
95 CALL DMGSBV(NCOMP,NFC,Y,NCOMP,NIV,MFLAG,S,P,IP,INHOMO,YP,W,
201 DO 130 J = 1, NCOMP
212 YPNM = DDOT(NCOMP,YP,1,YP,1)
216 DO 160 J = 1, NCOMP
H A Dsvecs.f2 SUBROUTINE SVECS (NCOMP, LNFC, YHP, WORK, IWORK, INHOMO, IFLAG) argument
29 DIMENSION YHP(NCOMP,*),WORK(*),IWORK(*)
41 CALL MGSBV(NCOMP,LNFC,YHP,NCOMP,NIV,IFLAG,WORK(1),WORK(KP),
49 5 DO 6 K=1,NCOMP
H A Ddbvder.f58 INTEGER IGOFX, INHOMO, IPAR, IVP, J, K, L, NA, NCOMP, NFC, NOFST
63 COMMON /DML8SZ/ C,XSAV,IGOFX,INHOMO,IVP,NCOMP,NFC
79 NOFST = NOFST - NCOMP
80 NA = NA + NCOMP
99 DO 20 J=1,NCOMP
H A Ddstway.f30 2 NCOMP, NDISK, NEQ, NEQIVP, NFC, NFCC, NIC, NOPG, NPS, NSWOT,
35 COMMON /DML8SZ/ C,XSAV,IGOFX,INHOMO,IVP,NCOMP,NFC
47 KS = NFC*NCOMP
49 KS = KS + NCOMP
65 KS = NFC*NCOMP
67 KS = KS + NCOMP
/dports/science/dalton/dalton-66052b3af5ea7225e31178bf9a8b031913c72190/DALTON/soppa/
H A Dso_prpint.F175 NCOMP = 0
178 CALL GET1IN(DUMMY,'DIPLEN ',NCOMP,WORK(KEND1),LWORK1,
198 NCOMP = 0
201 CALL GET1IN(DUMMY,'ANGMOM ',NCOMP,WORK(KEND1),LWORK1,
217 NCOMP = 0
220 CALL GET1IN(DUMMY,'HBDO ',NCOMP,WORK(KEND1),LWORK1,
236 NCOMP = 0
255 NCOMP = 0
274 NCOMP = 0
293 NCOMP = 0
[all …]
/dports/science/dalton/dalton-66052b3af5ea7225e31178bf9a8b031913c72190/DALTON/abacus/
H A Dabapcm.F2 SUBROUTINE MAGPCMFIRST(VEC2,NCOMP,IPRINT,INTPRI,WORK,LWORK)
30 INTEGER BAS,NCOMP
35 KLAST = KEXPVL + NCOMP*NTS
106 INTEGER NCOMP,INUC
112 IF (NCOMP.EQ.6) THEN
119 KINVMT = KINT + NNBASX*NCOMP
123 CALL DZERO(VEC2,NNBASX*NCOMP)
124 CALL DZERO(POTPER,NTSIRR*NCOMP)
125 CALL DZERO(QSEPER,NTSIRR*NCOMP)
176 DO ICOMP = 1, NCOMP
[all …]
H A Dabadip.F230 NCOMP = 3
387 NCOMP = 0
391 NCOMP = NCOMP + 1
392 IND(NCOMP) = IPTAX(ICOOR,ITYPE)
401 NCOMP = 0
408 NCOMP = NCOMP + 1
409 IND(NCOMP) = ICOOR
410 LAB(NCOMP) = 'E'//CHRABC(ICOOR)
419 IF (NCOMP .GT. 0) THEN
427 DO 300 I = 1, NCOMP
[all …]
/dports/science/nest/nest-simulator-3.1/models/
H A Diaf_cond_alpha_mc.h215 NCOMP enumerator
294 double g_conn[ NCOMP - 1 ]; //!< Conductances connecting compartments,
296 double g_L[ NCOMP ]; //!< Leak Conductance in nS
297 double C_m[ NCOMP ]; //!< Membrane Capacitance in pF
298 double E_ex[ NCOMP ]; //!< Excitatory reversal Potential in mV
299 double E_in[ NCOMP ]; //!< Inhibitory reversal Potential in mV
306 double I_e[ NCOMP ]; //!< Constant Current in pA
343 static const size_t STATE_VEC_SIZE = STATE_VEC_COMPS * NCOMP;
411 double I_stim_[ NCOMP ]; //!< External Stimulus in pA
422 double PSConInit_E_[ NCOMP ];
[all …]
H A Dpp_cond_exp_mc_urbanczik.h88 NCOMP enumerator
100 double g_conn[ NCOMP ]; //!< Conductances connecting compartments in nS
101 double g_L[ NCOMP ]; //!< Leak Conductance in nS
102 double C_m[ NCOMP ]; //!< Capacity of the membrane in pF
103 double E_L[ NCOMP ]; //!< Reversal Potential in mV
290 NCOMP enumerator
364 double E_ex[ NCOMP ]; //!< Excitatory reversal Potential in mV
365 double E_in[ NCOMP ]; //!< Inhibitory reversal Potential in mV
366 double I_e[ NCOMP ]; //!< Constant Current in pA
409 static const size_t STATE_VEC_SIZE = STATE_VEC_COMPS * NCOMP;
[all …]
/dports/math/GiNaC/ginac-1.8.2/doc/examples/
H A Dcompile2.cpp36 #define NCOMP 1 in main() macro
47 double integral[NCOMP], error[NCOMP], prob[NCOMP]; in main()
59 Vegas(NDIM, NCOMP, fp, in main()

12345