*DECK  GETFIT 
          IDENT  T8.GTFT
          ENTRY  T8.GTFT
          SPACE  4
* 
**    GETFIT - SUBROUTINE TO FORCE LOAD OF FORTRAN ROUTINE "GETFIT."
* 
*         THIS ROUTINE IS NOT A CAPSULE - IT MUST PRESERVE THE LDSET
* 
          SPACE  4
          LDSET  LIB=FORTRAN
 T8.GTFT  VFD    60/=XGETFIT. 
          END 
