program extrcols5
C.......................................................Nov. 2020
C Include cols Wp, Dst, WU,WL,WE
C
	  dimension wp(0:23),dst(0:23),wu(0:23),wl(0:23),we(0:23)
	  character*25 infile1,infile2,infile3,infile4,infile5,outfile
	infile1='wp.dat'
	infile2='dst2023.dat'
      infile3='wu.dat'
	infile4='wl.dat'
	infile5='we.dat'
	open(11,file=infile1)
	open(12,file=infile2)
	open(13,file=infile3)
	open(14,file=infile4)
	open(15,file=infile5)
	outfile='wpdst.dat'
	open(10,file=outfile)
  30	format(1X,I3,1X,F5.1,1X,F6.1,3(1X,F6.2))
  31	format(24(1X,F4.1))		 !foF2
  33	format(24(1X,F4.2)) !WU, WL,WE	
C-  31	format(24(1X,F4.0))	   ! hmF2
  32	format(24(F4.0))
   
C
   	 kk=0
   40	read(11,31,end=51) (wp(k),k=0,23)
	read(12,*,end=51) (dst(k),k=0,23)
	read(13,33,end=51) (wu(k),k=0,23)
	read(14,33,end=51) (wl(k),k=0,23)
	read(15,33,end=51) (we(k),k=0,23)
	do k=0,23
	dstr=dst(k)/20.
C=	dstr=dst(k)
	write(*,30) kk,wp(k),dstr,wu(k),wl(k),we(k)
	write(10,30) kk,wp(k),dstr,wu(k),wl(k),we(k)
	kk=kk+1
	enddo
	goto 40
   51	close(unit=10)
      close(unit=11)
	close(unit=12)
	close(unit=13)
	close(unit=14)
	close(unit=15)
      stop
	end
C -----------------------------------------------------------