1       PARAMETER ( MXTPOP = MAXLBL , MBTPFR = MAXLBL)
2       LOGICAL TPAMP,TPALP,ATPOP,BTPOP
3       CHARACTER*8 ATPLB,BTPLB
4       COMMON /INFTPA/ BTPFR(MBTPFR), NATPOP(8),
5      *                NBTPOP(8), NTPCN1(8), NTPCN2(8),
6      *                ATPOP(MXTPOP), BTPOP(MXTPOP),
7      *                TPAMP,TPALP,IPRTPA,NBTPFR
8       COMMON /CHRTPA/ ATPLB(8,MXTPOP),BTPLB(8,MXTPOP)
9