Read .fil file. Problem during linking

[ValeriaKa]

Help, please!
I have the following issue:
I request a .fil (Job-2.fil) from abaqus through
* NODE FILE
U
Then I compile and link my ABQMAIN subroutine on Abaqus command. However when linking, the following error shows up:

The program I'm using is the following:

  subroutine ABQMAIN     
      include 'ABA_PARAM.INC'
C
      character*80 FNAME
      real*8   ARRAY(513)
      integer JRRAY(NPRECD,513),LRUNIT(2,1)
      equivalence(ARRAY(1),JRRAY(1,1))
      real*8 results(12136,12)      
      integer nn,ii,KEY
C
C     File initialization
C     Inicializacion de variables
	nn       =  0
      results  =  0.d0
C
      FNAME='Job-2'
      NRU=1
      LRUNIT(1,1)=8
      LRUNIT(2,1)=2
      LOUTF=0
      CALL INITPF(FNAME,NRU,LRUNIT,LOUTF)
      JUNIT=8
      CALL DBRNU(JUNIT)
C
C     Loop on all records in results file
C
      DO 100 K1=1,99999
      CALL DBFILE(0,ARRAY,JRCD)
        if(JRCD.NE.0)GO TO 110
        KEY=JRRAY(1,2)
C
        if (KEY.EQ.101) then
            nn=nn+1
            results(nn,1)  = JRRAY(1,3)
            results(nn,2)  = JRRAY(1,4) 
            results(nn,3)  = JRRAY(1,5)
        endif
C
 100  CONTINUE
 110  CONTINUE
C
C
      return
      end

What can I do to fix this issue??