SUBROUTINE SUBR
      A=1
      B=2
      C=3
      WRITE(*,*) A, B, C
      RETURN
      END