| 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 |