blob: f543e5396f2654f71acbf8c937dd8b82f5cae942 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
subroutine justfy (ichar,len,newlen)
dimension ichar(1)
in = 0
call ncgchr (1h ,1,1,iblank)
do 102 i=1,len
call ncgchr (ichar,len,i,jchar)
if (in .ne. 0) go to 101
if (jchar .eq. iblank) go to 102
101 in = in+1
call ncpchr (ichar,len,in,jchar)
102 continue
newlen = in
return
end
|
