Mon Jan 15 15:21:16 1996 Connection Machine Fortran Version 2.2	page: 1
Source Listing File: /tmp_mnt/home/B6D/salgado/POSETS/CM5/robpobox.fcm
    1     1  0 	c -*- fortran -*-
    2     2  0 	c
    3     3  0 	c
    4     4  0 	c  CM FORTRAN 1996-Jan-13
    5     5  0 	c
    6     6  0 	c     write output sorted by function
    7     7  0 	c     include < (x-<x>)^4 > statistics
    8     8  0 	c     old code stripped; dependence on mex reduced
    9     9  0 	c     will process an array of field functions for the same causal set
   10    10  0 	c
   11    11  0 	c     corrected bug in matmask statement matmask(i,:) "i" should be "1"
   12    12  0 	c     For statistical runs
   13    13  0 	c     With DOUBLE-PRECISION (REAL*8)
   14    14  0 	c     With CMF_RANDOM and (CMSSL) GEN_GJ_INVERT
   15    15  0 	c     With improved RELABELING (which we skip in this program) 
   16    16  0 	c     With imporved DISCARDING
   17    17  0 	c     With corrected NORMALIZATION
   18    18  0 	c     Available routines for HASSE, CLOSURE, ALL-PAIRS-SHORTEST-PATH
   19    19  0 	
   20    20  0 	c   ____________________________________________________BEGIN POBOX
   21    21  0 	      PROGRAM MAIN
   22    22  0 	        INCLUDE '/usr/include/cm/CMF_defs.h'
  245    23  0 	        INCLUDE '/usr/include/cm/cmssl-cmf.h'
  246    24  0 	
  853    25  0 	        INTERFACE
  854    26  0 	        FUNCTION POBOX(mex,n,nf,minpiv)
  855    27  0 	        INTEGER mex,n,nf
  856    28  0 	        REAL*8 minpiv
  857    29  0 	        REAL*8, array(nf) :: POBOX
  858    30  0 	        END INTERFACE
  859    31  0 	
  860    32  0 	
  861    33  0 	      parameter (mex=512)
  862    34  0 	      parameter (nf=16)
  863    35  0 	
  864    36  0 	      integer iseed, n, i, ii, j, xxx, runs, goodrun
  865    37  0 	      real*8, array(nf) ::  x, sq, av
  866    38  0 	      real*8 invrootmex, minpiv
  867    39  0 	      real*8 pi
  868    40  0 	
  869    41  0 	      runs=500
  870    42  0 	      open(100, file= 'fun-minpiv.act', status="NEW")
  871    43  0 	      open(101, file= 'fun-01.act', status="NEW")
  872    44  0 	      open(102, file= 'fun-02.act', status="NEW")
  873    45  0 	      open(103, file= 'fun-03.act', status="NEW")
  874    46  0 	      open(104, file= 'fun-04.act', status="NEW")
  875    47  0 	      open(105, file= 'fun-05.act', status="NEW")
  876    48  0 	      open(106, file= 'fun-06.act', status="NEW")
  877    49  0 	      open(107, file= 'fun-07.act', status="NEW")
  878    50  0 	      open(108, file= 'fun-08.act', status="NEW")
  879    51  0 	      open(109, file= 'fun-09.act', status="NEW")
  880    52  0 	      open(110, file= 'fun-10.act', status="NEW")
Mon Jan 15 15:21:16 1996 Connection Machine Fortran Version 2.2	page: 2
Source Listing File: /tmp_mnt/home/B6D/salgado/POSETS/CM5/robpobox.fcm
  881    53  0 	      open(111, file= 'fun-11.act', status="NEW")
  882    54  0 	      open(112, file= 'fun-12.act', status="NEW")
  883    55  0 	      open(113, file= 'fun-13.act', status="NEW")
  884    56  0 	      open(114, file= 'fun-14.act', status="NEW")
  885    57  0 	      open(115, file= 'fun-15.act', status="NEW")
  886    58  0 	      open(116, file= 'fun-16.act', status="NEW")
  887    59  0 	      open(201, file= 'fun-01.avg', status="NEW")
  888    60  0 	      open(202, file= 'fun-02.avg', status="NEW")
  889    61  0 	      open(203, file= 'fun-03.avg', status="NEW")
  890    62  0 	      open(204, file= 'fun-04.avg', status="NEW")
  891    63  0 	      open(205, file= 'fun-05.avg', status="NEW")
  892    64  0 	      open(206, file= 'fun-06.avg', status="NEW")
  893    65  0 	      open(207, file= 'fun-07.avg', status="NEW")
  894    66  0 	      open(208, file= 'fun-08.avg', status="NEW")
  895    67  0 	      open(209, file= 'fun-09.avg', status="NEW")
  896    68  0 	      open(210, file= 'fun-10.avg', status="NEW")
  897    69  0 	      open(211, file= 'fun-11.avg', status="NEW")
  898    70  0 	      open(212, file= 'fun-12.avg', status="NEW")
  899    71  0 	      open(213, file= 'fun-13.avg', status="NEW")
  900    72  0 	      open(214, file= 'fun-14.avg', status="NEW")
  901    73  0 	      open(215, file= 'fun-15.avg', status="NEW")
  902    74  0 	      open(216, file= 'fun-16.avg', status="NEW")
  903    75  0 	
  904    76  0 	
  905    77  0 	      pi=2.0d0*dasin(1.0d0)
  906    78  0 	      invrootmex=1.0d0/dsqrt(real(mex,0.d0))
  907    79  0 	
  908    80  0 	c......................................INITIALIZE
  909    81  0 	                 print *, '---HEAD'
  910    82  0 	
  911    83  0 	                print *, 'input integer seed (6 digits or less)'
  912    84  0 	c      read *, iseed
  913    85  0 	      iseed=23233
  914    86  0 	
  915    87  0 	                print *,' iseed=',iseed
  916    88  0 	      xxx=ran3(-iseed)
  917    89  0 	
  918    90  0 	 6    print *,'   input number of points (up to ',mex,')'
  919    91  0 	c      read *, n
  920    92  0 	      n=mex
  921    93  0 	                print *,'   initial N=', n
  922    94  0 	      if (n .gt. mex) then
  923    95  0 	         print *, 'too many points!'
  924    96  0 	         goto 6
  925    97  0 	      endif
  926    98  0 	
  927    99  0 	                call CM_timer_clear(0)
  928   100  0 	                call CM_timer_start(0)
  929   101  0 	
  930   102  0 	
  931   103  0 	                       print *,'--- -------------------ENDHEAD'
  932   104  0 	                       print *,i,'RUN'
Mon Jan 15 15:21:16 1996 Connection Machine Fortran Version 2.2	page: 3
Source Listing File: /tmp_mnt/home/B6D/salgado/POSETS/CM5/robpobox.fcm
  933   105  0 	d        write (unit=0, fmt=*) '--- -------------------ENDHEAD'
  934   106  0 	d        write (unit=0, fmt=*) i,'RUN'
  935   107  0 	
  936   108  0 	         ii=0
  937   109  0 	      do i=1,runs
  938   110  0 	                call CM_timer_clear(1)
  939   111  0 	                call CM_timer_start(1)
  940   112  0 	
  941   113  0 	        ii=ii+1
  942   114  0 	        n=mex
  943   115  0 	 18                   print *,'--- -------------------'
  944   116  0 	                      print *,i,'RUN'
  945   117  0 	d       write (unit=0, fmt=*) '--- -------------------'
  946   118  0 	d       write (unit=0, fmt=*) i,'RUN'
  947   119  0 	        x=POBOX(mex,n,nf,minpiv)
  948   120  0 	
  949   121  0 	        goodrun=1
  950   122  0 	        if (minpiv.gt.invrootmex) goto 19
  951   123  0 	           ii=ii-1
  952   124  0 	d          write(unit=0,fmt=*)'--- -----BADRUN------------'
  953   125  0 	                      print *,'--- -----BADRUN------------'
  954   126  0 	                      goodrun=0
  955   127  0 	           goto 30
  956   128  0 	 19     if (ii.gt.1)  sq = sq*(ii-2)+(av**2.0d0)*(ii-1)    !partial comp
  957   129  0 	 20     av=((ii-1)*av+x)/ii
  958   130  0 	        if (ii.ne.1) sq=(sq+x**2.0d0-ii*(av**2.0d0))/(ii-1) !finished
  959   131  0 	        print *,ii,' good runs'
  960   132  0 	
  961   133  0 	           write(unit=100, fmt=*) i, minpiv, goodrun
  962   134  0 	 30     do j=1,nf
  963   135  0 	           write(unit=100+j, fmt=*) x(j)
  964   136  0 	
  965   137  0 	                      print *,j,'-action =',x(j)
  966   138  0 	                      print *,j,'-running average=',av(j)
  967   139  0 	                      print *,j,'-running standard deviation=',sq(j)**.5d0
  968   140  0 	         if (ii.ge.1) then
  969   141  0 	           print *,j,'-running standard error of the mean=',(sq(j)/ii)**.5d0
  970   142  0 	           write(unit=200+j, fmt=*) i,av(j),(sq(j)/ii)**.5d0, sq(j)**.5d0
  971   143  0 	         else
  972   144  0 	           write(unit=200+j, fmt=*) i,av(j), av(j), sq(j)**.5d0
  973   145  0 	         end if
  974   146  0 	        end do
  975   147  0 	
  976   148  0 	              call CM_timer_stop(1)
  977   149  0 	              call CM_timer_print(1)
  978   150  0 	          print *
  979   151  0 	d         write (unit=0,fmt=*)'--- ----------------------------ENDRUN'
  980   152  0 	                      print *,'--- ----------------------------ENDRUN'
  981   153  0 	
  982   154  0 	      end do
  983   155  0 	      print *,'--- CM total times '
  984   156  0 	              call CM_timer_stop(0)
Mon Jan 15 15:21:16 1996 Connection Machine Fortran Version 2.2	page: 4
Source Listing File: /tmp_mnt/home/B6D/salgado/POSETS/CM5/robpobox.fcm
  985   157  0 	              call CM_timer_print(0)
  986   158  0 	
  987   159  0 	d     write (unit=0, fmt=*) '--- END--MAIN--'
  988   160  0 	      END
  989   161  0 	c----------------------------------------------------------------
  990   162  0 	
  991   163  0 	
Mon Jan 15 15:21:16 1996 Connection Machine Fortran Version 2.2	page: 5
Symbol Storage Map   File: /tmp_mnt/home/B6D/salgado/POSETS/CM5/robpobox.fcm
ENTRY POINTS
  Offset  Type    Name
       0  NONE    MAIN                            


STORAGE BLOCKS
    Size  Block
     440  local
    1851  constants




VARIABLES
  Offset    Size  Type        Block           Name
     ---       4  INT4        not-referenced  FE       COMM_SETUP                      
     ---       4  INT4        not-referenced  FE       FAST_RNG_RESIDUE                
     ---       4  INT4        not-referenced  FE       FAST_RNG_STATE_FIELD            
     ---       4  INT4        not-referenced  FE       FFT_SETUP                       
     ---       4  INT4        not-referenced  FE       GEN_BIDIAG                      
     ---       8  REAL8       not-referenced  FE       GEN_GJ_INVERT                   
     ---       8  REAL8       not-referenced  FE       GEN_GJ_SOLVE                    
     ---       4  INT4        not-referenced  FE       GEN_LU_FACTOR                   
     ---       4  INT4        not-referenced  FE       GEN_QR_FACTOR                   
     144       4  INT4        local           FE       GOODRUN                         
     156       4  INT4        local           FE       I                               
     152       4  INT4        local           FE       II                              
     424       8  REAL8       local           FE       INVROOTMEX                      
      12       4  INT4        local           FE       ISEED                           
     148       4  INT4        local           FE       J                               
       0       8  REAL8       local           FE       MINPIV                          
     160       4  INT4        local           FE       N                               
     432       8  REAL8       local           FE       PI                              
     ---       4  INT4        not-referenced  FE       PSHIFT_SETUP                    
     ---       4  INT4        not-referenced  FE       PSHIFT_SETUP_LOOPED             
     ---       4  INT4        not-referenced  FE       RESTORE_GEN_LU                  
     ---       4  INT4        not-referenced  FE       RESTORE_GEN_LU_FMS              
     ---       4  INT4        not-referenced  FE       RESTORE_GEN_QR                  
     ---       4  INT4        not-referenced  FE       RESTORE_GEN_QR_FMS              
      32       4  INT4        local           FE       RUNS                            
     ---       8  REAL8       not-referenced  FE       SYM_EIGENSYSTEM_SOLVE           
     ---       4  INT4        not-referenced  FE       SYM_TRED                        
     ---       4  INT4        not-referenced  FE       VP_RNG_RESIDUE                  
     ---       4  INT4        not-referenced  FE       VP_RNG_STATE_FIELD              
      28       4  INT4        local           FE       XXX                             
     ---       0  NONE        global          FE       _cmpe_main_0                    
     ---       0  NONE        global          FE       _cmpe_main_0_                   
     ---       0  NONE        global          FE       _cmpe_main_1                    
     ---       0  NONE        global          FE       _cmpe_main_1_                   
     ---       0  NONE        global          FE       _cmpe_main_2                    
     ---       0  NONE        global          FE       _cmpe_main_2_                   
     ---       0  NONE        global          FE       _cmpe_main_3                    
     ---       0  NONE        global          FE       _cmpe_main_3_                   
Mon Jan 15 15:21:16 1996 Connection Machine Fortran Version 2.2	page: 6
Symbol Storage Map   File: /tmp_mnt/home/B6D/salgado/POSETS/CM5/robpobox.fcm
     ---       0  NONE        not-referenced  FE       main                            


ARRAYS
  Offset    Size  Type        Block/Class     Home     Name
     296     128  REAL8       local           CM       AV                              
     168     128  REAL8       local           CM       SQ                              
      40     128  REAL8       local           CM       X                               


