update to a working version

source/3drwalk.for

@@ -28,8 +28,18 @@ c the same in the main block and the subroutines.
         include '3dpoints.cb'
         include 'rise_fall.cb'
 
-        parameter (ntotal=50000000)
+        parameter (ntotal=250000000)
         character fname*100,buff*100,partl*100,fltnam*100
+        
+cBMM2019
+        character header*1000
+
+cBMM2019
+        character gridfname*100
+        integer   gridnumber
+        common /bmhack/gridfname,gridnumber
+
+
         character plmnam*100,cext*5
         real    r
         integer t,NUMPARTS,max_numps,v_time
@@ -91,15 +101,24 @@ c Read in the user paramters
         fname='920820'
         call askstr(' Enter output graphics filename',fname)
         partl=fname
+        gridfname=fname
+        gridnumber=1
         dimopt='10'
         call askstr(' Enter RMA-2 or RMA-10 option',dimopt)
         if(dimopt(1:2).eq.'10') then
-           fname='sydney.3dg'
+           fname='bub003.3dg'
            call askstr(' Enter 3d geometry filename',fname)
-           open(9,file=fname,status='old',form='unformatted',err=10)
-           fname='sydney.res'
+cBM2019 update for OUTBN3GE format
+c          open(9,file=fname,status='old',form='unformatted',err=10)
+           OPEN(9,FILE=fname,STATUS='old',FORM='BINARY',err=10)
+           READ(9) header   ! Skip the 1000 character header
+cBM2019    fname='sydney.res'
+           fname='bub007.rma'
            call askstr(' Enter RMA-10 velocity filename',fname)
-           open(2,file=fname,status='old',form='unformatted',err=10)
+cBM2019    open(2,file=fname,status='old',form='unformatted',err=10)
+cBM2019    update for OUTBNRMA format
+           OPEN(2,FILE=fname,STATUS='old',FORM='BINARY',err=10)
+           READ(2) header   ! Skip the 1000 character header
         else
            fname='sydney.geo'
            call askstr(' Enter 2D geometry filename',fname)
@@ -111,6 +130,7 @@ c Read in the user paramters
            call askstr(' Enter RMA-2 velocity filename',fname)
            open(2,file=fname,status='old',form='unformatted',err=10)
         endif
+
         fname='usrparam.rw'
         call askstr(' Enter user parameters filename',fname)
         open(3,file=fname,status='old',form='formatted',err=10)
@@ -208,8 +228,12 @@ c
 
         write(*,'(/a/)') 'Loading the geometry of FE mesh ...'
         rewind 9
+cBM2019        
+        read(9) header
         read(9) np,ne
+cBM2019        
         rewind 9
+        read(9) header
         call defini('nop ',nnop ,10,ne+4)
         call defini('ilst',nilst,1,ne/2+4)
         call defini('imat',nimat,1,ne/2+4)
@@ -458,7 +482,7 @@ c
 c BMM 070810 Addition of another file type for storing the bin file data
 
              OPEN(37,FILE=plmnam(1:lenstr(plmnam))//'-block'//cext(1:2),
-     1		  STATUS='unknown',FORM='unformatted')
+     1               STATUS='unknown',FORM='unformatted')
 
              OPEN(20,FILE=plmnam(1:lenstr(plmnam))//cext(1:2),
 cdrc     1        ACCESS='direct',STATUS='new',FORM='unformatted',RECL=1)
@@ -475,7 +499,7 @@ cdrc     1        ACCESS='direct',STATUS='new',FORM='unformatted',RECL=1)
              WRITE(20,REC=4+maxoutputs) 0.0
              close(20)
 
-   	   ENDIF
+           ENDIF
 
            IF (fbindump) THEN
              inquire(file=fltnam(1:lenstr(fltnam))//cext(1:2),
@@ -679,9 +703,9 @@ c
                resZ=reszz(m)
 
                call outputgraphicscodes(m)
-               call addpointers(21)
-               call addpointers(22)
-               call addpointers(23)
+c              call addpointers(21)
+c              call addpointers(22)
+c              call addpointers(23)
                close(21)
                close(22)
                close(23)