.L .E.L ER AR-ER_-A__ BLUESNARFING
.H .R.H RT ST-RT_-S__ CHARLESTONED
.H .V.H VO RO-VO_-R__ CHIVALROUSLY
.O .P.O PA SA-PA_-S__ COMPENSATING
.O .P.O PI SI-PI_-S__ COMPULSIVELY
.O .T.O TE SE-TE_-S__ CONTRASEXUAL
.Y .E.Y ET AT-ET_-A__ CYBERNATIONS
.O .A.O AE NE-AE_-N__ DOPAMINERGIC
.D .L.D LA RA-LA_-R__ EDULCORATION
.X .L.X LI MI-LI_-M__ EXALBUMINOUS
.X .U.X UT AT-UT_-A__ EXPUGNATIONS
.R .G.R GT NT-GT_-N__ FRAGMENTISED
.R .G.R GT NT-GT_-N__ FRAGMENTIZED
.R .G.R GT NT-GT_-N__ FRAGMENTIZES
.U .E.U ET AT-ET_-A__ GUBERNATIONS
.Y .O.Y OE LE-OE_-L__ HYPOKALEMIAS
.I .C.I CW NW-CW_-N__ KITCHENWARES
.U .K.U KO GO-KO_-G__ LUCKENGOWANS
.A .F.A FT CT-FT_-C__ MALFUNCTIONS
.Y .G.Y GH PH-GH_-P__ MYOGRAPHICAL
.A .Q.A QL FL-QL_-F__ PASQUEFLOWER
.R .C.R CU SU-CU_-S__ PRECONSUMING
.Y .O.Y OH CH-OH_-C__ PYROTECHNIES
.U .D.U DH PH-DH_-P__ QUADRIPHONIC
.U .D.U DL PL-DL_-P__ QUADRIPLEGIC
.U .N.U NA CA-NA_-C__ QUINDECAPLET
.E .A.E AN ON-AN_-O__ RELATIONSHIP
.O .T.O TN RN-TN_-R__ SOUTHERNIZED
.P .A.P AE GE-AE_-G__ SPRACHGEFUHL
.U .A.U AR ER-AR_-E__ SUBALTERNITY
.H .N.H NB RB-NB_-R__ THUNDERBOXES
.Y .O.Y OP AP-OP_-A__ XYLOGRAPHERS
program pal
implicit none
character namein(3:15)*12,dd(15,50000)*1
integer i,j,k,ii,in,n(3:15),max
data namein
1 /'3n1292.txt','4n5454.txt','5n12478.txt','6n22157.txt',
2 '7n32909.txt','8n40161.txt','9n40727.txt','10n35529.txt',
3 '11n27893.txt','12n20297.txt','13n13857.txt','14n9116.txt',
4 '15n5757.txt'/
data n/1292,5454,12478,22157,32909,40161,
1 40727,35529,27893,20297,13857,9116,5757/
common /ddd/dd
call delold('palind_w.txt')
open(1,file='palind_w.txt',status='new')
do i=12,12
print*,' opening names ',namein(i)
open(2,file=namein(i),status='old')
do in=1,n(i)
read(2,98)(dd(ii,in),ii=1,i)
98 format(15a1)
do j=1,11
do k=j+1,12
if((j.ne.6.or.k.ne.11).and.
1 dd(j,in).eq.dd(k,in))go to 100
enddo
enddo
if (dd(6,in).eq.dd(11,in))print 99,
1 dd(2,in),dd(4,in),dd(2,in),dd(4,in),dd(8,in),
2 dd(7,in),dd(8,in),dd(4,in),dd(8,in),dd(7,in),
3 (dd(ii,in),ii=1,i)
99 format('.',a1,1x,'.',a1,'.',a1,x,2a1,x,2a1,'-',2a1,'_-',a1,'__',x,12a1)
100 continue
enddo
close(2)
enddo
end
computer soln
