Dear ARdock users:

  2 kind of bugs are fixed.
  1.  showm --> showm2  / not a serious bug.
  2.  correction of dall / rather serious one. This correction is
      necessary to avoid possible dead-locks.  

M.I. 2000.10.20

and,

  places marked by corrected2000.11.21 are modified.

M.I. 2000.11.21

*** ardock.F	Wed Nov 22 13:32:57 2000
--- ardock.new.F	Wed Nov 22 13:30:35 2000
***************
*** 17 ****
--- 18,30 ----
+ c This version, v.2, is obtained by applying
+ c  ardock.0-2.patch to the original ardock.F
+ c  or
+ c  ardock.1-2.patch to the version, v.1, obtained by applying
+ c  ardock.0-1.patch to the original ardock.F
+ corrected2000.11.21 corrections are made by M.I.
+ c  4. bug in subroutines showc, showr and showi are removed.
+ c  3. minor bug related to the variable mAINT is removed. 
+ corrected2000.10.20 corrections are made by M.I.
+ c  two kind of bugs are fixed.
+ c  2.  correction of dall / rather serious one. This correction is
+ c      necessary to avoid possible dead-locks.  
+ c  1.  showm --> showm2  / not a serious bug.
***************
*** 685 ****
--- 699 ----
+        call bug (1,0,0,0,'qq1',0,0.d0,message)
***************
*** 688 ****
--- 703 ----
+        call bug (1,0,0,0,'qq2',0,0.d0,message)
***************
*** 1014 ****
--- 1030,1031 ----
+ corrected2000.11.21 one line added by M.I.
+              aic = 99999.d0 
***************
*** 1159 ****
!           call showm ('I',
--- 1176,1178 ----
! corrected2000.10.20  1 line correction made by M.I.
! c          call showm ('I',
!           call showm2 ('I',
***************
*** 1173 ****
--- 1193,1194 ----
+ corrected2000.11.21 ifdef-endif lines are added by M.I.
+ #ifdef AUTHOR
***************
*** 1177 ****
--- 1199 ----
+ #endif
***************
*** 1180 ****
--- 1203,1204 ----
+ corrected2000.11.21 ifdef-endif lines are added by M.I.
+ #ifdef AUTHOR
***************
*** 1181 ****
--- 1206 ----
+ #endif
***************
*** 2986 ****
--- 3012,3013 ----
+ corrected2000.11.21 ifdef-endif lines are added by M.I.
+ #ifdef AUTHOR
***************
*** 2988 ****
--- 3016 ----
+ #endif
***************
*** 3322 ****
--- 3351,3352 ----
+ corrected2000.11.21 ifdef-endif lines are added by M.I.
+ #ifdef AUTHOR
***************
*** 3328 ****
--- 3359 ----
+ #endif
***************
*** 3351 ****
--- 3383,3384 ----
+ corrected2000.11.21 ifdef-endif lines are added by M.I.
+ #ifdef AUTHOR
***************
*** 3357 ****
--- 3391 ----
+ #endif
***************
*** 4662,4663 ****
!        do 1123 k = j , Kch 
!           Var ( k , j ) = parl ( Mean + Lagmax * Kch + j ,  k )  
--- 4696,4702 ----
! corrected2000.11.21 corrections are made by M.I.
!        do 1123 k = 1 , Kch 
!           if( k .ge. j ) then 
!              Var ( k , j ) = parl ( Mean + Lagmax * Kch + j ,  k )  
!           else
!              Var ( k , j ) = 0.d0  
!           end if
***************
*** 6599 ****
!           call showm ('I',
--- 6638,6640 ----
! corrected2000.10.20  1 line correction made by M.I.
! c          call showm ('I',
!           call showm2 ('I',
***************
*** 7671 ****
--- 7713 ----
+ corrected2000.11.21 this subroutine call is modified by M.I.
***************
*** 7673 ****
!      i    MAXCH , Kch , Kch  * 2 , 1 , 
--- 7715 ----
!      i    MAXCH , Kch , Kch  * 2 , -1 , 
***************
*** 8624 ****
--- 8667,8668 ----
+ corrected2000.11.21 'if then' line is added by M.I.
+        if( Icnt .ge. 0 ) then 
***************
*** 8634 ****
--- 8679,8680 ----
+ corrected2000.11.21 'end if' is added by M.I.
+        end if
***************
*** 8847 ****
--- 8894,8895 ----
+ corrected2000.11.21 'if then' line is added by M.I.
+        if( Icnt .ge. 0 ) then 
***************
*** 8870 ****
--- 8919,8920 ----
+ corrected2000.11.21 'end if' is added by M.I.
+        end if 
***************
*** 9837 ****
!        isphix = 1 
--- 9887,9889 ----
! corrected2000.10.20  1 line correction made by M.I.
! c       isphix = 1 
!        isphix = 0 
***************
*** 9863 ****
!        isphix = 1 
--- 9915,9917 ----
! corrected2000.10.20  1 line correction made by M.I.
! c       isphix = 1 
!        isphix = 0 
***************
*** 9960 ****
!          isphix  =  0 
--- 10014,10016 ----
! corrected2000.10.20  1 line correction made by M.I.
! c         isphix  =  0 
!          if( isphiy .ne. -1) isphix  =  1 
***************
*** 9964 ****
!          isphix  =  0 
--- 10020,10022 ----
! corrected2000.10.20  1 line correction made by M.I.
! c         isphix  =  0 
!          if( isphiy .ne. 1) isphix  =  -1 
***************
*** 9968 ****
!        ISPHI  =   ISPHI + isphiy 
--- 10026,10028 ----
! corrected2000.10.20  1 line correction made by M.I.
! c       ISPHI  =   ISPHI + isphiy 
!        if( isphiy .eq. 0 ) ISPHI = ISPHI + 1 
***************
*** 12335 ****
--- 12396,12397 ----
+ corrected2000.11.21 one line added by M.I.
+        data init /1/, eps /0.d0/ 
***************
*** 13187 ****
--- 13250,13251 ----
+ corrected2000.11.21 ifdef-endif lines are added by M.I.
+ #ifdef AUTHOR
***************
*** 13190 ****
--- 13255 ----
+ #endif
***************
*** 13222 ****
--- 13288,13289 ----
+ corrected2000.11.21 ifdef-endif lines are added by M.I.
+ #ifdef AUTHOR
***************
*** 13226 ****
--- 13294 ----
+ #endif
***************
*** 13957,13968 ****
!        checksum = '!'
!        icheck = 1 
!        do 21 i = 1 , Ir  
!        do 11 j = 1 , Ic  
!           checksum = checksum (1:icheck ) // X ( i , j )
!           do 111 k = icheck + 1 , 120 
!              if( checksum ( k:k ) .eq. ' ') goto 11 
! c            ----------------------------------
!              icheck = k 
!   111     continue 
!    11  continue 
!    21  continue 
--- 14025 ----
! corrected2000.11.21 12 lines here moved below by M.I.
***************
*** 13971 ****
--- 14029,14041 ----
+ corrected2000.11.21 12 lines added by M.I.
+              checksum = '!'
+              icheck = 1 
+              do 21 ii = 1 , Ir  
+              do 11 j = 1 , Ic  
+                 checksum = checksum (1:icheck ) // X ( ii , j )
+                 do 111 k = icheck + 1 , 120 
+                    if( checksum ( k:k ) .eq. ' ') goto 11 
+ c                  ----------------------------------
+                    icheck = k 
+   111           continue 
+    11        continue 
+    21        continue 
***************
*** 13986 ****
!        xmemory ( mem ) = checksum 
--- 14056,14057 ----
! corrected2000.11.21 one line changed by M.I.
!        xmemory ( mem ) = '!' 
***************
*** 14095,14100 ****
!        checksum = 0 
!        do 21 i = 1 , Ir  
!        do 11 j = 1 , Ic  
!           checksum = checksum + X ( i , j )
!    11  continue 
!    21  continue 
--- 14166 ----
! corrected2000.11.21 6 lines here moved below by M.I.
***************
*** 14103 ****
--- 14170,14176 ----
+ corrected2000.11.21 6 lines added by M.I.
+              checksum = 0 
+              do 21 ii = 1 , Ir  
+              do 11 j = 1 , Ic  
+                 checksum = checksum + X ( ii , j )
+    11        continue 
+    21        continue 
***************
*** 14118 ****
!        xmemory ( mem ) = checksum 
--- 14191,14192 ----
! corrected2000.11.21 one line changed by M.I.
!        xmemory ( mem ) = 1234567 
***************
*** 14224,14229 ****
!        checksum = 0.d0 
!        do 21 i = 1 , Ir  
!        do 11 j = 1 , Ic  
!           checksum = checksum + X ( i , j )
!    11  continue 
!    21  continue 
--- 14298 ----
! corrected2000.11.21 6 lines here moved below by M.I.
***************
*** 14232 ****
--- 14302,14308 ----
+ corrected2000.11.21 6 lines added by M.I.
+              checksum = 0.d0 
+              do 21 ii = 1 , Ir  
+              do 11 j = 1 , Ic  
+                 checksum = checksum + X ( ii , j )
+    11        continue 
+    21        continue 
***************
*** 14247 ****
!        xmemory ( mem ) = checksum 
--- 14323,14324 ----
! corrected2000.11.21 one line changed by M.I.
!        xmemory ( mem ) =123456.789d0
