Dear ARdock users:

  places marked by corrected2000.11.21 are modified.

M.I. 2000.11.21

*** ardock.F	Wed Nov 22 13:33:59 2000
--- ardock.new.F	Wed Nov 22 13:30:35 2000
***************
*** 18 ****
! c This version is obtained by applying
--- 18,21 ----
! 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
***************
*** 19 ****
--- 23,25 ----
+ 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. 
***************
*** 21,22 ****
! c  2 kind of bugs are fixed.
! c  1.  showm --> showm2  / not a serious bug.
--- 27 ----
! c  two kind of bugs are fixed.
***************
*** 24 ****
--- 30 ----
+ c  1.  showm --> showm2  / not a serious bug.
***************
*** 692 ****
--- 699 ----
+        call bug (1,0,0,0,'qq1',0,0.d0,message)
***************
*** 695 ****
--- 703 ----
+        call bug (1,0,0,0,'qq2',0,0.d0,message)
***************
*** 1021 ****
--- 1030,1031 ----
+ corrected2000.11.21 one line added by M.I.
+              aic = 99999.d0 
***************
*** 1182 ****
--- 1193,1194 ----
+ corrected2000.11.21 ifdef-endif lines are added by M.I.
+ #ifdef AUTHOR
***************
*** 1186 ****
--- 1199 ----
+ #endif
***************
*** 1189 ****
--- 1203,1204 ----
+ corrected2000.11.21 ifdef-endif lines are added by M.I.
+ #ifdef AUTHOR
***************
*** 1190 ****
--- 1206 ----
+ #endif
***************
*** 2995 ****
--- 3012,3013 ----
+ corrected2000.11.21 ifdef-endif lines are added by M.I.
+ #ifdef AUTHOR
***************
*** 2997 ****
--- 3016 ----
+ #endif
***************
*** 3331 ****
--- 3351,3352 ----
+ corrected2000.11.21 ifdef-endif lines are added by M.I.
+ #ifdef AUTHOR
***************
*** 3337 ****
--- 3359 ----
+ #endif
***************
*** 3360 ****
--- 3383,3384 ----
+ corrected2000.11.21 ifdef-endif lines are added by M.I.
+ #ifdef AUTHOR
***************
*** 3366 ****
--- 3391 ----
+ #endif
***************
*** 4671,4672 ****
!        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
***************
*** 7682 ****
--- 7713 ----
+ corrected2000.11.21 this subroutine call is modified by M.I.
***************
*** 7684 ****
!      i    MAXCH , Kch , Kch  * 2 , 1 , 
--- 7715 ----
!      i    MAXCH , Kch , Kch  * 2 , -1 , 
***************
*** 8635 ****
--- 8667,8668 ----
+ corrected2000.11.21 'if then' line is added by M.I.
+        if( Icnt .ge. 0 ) then 
***************
*** 8645 ****
--- 8679,8680 ----
+ corrected2000.11.21 'end if' is added by M.I.
+        end if
***************
*** 8858 ****
--- 8894,8895 ----
+ corrected2000.11.21 'if then' line is added by M.I.
+        if( Icnt .ge. 0 ) then 
***************
*** 8881 ****
--- 8919,8920 ----
+ corrected2000.11.21 'end if' is added by M.I.
+        end if 
***************
*** 12356 ****
--- 12396,12397 ----
+ corrected2000.11.21 one line added by M.I.
+        data init /1/, eps /0.d0/ 
***************
*** 13208 ****
--- 13250,13251 ----
+ corrected2000.11.21 ifdef-endif lines are added by M.I.
+ #ifdef AUTHOR
***************
*** 13211 ****
--- 13255 ----
+ #endif
***************
*** 13243 ****
--- 13288,13289 ----
+ corrected2000.11.21 ifdef-endif lines are added by M.I.
+ #ifdef AUTHOR
***************
*** 13247 ****
--- 13294 ----
+ #endif
***************
*** 13978,13989 ****
!        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.
***************
*** 13992 ****
--- 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 
***************
*** 14007 ****
!        xmemory ( mem ) = checksum 
--- 14056,14057 ----
! corrected2000.11.21 one line changed by M.I.
!        xmemory ( mem ) = '!' 
***************
*** 14116,14121 ****
!        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.
***************
*** 14124 ****
--- 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 
***************
*** 14139 ****
!        xmemory ( mem ) = checksum 
--- 14191,14192 ----
! corrected2000.11.21 one line changed by M.I.
!        xmemory ( mem ) = 1234567 
***************
*** 14245,14250 ****
!        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.
***************
*** 14253 ****
--- 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 
***************
*** 14268 ****
!        xmemory ( mem ) = checksum 
--- 14323,14324 ----
! corrected2000.11.21 one line changed by M.I.
!        xmemory ( mem ) =123456.789d0
