*-- Author : Stephen J. Maxfield 04/09/92 SUBROUTINE FTKRAN *KEEP,BCS. *KEEP,BOSMDL. C ------BOSMDL C ------ *KEEP,STFUNCT. * index of element before row number IROW * index of L'th element of row number IROW * L'th integer element of the IROW'th row of bank with index IND * L'th real element of the IROW'th row of bank with index IND *KEND. INDTKR = NLINK('FTKR',0) CALL SHD(900, 0, X, Y) CALL SHD(901, 0, Z, Y) *