anchor.diff:      use HECMW_UTIL
       implicit none
       !------
  -    integer, intent(OUT):: Ir
  -    real(KIND=8), intent(OUT):: R_h_s(*)
  +    integer, intent(out):: Ir
  +    real(kind=8), intent(out):: R_h_s(*)
       !------
       integer:: lwk
       integer:: ndegl
  -    real(KIND=8), pointer :: wk(:)
  +    real(kind=8), pointer :: wk(:)
   
       if ( STAge/=30 .and. STAge/=40 ) then
         Ir = 50
  
positive.code:   subroutine S2UM(Ic,Xlnzr,Colno,Zln,Diag,Nch,Par,Temp,Indx)
      implicit none
      !------
      integer, intent(IN):: Ic
      integer, intent(IN):: Xlnzr(*)
      integer, intent(IN):: Colno(*)
      integer, intent(IN):: Par(*)
      integer, intent(OUT):: Indx(*)
      integer, intent(OUT):: Nch(*)
      real(KIND=8), intent(OUT):: Diag(3,*)
      real(KIND=8), intent(OUT):: Temp(4,*)
      real(KIND=8), intent(OUT):: Zln(4,*)
      !------
      integer:: ir
      integer:: j
  
negative.code:   subroutine DXDOTL(Ndeg,T,A,B,L)
      implicit none
      !------
      integer, intent(in):: L
      integer, intent(in):: Ndeg
      real(kind=8), intent(in):: A(Ndeg,Ndeg,*)
      real(kind=8), intent(in):: B(Ndeg,Ndeg,*)
      real(kind=8), intent(out):: T(Ndeg,Ndeg)
      !------
      integer:: jj
      integer:: k
  