*-- Author : Girish D. Patel 02/02/94
SUBROUTINE FHTMAP
*
* Copy the hit map, used hit map and unused hit map for radials
* and planars to the FTDMON area and sum over all runs.
*
DIMENSION ST40(32,36)
DIMENSION ST41(32,36)
DIMENSION ST42(32,36)
DIMENSION ST50(48,36)
DIMENSION ST51(48,36)
DIMENSION ST52(24,36)
DIMENSION ITRAN(0:47)
DATA ITRAN/0,1,8,9,2,3,10,11,4,5,12,13,6,7,14,15,8,9,16,17,10,11,
& 18,19,12,13,20,21,14,15,22,23,16,17,0,1,18,19,2,3,20,21,4,5,22,
& 23,6,7/
*
CALL SAREA('FTREC',0)
CALL TAREA('FTDMON',0)
CALL COPYFG(71,71,IER)
CALL COPYFG(72,72,IER)
CALL COPYFG(73,73,IER)
CALL COPYFG(74,74,IER)
CALL DTAREA
CALL SAREA('FTDSGI',0)
CALL TAREA('FTDMON',0)
CALL COPYFG(19501,80,IER)
CALL COPYFG(19511,81,IER)
CALL DTAREA
CALL SAREA('FTDMON',0)
LEN = 32*36
CALL FDATA('HD',80,0,0,NR,ST40,LEN)
CALL FDATA('HD',71,0,0,NR,ST41,LEN)
CALL FDATA('HD',73,0,0,NR,ST42,LEN)
DO 20 NY = 1 , 36
DO 10 NX = 1 , 32
CALL SHDW (40,0,FLOAT(NX)-0.5,FLOAT(NY)-0.5,ST40(NX,NY))
CALL SHDW (41,0,FLOAT(NX)-0.5,FLOAT(NY)-0.5,ST41(NX,NY))
CALL SHDW (42,0,FLOAT(NX)-0.5,FLOAT(NY)-0.5,ST42(NX,NY))
10 CONTINUE
20 CONTINUE
LEN = 48*36
CALL FDATA('HD',81,0,0,NR,ST50,LEN)
CALL FDATA('HD',72,0,0,NR,ST51,LEN)
LEN = 24*36
CALL FDATA('HD',74,0,0,NR,ST52,LEN)
DO 40 NY = 1 , 36
DO 30 NX = 1 , 24
CALL SHDW (50,0,FLOAT(NX)-0.5,FLOAT(NY)-0.5,ST50(NX*2-1,NY))
CALL SHDW (50,0,FLOAT(NX)-0.5,FLOAT(NY)-0.5,ST50(NX*2,NY))
CALL SHDW (52,0,FLOAT(NX)-0.5,FLOAT(NY)-0.5,ST52(NX,NY))
30 CONTINUE
40 CONTINUE
DO 60 NY = 1 , 36
DO 50 NX = 1 , 48
NEWX = ITRAN(NX-1)+1
CALL SHDW (51,0,FLOAT(NEWX)-0.5,FLOAT(NY)-0.5,ST51(NX,NY))
50 CONTINUE
60 CONTINUE
CALL PURGEF(80)
CALL PURGEF(81)
CALL PURGEF(71)
CALL PURGEF(72)
CALL PURGEF(73)
CALL PURGEF(74)
RETURN
END