SUBROUTINE ABC(X,Y,Z)
      IMPLICIT NONE
      REAL*4 X,Y,Z
      Z=X*Y
      RETURN
      END