home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / adaptor.zip / adapt.zip / adaptor / examples / hpf_gen / simplex / simplex.h < prev   
Text File  |  1993-06-25  |  2KB  |  56 lines
  1.       implicit none
  2. c
  3. c**********************************************************************
  4. c
  5. c  written by Yong Li, SCCS/NPAC at Syracuse University
  6. c
  7. c********************************************************************
  8. c
  9. C     adlittle
  10. C      integer, parameter :: m=56, n=97, numG=1, numE=15, numL=40
  11. C     beaconfd
  12. C      integer, parameter :: m=173, n=262, numG=0, numE=140, numL=33
  13. C     bandm
  14. C      integer, parameter :: m=305, n=472, numG=0, numE=305, numL=0
  15. C     brandy
  16. C      integer, parameter :: m=220, n=249, numG=0, numE=166, numL=54
  17. C     sc105
  18. C      integer, parameter :: m=105, n=103, numG=0, numE=45, numL=60
  19. C     sc205
  20. C      integer, parameter :: m=205, n=203, numG=0, numE=91, numL=114
  21. C     sc50a, sc50b
  22. C      integer, parameter :: m=50, n=48, numG=0, numE=20, numL=30
  23. C     scsd1
  24. C      integer, parameter :: m=77, n=760, numG=0, numE=77, numL=0
  25. C     scsd8
  26. C      integer, parameter :: m=397, n=2750, numG=0, numE=397, numL=0
  27. C     share2b
  28. c     integer, parameter :: m=96, n=79, numG=0, numE=13, numL=83
  29. C     afiro
  30.       integer, parameter :: m=27, n=32, numG=0, numE=8, numL=19
  31. C     tst1
  32. C      integer, parameter :: m=4, n=3, numG=2, numE=1, numL=1
  33.  
  34.       real*8, parameter :: one = 1.0d0, zero = 0.0d0
  35.       integer, parameter :: d1=512, d2=1024, d3=16384
  36.       integer, parameter :: numGE=numG+numE, numGL=numG+numL
  37.       integer, parameter :: n1=n+numGE+numGL, n2=n+numGL
  38.       integer, parameter :: m1=m+1, mm=m+2, nn=n1+1
  39.       real*8, parameter :: large=1.0D+6, small=1.0D-6 
  40.       real*8 a(mm, nn), row(n1), tmpA(mm, nn)
  41.       logical nonbasic(n1), cont, bounded
  42.       integer basic(m), r, s, iteration
  43.       integer cindex, rindex
  44.       common /data1/ basic, r, s, cindex,rindex, iteration
  45.       common /data3/ cont, bounded
  46.  
  47. !hpf$ sequence :: data1, data3
  48.  
  49. !hpf$ template T (mm, nn)
  50. !hpf$ distribute T (*, BLOCK)
  51.  
  52. !hpf$ align with T :: a, tmpA
  53.  
  54. CMF$  LAYOUT row(), nonbasic()
  55.  
  56.