This commit was generated by cvs2svn to compensate for changes in r2,
[u/mrichter/AliRoot.git] / 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