1      SUBROUTINE PRCSID
2C
3C     -----CENTER AND PRINT CASE IDENTIFICATION.
4C
5      DIMENSION IPR(132)
6      LOGICAL LDM,HEAD,LDM2
7      COMMON /FLOLOG/ LDM(10),HEAD,LDM2(14)
8      COMMON /CASEID/ IDCSE(74)
9      DATA IBLNK /4H    /
10C
11C     ----RETURN IF NO CASE ID CARD.
12C
13      IF(.NOT.HEAD)RETURN
14      KB=0
15      DO 1000 I=1,74
16         IPR(I)=IBLNK
17         IF(IDCSE(I).EQ.IBLNK)GO TO 1000
18         KB=KB+1
19         IF(KB.EQ.1)IFB=I
20         ILB=I
21 1000 CONTINUE
22      IF(KB.EQ.0) GO TO 1020
23C
24C     ----CENTER ON PAGE
25C
26      ICNT=(ILB-IFB+1)/2
27      IF=65-ICNT
28      K=0
29      DO 1010 I=IFB,ILB
30         IPR(IF+K)=IDCSE(I)
31 1010 K=K+1
32      NP=IF+K-1
33 1015 WRITE(6,1030)(IPR(I),I=1,NP)
34 1020 RETURN
35 1030 FORMAT(1X,132A1)
36      END
37