home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / fchek284.zip / test / comusage.f < prev    next >
Text File  |  1994-11-06  |  590b  |  37 lines
  1.       Program Main
  2.           common a,b,c
  3.           print *,a,b,c
  4.       Call Input
  5.       Call Comp
  6.       Call Output
  7.       End
  8.  
  9.       Subroutine Input
  10.       Common /INP/ x1,x2,x3,x4
  11.       Real x1,x2,x3
  12.       Common/LAST/ y1,y2,y3
  13.       Write(*,*) 'Enter 3 Values'
  14.       Read (*,*) x1,x2,x3
  15.       y2 = y3
  16.       Return
  17.       End
  18.  
  19.       Subroutine Comp
  20.       Common /INP/ A,B,C
  21.           Common /ZAP/ t1,t2,t3
  22.       Real A,B,C
  23.       Common /OUTP/ AVG
  24.       Real AVG
  25.       Avg = (A+B+C)/3
  26.       Return
  27.       End
  28.  
  29.       Subroutine Output
  30.       Common /OUTP/ Averag
  31.       Real Averag
  32.       Common /LAST/ n1,n2,n3
  33.       Write (*,*) 'Average =',Averag
  34.       n1 = 8
  35.       Return
  36.       End
  37.