PARAMETERS (Offset is within Storage Block 'constants')
  Offset  Type    Name                            Value
       0  INT4    ARRAY_ARG                       257
       0  INT4    ARRAY_GLOBAL                    513
       0  INT4    ARRAY_LOCAL                     1025
       0  INT4    CMF_CHARACTER                   8
       0  INT4    CMF_CM200_PARIS                 3
       0  INT4    CMF_CM200_SLICEWISE             4
       0  INT4    CMF_CM2_PARIS                   0
       0  INT4    CMF_CM2_SLICEWISE               1
       0  INT4    CMF_CM5_SPARC                   2
       0  INT4    CMF_CM5_VU                      5
       0  INT4    CMF_CMSIM                       6
       0  INT4    CMF_COMPLEX                     5
       0  INT4    CMF_DOUBLE                      6
       0  INT4    CMF_DOUBLE_COMPLEX              7
       0  INT4    CMF_DOWNWARD                    1001
       0  INT4    CMF_ERROR_ALIGNED_GEOMETRY      3014
       0  INT4    CMF_ERROR_AXIS_ORDER            3002
       0  INT4    CMF_ERROR_BAD_ARGUMENT          3004
       0  INT4    CMF_ERROR_BAD_GEOMETRY          3005
       0  INT4    CMF_ERROR_BAD_OPCODE            3010
       0  INT4    CMF_ERROR_BAD_TYPE              3009
       0  INT4    CMF_ERROR_BOUNDS_VIOLATION      3011
       0  INT4    CMF_ERROR_CANNOT_INTERN         3003
       0  INT4    CMF_ERROR_FE_HOME               3007
       0  INT4    CMF_ERROR_FE_MEMORY             3008
       0  INT4    CMF_ERROR_MASK_MISMATCH         3006
       0  INT4    CMF_ERROR_NO_ALIAS              3013
       0  INT4    CMF_ERROR_NO_AXIS               3012
       0  INT4    CMF_ERROR_NULL_ARRAY            3000
       0  INT4    CMF_ERROR_RUNTIME_LAYER         3015
       0  INT4    CMF_ERROR_SPARSE_MASK           3001
       0  INT4    CMF_EXCLUSIVE                   2000
       0  INT4    CMF_FLOAT                       4
       0  INT4    CMF_INCLUSIVE                   2001
       0  INT4    CMF_LOGICAL                     1
       0  INT4    CMF_LONG_S_INTEGER              12
       0  INT4    CMF_MUTATE_ANY                  4002
       0  INT4    CMF_MUTATE_BEST                 4001
       0  INT4    CMF_MUTATE_SELECT               4000
       0  INT4    CMF_NEWS_ORDER                  0
Mon Jan 15 15:21:16 1996 Connection Machine Fortran Version 2.2	page: 7
Symbol Storage Map   File: /tmp_mnt/home/B6D/salgado/POSETS/CM5/robpobox.fcm
       0  INT4    CMF_NONE                        3000
       0  INT4    CMF_NULL                        0
       0  INT4    CMF_SEGMENT_BIT                 3001
       0  INT4    CMF_SEND_ORDER                  1
       0  INT4    CMF_SERIAL_ORDER                2
       0  INT4    CMF_SIZEOF_DESCRIPTOR           18
       0  INT4    CMF_START_BIT                   3002
       0  INT4    CMF_S_INTEGER                   3
       0  INT4    CMF_UPWARD                      1000
       0  INT4    CMF_U_INTEGER                   2
       0  INT4    CMSSL_BCG                       5
       0  INT4    CMSSL_BCG_WDIM                  8
       0  INT4    CMSSL_BICGSTAB                  7
       0  INT4    CMSSL_BICGSTAB2                 10
       0  INT4    CMSSL_BICGSTAB2_WDIM            18
       0  INT4    CMSSL_BICGSTAB_WDIM             11
       0  INT4    CMSSL_BIT_REVERSED              1
       0  INT4    CMSSL_BLOCK_AXIS                0
       0  INT4    CMSSL_CG                        1
       0  INT4    CMSSL_CGS                       11
       0  INT4    CMSSL_CGS_WDIM                  9
       0  INT4    CMSSL_CG_WDIM                   6
       0  INT4    CMSSL_CHARACTER                 6
       0  INT4    CMSSL_COLUMN_PIVOTING           3
       0  INT4    CMSSL_COLUMN_PIVOTING_SCALE     5
       0  INT4    CMSSL_COMBINER_AND              6
       0  INT4    CMSSL_COMBINER_IOR              4
       0  INT4    CMSSL_COMBINER_MAX              3
       0  INT4    CMSSL_COMBINER_MIN              2
       0  INT4    CMSSL_COMBINER_POLL             7
       0  INT4    CMSSL_COMBINER_PRODUCT          1
       0  INT4    CMSSL_COMBINER_SUM              0
       0  INT4    CMSSL_COMBINER_XOR              5
       0  INT4    CMSSL_COMM_BY_GET               101
       0  INT4    CMSSL_COMM_BY_SEND              102
       0  INT4    CMSSL_COMM_BY_SEND_OVERWRITE    103
       0  INT4    CMSSL_COMM_BY_SEND_WITH_OP      104
       0  INT4    CMSSL_COMM_DETOUR_ROUTING       7
       0  INT4    CMSSL_COMM_FAN_OUT_OPTIMIZER    3
       0  INT4    CMSSL_COMM_HOT_WIRE_ITERATIONS  5
       0  INT4    CMSSL_COMM_HOT_WIRE_QUALITY     6
       0  INT4    CMSSL_COMM_HOT_WIRE_REMOVER     4
       0  INT4    CMSSL_COMM_MAXIMUM_DETOURS      8
       0  INT4    CMSSL_COMM_MESSAGE_SET_PIECES   9
       0  INT4    CMSSL_COMM_NOMINAL_LOAD         2
       0  INT4    CMSSL_COMM_PRIORITY_BREAKPOINT  1
       0  INT4    CMSSL_COMM_VERBOSE              10
       0  INT4    CMSSL_COMPLEX                   5
       0  INT4    CMSSL_CSHIFT                    2
       0  CHAR    CMSSL_CX_CX_XFORM               'CTOC'
       0  CHAR    CMSSL_CX_RE_XFORM               'CTOR'
       0  INT4    CMSSL_DEFAULT                   0
Mon Jan 15 15:21:16 1996 Connection Machine Fortran Version 2.2	page: 8
Symbol Storage Map   File: /tmp_mnt/home/B6D/salgado/POSETS/CM5/robpobox.fcm
       0  INT4    CMSSL_DEFAULT_124               0
       0  INT4    CMSSL_DESC_LENGTH               64
       0  INT4    CMSSL_DOUBLE_COMPLEX            4
       0  INT4    CMSSL_DOUBLE_REAL               2
       0  INT4    CMSSL_EOSHIFT_0                 17
       0  INT4    CMSSL_EOSHIFT_1                 33
       0  INT4    CMSSL_EOSHIFT_ARRAY             129
       0  INT4    CMSSL_EOSHIFT_SCALAR            65
       0  INT4    CMSSL_FLOAT                     4
       0  INT4    CMSSL_F_XFORM                   1
       0  INT4    CMSSL_GMRES                     2
       0  INT4    CMSSL_GMRES_WDIM                5
       0  INT4    CMSSL_GRID_AXIS                 1
       0  INT4    CMSSL_IDO_ATY                   3
       0  INT4    CMSSL_IDO_AY                    1
       0  INT4    CMSSL_IDO_BREAKDOWN             -100
       0  INT4    CMSSL_IDO_END                   99
       0  INT4    CMSSL_IDO_ERROR                 -99
       0  INT4    CMSSL_IDO_SOLVE_M               2
       0  INT4    CMSSL_IDO_SOLVE_M1              5
       0  INT4    CMSSL_IDO_SOLVE_M2              7
       0  INT4    CMSSL_IDO_SOLVE_M2T             6
       0  INT4    CMSSL_IDO_SOLVE_MAX             7
       0  INT4    CMSSL_IDO_SOLVE_MIN             0
       0  INT4    CMSSL_IDO_SOLVE_MT              4
       0  INT4    CMSSL_IDO_START                 0
       0  INT4    CMSSL_INSTANCE_AXIS             2
       0  INT4    CMSSL_ITER_ALGORITHM            1
       0  INT4    CMSSL_ITER_ANORM                2
       0  INT4    CMSSL_ITER_FINFO_SIZE           2
       0  INT4    CMSSL_ITER_INFO_SIZE            20
       0  INT4    CMSSL_ITER_INIT                 2
       0  INT4    CMSSL_ITER_KSPACE               6
       0  INT4    CMSSL_ITER_KSPACE_USED          19
       0  INT4    CMSSL_ITER_LAL_INFO             10
       0  INT4    CMSSL_ITER_LITER                20
       0  INT4    CMSSL_ITER_MAXITER              4
       0  INT4    CMSSL_ITER_OMEGA                7
       0  INT4    CMSSL_ITER_OUTPUT_X             8
       0  INT4    CMSSL_ITER_PRECOND              5
       0  INT4    CMSSL_ITER_RANDOM_START         3
       0  INT4    CMSSL_ITER_RESIDUAL             9
       0  INT4    CMSSL_ITER_TOL                  1
       0  INT4    CMSSL_I_XFORM                   2
       0  INT4    CMSSL_LOGICAL                   1
       0  INT4    CMSSL_LU_RESTART                7
       0  INT4    CMSSL_METHOD_AUTOMATIC          1
       0  INT4    CMSSL_METHOD_FASTGRAPH          2
       0  INT4    CMSSL_METHOD_GET_BACKWARD       4
       0  INT4    CMSSL_METHOD_GET_INTO_SENDS     3
       0  INT4    CMSSL_METHOD_NOP                7
       0  INT4    CMSSL_METHOD_SERIAL_COMBINING   6
Mon Jan 15 15:21:16 1996 Connection Machine Fortran Version 2.2	page: 9
Symbol Storage Map   File: /tmp_mnt/home/B6D/salgado/POSETS/CM5/robpobox.fcm
       0  INT4    CMSSL_METHOD_SORT_AND_SCAN      5
       0  INT4    CMSSL_NEWS                      2
       0  INT4    CMSSL_NOP                       0
       0  INT4    CMSSL_NORMAL                    0
       0  INT4    CMSSL_NOSCALE                   0
       0  INT4    CMSSL_NO_PIVOTING               2
       0  INT4    CMSSL_NO_PIVOTING_SCALE         4
       0  INT4    CMSSL_PARTIAL_PIVOTING          0
       0  INT4    CMSSL_PARTITION_DEFAULT         1
       0  INT4    CMSSL_PARTITION_LOW_STORAGE     0
       0  INT4    CMSSL_PGE_PIV                   9
       0  INT4    CMSSL_PGE_PIV_VAL               10
       0  INT4    CMSSL_PIPELINE_GE               3
       0  INT4    CMSSL_QCGS                      13
       0  INT4    CMSSL_QCGS_WDIM                 14
       0  INT4    CMSSL_QMR2                      6
       0  INT4    CMSSL_QMR2_WDIM                 9
       0  INT4    CMSSL_QMRBICGSTAB               8
       0  INT4    CMSSL_QMRBICGSTAB2              9
       0  INT4    CMSSL_QMRBICGSTAB_WDIM          12
       0  INT4    CMSSL_QMRCGS                    3
       0  INT4    CMSSL_QMRCGS_WDIM               13
       0  INT4    CMSSL_QMRLAL                    4
       0  INT4    CMSSL_QMRLAL_WDIM               6
       0  INT4    CMSSL_QMRS                      12
       0  INT4    CMSSL_QMRS_WDIM                 14
       0  INT4    CMSSL_QMRTF                     3
       0  INT4    CMSSL_QMRTF_WDIM                13
       0  INT4    CMSSL_QR_POST_PERMUTE           0
       0  INT4    CMSSL_QR_PRE_PERMUTE            1
       0  CHAR    CMSSL_RE_CX_XFORM               'RTOC'
       0  INT4    CMSSL_ROW_PIVOTING              0
       0  INT4    CMSSL_SCALE_N                   2
       0  INT4    CMSSL_SCALE_SQRT                1
       0  INT4    CMSSL_SEND                      1
       0  INT4    CMSSL_SINGLE_COMPLEX            3
       0  INT4    CMSSL_SINGLE_REAL               1
       0  INT4    CMSSL_SUBSTR_BCR                4
       0  INT4    CMSSL_SUBSTR_CR                 1
       0  INT4    CMSSL_SUBSTR_PGE                2
       0  INT4    CMSSL_SUBSTR_TRANSP             5
       0  INT4    CMSSL_S_INTEGER                 3
       0  INT4    CMSSL_TOTAL_PIVOTING            1
       0  INT4    CMSSL_U_INTEGER                 2
       0  INT4    DEBUG_DESC                      8
       0  INT4    ERROR_DESC                      4
       0  INT4    HOME_CM                         1
       0  INT4    HOME_CM_ONLY                    3
       0  INT4    HOME_FE                         2
       0  INT4    HOME_FE_ONLY                    4
      12  INT4    MEX                             512
       0  INT4    MODIF                           1
Mon Jan 15 15:21:16 1996 Connection Machine Fortran Version 2.2	page: 10
Symbol Storage Map   File: /tmp_mnt/home/B6D/salgado/POSETS/CM5/robpobox.fcm
       0  INT4    NF                              16
       0  INT4    NOT_MODIF                       0
       0  INT4    OBJECT_DESC                     1
       0  INT4    VIEW_DESC                       2
       0  INT4    _DOUBLE_                        64
       0  INT4    _DOUBLE_COMPLEX_                64
       0  INT4    _DOUBLE_INT_                    64
       0  INT4    _SINGLE_                        32
       0  INT4    _SINGLE_COMPLEX_                32
       0  INT4    _SINGLE_INT_                    32


