rim on the GRASS

[Kenji Okamoto]

Hi, GRASS users,

I reported a rim_help problem on my port to SVR4 preveously.
This is solved by hucking the subroutine in src/rimh.f, the result
of which is included at the bottum of this letter.

The original rimh.f which I could get has some wrong coding to make the
tupple data of variable length text, in this case COMTXT in HELP_TEXT
relation.

I hope this may help someone.
If this is a FAQ, sorry.

Kenji
-------------cut here---------------------
      SUBROUTINE LODROW(LINE,NC)
      INCLUDE 'syspar.d'
      INCLUDE '../src/ascpar.d'    <<<<<<<********
C
C     WRITE A LINE TO DB
      INCLUDE '../src/rimcom.d'
      LOGICAL RIMDM
C
      PARAMETER (NW = 80/ZCW)
      INTEGER LINE(NW), NC, NCR
 
C     DATA TO HOLD THE TEXT TUPLES
      PARAMETER (TPL=3+NW+2)
      PARAMETER (TXTSRT=4)
      COMMON /TUP/ TUPLE(TPL)

      NCR = (NC - 1)/ZCW + 1
      DO 120 I = 1, NCR
120   TUPLE(TXTSRT+1+I) = LINE(I)
      TUPLE(TXTSRT) = NC
      TUPLE(TXTSRT+1) = 0
130   IF (.NOT.RIMDM(1,'LOAD',TUPLE)) THEN
         WRITE(6,1000) NC, RMSTAT
1000     FORMAT(' LOAD ERROR: ',2I5)
      ENDIF
      RETURN
      END
-------------end here---------------------------

------------------------------------------------------------------------------
Kenji Okamoto     |             okamoto at earth.chigaku.souka.osakafu-u.ac.jp
 ______  __ |__   |  Universiy of Osaka Prefecture, Dept. of Earth Science,
|__\/__|   /|\    |  Gakuen-cho 1 - 1, Sakai, Osaka 593, Japan
||_|_| |  / + \   |  tel(voice) +81-722-52-1161 (ext)2736 (FAX)+81-722-55-2981
------------------------------------------------------------------------------