<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN"
"http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head><meta http-equiv="content-type" content="text/html; charset=utf-8" />
<title>[121030] trunk/dports/science/gildas</title>
</head>
<body>
<style type="text/css"><!--
#msg dl.meta { border: 1px #006 solid; background: #369; padding: 6px; color: #fff; }
#msg dl.meta dt { float: left; width: 6em; font-weight: bold; }
#msg dt:after { content:':';}
#msg dl, #msg dt, #msg ul, #msg li, #header, #footer, #logmsg { font-family: verdana,arial,helvetica,sans-serif; font-size: 10pt; }
#msg dl a { font-weight: bold}
#msg dl a:link { color:#fc3; }
#msg dl a:active { color:#ff0; }
#msg dl a:visited { color:#cc6; }
h3 { font-family: verdana,arial,helvetica,sans-serif; font-size: 10pt; font-weight: bold; }
#msg pre { overflow: auto; background: #ffc; border: 1px #fa0 solid; padding: 6px; }
#logmsg { background: #ffc; border: 1px #fa0 solid; padding: 1em 1em 0 1em; }
#logmsg p, #logmsg pre, #logmsg blockquote { margin: 0 0 1em 0; }
#logmsg p, #logmsg li, #logmsg dt, #logmsg dd { line-height: 14pt; }
#logmsg h1, #logmsg h2, #logmsg h3, #logmsg h4, #logmsg h5, #logmsg h6 { margin: .5em 0; }
#logmsg h1:first-child, #logmsg h2:first-child, #logmsg h3:first-child, #logmsg h4:first-child, #logmsg h5:first-child, #logmsg h6:first-child { margin-top: 0; }
#logmsg ul, #logmsg ol { padding: 0; list-style-position: inside; margin: 0 0 0 1em; }
#logmsg ul { text-indent: -1em; padding-left: 1em; }#logmsg ol { text-indent: -1.5em; padding-left: 1.5em; }
#logmsg > ul, #logmsg > ol { margin: 0 0 1em 0; }
#logmsg pre { background: #eee; padding: 1em; }
#logmsg blockquote { border: 1px solid #fa0; border-left-width: 10px; padding: 1em 1em 0 1em; background: white;}
#logmsg dl { margin: 0; }
#logmsg dt { font-weight: bold; }
#logmsg dd { margin: 0; padding: 0 0 0.5em 0; }
#logmsg dd:before { content:'\00bb';}
#logmsg table { border-spacing: 0px; border-collapse: collapse; border-top: 4px solid #fa0; border-bottom: 1px solid #fa0; background: #fff; }
#logmsg table th { text-align: left; font-weight: normal; padding: 0.2em 0.5em; border-top: 1px dotted #fa0; }
#logmsg table td { text-align: right; border-top: 1px dotted #fa0; padding: 0.2em 0.5em; }
#logmsg table thead th { text-align: center; border-bottom: 1px solid #fa0; }
#logmsg table th.Corner { text-align: left; }
#logmsg hr { border: none 0; border-top: 2px dashed #fa0; height: 1px; }
#header, #footer { color: #fff; background: #636; border: 1px #300 solid; padding: 6px; }
#patch { width: 100%; }
#patch h4 {font-family: verdana,arial,helvetica,sans-serif;font-size:10pt;padding:8px;background:#369;color:#fff;margin:0;}
#patch .propset h4, #patch .binary h4 {margin:0;}
#patch pre {padding:0;line-height:1.2em;margin:0;}
#patch .diff {width:100%;background:#eee;padding: 0 0 10px 0;overflow:auto;}
#patch .propset .diff, #patch .binary .diff {padding:10px 0;}
#patch span {display:block;padding:0 10px;}
#patch .modfile, #patch .addfile, #patch .delfile, #patch .propset, #patch .binary, #patch .copfile {border:1px solid #ccc;margin:10px 0;}
#patch ins {background:#dfd;text-decoration:none;display:block;padding:0 10px;}
#patch del {background:#fdd;text-decoration:none;display:block;padding:0 10px;}
#patch .lines, .info {color:#888;background:#fff;}
--></style>
<div id="msg">
<dl class="meta">
<dt>Revision</dt> <dd><a href="https://trac.macports.org/changeset/121030">121030</a></dd>
<dt>Author</dt> <dd>mf2k@macports.org</dd>
<dt>Date</dt> <dd>2014-06-14 17:58:50 -0700 (Sat, 14 Jun 2014)</dd>
</dl>
<h3>Log Message</h3>
<pre>gildas: Update to version 201406a. (#43933)</pre>
<h3>Modified Paths</h3>
<ul>
<li><a href="#trunkdportssciencegildasPortfile">trunk/dports/science/gildas/Portfile</a></li>
<li><a href="#trunkdportssciencegildasfilespatchadmindefinesystemshdiff">trunk/dports/science/gildas/files/patch-admin-define-system.sh.diff</a></li>
</ul>
<h3>Removed Paths</h3>
<ul>
<li><a href="#trunkdportssciencegildasfilespatchadminMakefilediff">trunk/dports/science/gildas/files/patch-admin-Makefile.diff</a></li>
<li><a href="#trunkdportssciencegildasfilespatchfortrandiff">trunk/dports/science/gildas/files/patch-fortran.diff</a></li>
</ul>
</div>
<div id="patch">
<h3>Diff</h3>
<a id="trunkdportssciencegildasPortfile"></a>
<div class="modfile"><h4>Modified: trunk/dports/science/gildas/Portfile (121029 => 121030)</h4>
<pre class="diff"><span>
<span class="info">--- trunk/dports/science/gildas/Portfile 2014-06-14 23:42:28 UTC (rev 121029)
+++ trunk/dports/science/gildas/Portfile 2014-06-15 00:58:50 UTC (rev 121030)
</span><span class="lines">@@ -5,7 +5,7 @@
</span><span class="cx"> PortGroup compilers 1.0
</span><span class="cx">
</span><span class="cx"> name gildas
</span><del>-version 201404c
</del><ins>+version 201406a
</ins><span class="cx"> set my_version [string tolower [clock format [clock scan 2000-[string range ${version} 4 5]-10] -format %b]][string range ${version} 2 3][string range ${version} 6 end]
</span><span class="cx"> categories science
</span><span class="cx"> platforms darwin
</span><span class="lines">@@ -28,18 +28,16 @@
</span><span class="cx"> master_sites http://www.iram.fr/~gildas/dist/
</span><span class="cx"> distname ${name}-src-${my_version}
</span><span class="cx">
</span><del>-checksums rmd160 8ebf90758e521e22c6ee69669832dc726c9fc78e \
- sha256 e229d8645d78271419dafd7949afde3546665520f1835f1204ca7ee8155525aa
</del><ins>+checksums rmd160 8f8b99c03e8d32048ff325a2c07fe6f96f413dbd \
+ sha256 080fe64969a59c7d4d5389f847cfe3e0a73ebaa047d4c0d4b7fdb597c6fece36
</ins><span class="cx">
</span><span class="cx"> patch.pre_args -p1
</span><del>-patchfiles patch-admin-Makefile.diff \
- patch-admin-Makefile.def.diff \
</del><ins>+patchfiles patch-admin-Makefile.def.diff \
</ins><span class="cx"> patch-admin-Makefile.stdcxxlib.diff \
</span><span class="cx"> patch-admin-Makefile.python.diff \
</span><span class="cx"> patch-admin-gildas-env.sh.diff \
</span><span class="cx"> patch-admin-define-system.sh.diff \
</span><del>- patch-lapack.diff \
- patch-fortran.diff
</del><ins>+ patch-lapack.diff
</ins><span class="cx">
</span><span class="cx"> depends_lib port:gtk2 \
</span><span class="cx"> port:libpng \
</span></span></pre></div>
<a id="trunkdportssciencegildasfilespatchadminMakefilediff"></a>
<div class="delfile"><h4>Deleted: trunk/dports/science/gildas/files/patch-admin-Makefile.diff (121029 => 121030)</h4>
<pre class="diff"><span>
<span class="info">--- trunk/dports/science/gildas/files/patch-admin-Makefile.diff 2014-06-14 23:42:28 UTC (rev 121029)
+++ trunk/dports/science/gildas/files/patch-admin-Makefile.diff 2014-06-15 00:58:50 UTC (rev 121030)
</span><span class="lines">@@ -1,42 +0,0 @@
</span><del>-# HG changeset patch
-# User Sean Farley <sean.michael.farley@gmail.com>
-# Date 1397946736 18000
-# Sat Apr 19 17:32:16 2014 -0500
-# Node ID b911914b645214ff60140304ecd87b088b0e225d
-# Parent 436da9915ef75995539303661dc8a84ce6885cea
-make: remove install-message
-
-diff --git a/admin/Makefile b/admin/Makefile
---- a/admin/Makefile
-+++ b/admin/Makefile
-@@ -29,29 +29,8 @@ integ: integ-message
- integ-message:
- @(echo)
- @(echo "Compilation succeeded! Bye.")
- @(echo)
-
--default-install: install-message
--
--install-message:
-- @(echo)
-- @(echo "***************************************************************************")
-- @(echo "Installation succeeded!")
-- @(echo)
-- @(echo "bash users: You should add in your ~/.bash_profile the following lines")
-- @(echo " export GAG_ROOT_DIR=$(gagexedir)")
-- @(echo " export GAG_EXEC_SYSTEM=$(GAG_EXEC_SYSTEM)")
-- @(echo ' source $$GAG_ROOT_DIR/etc/bash_profile')
-- @(echo)
-- @(echo "csh users: You should add in your ~/.login the following lines")
-- @(echo " setenv GAG_ROOT_DIR $(gagexedir)")
-- @(echo " setenv GAG_EXEC_SYSTEM $(GAG_EXEC_SYSTEM)")
-- @(echo ' source $$GAG_ROOT_DIR/etc/login')
-- @(echo)
-- @(echo "You should then exit this xterm and open a new one to reset your path.")
-- @(echo "GILDAS should be ready for use (e.g. type greg @ gag_demo:demo).")
-- @(echo "Bye.")
-- @(echo "***************************************************************************")
-- @(echo)
-+default-install:
-
- ###########################################################################
</del></span></pre></div>
<a id="trunkdportssciencegildasfilespatchadmindefinesystemshdiff"></a>
<div class="modfile"><h4>Modified: trunk/dports/science/gildas/files/patch-admin-define-system.sh.diff (121029 => 121030)</h4>
<pre class="diff"><span>
<span class="info">--- trunk/dports/science/gildas/files/patch-admin-define-system.sh.diff 2014-06-14 23:42:28 UTC (rev 121029)
+++ trunk/dports/science/gildas/files/patch-admin-define-system.sh.diff 2014-06-15 00:58:50 UTC (rev 121030)
</span><span class="lines">@@ -1,17 +1,6 @@
</span><del>-# HG changeset patch
-# User Sean Farley <sean.michael.farley@gmail.com>
-# Date 1397849840 18000
-# Fri Apr 18 14:37:20 2014 -0500
-# Node ID 0e344bcb0edfc864c73ef9072be1698768a94c55
-# Parent 0c556df11dafc4475317fdc3598c7db1ad0b4265
-define-system: use variables
-
-diff --git a/admin/define-system.sh b/admin/define-system.sh
---- a/admin/define-system.sh
-+++ b/admin/define-system.sh
-@@ -225,12 +225,12 @@ EOF
- else
- GAG_MACHINE=pc
</del><ins>+--- gildas-src-jun14a/admin/define-system.sh.orig 2014-06-06 10:30:59.000000000 +0200
++++ gildas-src-jun14a/admin/define-system.sh 2014-06-06 10:31:24.000000000 +0200
+@@ -227,8 +227,8 @@
</ins><span class="cx"> fi
</span><span class="cx"> if which ifort > /dev/null 2>&1; then
</span><span class="cx"> DEFAULT_COMPILER=ifort
</span><span class="lines">@@ -22,27 +11,16 @@
</span><span class="cx"> fi
</span><span class="cx"> fi ;;
</span><span class="cx"> CYGWIN*)
</span><del>- GAG_MACHINE=pc
- GAG_OS_KIND=cygwin
-@@ -295,13 +295,13 @@ EOF
- # Detect the compiler version.
- GAG_COMPILER_VERSION=
</del><ins>+@@ -297,7 +297,7 @@
</ins><span class="cx"> if [ "$GAG_COMPILER_KIND" = "ifort" ]; then
</span><span class="cx"> # Compress Major+Minor (no dot = easier preprocessing tests)
</span><del>- GAG_COMPILER_VERSION=`ifort -v 2>&1 | cut -d" " -f2 | sed "s%\.%%"`
</del><ins>+ GAG_COMPILER_VERSION=`$GAG_COMPILER_EXE -v 2>&1 | head -1 | cut -d" " -f2 | sed "s%\.%%"`
</ins><span class="cx"> - elif [ "$GAG_COMPILER_KIND" = "gfortran" ]; then
</span><span class="cx"> + elif [ "$GAG_COMPILER_KIND" != "${GAG_COMPILER_KIND/gfortran/}" ]; then
</span><span class="cx"> # Compress Major+Minor+Micro (no dot = easier preprocessing tests)
</span><del>-- GAG_COMPILER_VERSION=`gfortran --version | head -1 | sed "s%.*\s\([0-9][0-9]*\)\.\([0-9][0-9]*\)\.\([0-9][0-9]*\).*%\1\2\3%"`
-+ GAG_COMPILER_VERSION=`@FC@ --version | head -1 | sed "s%.*\s\([0-9][0-9]*\)\.\([0-9][0-9]*\)\.\([0-9][0-9]*\).*%\1\2\3%"`
</del><ins>+ GAG_COMPILER_VERSION=`$GAG_COMPILER_EXE --version | head -1 | sed "s%.*[^0-9]\([0-9][0-9]*\)\.\([0-9][0-9]*\)\.\([0-9][0-9]*\).*%\1\2\3%"`
</ins><span class="cx"> # Reject gfortran unstable versions
</span><del>- GFORTRAN_VERSION2=`$GAG_COMPILER_EXE --version | head -1 | sed "s%.*\s\([0-9][0-9]*\.[0-9][0-9]*\)\.[0-9][0-9]*.*%\1%"`
- GFORTRAN_VERSION3=`$GAG_COMPILER_EXE --version | head -1 | sed "s%.*\s\([0-9][0-9]*\.[0-9][0-9]*\.[0-9][0-9]*\).*%\1%"`
- # Minimum Gfortran version:
- GFORTRAN_MINI="4.4.0"
-@@ -344,11 +344,11 @@ EOF
- # Currently disabled: ifort 11.1 has an internal error
- # if the debug mode is enabled
</del><ins>+@@ -346,7 +346,7 @@
</ins><span class="cx"> # GAG_COMPILER_CPPFLAGS="-DFORTRAN2003_PP"
</span><span class="cx"> :
</span><span class="cx"> fi
</span><span class="lines">@@ -51,16 +29,12 @@
</span><span class="cx"> GAG_COMPILER_LIBS="-lgfortran"
</span><span class="cx"> if [ "$GFORTRAN_VERSION3" ">" "4.5.1" ]; then
</span><span class="cx"> # Fortran 2003 pointer procedures:
</span><del>- GAG_COMPILER_CPPFLAGS="-DFORTRAN2003_PP"
</del><ins>+@@ -359,10 +359,12 @@
</ins><span class="cx"> fi
</span><del>-@@ -357,14 +357,16 @@ EOF
- # arrays in Left Hand Side of assignments
- GAG_COMPILER_FFLAGS="-Wrealloc-lhs-all"
- fi
</del><span class="cx"> fi
</span><span class="cx"> #
</span><del>-- GCC_VERSION=`gcc --version | head -1 | sed "s%.*\s\([0-9][0-9]*\.[0-9][0-9]*\.[0-9][0-9]*\).*%\1%"`
-+ GCC_VERSION=`@CC@ --version | head -1 | sed "s%.*\s\([0-9][0-9]*\.[0-9][0-9]*\.[0-9][0-9]*\).*%\1%"`
</del><ins>+- GCC_VERSION=`gcc --version | head -1 | sed "s%.*[^0-9]\([0-9][0-9]*\.[0-9][0-9]*\.[0-9][0-9]*\).*%\1%"`
++ GCC_VERSION=`@CC@ --version | head -1 | sed "s%.*[^0-9]\([0-9][0-9]*\.[0-9][0-9]*\.[0-9][0-9]*\).*%\1%"`
</ins><span class="cx"> if [ "$GCC_VERSION" ">" "4.7.9" ]; then
</span><span class="cx"> # See http://gcc.gnu.org/gcc-4.8/porting_to.html
</span><span class="cx"> GAG_COMPILER_CPPFLAGS="$GAG_COMPILER_CPPFLAGS -ffreestanding"
</span><span class="lines">@@ -69,5 +43,3 @@
</span><span class="cx"> fi
</span><span class="cx"> #
</span><span class="cx"> export GAG_COMPILER_FFLAGS GAG_COMPILER_LIBS GAG_COMPILER_CPPFLAGS
</span><del>- #
- else
</del></span></pre></div>
<a id="trunkdportssciencegildasfilespatchfortrandiff"></a>
<div class="delfile"><h4>Deleted: trunk/dports/science/gildas/files/patch-fortran.diff (121029 => 121030)</h4>
<pre class="diff"><span>
<span class="info">--- trunk/dports/science/gildas/files/patch-fortran.diff 2014-06-14 23:42:28 UTC (rev 121029)
+++ trunk/dports/science/gildas/files/patch-fortran.diff 2014-06-15 00:58:50 UTC (rev 121030)
</span><span class="lines">@@ -1,425 +0,0 @@
</span><del>-# HG changeset patch
-# User Sean Farley <sean.michael.farley@gmail.com>
-# Date 1397874113 18000
-# Fri Apr 18 21:21:53 2014 -0500
-# Node ID 5eceb5b8043a7a763ac0c1e18fbac272477670f5
-# Parent d903f416ef63711865f0b8325cd5bb06132af03e
-contrib: for the love of god and everything holy don't use '#' for continuation
-
-diff --git a/contrib/gaussclumps/lib/backtrans.f b/contrib/gaussclumps/lib/backtrans.f
---- a/contrib/gaussclumps/lib/backtrans.f
-+++ b/contrib/gaussclumps/lib/backtrans.f
-@@ -1,7 +1,7 @@
- subroutine backtrans(image,nimage,points,temp,npts,blanking,
-- # rms,npix1,npix2,npix3,refpix,val,inc)
-+ & rms,npix1,npix2,npix3,refpix,val,inc)
- real*4 refpix(3),val(3),inc(3)
- integer(kind=4), intent(in) :: nimage
- real*4 image (nimage), points(3,nimage)
- real*4 temp(npix1,npix2,npix3)
-
-diff --git a/contrib/gaussclumps/lib/cubcurfit.f b/contrib/gaussclumps/lib/cubcurfit.f
---- a/contrib/gaussclumps/lib/cubcurfit.f
-+++ b/contrib/gaussclumps/lib/cubcurfit.f
-@@ -39,11 +39,11 @@ c
- c
- c test for convergence
- c
- 31 continue
- ddel=abs(a(1)-a(2))*(a(1)+a(2))/
-- # (wid(1)+wid(2)+0.5*(a(1)+a(2))**2)
-+ & (wid(1)+wid(2)+0.5*(a(1)+a(2))**2)
- do 32 i=1,nterms
- li=lista(i)
- del = abs(a(li)-b(li))
- if (li.le.3) then
- del = del/abs(a(li)) / (1.+wid(li)/a(li)**2)
-@@ -78,11 +78,11 @@ c
- beta(j) = 0.
- endif
- do 35 k=1,j
- lk=lista(k)
- if ( (lk.eq.11 .or. lk.eq.7) .and.
-- # (lj.eq.11 .or. lj.eq.7) ) then
-+ & (lj.eq.11 .or. lj.eq.7) ) then
- alpha(j,k)=8.*sm*a(lk)*a(lj)
- else if (lk.ge.8 .and. lj.eq.lk) then
- alpha(j,k)=2.*4.*sc/wid(lj-7)
- else
- alpha(j,k) = 0.
-@@ -100,26 +100,26 @@ c
- lj=lista(j)
- beta(j)=beta(j)+deriv(lj)*(res*weight(ix)*rr)
- do 46 k=1,j
- lk=lista(k)
- 46 alpha(j,k)=
-- # alpha(j,k)+deriv(lj)*deriv(lk)*(weight(ix)*rr)
-+ & alpha(j,k)+deriv(lj)*deriv(lk)*(weight(ix)*rr)
- 50 continue
- do 53 j=1,nterms
- do 53 k=1,j
- 53 alpha(k,j)=alpha(j,k)
- c
- c evaluate chi square at starting point.
- c
- if (chisqr.eq.0.) then
- chisq1=
-- # fchisq(y,npts,free,yfit,weight,ipt,1.e30,bigger,s0,a)
-+ & fchisq(y,npts,free,yfit,weight,ipt,1.e30,bigger,s0,a)
- else
- chisq1=chisqr
- endif
- write (termou,'(1x,a,1p,8g9.2)')
-- # 'chisqr ',chisq1,a(1),a(2),a(4),a(3),a(5),a(6)
-+ & 'chisqr ',chisq1,a(1),a(2),a(4),a(3),a(5),a(6)
- c
- c invert modified curvature matrix to find new parameters.
- c
- int = 0
- 71 int = int + 1
-@@ -178,11 +178,11 @@ c if chi square increased, increase
- call quadini(b)
- do 92 i=1,npts
- ix = ipt(i)
- 92 yfit(ix)=functn(ix,b,x,nterms)
- chisqr=
-- # fchisq(y,npts,free,yfit,weight,ipt,chisq1,bigger,s0,b)
-+ & fchisq(y,npts,free,yfit,weight,ipt,chisq1,bigger,s0,b)
- if (.not.bigger) goto 31
- 96 flambda=flambda*fnu
- go to 71
- c
- 101 if(iter-itmax)103,102,102
-@@ -287,11 +287,11 @@ c
- 130 continue
- 140 return
- end
-
- function
-- # fchisq (y,npts,free,yfit,weight,ipt,chiold,bigger,s0,a)
-+ & fchisq (y,npts,free,yfit,weight,ipt,chiold,bigger,s0,a)
- common /termpointer/ lista,peak,cent,wid
- dimension lista(11),cent(3),wid(3)
- real*4 peak
- dimension a(11)
- dimension y(1), yfit(1), weight(1), ipt(1)
-diff --git a/contrib/gaussclumps/lib/cubfit.f b/contrib/gaussclumps/lib/cubfit.f
---- a/contrib/gaussclumps/lib/cubfit.f
-+++ b/contrib/gaussclumps/lib/cubfit.f
-@@ -1,8 +1,8 @@
- subroutine cubfit (image,nimage,npts,nterms,a,sigmaa,
-- # flambdin,imagfit,chisqr,eps,itmax,points,s0,
-- # conv,p0,imax,ap,ap1)
-+ & flambdin,imagfit,chisqr,eps,itmax,points,s0,
-+ & conv,p0,imax,ap,ap1)
- use gildas_def
- use gkernel_interfaces
- integer(kind=4), intent(in) :: nimage
- real*4 image(nimage),imagfit(nimage),points(3,nimage)
- dimension a(11),sigmaa(11),s0(3)
-@@ -42,18 +42,18 @@ 11 x(k)=points(k,i)-a(7+k)
- wsum=wsum+weight(i)
- endif
- endif
- 1 continue
- write (2,*)
-- # 'I-CUBFIT, ',npsel,' points selected with > ',p0,' * peak, ',
-- # ' within ',sqrt(ap1),' * initial fwhm. sum of weights ',wsum
-+ & 'I-CUBFIT, ',npsel,' points selected with > ',p0,' * peak, ',
-+ & ' within ',sqrt(ap1),' * initial fwhm. sum of weights ',wsum
-
- flambda=flambdin
-
- call curfit (image,npsel,nterms,a,sigmaa,flambda,
-- # imagfit,chisqr,eps,itmax,points,
-- # conv,weight,ipt,s0,wsum)
-+ & imagfit,chisqr,eps,itmax,points,
-+ & conv,weight,ipt,s0,wsum)
- do 2 i=1,npts
- 2 imagfit(i)=functn(i,a,points,nterms)-a(11)**2
-
- deallocate(ipt,weight)
-
-diff --git a/contrib/gaussclumps/lib/cubfunc.f b/contrib/gaussclumps/lib/cubfunc.f
---- a/contrib/gaussclumps/lib/cubfunc.f
-+++ b/contrib/gaussclumps/lib/cubfunc.f
-@@ -27,12 +27,12 @@ c offset is a(11)**2
- do 1 i=1,2
- x(i)=points(i,ip)-a(7+i)
- 1 x(3)=x(3)-a(4+i)*x(i)
-
- functn=aq(1)*x(1)*x(1)+aq(2)*x(2)*x(2)
-- # +2.*aq(3)*x(1)*x(2)
-- # +x(3)**2*vv
-+ & +2.*aq(3)*x(1)*x(2)
-+ & +x(3)**2*vv
-
- functn=a(7)**2*expz(-functn)+a(11)**2
-
- return
- end
-@@ -66,11 +66,11 @@ 1 x(3)=x(3)-a(4+i)*x(i)
-
- deriv(1)=f*(aa*(s*x(2)-c*x(1)))**2/2.772589*2.*a(1)
- deriv(2)=f*(bb*(s*x(1)+c*x(2)))**2/2.772589*2.*a(2)
- deriv(3)=f*(x(3)*vv)**2/2.772589*2.*a(3)
- deriv(4)=-f*(2.*aq(3)*(x(1)*x(1)-x(2)*x(2)) +
-- # 2.*(aq(2)-aq(1))*x(1)*x(2))
-+ & 2.*(aq(2)-aq(1))*x(1)*x(2))
- deriv(7)=2.*f/a(7)
- deriv(10)=f*2.*vv*x(3)
-
- do 2 i=1,2
- deriv(7+i)=-f*2.*vv*x(3)*a(4+i)
-diff --git a/contrib/gaussclumps/lib/findmax.f b/contrib/gaussclumps/lib/findmax.f
---- a/contrib/gaussclumps/lib/findmax.f
-+++ b/contrib/gaussclumps/lib/findmax.f
-@@ -1,7 +1,7 @@
- subroutine findmax (image,nimage,imax,npts,points,badpts,
-- # rms,sum)
-+ & rms,sum)
- integer(kind=4), intent(in) :: nimage
- real*4 image(nimage),points(3,nimage)
- integer*2 badpts (nimage)
- real*4 max,min
-
-@@ -20,13 +20,13 @@
- endif
- sum=sum+image(i)
- 1 continue
-
- write (2,*) 'I-FINDMAX, maximum found at ',
-- # points(1,imax),points(2,imax),points(3,imax),' ',max*rms
-+ & points(1,imax),points(2,imax),points(3,imax),' ',max*rms
- write (2,*) 'I-FINDMAX, minimum found at ',
-- # points(1,imin),points(2,imin),points(3,imin),' ',min*rms
-+ & points(1,imin),points(2,imin),points(3,imin),' ',min*rms
- write (2,*) 'I-FINDMAX, integral ',sum*rms
- write (6,*) 'I-FINDMAX, integral ',sum*rms
-
- return
- end
-diff --git a/contrib/gaussclumps/lib/getpar.f b/contrib/gaussclumps/lib/getpar.f
---- a/contrib/gaussclumps/lib/getpar.f
-+++ b/contrib/gaussclumps/lib/getpar.f
-@@ -1,8 +1,8 @@
- subroutine getpar (imafile,rms,beamfwhm,velres,fbeam,fvel,
-- # fitflag,s0,thresh,p0,ap,ap1,itmaxcl,itmaxfit,
-- # eps,flambda,blanking,tol,savres,savfit,minsum)
-+ & fitflag,s0,thresh,p0,ap,ap1,itmaxcl,itmaxfit,
-+ & eps,flambda,blanking,tol,savres,savfit,minsum)
- character*30 imafile
- character*1 yn1,yn2,yn3,yn4,yn5
- logical savres
- logical savfit
- real*4 minsum
-@@ -54,20 +54,20 @@ 1001 format (1x,a)
- if (yn5.eq.'N'.or.yn5.eq.'n') savfit=.false.
-
- open (unit=2,file='clumps_output',status='new')
- open (unit=3,file='clumps_list',status='new')
- write (3,1020) rms,beamfwhm,fbeam,velres,fvel,
-- # thresh,p0,sqrt(ap),sqrt(ap1),s0
-+ & thresh,p0,sqrt(ap),sqrt(ap1),s0
- write (2,1020) rms,beamfwhm,fbeam,velres,fvel,
-- # thresh,p0,sqrt(ap),sqrt(ap1),s0
-+ & thresh,p0,sqrt(ap),sqrt(ap1),s0
- write (6,1020) rms,beamfwhm,fbeam,velres,fvel,
-- # thresh,p0,sqrt(ap),sqrt(ap1),s0
-+ & thresh,p0,sqrt(ap),sqrt(ap1),s0
- 1020 format (1x,' rms: ',1p,g10.3,', beamfwhm: ',2(g10.3,1x),
-- # ', velres: ',2(g10.3,1x),/,
-- # 1x,' threshhold: ',g10.3,', contrast: ',g10.3,
-- # ', weigth-aperture: ',g10.3,
-- # 1x,g10.3,/,1x,' stiffness: ',3g10.3)
-+ & ', velres: ',2(g10.3,1x),/,
-+ & 1x,' threshhold: ',g10.3,', contrast: ',g10.3,
-+ & ', weigth-aperture: ',g10.3,
-+ & 1x,g10.3,/,1x,' stiffness: ',3g10.3)
- close (unit=1)
- return
-
- 999 write (6,*) 'I-GETPAR: error reading clumps_inp '
- close (unit=1)
-diff --git a/contrib/gaussclumps/lib/iterate.f b/contrib/gaussclumps/lib/iterate.f
---- a/contrib/gaussclumps/lib/iterate.f
-+++ b/contrib/gaussclumps/lib/iterate.f
-@@ -1,7 +1,7 @@
- subroutine iterate(image,nimage,imax,iclump,thresh,itmaxcl,
-- # iter,rms,sum,minsum)
-+ & iter,rms,sum,minsum)
-
- real*4 minsum
- integer(kind=4), intent(in) :: nimage
- real*4 image(nimage)
- logical iter
-@@ -10,20 +10,20 @@
- iter=.true.
-
- if (iclump.eq.1) sum_thresh = minsum*sum
- if (image(imax).lt.thresh/rms) then
- write (2,*)
-- # 'I-ITERATE, threshhold reached after ',iclump,' iterations '
-+ & 'I-ITERATE, threshhold reached after ',iclump,' iterations '
- iter=.false.
- else if (iclump.gt.itmaxcl) then
- write (2,*)
-- # 'I-ITERATE, maximum number of clumps; stop iterating '
-+ & 'I-ITERATE, maximum number of clumps; stop iterating '
- iter=.false.
- else if (sum.le.sum_thresh) then
- write (2,*)
-- # 'I-ITERATE, integrated intensity lower than ',minsum,
-- # '% of start value after ',iclump,' iterations.'
-+ & 'I-ITERATE, integrated intensity lower than ',minsum,
-+ & '% of start value after ',iclump,' iterations.'
- iter=.false.
- endif
-
- return
- end
-diff --git a/contrib/gaussclumps/lib/listclump.f b/contrib/gaussclumps/lib/listclump.f
---- a/contrib/gaussclumps/lib/listclump.f
-+++ b/contrib/gaussclumps/lib/listclump.f
-@@ -1,7 +1,7 @@
- subroutine listclump (iclump,a,sigmaa,imafile,
-- # chisqr,imgname,rms)
-+ & chisqr,imgname,rms)
-
- common /termpointer/ lista,peak,cent,wid
- dimension lista(11),cent(3),wid(3)
- real*4 peak
-
-@@ -37,27 +37,27 @@ 1 sig(i)=' '
- 2 continue
-
- call convert (a,b,rms)
-
- write (2,1010) iclump,(b(wp(i)),i=1,10),(a(wp(i)),i=1,11),
-- # chisqr,(sig(wp(i)),i=1,11)
-+ & chisqr,(sig(wp(i)),i=1,11)
-
- write (3,2010) iclump,(b(bwp(i)),i=1,11)
-
- 1000 format (1x,' clump ',' x ',' y ',
-- # ' v ',' amplitude ',' delta x ',' delta y ',
-- # ' phi ',' dv/dr ',' fwhm ',' delta v ',//,
-- # ' ',' x ',' y ',
-- # ' v ',' amplitude ',' a11 ',' a22 ',
-- # ' a12 ',' dv/dx ',' dv/dy ',' a33 ',/,
-- # 1x,' chisqr ',/)
-+ & ' v ',' amplitude ',' delta x ',' delta y ',
-+ & ' phi ',' dv/dr ',' fwhm ',' delta v ',//,
-+ & ' ',' x ',' y ',
-+ & ' v ',' amplitude ',' a11 ',' a22 ',
-+ & ' a12 ',' dv/dx ',' dv/dy ',' a33 ',/,
-+ & 1x,' chisqr ',/)
- 1010 format
-- # (/,1x,i5,6x,1p,10(g12.5),//,11x,11(g11.4),/,1x,g10.4,11a11)
-+ & (/,1x,i5,6x,1p,10(g12.5),//,11x,11(g11.4),/,1x,g10.4,11a11)
- 2000 format (1x,' no.',' x ',' y ',
-- # ' v ',' amp. ',' dx ',' dy ',
-- # ' phi ',' fwhm ',' dv/dr ',' phiv ',' dv ')
-+ & ' v ',' amp. ',' dx ',' dy ',
-+ & ' phi ',' fwhm ',' dv/dr ',' phiv ',' dv ')
- 2010 format
- c x,y v amp
-- # (1x,i4,2(1x,f9.2),(1x,f7.2),(1x,f9.4),2(1x,f7.2),(1x,f6.1),
-- # (1x,f6.2),(1x,f9.4),(1x,f6.1),(1x,f5.2))
-+ & (1x,i4,2(1x,f9.2),(1x,f7.2),(1x,f9.4),2(1x,f7.2),(1x,f6.1),
-+ & (1x,f6.2),(1x,f9.4),(1x,f6.1),(1x,f5.2))
- return
- end
-diff --git a/contrib/gaussclumps/lib/replace.f b/contrib/gaussclumps/lib/replace.f
---- a/contrib/gaussclumps/lib/replace.f
-+++ b/contrib/gaussclumps/lib/replace.f
-@@ -1,8 +1,8 @@
- subroutine replace (image,nimage,imagfit,points,npts,blanking,
-- # rms,npix,refpix,val,inc,imgname,iclump,
-- # savres,savfit)
-+ & rms,npix,refpix,val,inc,imgname,iclump,
-+ & savres,savfit)
- use gildas_def
- use gkernel_interfaces
- integer(kind=4), intent(in) :: nimage
- real*4 image(nimage),imagfit(nimage),points(3,nimage)
- integer npix(3)
-@@ -36,26 +36,26 @@
- 1 fit(i)=fit(i)+imagfit(i)
- write (6,*) 'I-REPLACE: fit subtracted '
-
- if (savres) then
- call backtrans (image,nimage,points,temp,npts,blanking,
-- # rms,npix1,npix2,npix3,refpix,val,inc)
-+ & rms,npix1,npix2,npix3,refpix,val,inc)
-
- write (header,1000) imgname(1:40),iclump,' clumps subtracted '
- 1000 format (a40,': ',i6,a)
- call writeimg (temp,nimage,npix,refpix,val,inc,'clumps_tmp',
-- # header)
-+ & header)
- write (6,*) 'I-REPLACE: residual image saved on clumps_tmp'
- endif
-
- if (savfit) then
- call backtrans (fit,nimage,points,temp,npts,blanking,
-- # rms,npix1,npix2,npix3,refpix,val,inc)
-+ & rms,npix1,npix2,npix3,refpix,val,inc)
-
- write (header,1000) imgname(1:40),iclump,' fitted clumps '
- call writeimg (temp,nimage,npix,refpix,val,inc,'clumps_img',
-- # header)
-+ & header)
- write (6,*) 'I-REPLACE: fitted image saved on clumps_img'
- endif
-
- deallocate(temp,fit)
-
-diff --git a/contrib/gaussclumps/lib/setinit.f b/contrib/gaussclumps/lib/setinit.f
---- a/contrib/gaussclumps/lib/setinit.f
-+++ b/contrib/gaussclumps/lib/setinit.f
-@@ -1,8 +1,8 @@
- subroutine setinit (a,nimage,fitflag,beamfwhm,velres,
-- # fbeam,fvel,nterms,
-- # image,imax,points)
-+ & fbeam,fvel,nterms,
-+ & image,imax,points)
- *
- * initialize fit
- *
-
- common /termpointer/ lista,peak,cent,wid
-diff --git a/contrib/gaussclumps/lib/transfer.f b/contrib/gaussclumps/lib/transfer.f
---- a/contrib/gaussclumps/lib/transfer.f
-+++ b/contrib/gaussclumps/lib/transfer.f
-@@ -1,7 +1,7 @@
- subroutine transfer (image,nimage,points,temp,npts,blanking,
-- # tol,rms,npix1,npix2,npix3,refpix,val,inc)
-+ & tol,rms,npix1,npix2,npix3,refpix,val,inc)
- integer(kind=4), intent(in) :: nimage
- real*4 refpix(3),val(3),inc(3)
- real*4 image (nimage), points(3,nimage)
- real*4 temp(npix1,npix2,npix3)
-
-diff --git a/contrib/gaussclumps/lib/writeimg.f b/contrib/gaussclumps/lib/writeimg.f
---- a/contrib/gaussclumps/lib/writeimg.f
-+++ b/contrib/gaussclumps/lib/writeimg.f
-@@ -1,16 +1,16 @@
- subroutine writeimg(temp,nimage,npix,refpix,val,inc,filnam,
-- # header)
-+ & header)
- integer(kind=4), intent(in) :: nimage
- real*4 temp(nimage)
- integer npix(3)
- real*4 refpix(3),val(3),inc(3)
- character*(*) filnam
- character*80 header
-
- open (unit=1,file=filnam,
-- # form='unformatted',status='unknown')
-+ & form='unformatted',status='unknown')
-
- write (1) header
- do 1 i=1,3
- 1 write (1) npix(i),refpix(i),val(i),inc(i)
-
</del></span></pre>
</div>
</div>
</body>
</html>