INTRINSIC PROCEDURES
  Name
  DASIN                           
  DSQRT                           
  REAL                            


STATEMENT FUNCTIONS
  Type    Name


EXTERNALS
  Type    Unit_Kind     Name
  INT4    function      CMF_ALLOCATE_TABLE              
  INT4    function      CMF_ARCHITECTURE                
  LOG4    function      CMF_ARRAY_IS_ALIAS              
  LOG4    function      CMF_ARRAY_IS_ALIGNED            
  INT4    function      CMF_ARRAY_SIZE_QUANTUM          
  INT4    function      CMF_AVAILABLE_MEMORY            
  LOG4    function      CMF_AXISREORDER                 
  INT4    function      CMF_GET_ALIAS_SAFETY_LEVEL      
  INT4    function      CMF_GET_AXES_EXTENTS_PTR        
  INT4    function      CMF_GET_AXES_MAPS_PTR           
  INT4    function      CMF_GET_AXIS_EXTENT             
  INT4    function      CMF_GET_AXIS_MAP                
  INT4    function      CMF_GET_DATA_TYPE               
  INT4    function      CMF_GET_DEBUG_INFO_PTR          
  INT4    function      CMF_GET_DESCRIPTOR_KIND         
  INT4    function      CMF_GET_EXPONENT_LEN            
  INT4    function      CMF_GET_FE_ADDRESS              
  INT4    function      CMF_GET_FIELD_ID                
  INT4    function      CMF_GET_GEOMETRY_AXIS_OFFSET    
  INT4    function      CMF_GET_GEOMETRY_ID             
  INT4    function      CMF_GET_GEOMETRY_OFFSETS_PTR    
  INT4    function      CMF_GET_GEOMETRY_RANK           
  INT4    function      CMF_GET_GLOBAL_LOCATION         
  INT4    function      CMF_GET_HOME                    
  INT4    function      CMF_GET_INTEGER_LEN             
  INT4    function      CMF_GET_IS_MODIFIED             
  INT4    function      CMF_GET_OBJECT_KIND             
  INT4    function      CMF_GET_PHYSICAL_LOCATION       
  INT4    function      CMF_GET_RANK                    
Mon Jan 15 15:21:16 1996 Connection Machine Fortran Version 2.2	page: 11
Symbol Storage Map   File: /tmp_mnt/home/B6D/salgado/POSETS/CM5/robpobox.fcm
  INT4    function      CMF_GET_SIGNIFICAND_LEN         
  INT4    function      CMF_GET_VP_SET_ID               
  INT4    function      CMF_IS_CM_SPACE_ALLOCATED       
  INT4    function      CMF_IS_FE_SPACE_ALLOCATED       
  INT4    function      CMF_IS_SLICEWISE                
  INT4    function      CMF_NUMBER_OF_PROCESSORS        
  LOG4    function      CMF_PADDING                     
  INT4    function      CMF_SIZEOF_ARRAY_ELEMENT        
  INT4    function      CMSSL_GET_SAFETY                
  NONE    subroutine    CM_TIMER_CLEAR                  
  NONE    subroutine    CM_TIMER_PRINT                  
  NONE    subroutine    CM_TIMER_START                  
  NONE    subroutine    CM_TIMER_STOP                   
  REAL8   subroutine    POBOX                           
  REAL4   function      RAN3                            


NAME LISTS
  Name


CONSTRUCT NAMES
  Name



COMMUNICATION ROUTINES
  Name                          Line Number (number of times)
  READ VALUE FROM PROCESSOR     135, 138, 139, 141, 142(2), 144(2)


Mon Jan 15 15:21:16 1996 Connection Machine Fortran Version 2.2	page: 12
Source Listing File: /tmp_mnt/home/B6D/salgado/POSETS/CM5/robpobox.fcm
  992   164  0 	      FUNCTION POBOX(mex,n,nf,minpiv)
  993   165  0 	      real*8, array(nf) :: POBOX
  994   166  0 	      parameter (ndim=2)               ! spacetime dimension
  995   167  0 	      parameter (ifr=0)                ! value for the diagonal
  996   168  0 	      integer mex,n,nf
  997   169  0 	      real*8 minpiv
  998   170  0 	
  999   171  0 	      integer iseed, i, j, ierr
 1000   172  0 	      real*8 pi, GEN_GJ_INVERT, ACT
 1001   173  0 	
 1002   174  0 	      real*8 c(mex,4),f(mex,nf),dummy(mex,mex), tempd(mex,mex)
 1003   175  0 	CMF$  layout c(,),f(,),dummy(,),tempd(,)
 1004   176  0 	      integer l(mex,mex), ldummy(mex,mex), vec(mex)
 1005   177  0 	CMF$  layout l(,), ldummy(,), vec()
 1006   178  0 	
 1007   179  0 	      integer matmask(mex,mex)
 1008   180  0 	CMF$  layout matmask(,)
 1009   181  0 	      
 1010   182  0 	      character*3 method
 1011   183  0 	      method='sym'
 1012   184  0 	
 1013   185  0 	      forall(i=1:mex, j=1:mex) matmask(i,j)=max(i,j)
 1014   186  0 	
 1015   187  0 	c   ________________________________________________________________
 1016   188  0 	      call SPRINKLE(n,ndim,c,f)
 1017   189  0 	d          write (unit=0,fmt=*)'--- COORDS_AND_FIELD:'
 1018   190  0 	d          do 901, i=1,n
 1019   191  0 	d 901      write (unit=0,fmt=*) (c(i,j),j=1,ndim), f(i,:)
 1020   192  0 	c   ________________________________________________________________
 1021   193  0 	      call SETC(n,ndim,c,l)
 1022   194  0 	d          write (unit=0,fmt=*)'--- CAUSAL_MATRIX :'
 1023   195  0 	d          do 903, i=1,n
 1024   196  0 	d 903      write (unit=0,fmt='(64I2)') (l(i,j),j=1,n)
 1025   197  0 	c   ________________________________________________________________
 1026   198  0 	
 1027   199  0 	c                call CM_timer_clear(1)
 1028   200  0 	c                call CM_timer_start(1)
 1029   201  0 	c     call RELAB(mex,n,l,f)      ! fix RELAB to accomodate f(:,:)
 1030   202  0 	c               print *, 'SKIPPING RELAB'
 1031   203  0 	c                call CM_timer_stop(1)
 1032   204  0 	c                call CM_timer_print(1)
 1033   205  0 	
 1034   206  0 	c   ________________________________________________________________
 1035   207  0 	      if (ndim.eq.4) call link(mex,l,n)
 1036   208  0 	c   ________________________________________________________________
 1037   209  0 	      if (method.eq.'sym') then 
 1038   210  0 	            ldummy = l + transpose(l)
 1039   211  0 	         else 
 1040   212  0 	            ldummy = l
 1041   213  0 	      end if
 1042   214  0 	      forall (i=1:n) ldummy(i,i)=ifr
 1043   215  0 	c   ________________________________________________________________
Mon Jan 15 15:21:16 1996 Connection Machine Fortran Version 2.2	page: 13
Source Listing File: /tmp_mnt/home/B6D/salgado/POSETS/CM5/robpobox.fcm
 1044   216  0 	      call DISCARD1(n,ldummy,vec)
 1045   217  0 	      call DISCARD2(n,ldummy,vec)
 1046   218  0 	      call DELETE(n,ldummy,f,vec)
 1047   219  0 	      where (matmask.gt.n) ldummy=0
 1048   220  0 	      do j=1,nf
 1049   221  0 	      where (matmask(1,:).gt.n) f(:,j)=0.0d0
 1050   222  0 	      end do
 1051   223  0 	
 1052   224  0 	
 1053   225  0 	c   ________________________________________________________________
 1054   226  0 	c     INVERT
 1055   227  0 	      dummy=real(ldummy,0.d0)     !dummy is double-precision
 1056   228  0 	d             write (unit=0,fmt=*)'--- TO_BE_INVERTED :'
 1057   229  0 	d          do 906, i=1,n
 1058   230  0 	d 906         write (unit=0,fmt='(64F4.0)') (dummy(i,j),j=1,n)
 1059   231  0 	      
 1060   232  0 	      minpiv=gen_gj_invert(dummy,n,CMSSL_total_pivoting,ierr)
 1061   233  0 	      if (ierr.eq.1) print *,'INVERSION ERROR!'
 1062   234  0 	      print *,'min piv=',minpiv, ' ierr= ',ierr
 1063   235  0 	
 1064   236  0 	D      tempd=0.0d0
 1065   237  0 	D      CALL gen_matrix_mult(tempd, dummy, real(ldummy,0.d0) ,1,2,ierr)
 1066   238  0 	D           forall (i=1:n) tempd(i,i) = tempd(i,i) - 1.0d0
 1067   239  0 	D           tempd = dabs(tempd)
 1068   240  0 	D           print *, 'residuals = ', maxval(tempd), sum(tempd)/(n*n)
 1069   241  0 	Dd             write (unit=0,fmt=*)'--- INVERTED_MATRIX :'
 1070   242  0 	Dd          do 907, i=1,n
 1071   243  0 	Dd 907         write (unit=0,fmt=*) (dummy(i,j),j=1,n)
 1072   244  0 	Dd             write (unit=0,fmt=*)'--- MIN_PIV :'
 1073   245  0 	Dd 908         write (unit=0,fmt=*) minpiv
 1074   246  0 	Dd         write (unit=0,fmt=*)'--- MAXVAL(abs(AA~-1)), avg(abs(AA~-1):'
 1075   247  0 	c   ________________________________________________________________
 1076   248  0 	
 1077   249  0 	      do j=1,nf
 1078   250  0 	d             write (unit=0,fmt=*)'--- ACTION :'
 1079   251  0 	d 910         write (unit=0,fmt=*) ACT(n,dummy,f(:,j),method)
 1080   252  0 	              POBOX(j)=ACT(n,dummy,f(:,j),method)
 1081   253  0 	      end do
 1082   254  0 	      END FUNCTION POBOX
 1083   255  0 	c   _______________________________________________________END POBOX
 1084   256  0 	
 1085   257  0 	
 1086   258  0 	c   ________________________________________________________________
Mon Jan 15 15:21:16 1996 Connection Machine Fortran Version 2.2	page: 14
Symbol Storage Map   File: /tmp_mnt/home/B6D/salgado/POSETS/CM5/robpobox.fcm
ENTRY POINTS
  Offset  Type    Name
       0  REAL8   POBOX                           


STORAGE BLOCKS
    Size  Block
      19  local
     125  constants




VARIABLES
  Offset    Size  Type        Block           Name
       8       4  REAL4       local           FE       CMSSL_TOTAL_PIVOTING            
       0       4  INT4        local           FE       I                               
      12       4  INT4        local           FE       IERR                            
     ---       4  INT4        not-referenced  FE       ISEED                           
       4       4  INT4        local           FE       J                               
    3192       3  CHAR        local           FE       METHOD                          
     ---       4  INT4        dummy           FE       MEX                             
     ---       8  REAL8       dummy           FE       MINPIV                          
     ---       4  INT4        dummy           FE       N                               
     ---       4  INT4        dummy           FE       NF                              
     ---       8  REAL8       not-referenced  FE       PI                              
     ---       0  NONE        global          FE       _cmpe_pobox_0                   
     ---       0  NONE        global          FE       _cmpe_pobox_0_                  
     ---       0  NONE        global          FE       _cmpe_pobox_1                   
     ---       0  NONE        global          FE       _cmpe_pobox_1_                  
     ---       0  NONE        global          FE       _cmpe_pobox_2                   
     ---       0  NONE        global          FE       _cmpe_pobox_2_                  
     ---       0  NONE        global          FE       _cmpe_pobox_3                   
     ---       0  NONE        global          FE       _cmpe_pobox_3_                  
     ---       0  NONE        global          FE       _cmpe_pobox_4                   
     ---       0  NONE        global          FE       _cmpe_pobox_4_                  
     ---       0  NONE        global          FE       _cmpe_pobox_5                   
     ---       0  NONE        global          FE       _cmpe_pobox_5_                  
     ---       0  NONE        global          FE       _cmpe_pobox_6                   
     ---       0  NONE        global          FE       _cmpe_pobox_6_                  
     ---       0  NONE        global          FE       _cmpe_pobox_7                   
     ---       0  NONE        global          FE       _cmpe_pobox_7_                  
     ---       0  NONE        global          FE       _cmpe_pobox_8                   
     ---       0  NONE        global          FE       _cmpe_pobox_8_                  
     ---       0  NONE        not-referenced  FE       pobox                           


ARRAYS
  Offset    Size  Type        Block/Class     Home     Name
     ---     ---  REAL8       local-automatic CM       C                               
     ---     ---  REAL8       local-automatic CM       DUMMY                           
     ---     ---  REAL8       local-automatic CM       F                               
     ---     ---  INT4        local-automatic CM       L                               
Mon Jan 15 15:21:16 1996 Connection Machine Fortran Version 2.2	page: 15
Symbol Storage Map   File: /tmp_mnt/home/B6D/salgado/POSETS/CM5/robpobox.fcm
     ---     ---  INT4        local-automatic CM       LDUMMY                          
     ---     ---  INT4        local-automatic CM       MATMASK                         
     ---     ---  REAL8       dummy-adjust    CM       POBOX_0                         
     ---     ---  REAL8       not-referenced  CM       TEMPD                           
     ---     ---  INT4        local-automatic CM       VEC                             


PARAMETERS (Offset is within Storage Block 'constants')
  Offset  Type    Name                            Value
       0  INT4    IFR                             0
       0  INT4    NDIM                            2
       0  INT4    _DOUBLE_                        64
       0  INT4    _DOUBLE_COMPLEX_                64
       0  INT4    _DOUBLE_INT_                    64
       0  INT4    _SINGLE_                        32
       0  INT4    _SINGLE_COMPLEX_                32
       0  INT4    _SINGLE_INT_                    32


