home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgLangD.iso / Fortran.51 / DISK6 / MULF.FO$ / MULF.bin
Text File  |  1991-04-04  |  208b  |  12 lines
  1. C MULF.FOR
  2.  
  3.       SUBROUTINE MUL(Num1 [VALUE], Num2 [VALUE])
  4.       INTEGER*4 Num1, Num2
  5.       INTEGER*4 Result
  6.  
  7.       Result = Num1 * Num2
  8.  
  9.       CALL PRINTRESULTS( Num1, Num2, Result )
  10.  
  11.       END
  12.