*-- Author : R. Henderson
SUBROUTINE FPIPRT
C
C--- Routine prints out planars digitizings found in Ians new
C--- simulation code
C
*KEEP,FPPRAM.
C
C--- MAXSEG is maximum number of segments per supermodule
C--- MAXCON is maximum number of amibiguous segments associatable with
C--- one segment
C--- LIMSTO is maximum number of 2 cluster planes intersections to be
C--- stored per supermodule
C--- MSEGLM is maximum number of clusters that can be found before
C--- connectivity considered
C--- MAXCLU is maximum number of clusters that can be found after
C--- forming non-connected set MUST BE 50 IF RUN WITH OLD RCW
C--- (cluster = 3/4 digits found in a straight line in one
C--- 4-wire orientation)
C
PARAMETER (MAXSEG = 200)
PARAMETER (MAXCON = 100)
PARAMETER (LIMSTO = 5000)
PARAMETER (MSEGLM = 150)
PARAMETER (MAXCLU = 50)
C---
*KEND.
C---
*KEEP,FPLSEG.
C---
COMMON /FPLSEG / PW(12,MAXSEG,3) , PWC(12,MAXSEG,3) ,
1 PRCHI(MAXSEG,3) , NFSEG(3) ,
2 XYDXY(4,MAXSEG,3) , EXYDXY(4,4,MAXSEG,3) ,
3 ZSEG(2,MAXSEG,3) ,
4 ASEGIN(MAXSEG,3) , ISEGIN(5,MAXSEG,3) ,
5 MASKSG(MAXSEG,3) , IDGISG(12,MAXSEG,3)
C---
*KEND.
C---
*KEEP,FPCLUS.
COMMON /FPCLUS/ TC(3,9,MAXCLU) , NTC(9) , TOC(3,9,MAXCLU) ,
2 TCYUV(4,9,MAXCLU), TCYUVW(4,9,MAXCLU)
C---
*KEND.
C---
*KEEP,FPH1WRK.
PARAMETER (MAXHTS=200)
PARAMETER (NUMWPL=36)
PARAMETER (MAXTRK=200)
PARAMETER (MXTTRK=900)
PARAMETER (MAXTR3=200)
PARAMETER (MAXHPW=2)
PARAMETER (MAXDIG=2000)
PARAMETER (NUMRWR=1727)
PARAMETER (NUMPWR=1151)
LOGICAL DRMASK
COMMON /H1WORK/
C-- *KEEP,FPCSEG.
C---
3 TPNORM(3,9,MAXCLU), PCONST(9,MAXCLU) ,
4 SMLS(4,2,LIMSTO,3) ,
C---
C-- *KEEP,FPDIGI.
5 DRSTO(MSEGLM,4),NDRSTO(4),
6 IDIGST(4,MSEGLM),
7 SEGTAB(MSEGLM,MSEGLM),DRMASK(MSEGLM,4),
8 IDCELL(MSEGLM,4),
9 NSGTAB(MSEGLM),ASGTAB(MSEGLM),
A RESSTO(MSEGLM,4) ,
C---
C-- *KEEP,FPDGI.
B IDGIST(MSEGLM,4),IDGISM(4,9,MAXCLU)
C ,RCHI(MAXSEG,3) ,
C---
C-- *KEEP,FPSTID.
D IDRSTO(MSEGLM,4),IDYUV(4,9,MSEGLM),
E IDYUVS(12,MAXSEG,3),FREQ(MSEGLM+1) ,
C---
C-- *interface to real data
F NDPW(NUMWPL),DW(MAXHTS,NUMWPL),DWG(MAXHTS,NUMWPL),
G DRIWP(MAXHTS,NUMWPL),DRIWM(MAXHTS,NUMWPL),
G DRIW(MAXHTS,NUMWPL),IPHOLE(MAXHTS,NUMWPL),
H IPFRPE(MAXHTS,36), IPPIOS(MAXDIG,2)
C---.
*KEND.
C---
*KEEP,FPPRNT.
COMMON/FPPRNT/IPRINT
C---
*KEND.
C---
DO 10 IM=1,3
IF(IM.GT.IPRINT)GOTO10
C WRITE(*,*)' IM #SEGS ',IM,NFSEG(IM)
KKK=0
DO 30 LL=1,150
NS=NFSEG(IM)
C WRITE(*,*)' MODULE ,# SEGS ',IM,NS
IF(NS.EQ.0)GOTO10
DO 20 IS=1,NS
IF(IS.GT.MAXSEG)GOTO20
IF(MASKSG(IS,IM).LT.0)GOTO20
IF(LL.EQ.IABS(IDGISG(1,IS,IM)))THEN
C TO ORDER ( IN A STUPID WAY)
C WRITE(*,*)' LINES ',IM,IS,PRCHI(IS,IM),(IDGISG(KK,IS,IM),KK=1,12)
C 1 ' MASK ',MASKSG(IS,IM)
XX=XYDXY(1,IS,IM)/10.
YY=XYDXY(2,IS,IM)/10.
IF(IPRINT.GT.0)THEN
KKK=KKK+1
PRINT1000,IM,IS,KKK,RCHI(IS,IM),XX,YY,(XYDXY(KK,IS,IM),KK=3,4),
1 (IDGISG(KK,IS,IM),KK=1,12),MASKSG(IS,IM)
ENDIF
ENDIF
20 CONTINUE
30 CONTINUE
10 CONTINUE
1000 FORMAT(' FIT ',3I4,2X,F6.1,' ',4F8.3,2X,4I3,1X,4I3,1X,4I3,I5)
C---
END
*