INTRINSIC PROCEDURES
  Name
  DLBOUND                         
  MAX                             
  REAL                            
  SPREAD                          
  TRANSPOSE                       


STATEMENT FUNCTIONS
  Type    Name


EXTERNALS
  Type    Unit_Kind     Name
  REAL8   function      ACT                             
  NONE    subroutine    DELETE                          
  NONE    subroutine    DISCARD1                        
  NONE    subroutine    DISCARD2                        
  REAL8   function      GEN_GJ_INVERT                   
  NONE    subroutine    LINK                            
  NONE    subroutine    SETC                            
  NONE    subroutine    SPRINKLE                        


NAME LISTS
  Name


CONSTRUCT NAMES
  Name



COMMUNICATION ROUTINES
  Name                          Line Number (number of times)
  BLOCKMOVE                     210, 221, 252
  VECTOR SEND                   214
Mon Jan 15 15:21:16 1996 Connection Machine Fortran Version 2.2	page: 16
Symbol Storage Map   File: /tmp_mnt/home/B6D/salgado/POSETS/CM5/robpobox.fcm
  SUBROUTINE ARGUMENT COPYOUT   252


Mon Jan 15 15:21:16 1996 Connection Machine Fortran Version 2.2	page: 17
Source Listing File: /tmp_mnt/home/B6D/salgado/POSETS/CM5/robpobox.fcm
 1087   259  0 	      SUBROUTINE sprinkle(n,ndim,coor,field)
 1088   260  0 	      integer :: n, ndim, iseed
 1089   261  0 	      real*8, array(:,:), INTENT(OUT) :: coor
 1090   262  0 	      real*8, array(:,:), INTENT(OUT) :: field
 1091   263  0 	
 1092   264  0 	      real*8 x(DUBOUND(coor,1),DUBOUND(coor,2))
 1093   265  0 	CMF$  layout coor(,), field(,), x(,)
 1094   266  0 	      integer nf
 1095   267  0 	      real*8 pi
 1096   268  0 	
 1097   269  0 	      ! ndim=DUBOUND(coor,2)
 1098   270  0 	      nf=DUBOUND(field,2)
 1099   271  0 	      pi=2.0d0*dasin(1.0d0)
 1100   272  0 	
 1101   273  0 	      coor=0.0d0                    ! make sure coor starts with 0
 1102   274  0 	      CALL CMF_RANDOM(x)            ! FILL x WITH 0 < RANDOM < 1
 1103   275  0 	      coor(:,1)=x(:,1)-x(:,2)       ! x
 1104   276  0 	      coor(:,2)=x(:,1)+x(:,2)-1.0d0 ! t
 1105   277  0 	      CALL FLD(field,coor)
 1106   278  0 	      end
 1107   279  0 	
Mon Jan 15 15:21:16 1996 Connection Machine Fortran Version 2.2	page: 18
Symbol Storage Map   File: /tmp_mnt/home/B6D/salgado/POSETS/CM5/robpobox.fcm
ENTRY POINTS
  Offset  Type    Name
       0  NONE    SPRINKLE                        


STORAGE BLOCKS
    Size  Block
      12  local
     108  constants




VARIABLES
  Offset    Size  Type        Block           Name
     ---       4  INT4        not-referenced  FE       ISEED                           
     ---       4  INT4        dummy           FE       N                               
     ---       4  INT4        dummy           FE       NDIM                            
       0       4  INT4        local           FE       NF                              
       4       8  REAL8       local           FE       PI                              
     ---       0  NONE        global          FE       _cmpe_sprinkle_0                
     ---       0  NONE        global          FE       _cmpe_sprinkle_0_               
     ---       0  NONE        global          FE       _cmpe_sprinkle_1                
     ---       0  NONE        global          FE       _cmpe_sprinkle_1_               
     ---       0  NONE        global          FE       _cmpe_sprinkle_2                
     ---       0  NONE        global          FE       _cmpe_sprinkle_2_               
     ---       0  NONE        global          FE       _cmpe_sprinkle_3                
     ---       0  NONE        global          FE       _cmpe_sprinkle_3_               
     ---       0  NONE        global          FE       _cmpe_sprinkle_4                
     ---       0  NONE        global          FE       _cmpe_sprinkle_4_               
     ---       0  NONE        global          FE       _cmpe_sprinkle_5                
     ---       0  NONE        global          FE       _cmpe_sprinkle_5_               
     ---       0  NONE        not-referenced  FE       sprinkle                        


ARRAYS
  Offset    Size  Type        Block/Class     Home     Name
     ---     ---  REAL8       dummy-asu-shape CM       COOR                            
     ---     ---  REAL8       dummy-asu-shape CM       FIELD                           
     ---     ---  REAL8       local-automatic CM       X                               


PARAMETERS (Offset is within Storage Block 'constants')
  Offset  Type    Name                            Value
       0  INT4    _DOUBLE_                        64
       0  INT4    _DOUBLE_COMPLEX_                64
       0  INT4    _DOUBLE_INT_                    64
       0  INT4    _SINGLE_                        32
       0  INT4    _SINGLE_COMPLEX_                32
       0  INT4    _SINGLE_INT_                    32


INTRINSIC PROCEDURES
  Name
  DASIN                           
Mon Jan 15 15:21:16 1996 Connection Machine Fortran Version 2.2	page: 19
Symbol Storage Map   File: /tmp_mnt/home/B6D/salgado/POSETS/CM5/robpobox.fcm
  DUBOUND                         


STATEMENT FUNCTIONS
  Type    Name


EXTERNALS
  Type    Unit_Kind     Name
  NONE    subroutine    CMF_RANDOM                      
  NONE    subroutine    FLD                             


NAME LISTS
  Name


CONSTRUCT NAMES
  Name



COMMUNICATION ROUTINES
  Name                          Line Number (number of times)
  NEWS                          275
  BLOCKMOVE                     275, 276


