home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / fchek284.zip / test / t208w.f < prev    next >
Text File  |  1995-03-13  |  1KB  |  61 lines
  1. c-----------------------------------------------------------------------
  2. c     ftnchek test file: t208w.f, Mon Mar 13 14:01:03 1995
  3. c-----------------------------------------------------------------------
  4.  
  5.       double precision function s(x)
  6.       intrinsic dsin
  7.       external extsub
  8.       double precision x, y
  9.  
  10.       integer a, b, c
  11.       common /one/ a, b, c
  12.  
  13.       integer d, e, f
  14.       common /two/ d, e, f
  15.  
  16.       integer g, h, i
  17.       real u, v, w
  18.       common /three/ g, h, i, u, v, w
  19.  
  20.       call subext(extsub, x)
  21.  
  22.       y = dfloat(a + b + c + d + e + f)
  23.  
  24.       s = dsqrt(x + y)
  25.  
  26.       end
  27.  
  28. c-----------------------------------------------------------------------
  29.  
  30.       parameter(l2ng=6,ng=2**l2ng,nb =ng+2,ngm1=ng-1)
  31.       parameter(nbp1=nb+1)
  32. c
  33.       double precision f, p, d, w1, w2
  34.       common/force /f(0:nbp1,0:nbp1,2)
  35.       common/pres  /p(0:nbp1,0:nbp1)
  36. c
  37.       dimension d (0:nbp1,0:nbp1)
  38.       dimension w1(0:nbp1,0:nbp1,1:2)
  39.       dimension w2(0:nbp1,0:nbp1,1:2)
  40. c
  41.       equivalence(f,w1,w2)
  42.       equivalence(d,p)
  43. c
  44.       call foo(f,p)
  45.       end
  46.  
  47. c-----------------------------------------------------------------------
  48.  
  49.       double precision x, y 
  50.       common /one/ x(10)
  51.       equivalence (x,y)
  52.       end
  53.  
  54. c-----------------------------------------------------------------------
  55.  
  56.       double precision x, y(1), z(2)
  57.       common /one/ x(10)
  58.       equivalence (x(3), y(1), z(2))
  59.       call subrtn (x, y, z)
  60.       end
  61.