GEANT321/geocad/gjwrit.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1995/10/24 10:20:46  cernlib
   6 * Geant
   7 *
   8 *
   9 #include "geant321/pilot.h"
  10 *CMZ :  3.21/02 29/03/94  15.41.32  by  S.Giani
  11 *-- Author :
  12       SUBROUTINE GJWRIT
  13 C
  14 C    Writes 80 characters in a line and skips spaces
  15 C
  16 C    CALLED BY ALL SHAPE ROUTINES in CADINT
  17 C
  18 C    BLKSTR = The character string to be written
  19 C    NPLACE = The place of the current character in the line
  20 C
  21 C---------------------------------------------------------------------
  22 C
  23 #include "geant321/gcsetf.inc"
  24
  25 C
  26 C---------------------------------------------------------------------
  27 C
  28 C
  29       J=NPLACE
  30 C
  31       LBLK=LEN(BLKSTR)
  32       DO 10  I=1, LBLK
  33          IF (BLKSTR(I:I) .NE. ' ') THEN
  34             WRITE(JVSTR(J:J),'(A1)')BLKSTR(I:I)
  35             IF (J .EQ. 80) THEN
  36                WRITE(NUNIT1,'(A80)')JVSTR
  37                JVSTR=' '
  38                J=0
  39             END IF
  40             J=J+1
  41          END IF
  42    10 CONTINUE
  43 C
  44       NPLACE=J
  45 C
  46       BLKSTR=' '
  47 C
  48       END