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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
|
diff -Naur Raster3D_2.7c/normal3d.f Raster3D_2.7c.new/normal3d.f
--- Raster3D_2.7c/normal3d.f 2003-10-20 18:50:11.000000000 -0400
+++ Raster3D_2.7c.new/normal3d.f 2007-09-08 10:23:08.000000000 -0400
@@ -443,7 +443,8 @@
READ (INPUT,'(A)',ERR=101) TITLE
IF (TITLE(1:1).EQ.'#') GOTO 100
GOTO 102
- 101 WRITE (NOISE,'(A,A)') ' >> Cannot open or read file ',TITLE(2:132)
+ 101 WRITE (NOISE,'(A,A)') ' >> Cannot open or read file ',
+ * TITLE(2:132)
CALL EXIT(-1)
102 CONTINUE
ENDIF
diff -Naur Raster3D_2.7c/parse.f Raster3D_2.7c.new/parse.f
--- Raster3D_2.7c/parse.f 2003-10-20 18:50:11.000000000 -0400
+++ Raster3D_2.7c.new/parse.f 2007-09-08 10:23:48.000000000 -0400
@@ -4,7 +4,8 @@
COMMON /OPTIONS/ FONTSCALE, GAMMA, ZOOM, NSCHEME, SHADOWFLAG, XBG,
& NAX, NAY, OTMODE, QUALITY, INVERT, LFLAG
REAL FONTSCALE, GAMMA, ZOOM
- INTEGER NSCHEME, SHADOWFLAG, XBG
+ INTEGER NSCHEME, SHADOWFLAG
+ INTEGER*8 XBG
INTEGER*2 NAX, NAY, OTMODE, QUALITY
LOGICAL*2 INVERT, LFLAG
c
diff -Naur Raster3D_2.7c/rastep.f Raster3D_2.7c.new/rastep.f
--- Raster3D_2.7c/rastep.f 2004-02-12 12:01:31.000000000 -0500
+++ Raster3D_2.7c.new/rastep.f 2007-09-08 10:23:08.000000000 -0400
@@ -133,7 +133,7 @@
c
c Support for validation of similarity of bonded atoms
logical suvflag
- integer suvlun, suvbad
+ integer suvlun, suvbad, defcols
real anisov(6)
c
c Default to CPK colors and VDW radii
diff -Naur Raster3D_2.7c/render.f Raster3D_2.7c.new/render.f
--- Raster3D_2.7c/render.f 2003-10-20 18:50:11.000000000 -0400
+++ Raster3D_2.7c.new/render.f 2007-09-08 10:23:08.000000000 -0400
@@ -792,9 +792,9 @@
* Get background colour
READ (INPUT,*,ERR=104) BKGND
if (XBG.NE.0) then
- BKGND(3) = FLOAT(iand(XBG,'00FF'X)) / 255.
- BKGND(2) = FLOAT(iand(XBG,'FF00'X)/256) / 255.
- BKGND(1) = FLOAT(iand(XBG,'FF0000'X)/65536) / 255.
+ BKGND(3) = REAL(iand(XBG,'00FF'X)) / 255.
+ BKGND(2) = REAL(iand(XBG,'FF00'X)/256) / 255.
+ BKGND(1) = REAL(iand(XBG,'FF0000'X)/65536) / 255.
BKGND(3) = BKGND(3)**2
BKGND(2) = BKGND(2)**2
BKGND(1) = BKGND(1)**2
@@ -3679,7 +3679,7 @@
FRAC = DETAIL(K+8)
INEXT = INDTOP + 1
IF (TYPE(INEXT).EQ.VERTEXRGB) INEXT = INEXT + 1
- CALL ASSERT(TYPE(INEXT).EQ.VERTRANSP,'lost vertex transp')
+ CALL ASSERT(TYPE(INEXT).EQ.VERTRANSP,'lost vertex transp')
K = LIST(INEXT)
CLRITY = FRAC*DETAIL(K+1) + (1.-FRAC)*DETAIL(K+2)
ELSE IF (TYPE(INDTOP).EQ.TRIANG) THEN
diff -Naur Raster3D_2.7c/rings3d.f Raster3D_2.7c.new/rings3d.f
--- Raster3D_2.7c/rings3d.f 2003-10-20 18:50:11.000000000 -0400
+++ Raster3D_2.7c.new/rings3d.f 2007-09-08 10:23:08.000000000 -0400
@@ -16,7 +16,6 @@
integer input, output, noise
parameter (input=5, output=6, noise=0)
integer iargc, narg
- external iargc
character*64 options
logical bflag, pflag, sflag
c
|
GitWeb
