SUBROUTINE UTEMP(TEMP,NSECPT,KSTEP,KINC,TIME,NODE,COORDS)                 
C                                                                               
      INCLUDE 'ABA_PARAM.INC'                                                   
C                                                                               
      DIMENSION TEMP(NSECPT),COORDS(3),TIME(2)                                  
      TEMP(1)=100.*(TIME(1)+1.)                                                 
      RETURN                                                                    
      END                                                                       
      SUBROUTINE UFIELD(FIELD,KFIELD,NSECPT,KSTEP,KINC,TIME,NODE,COORDS,        
     1                  TEMP,DTEMP,NFIELD)                                      
C                                                                               
      INCLUDE 'ABA_PARAM.INC'                                                   
C                                                                               
      DIMENSION FIELD(NSECPT,NFIELD),COORDS(3),TIME(2),TEMP(NSECPT),            
     1          DTEMP(NSECPT)                                                   
C                                                                               
        FIELD(1,1)= TEMP(1)                                                     
        FIELD(1,2)=200+50.*TIME(1)                                              
        FIELD(1,3)=100.*(TIME(1)+1.)                                            
c                                                                               
      RETURN                                                                    
      END