ABAQUS FRIC Subroutine

Hi
 I need to call the real contact area coming from my simulation in FRIC subroutine. I´m using the subroutine URDFIL to call the value of contact area at each Iteration. Then I assign CAREA value to new variable called pippo. Is the code correct?
 SUBROUTINE URDFIL(LSTOP,LOVRWRT,KSTEP,KINC,DTIME,TIME)
 C...
 INCLUDE 'ABA_PARAM.INC'
 C
 DIMENSION ARRAY(513),JRRAY(NPRECD,513),TIME(2)
 EQUIVALENCE (ARRAY(1),JRRAY(1,1))
 pippo=0;
 CALL DBFILE(LOP,ARRAY,JRCD) 
 IF(KEY .EQ. 1524)
 pippo=CAREA;
 END
 RETURN
 END
 After that I used the aforementioned variable pippo in the FRIC subroutine but it´s not working. Can someone suggest me where is the error or if I should use another approach. 
 It woud be nice If someone can soon help me.