SUBROUTINE UMASFL(FLOW,KFLOW,KSTEP,KINC,TIME,NODE,COORDS)
C
      INCLUDE 'ABA_PARAM.INC'
C
      DIMENSION FLOW(KFLOW),COORDS(3),TIME(2)
      DATA CFLOW/70.71068/
      KNODE=NODE-100*(NODE/100)
      FLOW(1)=0.
      TCFLOW=TIME(1)*CFLOW
      IF(KNODE.EQ.1) THEN
        FLOW(2) =  TCFLOW
        FLOW(3) =  TCFLOW
      ELSE IF(KNODE.EQ.3) THEN
        FLOW(2) =  TCFLOW
        FLOW(3) = -TCFLOW
      ELSE IF(KNODE.EQ.5) THEN
        FLOW(2) = -TCFLOW
        FLOW(3) = -TCFLOW
      ELSE IF(KNODE.EQ.7) THEN
        FLOW(2) = -TCFLOW
        FLOW(3) =  TCFLOW
      ENDIF
      RETURN
      END