blob: d69f046d078f7f9064203e86adb0ee23fb4adb75 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
subroutine putasci (num,line)
c******************************************************************************
c this routine prints out the characters contained in 'array'
c******************************************************************************
include 'Pstuff.com'
istat = ivmove(line-1,1)
istat = ivcleol()
istat = ivmove(line-1,1)
write (errmess,1001) num
write (*,errmess) array
return
c*****format statements
1001 format ('(a',i2,'$)')
end
|
