[med-svn] [Git][med-team/raster3d][upstream] New upstream version 3.0-6
Andreas Tille
gitlab at salsa.debian.org
Tue Sep 29 15:33:44 BST 2020
Andreas Tille pushed to branch upstream at Debian Med / raster3d
Commits:
afa329d2 by Andreas Tille at 2020-09-29T12:44:23+02:00
New upstream version 3.0-6
- - - - -
11 changed files:
- CHANGELOG
- Makefile
- Makefile.package
- README
- VERSION
- VERSION.incl
- parameters.incl
- parse.f
- qinp.f
- render.f
- rods.f
Changes:
=====================================
CHANGELOG
=====================================
@@ -1,3 +1,5 @@
+12-Nov-2019 rods.f: gfortran 8.3 requires decimal point after floating 0
+12-Nov-2019 import into git
21-Jan-2019 Package 3.0-4
21-Jan-2019 suppress compiler warnings for unused variables
29-Mar-2014 Package (somewhat belatedly) 3.0-3
=====================================
Makefile
=====================================
@@ -53,13 +53,13 @@ linux:
@echo CC = gcc >> Makefile.incl
@echo CFLAGS = -g -Wall -Dgfortran >> Makefile.incl
@echo FC = gfortran >> Makefile.incl
- @echo FFLAGS = -g -w -O3 -Wtabs -ffixed-line-length-132 >> Makefile.incl
+ @echo FFLAGS = -g -w -O3 -Wno-tabs -ffixed-line-length-132 >> Makefile.incl
@echo RM = /bin/rm -f >> Makefile.incl
@echo OSDEFS = -DLINUX -DNETWORKBYTEORDER >> Makefile.incl
@echo include Makefile.package >> Makefile.incl
@echo >> Makefile.incl
@echo qinp.o: qinp.f >> Makefile.incl
- @echo " \$$(FC) -g -O0 -Wall -Wtabs -c -o qinp.o qinp.f" >> Makefile.incl
+ @echo " \$$(FC) -g -O0 -Wall -Wno-tabs -c -o qinp.o qinp.f" >> Makefile.incl
@echo >> Makefile.incl
linux-ifort:
=====================================
Makefile.package
=====================================
@@ -28,7 +28,7 @@ tar: ../$(TARFILE)
touch Makefile.incl
@echo making ../$(TARFILE)
cd `pwd`
- (cd ..; gtar -czvf $(TARFILE) Raster3D_$(VERSION)/.)
+ (cd ..; gtar --exclude-vcs --exclude-vcs-ignores -czvf $(TARFILE) Raster3D_$(VERSION)/.)
#
# Build an RPM package
=====================================
README
=====================================
@@ -1,15 +1,14 @@
-Most recent change: 21-Jan-2019
+Most recent change: 06-May-2020
-The file Raster3D_3.0-4.tar.gz contains the full source distribution for
+The file Raster3D_3.0-6.tar.gz contains the full source distribution for
version 3.0 of Raster3D.
See CHANGELOG for a history of changes to the package.
- Basically nothing has changed since verison 3.0-3 (2014) except that I
- tried to suppress some harmless compiler warnings.
+ Basically nothing has changed since verison 3.0-3 (2014) except for
+ minor tweaks to accommodate newer Fortran versions.
- Note: The programs from Raster3D version 3.0-3 are included in the
- CCP4 crystallography suite. You might find it easier to use that
- pre-built version.
+ Note: The programs from Raster3D are included in the CCP4 crystallography
+ suite. You might find it easier to use that pre-built version.
- In a nutshell, the installation procedure is:
@@ -24,9 +23,10 @@ version 3.0 of Raster3D.
7) (optional)
modify ImageMagick delegates file so that ImageMagick recognizes
*.r3d files by default. On my systems this file is in
- /usr/lib/ImageMagick-6.3.2/config/delegates.xml
+ /etc/ImageMagick-6/config/delegates.xml
Add the following line
- <delegate decode="r3d" command='"render" < "%i" > "%o"' />
+ <delegate decode="r3d" command=""render" < "%i" > "%o""/>
+
- Changes in Version 3.0
+ new code in rastep to support Skittles validation (introduced in 2.9)
=====================================
VERSION
=====================================
@@ -1 +1 @@
-VERSION = "3.0-4"
+VERSION = "3.0-6"
=====================================
VERSION.incl
=====================================
@@ -1,2 +1,2 @@
CHARACTER*8 VERSION
- PARAMETER (VERSION='V3.0.4 ')
+ PARAMETER (VERSION='V3.0.5 ')
=====================================
parameters.incl
=====================================
@@ -60,7 +60,7 @@
* $$$$$$$$$$$$$$$$$ END OF LIMITS $$$$$$$$$$$$$$$$$$$$$$$
*
* Other possibly platform-dependent stuff
- REAL HUGE
+ REAL HUGE
PARAMETER (HUGE = 1.0e37)
* Slop is related to the accuracy (in pixels) to which we must predict
* shadow edges. Too low a value causes whole triangles to be spuriously
@@ -74,5 +74,5 @@
PARAMETER (EDGESLOP = 0.25)
* Ribbonslop is a kludge so that distortion due to perspective doesn't
* prevent us from identifying ribbon triangles
- REAL RIBBONSLOP
+ REAL RIBBONSLOP
PARAMETER (RIBBONSLOP = 0.001)
=====================================
parse.f
=====================================
@@ -115,8 +115,8 @@ c
else if (option(1:3).eq.'-bg') then
iarg = iarg + 1
call getarg( iarg, option )
- if (option(1:5).eq.'white') xbg = X'FFFFFF'
- if (option(1:5).eq.'black') xbg = X'000000'
+ if (option(1:5).eq.'white') xbg = Z'FFFFFF'
+ if (option(1:5).eq.'black') xbg = Z'000000'
if (option(1:1).eq.'#') then
read (option(2:7),'(1Z6)') xbg
if (verbose) then
=====================================
qinp.f
=====================================
@@ -49,7 +49,7 @@ CC
C
function qinp( buf, detail, shadow, sdtail )
* Use MODULE LISTS not COMMON /LISTS/ for dynamic allocation
- USE LISTS
+ USE LISTS
*
IMPLICIT NONE
logical qinp
@@ -58,10 +58,10 @@ C
logical shadow
*
real QQ(4,4), QP(4,4), QT(4,4)
- real xq, yq, zq, radlim, red, grn, blu
+ real xq, yq, zq, radlim, red, grn, blu
real xc, yc, zc, rc
real xr, yr, zr, xs, ys, zs, rs
- real pfac
+ real pfac
*
integer ix,iy,ixlo,ixhi,iylo,iyhi
c VOLATILE ix,iy,ixlo,ixhi,iylo,iyhi
@@ -284,4 +284,3 @@ CD write (noise,191) 'QP ',((QP(i,j),j=1,4),i=1,4)
*
return
end
-
=====================================
render.f
=====================================
@@ -968,9 +968,9 @@ C Header records and picture title
* Get background colour
READ (INPUT,*,ERR=104) BKGND
if (XBG.NE.0) then
- BKGND(3) = iand(XBG,X'00FF')
- BKGND(2) = iand(XBG,X'FF00')/256
- BKGND(1) = iand(XBG,X'FF0000')/65536
+ BKGND(3) = iand(XBG,Z'00FF')
+ BKGND(2) = iand(XBG,Z'FF00')/256
+ BKGND(1) = iand(XBG,Z'FF0000')/65536
BKGND(3) = BKGND(3) / 255.
BKGND(2) = BKGND(2) / 255.
BKGND(1) = BKGND(1) / 255.
=====================================
rods.f
=====================================
@@ -17,6 +17,8 @@
* -brad XX to set ball radius as fraction of Van der Waals radius
* EAM Jul 1999
* don't draw bonds across alternate chain locations
+* EAM Nov 2019
+* new gfortran requires a decimal point in floating constants
*
*------------------------------------------------------------------------------
INCLUDE 'VERSION.incl'
@@ -343,7 +345,7 @@ c
write(output,141)
1 RGB(1,ICOL),RGB(2,ICOL),RGB(3,ICOL),
2 RGB(1,JCOL),RGB(2,JCOL),RGB(3,JCOL),
- 3 0, 0, 0
+ 3 0.0, 0.0, 0.0
ELSE
DO 136 K=1,3
136 CEN(K) = (SPAM(K,IATM)+SPAM(K,JATM))/2
View it on GitLab: https://salsa.debian.org/med-team/raster3d/-/commit/afa329d2d10ae1c6304a892beea83fba47862b79
--
View it on GitLab: https://salsa.debian.org/med-team/raster3d/-/commit/afa329d2d10ae1c6304a892beea83fba47862b79
You're receiving this email because of your account on salsa.debian.org.
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://alioth-lists.debian.net/pipermail/debian-med-commit/attachments/20200929/11b86c16/attachment-0001.html>
More information about the debian-med-commit
mailing list