blob: 7ecee01f295819fd99d56880bd639bf7b5b842a5 (
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
29
30
31
32
33
34
35
36
|
subroutine defcolor (icolor)
c******************************************************************************
c This routine decides on whether to call for a black & white hardcopy
c plot or a colorful screen plot
c******************************************************************************
include 'Pstuff.com'
character*7 colors(8)
c*****assign colors to character arrays
colors(1) = 'white '
colors(2) = 'red '
colors(3) = 'cyan '
colors(4) = 'yellow '
colors(5) = 'green '
colors(6) = 'magenta'
colors(7) = 'blue '
colors(8) = 'black '
if (choice=='h' .or. choice=='f' .or.
. choice=='g') then
call sm_ctype (colors(8))
else
call sm_ctype (colors(icolor))
endif
return
end
|
