*COMDECK ALGETJCA 
      SUBROUTINE GETJCA 
C 
C 
C        THIS ROUTINE READS THE JOB COMMUNICATIONS AREA INTO THE JCA
C        ARRAY IN COMMON. 
C 
C 
C 
C 
C 
*CALL ALCOMMON
C 
C        GET A SUBSCRIPT OF N WHICH WILL POINT TO LOCATION ZERO.
C 
      SUBSCR = LOCF(JCA)
C 
C        MOVE THE COMMUNICATIONS AREA TO COMMON 
C 
      DO 10 I=1,64
   10 JCA(I) = JCA(I-SUBSCR)
      RETURN
      END 
C 
C 
