FTN4,L
C 
C  ***************************************************************
C  * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1979.  ALL RIGHTS     *
C  * RESERVED.  NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED,      *
C  * REPRODUCED OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITHOUT*
C  * THE PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY.       *
C  ***************************************************************
C 
C     SOURCE PART NUMBER :92067-18396 
C 
C     RELOCATABLE PART NUMBER : 92067-16361 
C 
C     PROGRAMER(S)   : J.M.N. 
C 
C 
      SUBROUTINE ACLNK (ISEG,IGOTO) ,92067-16361 REV.1940 790214  
C 
C     ACLNKSCHEDULES A SEGMENT OR RETURNS TO
C          A SEGMENT WHICH IS ALREADY IN MEMORY.
C     IT ALSO SETS AN INDEX FOR A COMPUTED GO TO
C     WHICH EACH SEGMENT USES 
C 
C     CALLING SEQUENCE: 
C      COMMON /ACOM2/ LRTRN,LRTR2,LGOTO,ITYPE,ITTYT,LTOSEG,NAMSG(3) 
C     . . . 
C     . . . 
C     . . . 
C      ASSIGN 100 TO LRTRN
C      ASSIGN 200 TO LRTR2
C      CALL ACLNK (ISEG,IGOTO)
C  100              . . .  [NORMAL RETURN]
C     . . . 
C     . . . 
C     . . . 
C  200               . .   [ACERR RETURN] 
C 
C     WHERE  ISEG IS THE ASCII (1H  ) OF
C                 THE LAST CHARACTER OF 
C                 THE SEGMENT NAME. 
C           IGOTO IS THE INDEX TO BE USED 
C                 BY A COMPUTED GOTO IN THE 
C                 IN THE SEGMENT. 
C 
C 
      COMMON /ACOM2/ LRTRN,LRTR2,LGOTO,ITYPE,ITTYT,LTOSEG,NAMSG(3)
      LGOTO=IGOTO 
      IF(NAMSG(3).EQ.ISEG) GO TO LTOSEG 
      NAMSG(3)=ISEG 
      CALL SEGLD(NAMSG,IERR)
      CALL ACERR(IERR)
      CALL ACWRI(NAMSG,12)
      CALL EXEC(6)
      RETURN
      END 
                                                                                    