Searched refs:IUNITS (Results 1 – 5 of 5) sorted by relevance
394 CALL IUNITS ! file units.f
27 SUBROUTINE IUNITS subroutine
96 UNITS IUNITS ANGSTROM [ 0] ***
28531 IUNITS=IVAL28532 IF(IUNITS.LE.0)IUNITS=1028533 AMAIN(IUNITS)=COEF(I)28563 IUNITS=IVAL-ITERM28565 IF(IUNITS.LE.0)IUNITS=1028566 A(ITENS,IUNITS)=COEF(I)28567 A(IUNITS,ITENS)=COEF(I)
358 date.delta.Delta.IUNITS?7