/dports/science/devisor/devisor2.1/data/ |
H A D | geometry.prm | 5 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 D | bvpor.f | 1 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 D | bvsup.f | 396 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 D | stor1.f | 21 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 D | reort.f | 1 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 D | scoef.f | 1 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 D | svecs.f | 1 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 D | bvpor.f | 2 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 D | dbvpor.f | 2 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 D | dstor1.f | 29 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 D | stor1.f | 32 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 D | dvecs.f | 2 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 D | bvsup.f | 451 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 D | dbvsup.f | 2 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 D | reort.f | 2 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 D | dreort.f | 2 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 D | svecs.f | 2 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 D | dbvder.f | 58 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 D | dstway.f | 30 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 D | so_prpint.F | 175 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 D | abapcm.F | 2 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 D | abadip.F | 230 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 D | iaf_cond_alpha_mc.h | 215 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 D | pp_cond_exp_mc_urbanczik.h | 88 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 D | compile2.cpp | 36 #define NCOMP 1 in main() macro 47 double integral[NCOMP], error[NCOMP], prob[NCOMP]; in main() 59 Vegas(NDIM, NCOMP, fp, in main()
|