SUBROUTINE DISP(U,KSTEP,KINC,TIME,NODE,NOEL,JDOF,COORDS) 

      INCLUDE 'ABA_PARAM.INC' 
   
      
C      REAL, DIMENSION(1:304,1:3), ALLOCATABLE :: A
C      REAL, DIMENSION(304), ALLOCATABLE :: U 
      CHARACTER*80 CNAME
      DIMENSION U(1),TIME(2),COORDS(3),NODELOC(1095)
C      REAL,DIMENSION(1095)::NODELOC
      REAL,DIMENSION(1095,3) :: A 	! Matrix with dimension 304 x 3
      INTEGER :: I,J,W
      
      OPEN(UNIT =16 , FILE = "C:\Pr100.txt",STATUS = "OLD") !text file which is a 304 x 3 Matrix
	 
      DO 999, I=1,1095,1
      READ(16,*)(A(I,J),J=1,3)
CI think       WRITE(6,*) (A(I,J),J=1,3)    ! Check in the .dat file for the correctness of the read values 
 999  CONTINUE
      CLOSE(UNIT = 16)
      JRCD = 0
      JTYP = 0
      NODEGLOB = 0
C      CALL GETINTERNAL(NODE,JTYP,CNAME,NODELOC,JRCD)
C      IF (CNAME.EQ.'PART-1') THEN
         DO 99, J=1,1095,1
           CALL GETINTERNAL('PART-1-1',NODELOC(J),JTYPE,NODEGLOB,JRCD)
           IF (NODE.EQ.NODEGLOB.AND.JDOF.EQ.1) THEN
C      W=A(J,1)
C      IF (NODE.EQ.W.AND.JDOF.EQ.1) THEN
             U(1) = A(J,2) 
          END IF 
     
  99     ENDDO 
      END IF	  
      RETURN  
      END