Searched refs:XDIGI (Results 1 – 2 of 2) sorted by relevance
19147 DIMENSION XDIGI(*)19194 XDIGI(NDIGI)=1.019197 XDIGI(NDIGI)=2.019200 XDIGI(NDIGI)=3.019203 XDIGI(NDIGI)=4.019206 XDIGI(NDIGI)=5.019209 XDIGI(NDIGI)=6.019212 XDIGI(NDIGI)=7.019215 XDIGI(NDIGI)=8.019218 XDIGI(NDIGI)=9.0[all …]
6449 SUBROUTINE COMDIG(X,N,IWRITE,XDIGI,NDIGI,IBUGA3,IERROR) argument6575 XDIGI=ABS(HOLD)-REAL(INT(ABS(HOLD)))6587 XDIGI=0.06606 XDIGI=0.06625 XDIGI=REAL(INT(X(1)))*(10**NDIGI)6628 XDIGI=XDIGI + ATEMP6630 XDIGI=XDIGI/(10**NDIGI)6648 WRITE(ICOUT,813)XDIGI6671 WRITE(ICOUT,9015)NDIGI,XDIGI