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