Searched refs:ISIGN1 (Results 1 – 7 of 7) sorted by relevance
| /dports/graphics/dataplot/dataplot-2c1b27601a3b7523449de612613eadeead9a8f70/src/ |
| H A D | dp6.F | 8484 CHARACTER*4 ISIGN1 local
8536 ISIGN1='NULL'
8982 ISIGN1=IFUNZ1(I1)
8988 ISIGN1='+ '
9228 IF(ISIGN1.EQ.'- '.AND.ISIGN2.EQ.' ')I2=I2+1
9229 IF(ISIGN1.EQ.'- '.AND.ISIGN2.EQ.' ')IDERZ1(I2)='- '
9230 IF(ISIGN1.EQ.'- '.AND.ISIGN2.EQ.' ')IDERZ2(I2)=' '
9294 IF(ISIGN1.EQ.'- '.AND.ISIGN2.EQ.' ')I2=I2+1
9295 IF(ISIGN1.EQ.'- '.AND.ISIGN2.EQ.' ')IDERZ1(I2)='- '
9296 IF(ISIGN1.EQ.'- '.AND.ISIGN2.EQ.' ')IDERZ2(I2)=' '
[all …]
|
| H A D | dp12.F | 8807 CHARACTER*8 ISIGN1
8984 ISIGN1='negative'
8988 ISIGN1='positive'
9168 WRITE(ITEXT(ICNT)(5:12),'(A8)')ISIGN1
|
| H A D | dp11.F | 5010 CHARACTER*8 ISIGN1
5208 ISIGN1='negative'
5212 ISIGN1='positive'
5396 WRITE(ITEXT(ICNT)(5:12),'(A8)')ISIGN1
|
| /dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/lucia/ |
| H A D | lucia_gencc3.F | 6685 ISIGN1 = IPERM_PARITY(IEXD1D2_INDX,NHOP)
6784 & WORK(KLZ),WORK(KLZSCR),WORK(KLSTREO),ISIGN1,FACX,
6787 ISIGN1 = ISIGN1*(-1)**(NCONT2*NCONT1)
6810 & WORK(KLZ),WORK(KLZSCR),WORK(KLSTREO),ISIGN1,FACX,
|
| H A D | lucia_gencc5.F | 3090 & T1,T2,HT1T2,IT1SM,IT2SM,IHSM,ISIGN1,FACX)
3161 & WORK(KLZ),WORK(KLZSCR),WORK(KLSTREO),ISIGN1,FACX,
|
| /dports/science/nwchem-data/nwchem-7.0.2-release/src/lucia/ |
| H A D | lucia_gencc3.F | 6685 ISIGN1 = IPERM_PARITY(IEXD1D2_INDX,NHOP)
6784 & WORK(KLZ),WORK(KLZSCR),WORK(KLSTREO),ISIGN1,FACX,
6787 ISIGN1 = ISIGN1*(-1)**(NCONT2*NCONT1)
6810 & WORK(KLZ),WORK(KLZSCR),WORK(KLSTREO),ISIGN1,FACX,
|
| H A D | lucia_gencc5.F | 3090 & T1,T2,HT1T2,IT1SM,IT2SM,IHSM,ISIGN1,FACX)
3161 & WORK(KLZ),WORK(KLZSCR),WORK(KLSTREO),ISIGN1,FACX,
|