C(c) 1999 Douglas R White
c pg2pajek takes a p-***.ved file and converts it to a ***-?.net file
c that also incorporates the p-***.dod file as well
      integer*2 G(6000), F(6000), GLVL(5000), C1(5000), NEW(5000)
      integer*2 GG(5000), FF(5000)
      character*14 filename, fileout


c INPUT FILES
      write (*,*) ' pajek.net file name'
      read (*,'(a)') filename
      open (1,file=filename) 
c OUT FILE
      filename="p-xxx.ved"
      open (2,file=filename) 
      write (*,*) filename

      read (1,'(9x,I20)') nodes
      write (*,*) nodes
      do i=1,nodes
      read (1,'(A)') filename 
      enddo

      read (1,'(A)') filename 
      write (*,*) filename

      do i=1,999999999
      read (1,'(2I7,I8)',end=2,err=2) n1, n2, nsex
      if (nsex.eq.1) G(n1)=n2
      if (nsex.eq.2) F(n1)=n2
      enddo

C WRITE THE PGRAPH FILE
2     Write (2,'(i4)') nodes
      write (2,'(9999999i6)') (G(i),i=1,nodes)
      write (2,'(9999999i6)') (F(i),i=1,nodes)
      write (2,'(9999999i6)') (G(i),i=1,nodes)
      write (2,'(9999999i6)') (F(i),i=1,nodes)
      write (2,'(9999999i6)') (G(i),i=1,nodes)
      write (2,'(9999999i6)') (F(i),i=1,nodes)

          

      end