Z:\sl\eng\cf\getfu.f.html

    c==============================GETFU.FOR================================
    c
    C   GETFU:      GIVEN IND THE FUNDAMENTAL UNIT POWERS ARE RETRIEVED FROM
    C               TFU.
    C   VP:         RESULT
    C   TFUP:       TABLE OF FUND. POWERS                          /DEE 1-89

          SUBROUTINE GETFU(VP, IND, POWER, TFUP)
          INTEGER VP(8), IND, TFUP(120,8), POWER

          DO 10, J=1,8
          VP(J)=TFUP(IND,J)*POWER
     10   CONTINUE
          RETURN
          END