Mon Jan 15 15:21:16 1996 Connection Machine Fortran Version 2.2	page: 20
Source Listing File: /tmp_mnt/home/B6D/salgado/POSETS/CM5/robpobox.fcm
 1108   280  0 	      SUBROUTINE fld(field,coor)
 1109   281  0 	      real*8, array(:,:), INTENT(IN) :: coor
 1110   282  0 	      real*8, array(:,:), INTENT(OUT) :: field
 1111   283  0 	
 1112   284  0 	      real*8 u(DUBOUND(coor,1))
 1113   285  0 	      real*8 v(DUBOUND(coor,1))
 1114   286  0 	
 1115   287  0 	      real*8 pi
 1116   288  0 	CMF$  layout coor(,), field(,), u(), v()
 1117   289  0 	
 1118   290  0 	      pi=2.0d0*dasin(1.0d0)
 1119   291  0 	
 1120   292  0 	      u(:)=(coor(:,1)+coor(:,2))
 1121   293  0 	      v(:)=(coor(:,1)-coor(:,2))
 1122   294  0 	
 1123   295  0 	      if ( ANY(abs(u).gt. 1.0d0 .or. abs(v).gt. 1.0d0)) then
 1124   296  0 	        CALL HALT
 1125   297  0 	      end if
 1126   298  0 	
 1127   299  0 	c     (Alan's) Function 1:
 1128   300  0 	          field(:,1)= ( (u*u-1.0d0)*(v*v-1.0d0) )**2.0d0
 1129   301  0 	c     (Alan's) Function 2:
 1130   302  0 	          field(:,2)=(1.0d0+dcos(pi*u))*(1.0d0+cos(pi*v))
 1131   303  0 	c     (Alan's) Function 3:
 1132   304  0 	          field(:,3)=(1.0d0-u)*field(:,1)
 1133   305  0 	c     (Alan's) Function 4:
 1134   306  0 	          field(:,4)=(1.0d0+dcos(5.0d0*pi*u))*(1.0d0+cos(5.0d0*pi*v))
 1135   307  0 	c     (Alan's) Function 5:
 1136   308  0 	          field(:,5)=u
 1137   309  0 	c     (Alan's) Function 6:
 1138   310  0 	          field(:,6)=v
 1139   311  0 	c     (Alan's) Function 7:
 1140   312  0 	          field(:,7)=(u+v)/2.0d0
 1141   313  0 	c     (Alan's) Function 8:
 1142   314  0 	          field(:,8)=(u-v)/2.0d0
 1143   315  0 	c     (Alan's) Function 9:
 1144   316  0 	          field(:,9)=field(:,7)*field(:,1)
 1145   317  0 	c     (Alan's) Function 10:
 1146   318  0 	          field(:,10)=field(:,8)*field(:,1)
 1147   319  0 	c     (Alan's) Function 11:
 1148   320  0 	          field(:,11)=field(:,7)*field(:,2)
 1149   321  0 	c     (Alan's) Function 12:
 1150   322  0 	          field(:,12)=field(:,8)*field(:,2)
 1151   323  0 	c
 1152   324  0 	cc The next two functions are meant to test lorentz invariance. They both
 1153   325  0 	cc should give zero, and are related by a boost.  Hence, ignoring
 1154   326  0 	cc finite size effects, pobox should do as good a job on one of
 1155   327  0 	cc them as on the other.  Of course, should also test boost-related
 1156   328  0 	cc functions which have nonzero actions.
 1157   329  0 	c     Function 13:
 1158   330  0 	         field(:,13) = (1.0d0-dcos(4.0d0*pi*u)) * (1.0d0+dcos( pi*v))
 1159   331  0 	c     Function 14:
Mon Jan 15 15:21:16 1996 Connection Machine Fortran Version 2.2	page: 21
Source Listing File: /tmp_mnt/home/B6D/salgado/POSETS/CM5/robpobox.fcm
 1160   332  0 	         field(:,14) = (1.0d0-dcos(2.0d0*pi*u)) * (1.0d0-dcos(2.0d0*pi*v))
 1161   333  0 	c
 1162   334  0 	c
 1163   335  0 	cc 1995-Oct
 1164   336  0 	cc The next two functions are "asymmetric" functions.
 1165   337  0 	cc The first is smooth and vanishes to second order at u,v = +-1
 1166   338  0 	cc The second is only C^0 and vanishes only to first order
 1167   339  0 	cc
 1168   340  0 	cc     Function 15:
 1169   341  0 	         field(:,15) = (3.0d0*u+5.0d0*v+7.0d0)* 
 1170   342  0 	     &                ( (u*u-1.0d0)*(v*v-1.0d0) )**2.0d0
 1171   343  0 	cc
 1172   344  0 	cc
 1173   345  0 	cc     (3|u-1/2| +5|v+1/3| + 7)  (u^2-1) (v^2-1)
 1174   346  0 	c
 1175   347  0 	cc      Function 16:
 1176   348  0 	         field(:,16)=( 3.0d0*dabs(u-1.0d0/2.0d0) +
 1177   349  0 	     &                 5.0d0*dabs(v+1.0d0/3.0d0) + 7 )
 1178   350  0 	     &               *( (u*u-1.0d0)*(v*v-1.0d0) )
 1179   351  0 	
 1180   352  0 	
 1181   353  0 	cc     Function 1:
 1182   354  0 	c         field(:,1) = (3.0d0*u+5.0d0*v+7.0d0)* 
 1183   355  0 	c     &                ( (u*u-1.0d0)*(v*v-1.0d0) )**2.0d0
 1184   356  0 	cc     Function 2:
 1185   357  0 	c         field(:,2) = (2.0d0*u+5.0d0*v+7.0d0)* 
 1186   358  0 	c     &                ( (u*u-1.0d0)*(v*v-1.0d0) )**2.0d0
 1187   359  0 	cc     Function 3:
 1188   360  0 	c         field(:,3) = (1.0d0*u+5.0d0*v+7.0d0)* 
 1189   361  0 	c     &                ( (u*u-1.0d0)*(v*v-1.0d0) )**2.0d0
 1190   362  0 	cc     Function 4:
 1191   363  0 	c         field(:,4) = (1.0d0*u+6.0d0*v+7.0d0)* 
 1192   364  0 	c     &                ( (u*u-1.0d0)*(v*v-1.0d0) )**2.0d0
 1193   365  0 	cc     Function 5:
 1194   366  0 	c         field(:,5) = (1.0d0*u+7.0d0*v+7.0d0)* 
 1195   367  0 	c     &                ( (u*u-1.0d0)*(v*v-1.0d0) )**2.0d0
 1196   368  0 	cc     Function 6:
 1197   369  0 	c         field(:,6) = (1.0d0*u+8.0d0*v+7.0d0)* 
 1198   370  0 	c     &                ( (u*u-1.0d0)*(v*v-1.0d0) )**2.0d0
 1199   371  0 	cc     Function 7:
 1200   372  0 	c         field(:,7) = (1.0d0*u+9.0d0*v+7.0d0)* 
 1201   373  0 	c     &                ( (u*u-1.0d0)*(v*v-1.0d0) )**2.0d0
 1202   374  0 	cc     Function 8:
 1203   375  0 	c         field(:,8) = (1.0d0*u+10.0d0*v+7.0d0)* 
 1204   376  0 	c     &                ( (u*u-1.0d0)*(v*v-1.0d0) )**2.0d0
 1205   377  0 	cc     Function 9:
 1206   378  0 	c         field(:,9) = (3.0d0*u+5.0d0*v+8.0d0)* 
 1207   379  0 	c     &                ( (u*u-1.0d0)*(v*v-1.0d0) )**2.0d0
 1208   380  0 	cc     Function 10:
 1209   381  0 	c         field(:,10) = (3.0d0*u+5.0d0*v+9.0d0)* 
 1210   382  0 	c     &                ( (u*u-1.0d0)*(v*v-1.0d0) )**2.0d0
 1211   383  0 	cc     Function 11:
Mon Jan 15 15:21:16 1996 Connection Machine Fortran Version 2.2	page: 22
Source Listing File: /tmp_mnt/home/B6D/salgado/POSETS/CM5/robpobox.fcm
 1212   384  0 	c         field(:,11) = (3.0d0*u+5.0d0*v+10.0d0)* 
 1213   385  0 	c     &                ( (u*u-1.0d0)*(v*v-1.0d0) )**2.0d0
 1214   386  0 	cc     Function 12:
 1215   387  0 	c         field(:,12) = (3.0d0*u+5.0d0*v+11.0d0)* 
 1216   388  0 	c     &                ( (u*u-1.0d0)*(v*v-1.0d0) )**2.0d0
 1217   389  0 	cc     Function 13:
 1218   390  0 	c         field(:,13) = (3.0d0*u+5.0d0*v+12.0d0)* 
 1219   391  0 	c     &                ( (u*u-1.0d0)*(v*v-1.0d0) )**2.0d0
 1220   392  0 	cc     Function 14:
 1221   393  0 	c         field(:,14) = (3.0d0*u+5.0d0*v+13.0d0)* 
 1222   394  0 	c     &                ( (u*u-1.0d0)*(v*v-1.0d0) )**2.0d0
 1223   395  0 	cc     Function 15:
 1224   396  0 	c         field(:,15) = (3.0d0*u+5.0d0*v+14.0d0)* 
 1225   397  0 	c     &                ( (u*u-1.0d0)*(v*v-1.0d0) )**2.0d0
 1226   398  0 	cc     Function 16:
 1227   399  0 	c         field(:,16) = (3.0d0*u+5.0d0*v+15.0d0)* 
 1228   400  0 	c     &                ( (u*u-1.0d0)*(v*v-1.0d0) )**2.0d0
 1229   401  0 	
 1230   402  0 	
 1231   403  0 	
 1232   404  0 	cc      print *, 'f(', u , ',' , v , ')=' , field
 1233   405  0 	      end
 1234   406  0 	
 1235   407  0 	c   ________________________________________________________________
Mon Jan 15 15:21:16 1996 Connection Machine Fortran Version 2.2	page: 23
Symbol Storage Map   File: /tmp_mnt/home/B6D/salgado/POSETS/CM5/robpobox.fcm
ENTRY POINTS
  Offset  Type    Name
       0  NONE    FLD                             


STORAGE BLOCKS
    Size  Block
       8  local
     460  constants




VARIABLES
  Offset    Size  Type        Block           Name
       0       8  REAL8       local           FE       PI                              
     ---       0  NONE        global          FE       _cmpe_fld_0                     
     ---       0  NONE        global          FE       _cmpe_fld_0_                    
     ---       0  NONE        global          FE       _cmpe_fld_1                     
     ---       0  NONE        global          FE       _cmpe_fld_10                    
     ---       0  NONE        global          FE       _cmpe_fld_10_                   
     ---       0  NONE        global          FE       _cmpe_fld_11                    
     ---       0  NONE        global          FE       _cmpe_fld_11_                   
     ---       0  NONE        global          FE       _cmpe_fld_12                    
     ---       0  NONE        global          FE       _cmpe_fld_12_                   
     ---       0  NONE        global          FE       _cmpe_fld_13                    
     ---       0  NONE        global          FE       _cmpe_fld_13_                   
     ---       0  NONE        global          FE       _cmpe_fld_14                    
     ---       0  NONE        global          FE       _cmpe_fld_14_                   
     ---       0  NONE        global          FE       _cmpe_fld_15                    
     ---       0  NONE        global          FE       _cmpe_fld_15_                   
     ---       0  NONE        global          FE       _cmpe_fld_16                    
     ---       0  NONE        global          FE       _cmpe_fld_16_                   
     ---       0  NONE        global          FE       _cmpe_fld_17                    
     ---       0  NONE        global          FE       _cmpe_fld_17_                   
     ---       0  NONE        global          FE       _cmpe_fld_18                    
     ---       0  NONE        global          FE       _cmpe_fld_18_                   
     ---       0  NONE        global          FE       _cmpe_fld_19                    
     ---       0  NONE        global          FE       _cmpe_fld_19_                   
     ---       0  NONE        global          FE       _cmpe_fld_1_                    
     ---       0  NONE        global          FE       _cmpe_fld_2                     
     ---       0  NONE        global          FE       _cmpe_fld_20                    
     ---       0  NONE        global          FE       _cmpe_fld_20_                   
     ---       0  NONE        global          FE       _cmpe_fld_21                    
     ---       0  NONE        global          FE       _cmpe_fld_21_                   
     ---       0  NONE        global          FE       _cmpe_fld_22                    
     ---       0  NONE        global          FE       _cmpe_fld_22_                   
     ---       0  NONE        global          FE       _cmpe_fld_23                    
     ---       0  NONE        global          FE       _cmpe_fld_23_                   
     ---       0  NONE        global          FE       _cmpe_fld_24                    
     ---       0  NONE        global          FE       _cmpe_fld_24_                   
     ---       0  NONE        global          FE       _cmpe_fld_25                    
     ---       0  NONE        global          FE       _cmpe_fld_25_                   
Mon Jan 15 15:21:16 1996 Connection Machine Fortran Version 2.2	page: 24
Symbol Storage Map   File: /tmp_mnt/home/B6D/salgado/POSETS/CM5/robpobox.fcm
     ---       0  NONE        global          FE       _cmpe_fld_26                    
     ---       0  NONE        global          FE       _cmpe_fld_26_                   
     ---       0  NONE        global          FE       _cmpe_fld_27                    
     ---       0  NONE        global          FE       _cmpe_fld_27_                   
     ---       0  NONE        global          FE       _cmpe_fld_28                    
     ---       0  NONE        global          FE       _cmpe_fld_28_                   
     ---       0  NONE        global          FE       _cmpe_fld_29                    
     ---       0  NONE        global          FE       _cmpe_fld_29_                   
     ---       0  NONE        global          FE       _cmpe_fld_2_                    
     ---       0  NONE        global          FE       _cmpe_fld_3                     
     ---       0  NONE        global          FE       _cmpe_fld_30                    
     ---       0  NONE        global          FE       _cmpe_fld_30_                   
     ---       0  NONE        global          FE       _cmpe_fld_31                    
     ---       0  NONE        global          FE       _cmpe_fld_31_                   
     ---       0  NONE        global          FE       _cmpe_fld_32                    
     ---       0  NONE        global          FE       _cmpe_fld_32_                   
     ---       0  NONE        global          FE       _cmpe_fld_33                    
     ---       0  NONE        global          FE       _cmpe_fld_33_                   
     ---       0  NONE        global          FE       _cmpe_fld_3_                    
     ---       0  NONE        global          FE       _cmpe_fld_4                     
     ---       0  NONE        global          FE       _cmpe_fld_4_                    
     ---       0  NONE        global          FE       _cmpe_fld_5                     
     ---       0  NONE        global          FE       _cmpe_fld_5_                    
     ---       0  NONE        global          FE       _cmpe_fld_6                     
     ---       0  NONE        global          FE       _cmpe_fld_6_                    
     ---       0  NONE        global          FE       _cmpe_fld_7                     
     ---       0  NONE        global          FE       _cmpe_fld_7_                    
     ---       0  NONE        global          FE       _cmpe_fld_8                     
     ---       0  NONE        global          FE       _cmpe_fld_8_                    
     ---       0  NONE        global          FE       _cmpe_fld_9                     
     ---       0  NONE        global          FE       _cmpe_fld_9_                    
     ---       0  NONE        not-referenced  FE       fld                             


ARRAYS
  Offset    Size  Type        Block/Class     Home     Name
     ---     ---  REAL8       dummy-asu-shape CM       COOR                            
     ---     ---  REAL8       dummy-asu-shape CM       FIELD                           
     ---     ---  REAL8       local-automatic CM       U                               
     ---     ---  REAL8       local-automatic CM       V                               


PARAMETERS (Offset is within Storage Block 'constants')
  Offset  Type    Name                            Value
       0  INT4    _DOUBLE_                        64
       0  INT4    _DOUBLE_COMPLEX_                64
       0  INT4    _DOUBLE_INT_                    64
       0  INT4    _SINGLE_                        32
       0  INT4    _SINGLE_COMPLEX_                32
       0  INT4    _SINGLE_INT_                    32


Mon Jan 15 15:21:16 1996 Connection Machine Fortran Version 2.2	page: 25
Symbol Storage Map   File: /tmp_mnt/home/B6D/salgado/POSETS/CM5/robpobox.fcm
INTRINSIC PROCEDURES
  Name
  ABS                             
  ANY                             
  COS                             
  DABS                            
  DASIN                           
  DCOS                            
  DUBOUND                         


STATEMENT FUNCTIONS
  Type    Name


EXTERNALS
  Type    Unit_Kind     Name
  NONE    subroutine    HALT                            


NAME LISTS
  Name


CONSTRUCT NAMES
  Name



COMMUNICATION ROUTINES
  Name                          Line Number (number of times)
  ANY (into scalar)             295
  NEWS                          292, 316(2), 318(2), 320(2), 322(2)
  BLOCKMOVE                     292, 293, 300, 302, 304(2), 306, 308, 310, 312, 314, 330, 332, 341, 348


Mon Jan 15 15:21:16 1996 Connection Machine Fortran Version 2.2	page: 26
Source Listing File: /tmp_mnt/home/B6D/salgado/POSETS/CM5/robpobox.fcm
 1236   408  0 	      SUBROUTINE setc(n,ndim,coor,l)
 1237   409  0 	      integer :: n,ndim
 1238   410  0 	      real*8, array(:,:), INTENT(IN) :: coor   ! coor(mex,4)
 1239   411  0 	      integer, array(:,:),INTENT(OUT) :: l    ! l(mex,mex)
 1240   412  0 	
 1241   413  0 	
 1242   414  0 	      real*8 dt(DUBOUND(coor,1),DUBOUND(coor,1))
 1243   415  0 	      real*8 dx(DUBOUND(coor,1),DUBOUND(coor,1))
 1244   416  0 	CMF$  layout coor(,), l(,), dt(,), dx(,)
 1245   417  0 	      integer i,j
 1246   418  0 	
 1247   419  0 	      l=0                           ! set the causal matrix to zero
 1248   420  0 	      if (ndim.eq.2) then
 1249   421  0 	         forall (i=1:n, j=1:n) dt(i,j)=coor(i,2)-coor(j,2)
 1250   422  0 	         forall (i=1:n, j=1:n) dx(i,j)=coor(i,1)-coor(j,1)
 1251   423  0 	         where (dt.lt.0.0d0 .and. dt*dt.ge.dx*dx) 
 1252   424  0 	              l=1
 1253   425  0 	            elsewhere 
 1254   426  0 	              l=0
 1255   427  0 	         end where
 1256   428  0 	      end if
 1257   429  0 	
 1258   430  0 	      if (ndim.eq.4) then
 1259   431  0 	         print *, "Not implemented yet."
 1260   432  0 	         CALL HALT
 1261   433  0 	      end if
 1262   434  0 	
 1263   435  0 	      end
 1264   436  0 	
 1265   437  0 	c   ________________________________________________________________
Mon Jan 15 15:21:16 1996 Connection Machine Fortran Version 2.2	page: 27
Symbol Storage Map   File: /tmp_mnt/home/B6D/salgado/POSETS/CM5/robpobox.fcm
ENTRY POINTS
  Offset  Type    Name
       0  NONE    SETC                            


STORAGE BLOCKS
    Size  Block
       8  local
      96  constants




VARIABLES
  Offset    Size  Type        Block           Name
       0       4  INT4        local           FE       I                               
       4       4  INT4        local           FE       J                               
     ---       4  INT4        dummy           FE       N                               
     ---       4  INT4        dummy           FE       NDIM                            
     ---       0  NONE        global          FE       _cmpe_setc_0                    
     ---       0  NONE        global          FE       _cmpe_setc_0_                   
     ---       0  NONE        global          FE       _cmpe_setc_1                    
     ---       0  NONE        global          FE       _cmpe_setc_1_                   
     ---       0  NONE        global          FE       _cmpe_setc_2                    
     ---       0  NONE        global          FE       _cmpe_setc_2_                   
     ---       0  NONE        global          FE       _cmpe_setc_3                    
     ---       0  NONE        global          FE       _cmpe_setc_3_                   
     ---       0  NONE        global          FE       _cmpe_setc_4                    
     ---       0  NONE        global          FE       _cmpe_setc_4_                   
     ---       0  NONE        global          FE       _cmpe_setc_5                    
     ---       0  NONE        global          FE       _cmpe_setc_5_                   
     ---       0  NONE        not-referenced  FE       setc                            


ARRAYS
  Offset    Size  Type        Block/Class     Home     Name
     ---     ---  REAL8       dummy-asu-shape CM       COOR                            
     ---     ---  REAL8       local-automatic CM       DT                              
     ---     ---  REAL8       local-automatic CM       DX                              
     ---     ---  INT4        dummy-asu-shape CM       L                               


PARAMETERS (Offset is within Storage Block 'constants')
  Offset  Type    Name                            Value
       0  INT4    _DOUBLE_                        64
       0  INT4    _DOUBLE_COMPLEX_                64
       0  INT4    _DOUBLE_INT_                    64
       0  INT4    _SINGLE_                        32
       0  INT4    _SINGLE_COMPLEX_                32
       0  INT4    _SINGLE_INT_                    32


INTRINSIC PROCEDURES
  Name
  DUBOUND                         
Mon Jan 15 15:21:16 1996 Connection Machine Fortran Version 2.2	page: 28
Symbol Storage Map   File: /tmp_mnt/home/B6D/salgado/POSETS/CM5/robpobox.fcm
  SPREAD                          


STATEMENT FUNCTIONS
  Type    Name


EXTERNALS
  Type    Unit_Kind     Name
  NONE    subroutine    HALT                            


NAME LISTS
  Name


CONSTRUCT NAMES
  Name



COMMUNICATION ROUTINES
  Name                          Line Number (number of times)
  BLOCKMOVE                     421(2), 422(2), 424, 426
  SPREAD                        421(2), 422(2)


Mon Jan 15 15:21:16 1996 Connection Machine Fortran Version 2.2	page: 29
Source Listing File: /tmp_mnt/home/B6D/salgado/POSETS/CM5/robpobox.fcm
 1266   438  0 	      SUBROUTINE relab(mex,n,l,f)
 1267   439  0 	      integer mex, n, i, j, k
 1268   440  0 	      real*8 f(:,:)
 1269   441  0 	CMF$  layout f(,)
 1270   442  0 	      integer l(mex,mex),m(mex),sig(mex)
 1271   443  0 	CMF$  layout l(,), m(), sig()
 1272   444  0 	
 1273   445  0 	      call tri(mex,n,l,sig)
 1274   446  0 	        forall (i=1:n) l(sig(i),:)=l(i,:)    ! execute permutation
 1275   447  0 	        forall (j=1:n) l(:,sig(j))=l(:,j)    ! on causal matrix
 1276   448  0 	        forall (i=1:n) f(sig(i),:)=f(i,:)        ! on field values
 1277   449  0 	      end
 1278   450  0 	
 1279   451  0 	
Mon Jan 15 15:21:16 1996 Connection Machine Fortran Version 2.2	page: 30
Symbol Storage Map   File: /tmp_mnt/home/B6D/salgado/POSETS/CM5/robpobox.fcm
ENTRY POINTS
  Offset  Type    Name
       0  NONE    RELAB                           


STORAGE BLOCKS
    Size  Block
       8  local
      44  constants




VARIABLES
  Offset    Size  Type        Block           Name
       0       4  INT4        local           FE       I                               
       4       4  INT4        local           FE       J                               
     ---       4  INT4        not-referenced  FE       K                               
     ---       4  INT4        dummy           FE       MEX                             
     ---       4  INT4        dummy           FE       N                               
     ---       0  NONE        global          FE       _cmpe_relab_0                   
     ---       0  NONE        global          FE       _cmpe_relab_0_                  
     ---       0  NONE        global          FE       _cmpe_relab_1                   
     ---       0  NONE        global          FE       _cmpe_relab_1_                  
     ---       0  NONE        global          FE       _cmpe_relab_2                   
     ---       0  NONE        global          FE       _cmpe_relab_2_                  
     ---       0  NONE        global          FE       _cmpe_relab_3                   
     ---       0  NONE        global          FE       _cmpe_relab_3_                  
     ---       0  NONE        global          FE       _cmpe_relab_4                   
     ---       0  NONE        global          FE       _cmpe_relab_4_                  
     ---       0  NONE        global          FE       _cmpe_relab_5                   
     ---       0  NONE        global          FE       _cmpe_relab_5_                  
     ---       0  NONE        global          FE       _cmpe_relab_6                   
     ---       0  NONE        global          FE       _cmpe_relab_6_                  
     ---       0  NONE        global          FE       _cmpe_relab_7                   
     ---       0  NONE        global          FE       _cmpe_relab_7_                  
     ---       0  NONE        not-referenced  FE       relab                           


ARRAYS
  Offset    Size  Type        Block/Class     Home     Name
     ---     ---  REAL8       dummy-asu-shape CM       F                               
     ---     ---  INT4        dummy-adjust    CM       L                               
     ---     ---  INT4        not-referenced  CM       M                               
     ---     ---  INT4        local-automatic CM       SIG                             


PARAMETERS (Offset is within Storage Block 'constants')
  Offset  Type    Name                            Value
       0  INT4    _DOUBLE_                        64
       0  INT4    _DOUBLE_COMPLEX_                64
       0  INT4    _DOUBLE_INT_                    64
       0  INT4    _SINGLE_                        32
Mon Jan 15 15:21:16 1996 Connection Machine Fortran Version 2.2	page: 31
Symbol Storage Map   File: /tmp_mnt/home/B6D/salgado/POSETS/CM5/robpobox.fcm
       0  INT4    _SINGLE_COMPLEX_                32
       0  INT4    _SINGLE_INT_                    32


INTRINSIC PROCEDURES
  Name
  DLBOUND                         
  DSIZE                           
  SPREAD                          


STATEMENT FUNCTIONS
  Type    Name


EXTERNALS
  Type    Unit_Kind     Name
  NONE    subroutine    TRI                             


NAME LISTS
  Name


CONSTRUCT NAMES
  Name



COMMUNICATION ROUTINES
  Name                          Line Number (number of times)
  BLOCKMOVE                     446, 447(2), 448
  VECTOR SEND                   446, 447, 448
  SPREAD                        446, 447, 448


Mon Jan 15 15:21:16 1996 Connection Machine Fortran Version 2.2	page: 32
Source Listing File: /tmp_mnt/home/B6D/salgado/POSETS/CM5/robpobox.fcm
 1280   452  0 	      SUBROUTINE tri(mex,n,zeta,sig)       ! a serial subroutine
 1281   453  0 	      implicit integer (a-z)               ! which generates a
 1282   454  0 	      dimension sig(mex), zeta(mex,mex)    ! permutation in order
 1283   455  0 	CMF$  layout sig(), zeta(,)                ! to make the adjacency
 1284   456  0 	
 1285   457  0 	 10      m=0                                ! matrix upper triangular
 1286   458  0 	         l=0
 1287   459  0 	 11      sig=0
 1288   460  0 	 20      m=m+1
 1289   461  0 	 30      if (sig(m).eq.0) goto 40
 1290   462  0 	 130     if (m.eq.n) return
 1291   463  0 	         goto 20
 1292   464  0 	 40      t=m+1
 1293   465  0 	 50      r=t
 1294   466  0 	 60      if (r.gt.n) goto 100
 1295   467  0 	 70      if (sig(r).ne.0 .or. zeta(r,m).eq.0) goto 90
 1296   468  0 	 80      sig(r)=m
 1297   469  0 	         m=r
 1298   470  0 	         goto 50
 1299   471  0 	 90      r=r+1
 1300   472  0 	         goto 60
 1301   473  0 	 100     l=l+1
 1302   474  0 	         q=sig(m)
 1303   475  0 	         sig(m)=l
 1304   476  0 	 110     if (q.eq.0) goto 130
 1305   477  0 	         r=m+1
 1306   478  0 	 120     m=q
 1307   479  0 	         goto 60
 1308   480  0 	         end
 1309   481  0 	
 1310   482  0 	c   ________________________________________________________________
Mon Jan 15 15:21:16 1996 Connection Machine Fortran Version 2.2	page: 33
Symbol Storage Map   File: /tmp_mnt/home/B6D/salgado/POSETS/CM5/robpobox.fcm
ENTRY POINTS
  Offset  Type    Name
       0  NONE    TRI                             


STORAGE BLOCKS
    Size  Block
      20  local
     128  constants




VARIABLES
  Offset    Size  Type        Block           Name
       4       4  INT4        local           FE       L                               
       0       4  INT4        local           FE       M                               
     ---       4  INT4        dummy           FE       MEX                             
     ---       4  INT4        dummy           FE       N                               
      16       4  INT4        local           FE       Q                               
      12       4  INT4        local           FE       R                               
       8       4  INT4        local           FE       T                               
     ---       0  NONE        global          FE       _cmpe_tri_0                     
     ---       0  NONE        global          FE       _cmpe_tri_0_                    
     ---       0  NONE        not-referenced  FE       tri                             


ARRAYS
  Offset    Size  Type        Block/Class     Home     Name
     ---     ---  INT4        dummy-adjust    CM       SIG                             
     ---     ---  INT4        dummy-adjust    CM       ZETA                            


PARAMETERS (Offset is within Storage Block 'constants')
  Offset  Type    Name                            Value
       0  INT4    _DOUBLE_                        64
       0  INT4    _DOUBLE_COMPLEX_                64
       0  INT4    _DOUBLE_INT_                    64
       0  INT4    _SINGLE_                        32
       0  INT4    _SINGLE_COMPLEX_                32
       0  INT4    _SINGLE_INT_                    32


INTRINSIC PROCEDURES
  Name


STATEMENT FUNCTIONS
  Type    Name


EXTERNALS
  Type    Unit_Kind     Name


Mon Jan 15 15:21:16 1996 Connection Machine Fortran Version 2.2	page: 34
Symbol Storage Map   File: /tmp_mnt/home/B6D/salgado/POSETS/CM5/robpobox.fcm
NAME LISTS
  Name


CONSTRUCT NAMES
  Name



COMMUNICATION ROUTINES
  Name                          Line Number (number of times)
  READ VALUE FROM PROCESSOR     461, 467, 474, 467


Mon Jan 15 15:21:16 1996 Connection Machine Fortran Version 2.2	page: 35
Source Listing File: /tmp_mnt/home/B6D/salgado/POSETS/CM5/robpobox.fcm
 1311   483  0 	      SUBROUTINE discard1(n,ldu,vec)     ! a subroutine to
 1312   484  0 	      integer :: n                       ! locate a zero column
 1313   485  0 	      integer, array(:,:),INTENT(IN)  :: ldu   
 1314   486  0 	      integer, array(:),  INTENT(OUT) :: vec
 1315   487  0 	
 1316   488  0 	CMF$  layout ldu(,), vec()
 1317   489  0 	      integer i,j,nn
 1318   490  0 	
 1319   491  0 	      nn=DUBOUND(vec,1)
 1320   492  0 	
 1321   493  0 	      if (n.eq.1) then
 1322   494  0 	         print *,' matrix of rank 1 and so no deletion possible'
 1323   495  0 	         print *,' exiting discard1 immediately'
 1324   496  0 	         goto 40
 1325   497  0 	      end if
 1326   498  0 	      if (n.lt.1) then
 1327   499  0 	         print *,' matrix of rank < 1 not possible !'
 1328   500  0 	         call halt
 1329   501  0 	      end if
 1330   502  0 	                                      ! note: ldu has non-negative entries
 1331   503  0 	      vec=sum(ldu,dim=1)              ! recall: ldu has diagonal ifr
 1332   504  0 	      where (vec.ge.1) vec=1          ! will delete where vec=0
 1333   505  0 	
 1334   506  0 	      if ( any ((vec.eq.0).and.([1:nn].le.n)) )
 1335   507  0 	     & print *,'DISCARD1: ',pack([1:nn],(vec.eq.0).and.([1:nn].le.n))
 1336   508  0 	d     write (unit=0,fmt=*),'DISCARD1: ',
 1337   509  0 	d    &  pack([1:nn],(vec.eq.0).and.([1:nn].le.n))
 1338   510  0 	
 1339   511  0 	 40   end
 1340   512  0 	c   ________________________________________________________________
Mon Jan 15 15:21:16 1996 Connection Machine Fortran Version 2.2	page: 36
Symbol Storage Map   File: /tmp_mnt/home/B6D/salgado/POSETS/CM5/robpobox.fcm
ENTRY POINTS
  Offset  Type    Name
       0  NONE    DISCARD1                        


STORAGE BLOCKS
    Size  Block
       4  local
     166  constants




VARIABLES
  Offset    Size  Type        Block           Name
     ---       4  INT4        not-referenced  FE       I                               
     ---       4  INT4        not-referenced  FE       J                               
     ---       4  INT4        dummy           FE       N                               
       0       4  INT4        local           FE       NN                              
     ---       0  NONE        global          FE       _cmpe_discard1_0                
     ---       0  NONE        global          FE       _cmpe_discard1_0_               
     ---       0  NONE        global          FE       _cmpe_discard1_1                
     ---       0  NONE        global          FE       _cmpe_discard1_1_               
     ---       0  NONE        global          FE       _cmpe_discard1_2                
     ---       0  NONE        global          FE       _cmpe_discard1_2_               
     ---       0  NONE        global          FE       _cmpe_discard1_3                
     ---       0  NONE        global          FE       _cmpe_discard1_3_               
     ---       0  NONE        global          FE       _cmpe_discard1_4                
     ---       0  NONE        global          FE       _cmpe_discard1_4_               
     ---       0  NONE        not-referenced  FE       discard1                        


ARRAYS
  Offset    Size  Type        Block/Class     Home     Name
     ---     ---  INT4        dummy-asu-shape CM       LDU                             
     ---     ---  INT4        dummy-asu-shape CM       VEC                             


PARAMETERS (Offset is within Storage Block 'constants')
  Offset  Type    Name                            Value
       0  INT4    _DOUBLE_                        64
       0  INT4    _DOUBLE_COMPLEX_                64
       0  INT4    _DOUBLE_INT_                    64
       0  INT4    _SINGLE_                        32
       0  INT4    _SINGLE_COMPLEX_                32
       0  INT4    _SINGLE_INT_                    32


INTRINSIC PROCEDURES
  Name
  ANY                             
  DUBOUND                         
  PACK                            
  SUM                             

Mon Jan 15 15:21:16 1996 Connection Machine Fortran Version 2.2	page: 37
Symbol Storage Map   File: /tmp_mnt/home/B6D/salgado/POSETS/CM5/robpobox.fcm

STATEMENT FUNCTIONS
  Type    Name


EXTERNALS
  Type    Unit_Kind     Name
  NONE    subroutine    HALT                            


NAME LISTS
  Name


CONSTRUCT NAMES
  Name



COMMUNICATION ROUTINES
  Name                          Line Number (number of times)
  COUNT (into scalar)           506
  ANY (into scalar)             506
  BLOCKMOVE                     503, 506(2)
  CM TO FE ARRAY TRANSFER       506
  SUM (into vector)             503
  PACK (without vector arg)     506


Mon Jan 15 15:21:16 1996 Connection Machine Fortran Version 2.2	page: 38
Source Listing File: /tmp_mnt/home/B6D/salgado/POSETS/CM5/robpobox.fcm
 1341   513  0 	      SUBROUTINE discard2(n,ldu,vec)     ! a subroutine to
 1342   514  0 	      integer :: n                       ! locate identical columns
 1343   515  0 	      integer, array(:,:),INTENT(IN)  :: ldu
 1344   516  0 	      integer, array(:),  INTENT(OUT) :: vec
 1345   517  0 	
 1346   518  0 	      integer m(DUBOUND(vec,1))
 1347   519  0 	CMF$  layout ldu(,), vec(), m()
 1348   520  0 	      integer i,nn
 1349   521  0 	
 1350   522  0 	      nn=DUBOUND(vec,1)
 1351   523  0 	      
 1352   524  0 	      if (n.eq.1) then
 1353   525  0 	         print *,' matrix of rank 1 and so no deletion possible'
 1354   526  0 	         print *,' exiting discard 2 immediately'
 1355   527  0 	         goto 50
 1356   528  0 	      end if
 1357   529  0 	      if (n.lt.1) then
 1358   530  0 	         print *,' matrix of rank < 1 not possible !'
 1359   531  0 	         call halt
 1360   532  0 	      end if
 1361   533  0 	
 1362   534  0 	      i=0
 1363   535  0 	      do 111, while (i.lt.n)
 1364   536  0 	         i=i+1
 1365   537  0 	         if (vec(i).ne.0) then 
 1366   538  0 	            m=sum(abs(ldu(1:nn,1:nn)-spread(ldu(i,1:nn),1,nn)),2)
 1367   539  0 	            m(1:i)=1
 1368   540  0 	            where (m.ge.1) m=1
 1369   541  0 	            if ( any( (m.eq.0).and.([1:nn].le.n) ) )
 1370   542  0 	     & print *,'DISCARD2: (',i,')',pack([1:nn],(m.eq.0).and.([1:nn].le.n))
 1371   543  0 	            vec=vec*m
 1372   544  0 	         end if
 1373   545  0 	 111  end do                    ! will delete where vec=0
 1374   546  0 	
 1375   547  0 	 50   end
 1376   548  0 	
 1377   549  0 	
 1378   550  0 	c   ________________________________________________________________
Mon Jan 15 15:21:16 1996 Connection Machine Fortran Version 2.2	page: 39
Symbol Storage Map   File: /tmp_mnt/home/B6D/salgado/POSETS/CM5/robpobox.fcm
ENTRY POINTS
  Offset  Type    Name
       0  NONE    DISCARD2                        


STORAGE BLOCKS
    Size  Block
       8  local
     181  constants




VARIABLES
  Offset    Size  Type        Block           Name
       0       4  INT4        local           FE       I                               
     ---       4  INT4        dummy           FE       N                               
       4       4  INT4        local           FE       NN                              
     ---       0  NONE        global          FE       _cmpe_discard2_0                
     ---       0  NONE        global          FE       _cmpe_discard2_0_               
     ---       0  NONE        global          FE       _cmpe_discard2_1                
     ---       0  NONE        global          FE       _cmpe_discard2_1_               
     ---       0  NONE        global          FE       _cmpe_discard2_2                
     ---       0  NONE        global          FE       _cmpe_discard2_2_               
     ---       0  NONE        global          FE       _cmpe_discard2_3                
     ---       0  NONE        global          FE       _cmpe_discard2_3_               
     ---       0  NONE        global          FE       _cmpe_discard2_4                
     ---       0  NONE        global          FE       _cmpe_discard2_4_               
     ---       0  NONE        global          FE       _cmpe_discard2_5                
     ---       0  NONE        global          FE       _cmpe_discard2_5_               
     ---       0  NONE        global          FE       _cmpe_discard2_6                
     ---       0  NONE        global          FE       _cmpe_discard2_6_               
     ---       0  NONE        not-referenced  FE       discard2                        


ARRAYS
  Offset    Size  Type        Block/Class     Home     Name
     ---     ---  INT4        dummy-asu-shape CM       LDU                             
     ---     ---  INT4        local-automatic CM       M                               
     ---     ---  INT4        dummy-asu-shape CM       VEC                             


PARAMETERS (Offset is within Storage Block 'constants')
  Offset  Type    Name                            Value
       0  INT4    _DOUBLE_                        64
       0  INT4    _DOUBLE_COMPLEX_                64
       0  INT4    _DOUBLE_INT_                    64
       0  INT4    _SINGLE_                        32
       0  INT4    _SINGLE_COMPLEX_                32
       0  INT4    _SINGLE_INT_                    32


INTRINSIC PROCEDURES
  Name
  ABS                             
Mon Jan 15 15:21:16 1996 Connection Machine Fortran Version 2.2	page: 40
Symbol Storage Map   File: /tmp_mnt/home/B6D/salgado/POSETS/CM5/robpobox.fcm
  ANY                             
  DUBOUND                         
  PACK                            
  SPREAD                          
  SUM                             


STATEMENT FUNCTIONS
  Type    Name


EXTERNALS
  Type    Unit_Kind     Name
  NONE    subroutine    HALT                            


NAME LISTS
  Name


CONSTRUCT NAMES
  Name



COMMUNICATION ROUTINES
  Name                          Line Number (number of times)
  READ VALUE FROM PROCESSOR     537
  COUNT (into scalar)           541
  ANY (into scalar)             541
  BLOCKMOVE                     538(3), 541, 543, 541
  CM TO FE ARRAY TRANSFER       541
  SUM (into vector)             538
  SPREAD                        538
  PACK (without vector arg)     541


Mon Jan 15 15:21:16 1996 Connection Machine Fortran Version 2.2	page: 41
Source Listing File: /tmp_mnt/home/B6D/salgado/POSETS/CM5/robpobox.fcm
 1379   551  0 	      SUBROUTINE delete(n,zeta,f,vec)    ! deletes all
 1380   552  0 	      integer :: n                       ! marked columns/rows
 1381   553  0 	      integer, array(:,:),INTENT(INOUT)  :: zeta
 1382   554  0 	      integer, array(:),  INTENT(INOUT) :: vec
 1383   555  0 	      real*8,  array(:,:),  INTENT(INOUT) :: f
 1384   556  0 	
 1385   557  0 	CMF$  layout zeta(,), f(,), vec()
 1386   558  0 	
 1387   559  0 	      integer i,j,s
 1388   560  0 	      parameter (killmark=-94321)
 1389   561  0 	
 1390   562  0 	      if (n.lt.DUBOUND(vec,1)) vec(n+1:)= -1
 1391   563  0 	      s=count(vec.eq.0)         ! count the number of points to be deleted
 1392   564  0 	        print *, 'deleting ',s,' of ',n,' points'
 1393   565  0 	d      write(unit=0,fmt=*) '--- DELETING ',s,' of ',n,' points'
 1394   566  0 	
 1395   567  0 	
 1396   568  0 	        if (s.eq.0) goto 9999
 1397   569  0 	
 1398   570  0 	       do 501, i=1,n
 1399   571  0 	          if (vec(i).eq.0) then
 1400   572  0 	d              write (unit=0,fmt=*) i
 1401   573  0 	               print *,i
 1402   574  0 	501      end if            
 1403   575  0 	
 1404   576  0 	
 1405   577  0 	         j=0
 1406   578  0 	       do 502, i=1,n
 1407   579  0 	          if (vec(i).eq.0) then
 1408   580  0 	               zeta( (i-j):,: ) = zeta( (i-j)+1:,: )
 1409   581  0 	               zeta( :,(i-j): ) = zeta( :,(i-j)+1: )
 1410   582  0 	               f( (i-j): ,:) = f( (i-j)+1: ,:)
 1411   583  0 	               j=j+1
 1412   584  0 	 502        end if            
 1413   585  0 	
 1414   586  0 	
 1415   587  0 	        n=n-s
 1416   588  0 	
 1417   589  0 	 9999    end
 1418   590  0 	
 1419   591  0 	c   ________________________________________________________________
 1420   592  0 	
Mon Jan 15 15:21:16 1996 Connection Machine Fortran Version 2.2	page: 42
Symbol Storage Map   File: /tmp_mnt/home/B6D/salgado/POSETS/CM5/robpobox.fcm
ENTRY POINTS
  Offset  Type    Name
       0  NONE    DELETE                          


STORAGE BLOCKS
    Size  Block
      12  local
     100  constants




VARIABLES
  Offset    Size  Type        Block           Name
       4       4  INT4        local           FE       I                               
       4       4  INT4        local           FE       J                               
     ---       4  INT4        dummy           FE       N                               
       0       4  INT4        local           FE       S                               
     ---       0  NONE        global          FE       _cmpe_delete_0                  
     ---       0  NONE        global          FE       _cmpe_delete_0_                 
     ---       0  NONE        global          FE       _cmpe_delete_1                  
     ---       0  NONE        global          FE       _cmpe_delete_1_                 
     ---       0  NONE        global          FE       _cmpe_delete_2                  
     ---       0  NONE        global          FE       _cmpe_delete_2_                 
     ---       0  NONE        global          FE       _cmpe_delete_3                  
     ---       0  NONE        global          FE       _cmpe_delete_3_                 
     ---       0  NONE        global          FE       _cmpe_delete_4                  
     ---       0  NONE        global          FE       _cmpe_delete_4_                 
     ---       0  NONE        global          FE       _cmpe_delete_5                  
     ---       0  NONE        global          FE       _cmpe_delete_5_                 
     ---       0  NONE        global          FE       _cmpe_delete_6                  
     ---       0  NONE        global          FE       _cmpe_delete_6_                 
     ---       0  NONE        global          FE       _cmpe_delete_7                  
     ---       0  NONE        global          FE       _cmpe_delete_7_                 
     ---       0  NONE        not-referenced  FE       delete                          


ARRAYS
  Offset    Size  Type        Block/Class     Home     Name
     ---     ---  REAL8       dummy-asu-shape CM       F                               
     ---     ---  INT4        dummy-asu-shape CM       VEC                             
     ---     ---  INT4        dummy-asu-shape CM       ZETA                            


PARAMETERS (Offset is within Storage Block 'constants')
  Offset  Type    Name                            Value
       0  INT4    KILLMARK                        -94321
       0  INT4    _DOUBLE_                        64
       0  INT4    _DOUBLE_COMPLEX_                64
       0  INT4    _DOUBLE_INT_                    64
       0  INT4    _SINGLE_                        32
       0  INT4    _SINGLE_COMPLEX_                32
Mon Jan 15 15:21:16 1996 Connection Machine Fortran Version 2.2	page: 43
Symbol Storage Map   File: /tmp_mnt/home/B6D/salgado/POSETS/CM5/robpobox.fcm
       0  INT4    _SINGLE_INT_                    32


INTRINSIC PROCEDURES
  Name
  COUNT                           
  DUBOUND                         


STATEMENT FUNCTIONS
  Type    Name


EXTERNALS
  Type    Unit_Kind     Name


NAME LISTS
  Name


CONSTRUCT NAMES
  Name



COMMUNICATION ROUTINES
  Name                          Line Number (number of times)
  READ VALUE FROM PROCESSOR     571, 579
  COUNT (into scalar)           563
  NEWS                          580, 581, 582


Mon Jan 15 15:21:16 1996 Connection Machine Fortran Version 2.2	page: 44
Source Listing File: /tmp_mnt/home/B6D/salgado/POSETS/CM5/robpobox.fcm
 1421   593  0 	      FUNCTION ACT(n,cinv,fun,method)    ! compute the action
 1422   594  0 	      real*8 ACT
 1423   595  0 	      integer n, nf
 1424   596  0 	      real*8, array(:,:),INTENT(IN)  :: cinv
 1425   597  0 	      real*8, array(:),INTENT(IN)  :: fun
 1426   598  0 	      character*3 method
 1427   599  0 	
 1428   600  0 	CMF$  layout cinv(,) , fun()
 1429   601  0 	      real*8 norm
 1430   602  0 	
 1431   603  0 	      norm=0.0d0            ! give us zero, if we forget to define method
 1432   604  0 	      if (method.eq.'sym') norm=-2.0d0
 1433   605  0 	      if (method.eq.'ret') norm=-1.0d0
 1434   606  0 	      act=norm * SUM( SPREAD(fun,1,DUBOUND(cinv,1)) 
 1435   607  0 	     &                 * cinv * spread(fun,2,DUBOUND(cinv,1)) )
 1436   608  0 	      END FUNCTION ACT
 1437   609  0 	
 1438   610  0 	c   ________________________________________________________________
Mon Jan 15 15:21:16 1996 Connection Machine Fortran Version 2.2	page: 45
Symbol Storage Map   File: /tmp_mnt/home/B6D/salgado/POSETS/CM5/robpobox.fcm
ENTRY POINTS
  Offset  Type    Name
       0  REAL8   ACT                             


STORAGE BLOCKS
    Size  Block
       8  local
      94  constants




VARIABLES
  Offset    Size  Type        Block           Name
     ---       3  CHAR        dummy           FE       METHOD                          
     ---       4  INT4        dummy           FE       N                               
     ---       4  INT4        not-referenced  FE       NF                              
       0       8  REAL8       local           FE       NORM                            
     ---       0  NONE        global          FE       _cmpe_act_0                     
     ---       0  NONE        global          FE       _cmpe_act_0_                    
     ---       0  NONE        not-referenced  FE       act                             


ARRAYS
  Offset    Size  Type        Block/Class     Home     Name
     ---     ---  REAL8       dummy-asu-shape CM       CINV                            
     ---     ---  REAL8       dummy-asu-shape CM       FUN                             


PARAMETERS (Offset is within Storage Block 'constants')
  Offset  Type    Name                            Value
       0  INT4    _DOUBLE_                        64
       0  INT4    _DOUBLE_COMPLEX_                64
       0  INT4    _DOUBLE_INT_                    64
       0  INT4    _SINGLE_                        32
       0  INT4    _SINGLE_COMPLEX_                32
       0  INT4    _SINGLE_INT_                    32


INTRINSIC PROCEDURES
  Name
  DUBOUND                         
  SPREAD                          
  SUM                             


STATEMENT FUNCTIONS
  Type    Name


EXTERNALS
  Type    Unit_Kind     Name


Mon Jan 15 15:21:16 1996 Connection Machine Fortran Version 2.2	page: 46
Symbol Storage Map   File: /tmp_mnt/home/B6D/salgado/POSETS/CM5/robpobox.fcm
NAME LISTS
  Name


CONSTRUCT NAMES
  Name



COMMUNICATION ROUTINES
  Name                          Line Number (number of times)
  SUM (into scalar)             606
  BLOCKMOVE                     606(4)
  SPREAD                        606(2)


Mon Jan 15 15:21:16 1996 Connection Machine Fortran Version 2.2	page: 47
Source Listing File: /tmp_mnt/home/B6D/salgado/POSETS/CM5/robpobox.fcm
 1439   611  0 	      SUBROUTINE HALT
 1440   612  0 	              print *,' HALTED'
 1441   613  0 	      stop
 1442   614  0 	      end
 1443   615  0 	
 1444   616  0 	
 1445   617  0 	c--------be sure not calculations are restricted to (n,n[,n])
 1446   618  0 	c    _______________________________________________________________
 1447   619  0 	c      SUBROUTINE HASSE(mex,n,Z)              ! returns the
 1448   620  0 	c                                             ! hasse matrix of Z
 1449   621  0 	c        integer mex,n,nn                     ! (assumed irreflexive)
 1450   622  0 	c        integer Z(mex,mex)
 1451   623  0 	cCMF$    layout  Z(,) ,
 1452   624  0 	c        integer T(mex,mex,mex), Z0(mex,mex), U(mex,mex)
 1453   625  0 	cCMF$    layout T(,,), Z0(,), U(,)
 1454   626  0 	c
 1455   627  0 	c
 1456   628  0 	c
 1457   629  0 	c        Z0=Z                             ! start with Z0=Z
 1458   630  0 	c        do nn=1,n-1
 1459   631  0 	c                T=0                     ! guarantee T=0 outside (n,n,n)
 1460   632  0 	c                forall(i=1:n,j=1:n,k=1:n) T(i,j,k)=Z(i,j)+Z0(j,k)
 1461   633  0 	c                U=maxval(T,dim=2)
 1462   634  0 	c                Z=merge(1,0, Z.ge.1 .and. U.le.1)
 1463   635  0 	c                                        ! if there already exists a path (Z)
 1464   636  0 	c                                        ! and there is a nearest-neighbor (U)
 1465   637  0 	c        end do                          ! keep path (1) else delete it (0)
 1466   638  0 	c        end
 1467   639  0 	
 1468   640  0 	
 1469   641  0 	c   ________________________________________________________________
Mon Jan 15 15:21:16 1996 Connection Machine Fortran Version 2.2	page: 48
Symbol Storage Map   File: /tmp_mnt/home/B6D/salgado/POSETS/CM5/robpobox.fcm
ENTRY POINTS
  Offset  Type    Name
       0  NONE    HALT                            


STORAGE BLOCKS
    Size  Block
      47  constants




VARIABLES
  Offset    Size  Type        Block           Name
     ---       0  NONE        not-referenced  FE       halt                            


ARRAYS
  Offset    Size  Type        Block/Class     Home     Name


PARAMETERS (Offset is within Storage Block 'constants')
  Offset  Type    Name                            Value
       0  INT4    _DOUBLE_                        64
       0  INT4    _DOUBLE_COMPLEX_                64
       0  INT4    _DOUBLE_INT_                    64
       0  INT4    _SINGLE_                        32
       0  INT4    _SINGLE_COMPLEX_                32
       0  INT4    _SINGLE_INT_                    32


INTRINSIC PROCEDURES
  Name


STATEMENT FUNCTIONS
  Type    Name


EXTERNALS
  Type    Unit_Kind     Name


NAME LISTS
  Name


CONSTRUCT NAMES
  Name



COMMUNICATION ROUTINES
  Name                          Line Number (number of times)


Mon Jan 15 15:21:16 1996 Connection Machine Fortran Version 2.2	page: 49
Source Listing File: /tmp_mnt/home/B6D/salgado/POSETS/CM5/robpobox.fcm
 1470   642  0 	      FUNCTION RAN3(idum)
 1471   643  0 	      real*8 RAN3
 1472   644  0 	      real*8 ma(55)
 1473   645  0 	CMF$  layout ma()
 1474   646  0 	
 1475   647  0 	      if (idum.lt.0) then
 1476   648  0 	        CALL CMF_RANDOMIZE(-idum)     ! to seed use idum < 0
 1477   649  0 	      else
 1478   650  0 	        CALL CMF_RANDOM(ma)           ! FILL ma WITH 0 < RANDOM < 1
 1479   651  0 	        ran3=ma(1)
 1480   652  0 	      end if
 1481   653  0 	      return
 1482   654  0 	      end
 1483   655  0 	c   ________________________________________________________________
 1484   656  0 	c this no doubt is returning a poissson-distributed integer.
Mon Jan 15 15:21:16 1996 Connection Machine Fortran Version 2.2	page: 50
Symbol Storage Map   File: /tmp_mnt/home/B6D/salgado/POSETS/CM5/robpobox.fcm
ENTRY POINTS
  Offset  Type    Name
       0  REAL8   RAN3                            


STORAGE BLOCKS
    Size  Block
     440  local
      52  constants




VARIABLES
  Offset    Size  Type        Block           Name
     ---       4  INT4        dummy           FE       IDUM                            
     ---       0  NONE        not-referenced  FE       ran3                            


ARRAYS
  Offset    Size  Type        Block/Class     Home     Name
       0     440  REAL8       local           CM       MA                              


PARAMETERS (Offset is within Storage Block 'constants')
  Offset  Type    Name                            Value
       0  INT4    _DOUBLE_                        64
       0  INT4    _DOUBLE_COMPLEX_                64
       0  INT4    _DOUBLE_INT_                    64
       0  INT4    _SINGLE_                        32
       0  INT4    _SINGLE_COMPLEX_                32
       0  INT4    _SINGLE_INT_                    32


INTRINSIC PROCEDURES
  Name


STATEMENT FUNCTIONS
  Type    Name


EXTERNALS
  Type    Unit_Kind     Name
  NONE    subroutine    CMF_RANDOM                      
  NONE    subroutine    CMF_RANDOMIZE                   


NAME LISTS
  Name


CONSTRUCT NAMES
  Name



Mon Jan 15 15:21:16 1996 Connection Machine Fortran Version 2.2	page: 51
Symbol Storage Map   File: /tmp_mnt/home/B6D/salgado/POSETS/CM5/robpobox.fcm
COMMUNICATION ROUTINES
  Name                          Line Number (number of times)
  READ VALUE FROM PROCESSOR     651


Mon Jan 15 15:21:16 1996 Connection Machine Fortran Version 2.2	page: 52
Source Listing File: /tmp_mnt/home/B6D/salgado/POSETS/CM5/robpobox.fcm
 1485   657  0 	      INTEGER FUNCTION NPT(nexp,iseed)
 1486   658  0 	      integer nexp, iseed, n, j
 1487   659  0 	      real*8 x, p
 1488   660  0 	      real*8 ran3, pdv
 1489   661  0 	      x=ran3(iseed)
 1490   662  0 	      n=nexp
 1491   663  0 	      p=0
 1492   664  0 	      j=0
 1493   665  0 	 100  p=p+pdv(j,n)
 1494   666  0 	      if (x.lt.p) goto 200
 1495   667  0 	      j=j+1
 1496   668  0 	      goto 100
 1497   669  0 	 200  npt=j
 1498   670  0 	      end
 1499   671  0 	
Mon Jan 15 15:21:16 1996 Connection Machine Fortran Version 2.2	page: 53
Symbol Storage Map   File: /tmp_mnt/home/B6D/salgado/POSETS/CM5/robpobox.fcm
ENTRY POINTS
  Offset  Type    Name
       0  INT4    NPT                             


STORAGE BLOCKS
    Size  Block
      24  local
      72  constants




VARIABLES
  Offset    Size  Type        Block           Name
     ---       4  INT4        dummy           FE       ISEED                           
      16       4  INT4        local           FE       J                               
      20       4  INT4        local           FE       N                               
     ---       4  INT4        dummy           FE       NEXP                            
      16       8  REAL8       local           FE       P                               
       8       8  REAL8       local           FE       X                               
     ---       0  NONE        not-referenced  FE       npt                             


ARRAYS
  Offset    Size  Type        Block/Class     Home     Name


PARAMETERS (Offset is within Storage Block 'constants')
  Offset  Type    Name                            Value
       0  INT4    _DOUBLE_                        64
       0  INT4    _DOUBLE_COMPLEX_                64
       0  INT4    _DOUBLE_INT_                    64
       0  INT4    _SINGLE_                        32
       0  INT4    _SINGLE_COMPLEX_                32
       0  INT4    _SINGLE_INT_                    32


INTRINSIC PROCEDURES
  Name


STATEMENT FUNCTIONS
  Type    Name


EXTERNALS
  Type    Unit_Kind     Name
  REAL8   function      PDV                             
  REAL8   function      RAN3                            


NAME LISTS
  Name


CONSTRUCT NAMES
Mon Jan 15 15:21:16 1996 Connection Machine Fortran Version 2.2	page: 54
Symbol Storage Map   File: /tmp_mnt/home/B6D/salgado/POSETS/CM5/robpobox.fcm
  Name



COMMUNICATION ROUTINES
  Name                          Line Number (number of times)


Mon Jan 15 15:21:16 1996 Connection Machine Fortran Version 2.2	page: 55
Source Listing File: /tmp_mnt/home/B6D/salgado/POSETS/CM5/robpobox.fcm
 1500   672  0 	      REAL FUNCTION pdv(i,n)
 1501   673  0 	      integer i, n, j
 1502   674  0 	      real*8 f
 1503   675  0 	      f=0
 1504   676  0 	      do j=1,i
 1505   677  0 	         f=f+alog(real(j))
 1506   678  0 	      end do
 1507   679  0 	      pdv=i*alog(real(n))-f-real(n)
 1508   680  0 	      pdv=exp(pdv)
 1509   681  0 	      end
 1510   682  0 	
 1511   683  0 	C----------------------------------------------------------------------------
Mon Jan 15 15:21:16 1996 Connection Machine Fortran Version 2.2	page: 56
Symbol Storage Map   File: /tmp_mnt/home/B6D/salgado/POSETS/CM5/robpobox.fcm
ENTRY POINTS
  Offset  Type    Name
       0  REAL4   PDV                             


STORAGE BLOCKS
    Size  Block
      12  local
      52  constants




VARIABLES
  Offset    Size  Type        Block           Name
       4       8  REAL8       local           FE       F                               
     ---       4  INT4        dummy           FE       I                               
       0       4  INT4        local           FE       J                               
     ---       4  INT4        dummy           FE       N                               
     ---       0  NONE        not-referenced  FE       pdv                             


ARRAYS
  Offset    Size  Type        Block/Class     Home     Name


PARAMETERS (Offset is within Storage Block 'constants')
  Offset  Type    Name                            Value
       0  INT4    _DOUBLE_                        64
       0  INT4    _DOUBLE_COMPLEX_                64
       0  INT4    _DOUBLE_INT_                    64
       0  INT4    _SINGLE_                        32
       0  INT4    _SINGLE_COMPLEX_                32
       0  INT4    _SINGLE_INT_                    32


INTRINSIC PROCEDURES
  Name
  ALOG                            
  EXP                             
  REAL                            


STATEMENT FUNCTIONS
  Type    Name


EXTERNALS
  Type    Unit_Kind     Name


NAME LISTS
  Name


CONSTRUCT NAMES
  Name
Mon Jan 15 15:21:16 1996 Connection Machine Fortran Version 2.2	page: 57
Symbol Storage Map   File: /tmp_mnt/home/B6D/salgado/POSETS/CM5/robpobox.fcm



COMMUNICATION ROUTINES
  Name                          Line Number (number of times)


Mon Jan 15 15:21:16 1996 Connection Machine Fortran Version 2.2	page: 58
Source Listing File: /tmp_mnt/home/B6D/salgado/POSETS/CM5/robpobox.fcm
Mon Jan 15 15:21:16 1996 Connection Machine Fortran Version 2.2	page: 59
Utility Stats
Input File:	/tmp_mnt/home/B6D/salgado/POSETS/CM5/robpobox.fcm
Base File:	robpobox
COMMAND QUALIFIERS

	-dp -nod_lines -extend_source -list -IPATH=/usr/cmfortran-2.2.11/include -IPATH=/usr/cmfortran-2.2.11/include/cm robpobox.fcm 

	analysis_data
	check = (no bounds,overflow,no underflow )
	continuations = 19
	directives
	extend_source
	f77
	i4
	ifconvert
	level_of_vectorization = 100
	list
	machine_code
	intlogops
	optimize = (local,no global,no code_motion )
	overlap
	show = (no dictionary,no include,no map,no preprocessor,no single )
	standard = (no syntax,no source,no semantic )
	warnings = (no declarations,general,no ultrix,no vaxeln )
	postoptimize
	preoptimize
	loadstoremotion
	ucephase
	uaephase
	prcphase
	prsphase
	ucepost
	uaepost
	prcpost
	prspost
	cppost
	complex_lower
	safety = 0
	pnodes = -1
	peephole
	axisreorder
	loopreversal
	dp
	trcback
	skip_garbage
	newforall
	killuselessalloc
	new_modifies
	prc2
	prs2
	redo_modifies
	defer_modifies
	comb_cp
	source_fc
	source_node
	const
	transp
	cp_last
	bb_merge
	meoptimize
	mecopypropagate
	memergetemps
	merepl
	mesgsize = 10000
	mescalarnumber = 10000
	merge
	amode
	single_complex_opt
	prover = ()
	peschedule
	peschalias
	pe_asm_machine_code
	pe_asm_comments
	pe_asm_srclines
