/dports/graphics/dataplot/dataplot-2c1b27601a3b7523449de612613eadeead9a8f70/src/ |
H A D | dp4.F | 22059 TEMPZ(ICNT)=TEMPZ(I) 22081 TEMPZ(ICNT)=TEMPZ(I) 27588 IF(TEMPZ(I).LT.AMNSD)AMNSD=TEMPZ(I) 27589 IF(TEMPZ(I).GT.AMXSD)AMXSD=TEMPZ(I) 28120 IF(TEMPZ(I).LT.AMNSD)AMNSD=TEMPZ(I) 28121 IF(TEMPZ(I).GT.AMXSD)AMXSD=TEMPZ(I) 29872 TEMPZ(ICNT)=TEMPZ(I) 29894 TEMPZ(ICNT)=TEMPZ(I) 34815 IF(TEMPZ(I).LT.AMNSD)AMNSD=TEMPZ(I) 34816 IF(TEMPZ(I).GT.AMXSD)AMXSD=TEMPZ(I) [all …]
|
H A D | dp15.F | 10900 DIMENSION TEMPZ(*) 10986 IF(IXVAR.EQ.'ON')TEMPZ(K)=Z(I) 11306 DIMENSION TEMPZ(*) 11396 IF(IXVAR.EQ.'ON')TEMPZ(K)=Z(I) 11429 1 TEMP,TEMPZ,TEMPZ,XTEMP1,XTEMP2,XTEMP3, 11758 DIMENSION TEMPZ(*) 11845 IF(IXVAR.EQ.'ON')TEMPZ(K)=Z(I) 12172 DIMENSION TEMPZ(*) 12278 IF(IXVAR.EQ.'ON')TEMPZ(K)=Z(I) 12607 DIMENSION TEMPZ(*) [all …]
|
H A D | dp17.F | 189 DIMENSION TEMPZ(MAXOBV) 1014 TEMPZ(ICNT)=Y2(L) 1411 DIMENSION TEMPZ(*) 1677 TEMPZ(K)=YZ(I) 1704 TEMPZ(K2)=YZ(I) 6948 DIMENSION TEMPZ(*) 7052 CALL CMPSTA(TEMP,TEMPZ,TEMPZ,XTEMP1,XTEMP2,XTEMP3, 15742 DIMENSION TEMPZ(*) 16197 TEMPZ(IROW)=XSD 16243 TEMPZ(IJ)=TEMPZ(IJ) + AFACT*XTEMP1(IJ) [all …]
|
H A D | dp11.F | 22544 DIMENSION TEMPZ(*) 22722 TEMPZ(K)=Z(I) 22783 TEMPZ(I)=Z(I) 22875 DIMENSION TEMPZ(*) 23694 DIMENSION TEMPZ(*) 24144 DIMENSION TEMPZ(*) 24795 DIMENSION TEMPZ(*) 25449 DIMENSION TEMPZ(*) 26127 DIMENSION TEMPZ(*) 26837 DIMENSION TEMPZ(*) [all …]
|
H A D | dp30.F | 7616 DIMENSION TEMPZ(*) 7671 TEMPZ(K)=0.0 7674 IF(ISTANR.GE.2)TEMPZ(K)=Z(I) 9946 DIMENSION TEMPZ(*) 10005 TEMPZ(K)=0.0 10008 IF(ISTANR.GE.2)TEMPZ(K)=Z(I) 10277 DIMENSION TEMPZ(*) 10338 TEMPZ(K)=0.0 10341 IF(ISTANR.GE.2)TEMPZ(K)=Z(I) 10531 DIMENSION TEMPZ(*) [all …]
|
H A D | dp29.F | 728 1 TEMP,TEMPZ,TEMPZ2,XIDTEM,TAG, 839 DIMENSION TEMPZ(*) 1132 TEMPZ(K)=Z(I,NV1) 1135 TEMPZ(K)=Z(I,NV1+1) 1138 TEMPZ(K)=Z(I,NV1+1) 1170 TEMPZ(I)=Z(I,NV1) 1173 TEMPZ(I)=Z(I,NV1+1) 1176 TEMPZ(I)=Z(I,NV1+1) 1314 TEMPZ(K)=Z(I,NV1) 1317 TEMPZ(K)=Z(I,NV1+1) [all …]
|
H A D | dp22.F | 6044 SUBROUTINE DPPOTA(Y1,YSTAT,TEMPZ,MAXNXT, argument 6107 DIMENSION TEMPZ(*) 6293 1 TEMPZ,XROW,XCOL,XTEMP1,XTEMP2,XTEMP3, 6322 1 TEMPZ,XROW,XCOL,XTEMP1,XTEMP2,XTEMP3, 6379 DIMENSION TEMPZ(*) 6537 CALL CMPSTA(Y,TEMPZ,TEMPZ,XTEMP1,XTEMP2,XTEMP3,
|
H A D | dp21.F | 1450 1 TEMP,TEMPZ,TEMPZ2,XIDTEM,YOUT, 1506 DIMENSION TEMPZ(*) 1680 TEMPZ(I)=Y2(I) 1690 TEMPZ(K)=Y2(I) 1725 CALL MOVSTA(TEMP,TEMPZ,TEMPZ2,NS2,ISTANR,ICASS7,MAXOBV, 1738 CALL CMPSTA(TEMP,TEMPZ,TEMPZ2,XTEMP1,XTEMP2,XTEMP3,MAXOBV, 1751 CALL CUMSTA(TEMP,TEMPZ,TEMPZ2,NS2,ISTANR,ICASS7,MAXOBV, 1771 CALL WINSTA(TEMP,TEMPZ,TEMPZ2,NS2,ISTANR,ICASS7,MAXOBV,
|
H A D | dp9.F | 19021 1 TAG9,DTAG9,TEMP,TEMPZ,TEMPZ2, 19095 DIMENSION TEMPZ(*) 19222 1 TEMP,TEMPZ,TEMPZ2,XTEMP1,XTEMP2,XTEMP3,MAXNXT,
|
H A D | dp42.F | 12809 1 AIINDX,TEMPX,TEMPY,TEMPD,TEMPZ, 12856 REAL TEMPZ(*) 13001 CALL SORTI(TEMPD,N1,TEMPZ,AIINDX)
|
/dports/science/dalton/dalton-66052b3af5ea7225e31178bf9a8b031913c72190/DALTON/abacus/ |
H A D | herqm3.F | 1935 TEMPZ = D0 1972 TEMPZ = TEMPZ + 2032 TEMPZ = TEMPZ + 2450 TEMPZ = D0 2482 TEMPZ = TEMPZ + 2502 TEMPZ = D0 2533 TEMPZ = TEMPZ + 2705 TEMPZ = 0.0D0 2715 TEMPZ = TEMPZ + CORD(3,K)*CHARGE(K) 3920 TEMPZ = D0 [all …]
|
/dports/astro/py-ephem/ephem-4.1.3/libastro/ |
H A D | satmoon.c | 215 double TRIP,GAM,TEMPX,TEMPY,TEMPZ; in bruton_saturn() local 359 TEMPZ = -1 * SMA[8] * COS(U[8]) / RS; in bruton_saturn() 362 Z[8] = TEMPZ * COS(GAM) + TEMPY * SIN(GAM); in bruton_saturn()
|
/dports/science/dalton/dalton-66052b3af5ea7225e31178bf9a8b031913c72190/DALTON/srdft/ |
H A D | srdft.F | 2648 TEMPZ = D0 2654 TEMPZ = TEMPZ + DVKX*V2C_SR(L,IX) 2657 EVEC(KZCONF+IG) = EVEC(KZCONF+IG) + TEMPZ 2664 TEMPZ = D0 2670 TEMPZ = TEMPZ + DVXL*V2C_SR(IX,K) 2673 EVEC(KZCONF+IG) = EVEC(KZCONF+IG) - TEMPZ
|