.IFNINS F4P .GOTO 100
F4P IDXGEN=IDXGEN
.GOTO 1000
.100:
.IFNINS F77 .GOTO 200
F77 IDXGEN=IDXGEN
.GOTO 1000
.200:
.IFNINS FOR .GO TO 300
FOR IDXGEN=IDXGEN
.GOTO 1000
.300:
.IFNINS FTN .GOTO 400
FTN IDXGEN=IDXGEN
.GOTO 1000
.400:
;UNABLE TO FIND FORTRAN COMPILER-PLEASE EDIT THIS FILE TO FIX SITUATION
/
.1000:
.IFNINS FTB .GOTO 400
FTB IDXGEN=IDXGEN
.GOTO 500
.400:
TKB IDXGEN=IDXGEN
.500:
PIP IDXGEN.OBJ;*/DE
PIP COPY.CMD;*/DE
PIP REPLACE.CMD;*/DE
PIP IDXCND.MAC;*/DE
.XQT RUN IDXGEN/TASK=IDXGEN
