/dports/science/dalton/dalton-66052b3af5ea7225e31178bf9a8b031913c72190/DALTON/lucita/ |
H A D | diagonal.F | 74 IBTP = 2 76 NBEL = NELEC(IBTP) 78 NOCTPB = NOCTYP(IBTP) 246 IBTP = 2 248 NBEL = NELEC(IBTP) 250 NOCTPB = NOCTYP(IBTP) 382 IBTP = 2 384 NBEL = NELEC(IBTP) 386 NOCTPB = NOCTYP(IBTP) 1007 IBTP = 2 [all …]
|
H A D | sigma.F | 632 DO IBTP = 1, NOCTPB 688 DO IBTP = 1, NOCTPB 926 DO IBTP = 1, NOCTPB 1085 DO IBTP = 1, NOCTPB 1378 DO IBTP = 1, NOCTPB 3858 IBLOCK(2) = IBTP 4299 IBTP = 2 4308 NBEL = NELEC(IBTP) 4985 IBTP = 2 5000 NBEL = NELEC(IBTP) [all …]
|
H A D | vecmat.F | 235 IBTP = 2 238 NOCTPB = NOCTYP(IBTP) 241 IOCTPB = IBSPGPFTP(IBTP) 653 IBTP = 2 656 NBEL = NELEC(IBTP) 659 NOCTPB = NOCTYP(IBTP) 662 IOCTPB = IBSPGPFTP(IBTP) 838 NIB = NSSOB(IBSM,IBTP) 940 NIB = NSSOB(IBSM,IBTP) 1084 NOCTPB = NOCTYP(IBTP) [all …]
|
H A D | par_solver.F | 75 IBTP = 2 78 NOCTPB = NOCTYP(IBTP) 81 IOCTPB = IBSPGPFTP(IBTP) 84 NBEL = NELEC(IBTP) 105 & WORK(KNSTSO(IBTP)),NOCTPA,NOCTPB,NSMST,LBLOCK, 132 IOCTPB = IBSPGPFTP(IBTP) 154 & WORK(KNSTSO(IBTP)), 246 IBTP = ISBLOCK(2,JSBLOCK) 250 NIB = NSSOB(IBSM,IBTP) 260 & (ICONSPB(IBTP,LLBTP).LE.MXEXC.AND. [all …]
|
H A D | transform.F | 503 IBTP = 2 505 NBEL = NELEC(IBTP) 529 & WORK(KNSTSO(IATP)),WORK(KNSTSO(IBTP)), 612 IBTP = IBLOCK(2,JBLOCK) 618 WRITE(lupri,*) ' IATP IBTP IASM IBSM ', IATP,IBTP,IASM,IBSM 660 CALL GETSTR_TOTSM_SPGP(2,IBTP,IBSM,NBEL,NBSTR1,IBSTR, 683 NIB = NSSOB(IBSM,IBTP) 718 IF(IRESTR.EQ.1.AND.IATP.EQ.IBTP) THEN
|
/dports/science/nwchem-data/nwchem-7.0.2-release/src/lucia/ |
H A D | gasdir2.F | 960 IBTP = 2 3011 IBTP = 2 3090 IBTP = 2 3289 IBTP = 2 3442 IBTP = 2 4892 MAXB0 = IMNMX(int_mb(KNSTSO(IBTP)),NSMST*NOCTYP(IBTP),2) 5916 IBTP = 2 6089 IBTP = 2 6304 IBTP = 2 8183 IBTP = 2 [all …]
|
H A D | luciaw.F | 48 IBTP = 2 51 NBEL = NELEC(IBTP) 54 NOCTPB = NOCTYP(IBTP) 57 IOCTPB = IBSPGPFTP(IBTP) 346 IBTP = 2 349 NBEL = NELEC(IBTP) 352 NOCTPB = NOCTYP(IBTP) 561 IBTP = 2 564 NBEL = NELEC(IBTP) 764 IBTP = 2 [all …]
|
H A D | densi2_ab.F | 97 IBTP = 2 109 NOCTPB = NOCTYP(IBTP) 112 IOCTPB = IBSPGPFTP(IBTP) 115 NBEL = NELEC(IBTP) 133 MAXB0 = IMNMX(WORK(KNSTSO(IBTP)),NSMST*NOCTYP(IBTP),2) 314 & WORK(KNSTSO(IBTP)),WORK(KISTSO(IBTP)), 520 IBTP = IBLOCKL(2,IL) 556 IBTP = IBLOCKL(2,IL) 610 IBTP = IBLOCKL(2,IL) 616 NIB = NSSOB(IBSM,IBTP) [all …]
|
H A D | testcase-O3.output | 1136 ZTEST: IATP, IBTP = 1 2 1148 ZTEST: IATP, IBTP = 1 2 1190 ZTEST: IATP, IBTP = 1 2 1204 ZTEST: IATP, IBTP = 1 2 1351 ZTEST: IATP, IBTP = 1 2 1365 ZTEST: IATP, IBTP = 1 2 1512 ZTEST: IATP, IBTP = 1 2 1526 ZTEST: IATP, IBTP = 1 2 1673 ZTEST: IATP, IBTP = 1 2 1687 ZTEST: IATP, IBTP = 1 2 [all …]
|
H A D | gasdir2.F_vog0514 | 96 C & (IBTP.EQ.18.AND.JBTP.EQ.4.OR.IBTP.EQ.4.AND.JBTP.EQ.18)) THEN 105 WRITE(6,*) ' IATP IBTP JATP JBTP ',IATP,IBTP,JATP,JBTP 943 IBTP = 2 1288 C? WRITE(6,*) ' ISPC IATP IBTP ', ISPC,IATP,IBTP 2994 IBTP = 2 3073 IBTP = 2 3272 IBTP = 2 3425 IBTP = 2 4688 C? & ' RFTTS : IATP IBTP IASM IBSM ',IATP,IBTP,IASM,IBSM 6064 IBTP = 2 [all …]
|
H A D | lucia1.F | 1576 IBTP = IBSTFI(INTSPC) 1585 NOCTPB = NOCTYP(IBTP) 1590 & WORK(KEL3(IATP)),WORK(KEL1(IBTP)),WORK(KEL3(IBTP)), 2522 KBTP = IBTP 2533 KBTP = IBTP 2547 KATP = IBTP 2562 KATP = IBTP 2610 & IASM,IBSM,IATP,IBTP 2955 IBTP = IBSTFI(INTSPC) 2957 NOCTPB = NOCTYP(IBTP) [all …]
|
H A D | lucia_gencc2.F | 92 IBTP = 2 95 NBEL = NELEC(IBTP) 206 IBTP = 2 207 IOCTPB = IBSPGPFTP(IBTP) 208 NOCTPB = NSPGPFTP(IBTP) 412 IBTP = 2 415 NBEL = NELEC(IBTP) 535 NOCTPB = NOCTYP(IBTP) 561 & WORK(KNSTSO(IBTP)), 1405 SUBROUTINE CIBLOCKS_FOR_TT(ICIBLK,NCIBLK,IATP,IBTP,IFORM,ITTBLK) argument [all …]
|
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/lucia/ |
H A D | gasdir2.F | 960 IBTP = 2 3011 IBTP = 2 3090 IBTP = 2 3289 IBTP = 2 3442 IBTP = 2 4892 MAXB0 = IMNMX(int_mb(KNSTSO(IBTP)),NSMST*NOCTYP(IBTP),2) 5916 IBTP = 2 6089 IBTP = 2 6304 IBTP = 2 8183 IBTP = 2 [all …]
|
H A D | luciaw.F | 48 IBTP = 2 51 NBEL = NELEC(IBTP) 54 NOCTPB = NOCTYP(IBTP) 57 IOCTPB = IBSPGPFTP(IBTP) 346 IBTP = 2 349 NBEL = NELEC(IBTP) 352 NOCTPB = NOCTYP(IBTP) 561 IBTP = 2 564 NBEL = NELEC(IBTP) 764 IBTP = 2 [all …]
|
H A D | densi2_ab.F | 97 IBTP = 2 109 NOCTPB = NOCTYP(IBTP) 112 IOCTPB = IBSPGPFTP(IBTP) 115 NBEL = NELEC(IBTP) 133 MAXB0 = IMNMX(WORK(KNSTSO(IBTP)),NSMST*NOCTYP(IBTP),2) 314 & WORK(KNSTSO(IBTP)),WORK(KISTSO(IBTP)), 520 IBTP = IBLOCKL(2,IL) 556 IBTP = IBLOCKL(2,IL) 610 IBTP = IBLOCKL(2,IL) 616 NIB = NSSOB(IBSM,IBTP) [all …]
|
H A D | testcase-O3.output | 1136 ZTEST: IATP, IBTP = 1 2 1148 ZTEST: IATP, IBTP = 1 2 1190 ZTEST: IATP, IBTP = 1 2 1204 ZTEST: IATP, IBTP = 1 2 1351 ZTEST: IATP, IBTP = 1 2 1365 ZTEST: IATP, IBTP = 1 2 1512 ZTEST: IATP, IBTP = 1 2 1526 ZTEST: IATP, IBTP = 1 2 1673 ZTEST: IATP, IBTP = 1 2 1687 ZTEST: IATP, IBTP = 1 2 [all …]
|
H A D | gasdir2.F_vog0514 | 96 C & (IBTP.EQ.18.AND.JBTP.EQ.4.OR.IBTP.EQ.4.AND.JBTP.EQ.18)) THEN 105 WRITE(6,*) ' IATP IBTP JATP JBTP ',IATP,IBTP,JATP,JBTP 943 IBTP = 2 1288 C? WRITE(6,*) ' ISPC IATP IBTP ', ISPC,IATP,IBTP 2994 IBTP = 2 3073 IBTP = 2 3272 IBTP = 2 3425 IBTP = 2 4688 C? & ' RFTTS : IATP IBTP IASM IBSM ',IATP,IBTP,IASM,IBSM 6064 IBTP = 2 [all …]
|
H A D | lucia1.F | 1576 IBTP = IBSTFI(INTSPC) 1585 NOCTPB = NOCTYP(IBTP) 1590 & WORK(KEL3(IATP)),WORK(KEL1(IBTP)),WORK(KEL3(IBTP)), 2522 KBTP = IBTP 2533 KBTP = IBTP 2547 KATP = IBTP 2562 KATP = IBTP 2610 & IASM,IBSM,IATP,IBTP 2955 IBTP = IBSTFI(INTSPC) 2957 NOCTPB = NOCTYP(IBTP) [all …]
|
H A D | lucia_gencc2.F | 92 IBTP = 2 95 NBEL = NELEC(IBTP) 206 IBTP = 2 207 IOCTPB = IBSPGPFTP(IBTP) 208 NOCTPB = NSPGPFTP(IBTP) 412 IBTP = 2 415 NBEL = NELEC(IBTP) 535 NOCTPB = NOCTYP(IBTP) 561 & WORK(KNSTSO(IBTP)), 1405 SUBROUTINE CIBLOCKS_FOR_TT(ICIBLK,NCIBLK,IATP,IBTP,IFORM,ITTBLK) argument [all …]
|
/dports/misc/libemos/libemos-4.5.9-Source/bufrdc_wmo/ |
H A D | bugetbm.F | 142 IBTP=NBITP (I-1) 144 IBTP=IBTP+NWTDW(I-1) 145 IF(IBTP.GE.NBPW) THEN 146 IW=IBTP/NBPW 147 IBTP=IBTP-IW*NBPW 150 CALL BUNPCK(NBPW,KBUFF,IDWINC,IWRD,IBTP,6,KERR)
|
H A D | buuatb.F | 243 IBTP=IBITP 251 IBTP=IBTP+NWTDW(I-1) 252 IF(IBTP.GE.NBPW) THEN 253 IW=IBTP/NBPW 254 IBTP=IBTP-IW*NBPW 258 CALL BUNPCK(NBPW,KBUFF,IDWINC,IWRD,IBTP,6,KERR)
|
H A D | busrp.F | 290 IBTP=IBITP 298 IBTP=IBTP+NWTDW(I-1) 299 IF(IBTP.GE.NBPW) THEN 300 IW=IBTP/NBPW 301 IBTP=IBTP-IW*NBPW 305 CALL BUNPCK(NBPW,KBUFF,IDWINC,IWRD,IBTP,6,KERR)
|
/dports/science/dalton/dalton-66052b3af5ea7225e31178bf9a8b031913c72190/DALTON/sirius/ |
H A D | dets1.F | 127 DO 900 IBTP = 1,NOCTPB 128 IF(IOCOC(IATP,IBTP) .NE. 1 ) GOTO 900 129 IBSTRT = ISSOB(IBTP,IBSM) 130 IBSTOP = IBSTRT + NSSOB(IBTP,IBSM)-1 184 DO 1900 IBTP = 1, NOCTPB 185 IF( IOCOC(IATP,IBTP) .NE. 1 ) GOTO 1900 186 NB = NSSOB(IBTP,IBSM) 188 IOFF1 = ICOOS(IBTP,IATP,IASM) 189 IOFF2 = ICOOS(IATP,IBTP,IBSM) 190 IF(IATP .EQ. IBTP ) THEN
|
H A D | csfstuff.F | 786 IBTP = ITPFSB(IBNUM) 3433 DO 1801 IBTP = 1, NOCTPB 3440 MNIATP = IBTP 3635 DO 4700 IBTP = 1, IATP 3698 DO 7645 IBTP = 1,IBTPMX 3836 IATPMN = IBTP 3839 IATPMN = IBTP 4017 DO 6700 IBTP = 1, IATP 5451 DO 100 IBTP = 1, NOCTPB 5455 NDTPBL(IATP,IBTP) = NSOA(IATP)*NSOB(IBTP) [all …]
|
/dports/science/dalton/dalton-66052b3af5ea7225e31178bf9a8b031913c72190/DALTON/gp/ |
H A D | gplucia.F | 1821 IF(IATP.GT.IBTP) THEN 1876 IF(IBTP.GT.IATP) THEN 3102 IB = IBTP 3118 IBTP = IB 3315 KBTP = IBTP 3326 KBTP = IBTP 3340 KATP = IBTP 3355 KATP = IBTP 3403 & IASM,IBSM,IATP,IBTP 3551 NIB = NSBSO(IBSM,IBTP) [all …]
|